T04.f:      COMMON /PARAMETERS/ AMPL, R00, AL, THETA
T04.f:     *  HYIMF,HZIMF,BBX,BBY,BBZ,ampl0
T04.f:      print *,'T04: AMPL,PARMOD(1:4) = ',AMPL,PARMOD(1:4)
T04.f:!     print *,'T04: calling extern >>> AMPL = ',AMPL
T04.f:!     ampl0 = ampl
T04.f:      write(6,"('T04_s call EXTERN: ampl=',e12.4,' r00=',e12.4,' al=',
T04.f:     |  e12.4,' theta=',e12.4)") ampl,r00,al,theta
T04.f:      COMMON /PARAMETERS/ AMPL, R00, AL, THETA
T04.f:      write(6,"('Enter extern: ampl=',e12.4,' r00=',e12.4,' al=',
T04.f:     |  e12.4,' theta=',e12.4)") ampl,r00,al,theta
T04.f:      print *,'EXTERN: AMPL = ',AMPL
T04.f:      if (AMPL .gt. 0. .and. PDYN .gt. 15. .and. BZIMF .lt. 0.) 
T04.f:      if (AMPL .gt. 0. .and. PDYN .gt. 15. .and. BZIMF .lt. 0.) 
T04.f:C  The 36 coefficients enter in pairs in the amplitudes of the "cartesian"
T04.f:C   CALCULATES GSM COMPONENTS OF TWO UNIT-AMPLITUDE TAIL FIELD MODES,
T04.f:C    AMPLITUDES,  WITHOUT ANY WARPING OR BENDING.  NONLINEAR PARAMETERS OF THE MODES
T04.f:C  The NLIN coefficients are the amplitudes of the "cartesian"
T04.f:C   ONLY FIRST  N  MODE AMPLITUDES ARE COMPUTED (N<=10).
trace_cluster.f:      COMMON /PARAMETERS/ AMPL, R00, AL, THETA
trace_cluster.f:      REAL AMPL,R00,AL,THETA,FACTOR,FACTOR2
trace_cluster.f:      AMPL = 1.0               !used as the flag for large Pdyn mods
trace_cluster.f:      if (jday .ne. 314) AMPL = 0.0               !used as the flag for large Pdyn mods
trace_cluster.f:      write(6,"('Main call T04_s: ampl=',e12.4,' r00=',e12.4,' al=',
trace_cluster.f:     |  e12.4,' theta=',e12.4)") ampl,r00,al,theta