!
NRIP=0	! ripple loss =2 (Redi model), =0 off
ASRD=1.0
BSRD=1.0
NLSAW=.T
NLSAWD=.F
NLSAWE=.T
NLSAWI=.T
NLSAWB=.T
NLSAWIC=.T
XSWID1=0.0	!0.0=default, 1.0 turns off Kadomtsev model for T_i
XSWID2=0.0	!0.0=default, 1.0 turns off Kadomtsev model for current
DTSAWD=0.005
NZONES=  80	! default=20
NZONE_NB=80	! default=20
DXBSMOO=0.05	! recommended if NZONE_NB>20
NZONE_FP=20	! default=20
!
NHECFT=2	! flag & harmonic number for ECE Te(freq,t) data
LEVTRK=2	! switch is for the straight-line tracking code
ERRTKR=1.0E-3	! tracking error (default=1.0E-3)
LEVGEO=6	! 5 for symetric ; 6 for assymetric geometry
VMCFTOLA(1)=-1.0e-9	! weaken VMEC convergence test (default=1.E-9)
DTMINT=1.0E-6
NLINTK=.T
LEVGB=3
DTMAXG=0.025	! Maximum allowed geometry time step
NFPDEPMD=2	! Beam deposition model 2=complete DEP 1=faster DEPO
NSIGEXC=1	! 1 for excited states deposition model
NMSIGX=2	! Beam deposition on impurity: 1 (default)=Olson, 2=Phaneuf
NDEPMOD=0	! 0 (default), 1 for enhanced beam dep cross sections
!XDEPMOD=1.6	! enhancement factor if NDEPMOD=1
  !
  ! PLASMA COMPOSITION:
!AIMP=10.0
!XZIMP=5.0
AIMPS= 9.02, 12.01	!Be, C
XZIMPS=4.0 , 6.0
APLASM=1.0,2.0,3.0	!* SPECIES ATOMIC WTS.
BACKZ=1.0,1.0,1.0
XZEFFI=2.0          !* PLASMA COMPOSITION ZEFF
NLZEFM=.FALSE.      !* SET .TRUE. FOR PC ZEFF = MAGDIF ZEFF (nototherwayround)
CZEFFM=1.0          !*ZEFFM = ZEFFPC/CZEFFM
NLZFIN=.F           !* SET .TRUE. TO READ ZEFF(T) DATA
NLZFI2=.F           !* SET .TRUE. TO READ ZEFF(R,T)
!NZEFMOD=2,3,2
!TZEFMOD=15.00,24.90
!DTZEFMOD=0.02
NLZSIM=.T	    !* SET .TRUE. TO READ SIM(R,T)
NLZFIM=.F
NLVISB=.F           !* SET .TRUE. TO READ VIS. BREMS. DATA
NLZVBR=.F           !* SET .TRUE. TO USE VIS. BREMS. DATA FOR ZEFF
  !
  ! SYSTEM DIMENSIONS:
RMAJOR=0.0       !MAJOR RADIUS OF PLASMA SUPPLIED BY BDYMOM
RMINOR=0.0       !MINOR RADIUS OF PLASMA SUPPLIED BY BDYMOM
  !
  ! TRANSP Time Limits
  !
TINIT=13.00
FTIME=26.00
  !
  !  INITIAL CONDITIONS
NG=3		!*INITIAL NUMBER OF HYDROGENIC SPECIES
FRAC =0.0200,0.9798,0.0002
GFRAC=0.0000,1.0000,0.0000
RFRAC=0.0200,0.9798,0.0002
NGMAX=3		!* MAX NO. OF HYDROGENIC SPECIES = 1 **
  !
  !  OUTPUT
SEDIT=.025  !time step for output of profiles
STEDIT=.025 !time step for output of scalars
  !
  !  FOR OUTPUTTING FAST ION D.F....(alphas & beam ions)
!SELOUT='XXX'   !list of TRANSP common symbols to output
AVGTIM=0.50	!averaging time for SELAVG
MTHDAVG=2	!averaging during each M.C. timestep
OUTTIM=18.00,19.00,20.00,21.00,22.00	!Output times for AC (at most 5)
  !
  ! PTCL BALANCE MODEL
NMODEL=4      !USE (1) CONST. FRAC (2) CONST V OR (3) CONST D PTCL MODEL
NDIFFI=1         ! CONST D INDEPENDANT OF T OR SPACE ,INPUT AS NAMELIST
DIFFUS=0.1E+4     ! VALUE OF CONSTANT DIFFUSIVITY
DFIMIN=0.0        ! MIN ALLOWED DIFFUSIVITY
DFIMAX=1.0E+5     ! MAX ALLOWED DIFFUSIVITY
DIFAC=1.0,1.0,1.0	! MULTIPLIER ON D FOR EACH PLASMA SPECIES
VIFAC=3.0,2.0,1.0	! MULTIPLIER ON FLOW VELOCITY
TAUPH=3*0.2          !* PTCL CONFINEMENT TIME
TAUPO=.1           !* IMPURITY CONFINEMENT TIME
NLRCYC=.T	!T get taup from wall recycling
NLTAUP=.F          !T=input Tau(P) ion vs. time
  !
  ! predictions:
NPRAD=0         ! 2 to predict radiation
NLPREDIC=.T     ! .T to use coupled TE-TI solver
XRELFAC=0.1     ! Chi_2 = Chi_1 (1-XRELFAC) + Chi_GLF23 XRELFAC
MODIEDG=4       ! ions:  use edge ion temperature from profile data
MODEEDG=3       ! ditto electrons
NLTEST=.T       ! Turns on TEST2d1 etc
NLRESTSC=.F     ! Use TSC for ETA_NC
NTINIT=3        ! initialize with Ti & Te data
!XIBOUND=0.80    ! outer boundary for predictions
  !
NLNEOCL=.F      ! .T for for Chi=CONINEO*Chang-Hinton (default=.F)
CONINEO=5.0     ! coefic of Chang-Hinton (default=1.0)
CONENEO=5.0     ! coefic of Chang-Hinton (default=1.0)
  !
NLALCAT=.F      ! .T for for Chi=CONINEO*Neo-Alc (default=.F)
CONIALC=2.E17   ! coefic of Neo-Alc (default=1.E18)
CONEALC=2.E17   ! coefic of Neo-Alc (default=1.E18)
  !
  ! GLF23 switches
XRELFAC=0.1     ! Chi_2 = Chi_1 (1-XRELFAC) + Chi_GLF23 XRELFAC
ALPHA_E=1.0     ! default=0
LROTSTAB=1      ! default=0
XIMINGLF=0.20   ! min x (default=0.0)
XIMAXGLF=0.80   ! max x (default=1.0)
LX_ALPHA=-1	! 1 to turn on alpha stabilization
LNROOT=8	! number of roots, default =8
LIGLF=99	! 1 to use renormalized GLF23 (default=0)
LEIGEN=2	! 
LIGRAD=0	! 
LBT_FLAG=1	! 
LTPORT=0,1,1,0,0	! returns part diff, heat diff's, mom diff's
  !
  ! MM95 switches
XIMINMMM=0.10   ! min x (default=0.0)
XIMAXMMM=0.80   ! max x (default=1.0)
NLEXB=.T        ! ExB flow shear (default=.F)
FACEXB=1.0        ! factor for ExB flow shear 
  !
  ! ELECTRON CONDUCTIVITY MODEL
NLXEIN=.T       ! T to read KE2 ufile
NKEMOD=0,0     ! 0 FOR ANALYSIS, 13 for GLF23
TKEMOD=19.0     ! transition time
XKEMAX=1.0E+06  ! Max bound on Chi(e)
XKEMIN=0.001    ! Min bound on Chi(e)
  !
  ! ION ROTATION MODEL
NLVPHI=.T       ! T for rotating plasma
NVPHMODA=0,0    ! 2 to use chi(phi)=chi(i)*XKFVPH
TVPHMODA=19.0   ! times to switch NVPHMODA
XKPINP=1.0E4    ! constant for NVPHMODA=3
XKFVPH=1.00     ! multiplier for=chi(phi)
CHPHIMIN=1.0E+02        ! minimum allowed chi(phi) cm2/sec (>=1)
CHPHIMAX=1.0E+05        ! maximum allowed chi(phi) cm2/sec
XVPHI=2.0       ! Parabolic rot profile squared
  !
  ! ION CONDUCTIVITY MODEL
NLTI2=.T	!T to use Ti profile data
NLTI2TX=.T	!T to use data as impurity Ti
NLNTMJ=.T	!T to use TMJ for neutron rates
NKIMOD=4	!* SELECT KAPA(I) N.C. FIT MODEL
XKFAC=2.0	!* ANOMOLOUS MULTIPLIER FOR Chi_e
TKIMOD= 15.00,24.90	!* End times for NKIMODA
NKIMODA=99,100,99	!Use Chi_i=XKIMOD*Chi_CH until time TKIMOD(1)
XKIMOD=2.0,2.0	!* ANOMOLOUS MULTIPLIER FOR Chi_e period NKIMODA>0
NLFXKF=.F	!*** ADJUST XKFAC TO FIT MEASURED TI IF .T
NLXKIE=.F	!.T to set Chi_i=XKFAC*Chi_e
DLTKIE=2.0	! to reduce Chi_i fluct
ALPH0I=.6	! 3/2 convection
ALPH0E=.6	! 3/2 convection
NLNTX=.T	! .T to read neutrons
NLTKA=.F	! .T FOR FEEDBACK ON K-ALPHA ION TEMPERATURE
NLTNTX=.F
XKFMAX=1000.
XKFMIN=0.001
  !
!----- Ti analysis mode (single model)
GIEFAC=1.0	! Ti/Te when Ti data not avail. (default=1.0)
FIEFAC=1.0	! Ti = (1-FIEFAC)*(GIEFAC*Te) + FIEFAC*Ti (default=0.0)
DTISAVE=0.01	! delay for predictive/analytical model switchover
TIDXSW=0.10	! switch for Ti data
TIXLIM0=0.25	! min xi (r/a) of valid Ti data (default=1.0)
TIFACX0=1.20	!  for xi.le.(TIXLIM0-TIDXSW0), Ti = Te + TIFACX0*Tdiff
TIXLIM=0.8	! max xi (r/a) of valid Ti data (default=1.0)
XTILIM=0.8	! limit r/a of validity of Ti profile
TIFACX=1.0	! edge Ti/Te factor (default=0.0)
  !
!----- NCLASS controls
NLOMGVTR=.T	! .T: rotation data inputs OMG or VP2 refer
NLBOOTW=.T	! .T: use NCLASS bootstrap current
XL1NCJBS=0.1	! r/a for bootstrap smoothing; default XL1NCJBS=0.1
NLETAW=.T	! .T: use NCLASS resistivity
XL1NCETA=0.0	! r/a for eta smoothing; default XL1NCJBS=0.0
NLVWNC=.T	! .T: compute NCLASS radial electrostatic potential profile
NLSQUEEZ=.T	! .T for "squeezing factor" correction
NLTINC=.T	! .T to use Tx/Tmj, i.e. impurity temperature
NLNCSMOO=.T	! .T to activate smoothing of temp & density
TAUSMNNC=0.050	! smoothing convolution time (tau) for densities
TAUSMTNC=0.050	! smoothing convolution time (tau) for temperatures
XSMN_NC=0.050	! radial smoothing half width for densities (r/a units)
XSMT_NC=0.050	! radial smoothing half width for temperatures (r/a units)
NLSAW_NC=.T	! .T to reinitialize time convolutions at each sawtooth
  !
	! FUSION PRODUCTS MODEL
NPTCLF=100      !Monte Carlo particles for fusion ion species
NLFHE4=.T.      !.T for DT->HE4
PLFHE4=5.0E3    !min energy (watts) for full NPTCLF
NLFHE3=.F       !.T for DD->He3
PLFHE3=1.0E4    !energy (watts)
NLFST=.F        !.T for DD->T
PLFST=1.0E4     !energy (watts)
NLBOUT=.F       !.F for fast ion loss file
NLFATOM=.F   ! atomic effects on/of fusion products ions (CX loss)
  !
!  MAGNETICS MODELING
NLSPIZ=.F      !* .T TO USE SPITZER INSTEAD OF N.C. RESISTIVITY
NLMDIF=.T      ! .T TO SOLVE POLOIDAL FIELD DIFFUSION EQN.
NLBOOT=.T      !* =.T TO INCLUDE BOOTSTRAP CURRENTS
NMCURB=3       ! beam current model 0=none 1=classical 3=neoclassical
NLI2PB=.T      !* COMPARE LI/2+BETA MEASURED DATA
NLVSUR=.F
NLALAM=.F
NLBDIA=.F      !* =.T to read in diamagnetic beta
NLBPDA=.T
NLDFLX=.F      !* =.T to read in diamagnetic flux
NEFLD=3
VLPMIN=0.1
VLPMML=0.05
!XPEFLD=2.0
XZFMIN=0.1
!QEFLD=4.0
!RQEFLD=0.0
NLQDATA=.T
NQMODA=1,1	! 4 for QPR input
NQMODB=1,1
TQMODA=19.00
TAUQMOD=0.2
  !
  ! NEUTRALS MODEL - SEE ALSO PTCL BALANCE
NSOMOD=1            ! SELECT 1 FOR FRANTIC, 8 FOR SORCE8
MOD0ED=1            ! =1 TO SET T0(EDGE)=TIEDGE , =3 T0(EDGE) = TE(EDGE)
!MODIEDG=3           ! =1 TO SET TI(EDGE)=TIEDGE , =3 TI(EDGE) = TE(EDGE)
TI0FRC=.033333      ! T0(A)=TI0FRC*TI(0) IF MOD0ED=2
E0IN=10., 2*3., 10., 2*3.  ! T0(A) FOR COLD SCES, HOT SCES IF MOD0ED=1
FH0ESC=.3           ! FRAC. OF ESC. NEUTRALS REFLECTED TO PLASMA "HOT"
  !
  ! EFLUX MODEL
NLEFLX=.F           !* .T FOR NEUTRAL EFLUX CALCULATION
!
!================================================================
! ICH Model
!================================================================
!
NLICRF=.F
NICRF=1         !ICRF model switch (1=new SPRUCE; 5=old SPRUCE)
DTICRF=0.050    !HOW OFTEN TO CALL ICRF HEATING PACKAGE
XZMINI=1.0  !* MINORITY CHARGE STATE
AMINI=1.0   !* ATOMIC WT OF MINORITY
!FRMINI=0.05	!* MINORITY CONCENTRATION nmin/ne (if not set by a ufile)
!FRACMINI=0.10,0.90	!* MINORITY relative fractions
TAUMIN=0.2      ! Minority ptcl conf. time (not known)
!
NICHPSI=128	!* Number of radial grid points default=128
NICHCHI=64	!* Number of poloidal grid points default=64
ERFMAX=10.E6	!* Max grid energy (eV) default=10MeV
!
NICHA=3		!* Number of ICH antennas must agree with RFLIST
NGEOANT=13	!* 1 to specify antennae geom w RMNICHA, RMJICHA circles
RGEOANT=380.06,382.87,385.18,386.98,388.27,389.04,389.30,389.04,388.27,
RGEOANT(10)=386.98,385.18,382.87,380.06
YGEOANT=89.912,80.439,70.833,61.119,51.325,41.476,31.600,21.724,11.875,
YGEOANT(10)=2.0808,-7.6329,-17.239,-26.712
RMJICHA(1)=4*200.6	!* Major radius of each antenna (cm)
RMNICHA(1)=4*188.7	!* Minor radius of antenna (<0 for high field ant.)
THICHA(1)=4*36.0	!* Poloidal extent of each antenna (degrees)
WIDICHA(1)=4*16.0	!* Toroidal width of each antenna element (cm)
SEPICHA(1)=4*45.6	!* Toroidal Separation of antenna elements (cm)
!
PHICHA(1,1)=0,180,0,180
PHICHA(1,2)=0,180,0,180
PHICHA(1,3)=0,180,0,180
PHICHA(1,4)=0,180,0,180
VVRMOM(1)=292.8,134.5,10.4
VVZMOM(1)=0.0,209.6,-16.2
TCRFON= 12.1
TCRFOF= 20.
!
! *****************************************
!   Pellet data
! *****************************************
!
 NPEL=0       ! Number of pellets
 TPEL=4.4999,4.7506,4.9996          ! List of pellet popping times
 PELVEL=1.289E+5,1.169E+5,1.374E+5  ! List of pellet velocities
 PELRAD=0.27,0.27,0.4               ! List of pellet radii
 APEL=2.0,2.0,2.0            ! List of atomic weights of pellet material
 !
 NMPELA=1     ! 1=std model +ablation, 2=ablation only
 LPLPRI=3     ! ablation printout detail, larger n => more detail
 PLTEDG=1.0   ! edge region Te for pellet ablation
 PLDEDG=1.E11 ! edge region ne for pellet ablation
 PLRSTA=700.0 ! R start of pellet
 PLYSTA=0.0   ! Y start of pellet
 PLTHEA=0.0   ! Poloidal tilt angle of pellet gun (degrees)
 PLPHIA=0.00  ! Toroidal tilt angle of pellet gun (degrees)
  !
  !  DATA HANDLING
  !
NSHOT=52009
TGRID1=0.050 ! UPF F(T) TIME GRID DT
TGRID2=0.050  ! UPF F(X,T) TIME GRID DT
PRFAC=0.1      !* FRACTION OF CX EFLUX TOT POWER TO SUBTRACT FROM BOLO.
  !
NRITER=1
NSYTER=0   ! Set to 1.0 for slice and stack if NRITER=3
NRIKE2=-5
NRINER=1
NSYNER=0   ! Set to 1.0 for slice and stack if NRINER=3
NSYECF=0
NRIECF=1
NRITI2=1   ! Ti(R) map 1= input on major radius to right of axis only
NRIKI2=-5
NRIOMG=1
NRIVP2=1
NRIZF2=1
NRIQPR=7
NRIBOL=7
NRISIM= 1, 1
NSYSIM= 0, 0
  !
FNEMIN=5.0E12
  !
  !  MISCELLANEOUS
NLEBAL=.T    ! .T FOR ELECTRON ENERGY BALANCE CALCULATION
NLTIBL=.T    ! .T FOR TI BALANCE CALCULATION
NLPBAL=.T    ! .T FOR PTCL BALANCE CALCULATION
  !
  ! *****************************************
  !   Diagnostic simulation parameters
  ! *****************************************
  !
  !  Interferometer and Faraday rotation array
  !  geometry of KG1V cold from drawing K09000100 Issue D dated 13/11/96
  !  R=1.885,2.698,3.020,3.730,3.000,3.000,3.000,3.000
  !  Z=0.000,0.000,0.000,0.000,-0.606,-0.372,-0.145,0.188
  !  A=1.5708,1.5708,1.5708,1.5708,0.3910,0.1676,-0.0384,-0.2426
  !  R.Budny converted to TRANSP variables 16Dec1998
NLDA=8
PHLDA=8*0.00
!RLDA=188.5,269.8,302.0,373.0,400.0,400.0,400.0,400.0
RLDA=190.5,271.8,306.0,378.0,400.0,400.0,400.0,400.0
YLDA=-300.0,-300.0,-300.0,-300.0,-13.378,-14.281,-12.342,+0.053
THLDA=90.00,90.00,90.00,90.00,22.403,9.603,-2.200,-13.900
  !
  !  VB array
  ! Geometry from P. Morgan, 9 Sept 87
  ! geometry correcte 2 August 1990 by PMS as in run 4078
!NVBA = 15
!PHVBA = 15*0.
!THVBA = 66.0,69.4,72.0,74.4,81.1,79.8,84.6,86.8,85.1,92.1,90.9,
!THVBA(12) = 98.3,103.2,90.0,0.0
!RVBA = 324.0,324.0,324.0,324.0,288.0,324.0,288.0,288.0,
!RVBA(9) = 324.0,288.0,324.0,288.0,263.0,310.0,450.0
!YVBA = 14*-367.0,-29.0
  !
  ! Geometry for 1991 diagnostic 10 sept 91
  ! VBINT(10) corresponds to S3-AD16 used for HAL/EFZ
  !
!NVBA = 10
!PHVBA = 10*0.
!THVBA = -67.6,-69.9,-72.8,-75.8,-84.4,-86.3,-94.9,-98.4,-107.8,-90.0
!RVBA = 6*331.49,3*279.76,311.0
!YVBA = 10*351.65
  !
  ! Geometry for 1996 diagnostic / 22 Aug 1996 from P.Morgan
  ! VBINT(1) corresponds to KS3/BASH used for KS3/ZEFH
  ! VBINT(2) corresponds to KS3/BASV used for KS3/ZEFV
  !
NVBA = 2
PHVBA = 2*0.
THVBA = -2.00522,90.0
RVBA = 590.08,311.0
YVBA = 2.15,-300.
  !
  !  Collimated Neutron Array
  ! Geometry from G. Sadler  15 Sept 87
  !  only good for '86 and winter '87 runs
NNTA = 19
PHNTA = 19*0.
THNTA = 18.62,14.68,10.6,6.41,2.14,-2.14,-6.41,-10.6,-14.68,-18.62,
THNTA(11) = -77.58,-80.62,-83.72,-86.85,-90.0,-93.14,-96.28,
THNTA(18) = -99.38,-102.42
RNTA =  10*605.5, 5*302.15, 4*302.15
  ! focal point YNTA corrected 12/07/88
YNTA =  10*0.,9*344.2
  !
  !  CX detector array
  !
  !  Crystal Spectrometer
  !  Geometry from E. Kallne  9 Sept 87
NXCA = 1
RXCA = 4.0
YXCA = 0.
THXCA = 0.
PHXCA = 27.065
  ! *********************************************
  !  TRDAT NAMELIST
  ! *********************************************
  !
 $TRDATA
 INPUTDIR='/u/budny/transp/data/JET/52009/'
!INPUTDSK='TR_DISK:'
!INPUTDIR='BUDNY.JET'
 NLRNNE = .FALSE.     ! .T TO RENORM NE(R) TO LINE AVG NE in TRDAT
 LFIXUP=0
!XRCTER=0.5
 XRCNER=0.7
!XRCECF=-1.0
 XRCTI2=0.2
!XRCKI2=0.5
!XRCKE2=0.5
!XRCVP2=0.3
 XRCOMG=0.2
 XRCZF2=0.2
 XRCSIM=0.2,0.2,0.2
  !
 !TPELDA=11.900,12.100!list of bad data times around each pellet
 ! The TPELDA times must be at least 2*max(tgrid1,trgrid2) away
 ! from the pellet time TPEL
 !TPELDA(1,1)=4.4
  !
 TIME0 = 40.0  !JET plasma's don't begin at TIME0=0.0!
  !
!PREQPR='EFIT'
!EXTQPR='Q'
PRECUR='MG2'
EXTCUR='XIP_0034'
PREVSF='MG3'
EXTVSF='VPA_0034'
PRETER='STR_LIDR'
EXTTER='TE_0125'
!PREECF='ECE'
!EXTECF='TEFQ'
PRENER='STR_LIDR'	! 'KS3'
EXTNER='NE_0125'	! 'NERH_0210'
PREL2B='MG2'
EXTL2B='XLM_0034'
PREMRY='M'
EXTMRY='MRY_EFRB_0416'
PRERBZ='MAGN'
EXTRBZ='ITOR_0004'
PREBOL='BURA'
EXTBOL='LEPS_0230'
PRENTX='TIN'
EXTNTX='RNT_0215'
PRENB2='P'
EXTNB2='NBI'
!PREZF2='STR_CXSM'
!EXTZF2='ZFCXCOR'
!PREZEF='KS3'
!EXTZEF='ZEFV_0210'
!PREZIM='ZIMP'
!EXTZIM='ZIMP'
!PRETIT='STIX'
!EXTTIT='TIX'
PRETI2='STR_CXSM'
EXTTI2='TICRCOR'
PREBDI='MG2'
EXTBDI='BET_0034'
!PRETPI='STPI'
!EXTTPI='TPI'
!PREVP2='????'
!EXTVP2='????'
PREOMG='STR_CXSM'
EXTOMG='AFCRCOR'
!PREVPH='SVPH'
!EXTVPH='VPH'
PRESAW='A'
EXTSAW='TE01_20_SAW'
!PRERFP='PICH'
!EXTRFP='ICRH'
!PRERFF='FREQ'
!EXTRFF='ICRH'
PRERCY='EDG6'
EXTRCY='FLW_0204'	! scaled up x10
PREGAS='GASM'
EXTGAS='MAJR_0002'
PRESIM='STR_CXSM','STR_CXSM'
EXTSIM='DFB2COR', 'DENSCOR'
!PRERPL='A'
!EXTRPL='RPL'
PREKE2='PRE'
EXTKE2='KE2'
PREKI2='PRE'
EXTKI2='KI2'
!
$END
 ! ***** Beginning of the file 'JETTRN.TAPE4A.NBFIXD.DAT'. *****
 ! (This file is inserted by NBLIST.FOR.)
  !NBLIST.FOR !
DTBEAM=0.025
NPTCLS=4000
NDEP0=500
  !
GOOMAX=500.0
GOOCON=2.0
DTN=1.8E-6
  !NBLIST.FOR !** BEAM SPECIFICATIONS
REDGE=17.0
XZEDGE=19.0
NBSHAP=1
  !NBLIST.FOR !  FOCAL LENGTHS AND DIVERGENCES - NEW BEAM DEP MODEL
FOCLZ=1.4E3
FOCLR=1.E3
DIVR=1.22E-2
DIVZ=1.22E-2
BMWIDR=9.0
BMWIDZ=22.5
  !NBLIST.FOR !
NLFBM=.T    !NBLIST.FOR !* .TRUE. TO CALC. BEAM DISTRIBUTION FCN FOR FIDE, ETC.
  !NBLIST.FOR !
  !NBLIST.FOR !  EXTERNAL NEUTRAL DENSITY:
DN0OUT=5.E11
  !NBLIST.FOR !
 !  JET VACUUM VESSEL DESCRIPTION-- TREAT AS LIMITER FOR
 !        BEAM DEPOSITION AND EFLUX
 NCIRLM=1
 NLINLM=3
 ALNLMR=0.0,0.0,421.0
 ALNLMY=215.0,-215.0,0.0
 ALNLMT=0.0,0.0,90.0
 CRLMR1=480.0
 CRLMY1=28.0
 CRLMRD=300.6
 ! ***** End of the file 'JETTRN.TAPE4A.NBFIXD.DAT' *****
  ! BEAMLINE P2 %$TRANSP.JET !NBLIST.FOR OUTPUT
 NLCO(1) = .T
 EINJA(1) =  0.000000E+00
 PINJA(1) =  0.000000E+00
 TBONA(1) =  1.626700E+01
 TBOFFA(1) =  2.446500E+01
 XZBEAMA(1) =  1.000000E+00
 ABEAMA(1) =  2.000000E+00
 RTCENA(1) =  1.848000E+02
 XLBAPA(1) =  8.205000E+02
 XLBTNA(1) =  1.255200E+03
 XYBAPA(1) =  1.500000E+01
 XYBSCA(1) =  1.461000E+02
  ! BEAMLINE P3 %$TRANSP.JET !NBLIST.FOR OUTPUT
 NLCO(2) = .T
 EINJA(2) =  0.000000E+00
 PINJA(2) =  0.000000E+00
 TBONA(2) =  1.501199E+01
 TBOFFA(2) =  2.439000E+01
 XZBEAMA(2) =  1.000000E+00
 ABEAMA(2) =  2.000000E+00
 RTCENA(2) =  1.310000E+02
 XLBAPA(2) =  8.205000E+02
 XLBTNA(2) =  1.274300E+03
 XYBAPA(2) =  1.500000E+01
 XYBSCA(2) =  1.461000E+02
  ! BEAMLINE P4 %$TRANSP.JET !NBLIST.FOR OUTPUT
 NLCO(3) = .T
 EINJA(3) =  0.000000E+00
 PINJA(3) =  0.000000E+00
 TBONA(3) =  1.501199E+01
 TBOFFA(3) =  2.439000E+01
 XZBEAMA(3) =  1.000000E+00
 ABEAMA(3) =  2.000000E+00
 RTCENA(3) =  1.310000E+02
 XLBAPA(3) =  8.300000E+02
 XLBTNA(3) =  1.283800E+03
 XYBAPA(3) =  2.600000E+01
 XYBSCA(3) =  4.589999E+01
  ! BEAMLINE P5 %$TRANSP.JET !NBLIST.FOR OUTPUT
 NLCO(4) = .T
 EINJA(4) =  0.000000E+00
 PINJA(4) =  0.000000E+00
 TBONA(4) =  1.500700E+01
 TBOFFA(4) =  2.489500E+01
 XZBEAMA(4) =  1.000000E+00
 ABEAMA(4) =  2.000000E+00
 RTCENA(4) =  1.310000E+02
 XLBAPA(4) =  8.298999E+02
 XLBTNA(4) =  1.283700E+03
 XYBAPA(4) = -6.000000E+00
 XYBSCA(4) = -4.839999E+01
  ! BEAMLINE P6 %$TRANSP.JET !NBLIST.FOR OUTPUT
 NLCO(5) = .T
 EINJA(5) =  0.000000E+00
 PINJA(5) =  0.000000E+00
 TBONA(5) =  1.500700E+01
 TBOFFA(5) =  2.489500E+01
 XZBEAMA(5) =  1.000000E+00
 ABEAMA(5) =  2.000000E+00
 RTCENA(5) =  1.310000E+02
 XLBAPA(5) =  8.190000E+02
 XLBTNA(5) =  1.272700E+03
 XYBAPA(5) = -3.000000E+00
 XYBSCA(5) = -1.474000E+02
  ! BEAMLINE P7 %$TRANSP.JET !NBLIST.FOR OUTPUT
 NLCO(6) = .T
 EINJA(6) =  0.000000E+00
 PINJA(6) =  0.000000E+00
 TBONA(6) =  1.501199E+01
 TBOFFA(6) =  2.464500E+01
 XZBEAMA(6) =  1.000000E+00
 ABEAMA(6) =  2.000000E+00
 RTCENA(6) =  1.848000E+02
 XLBAPA(6) =  8.190000E+02
 XLBTNA(6) =  1.253600E+03
 XYBAPA(6) = -3.000000E+00
 XYBSCA(6) = -1.474000E+02
  ! BEAMLINE P8 %$TRANSP.JET !NBLIST.FOR OUTPUT
 NLCO(7) = .T
 EINJA(7) =  0.000000E+00
 PINJA(7) =  0.000000E+00
 TBONA(7) =  1.501199E+01
 TBOFFA(7) =  2.464500E+01
 XZBEAMA(7) =  1.000000E+00
 ABEAMA(7) =  2.000000E+00
 RTCENA(7) =  1.848000E+02
 XLBAPA(7) =  8.298999E+02
 XLBTNA(7) =  1.264600E+03
 XYBAPA(7) = -6.000000E+00
 XYBSCA(7) = -4.839999E+01
  ! BEAMLINE Q1 %$TRANSP.JET !NBLIST.FOR OUTPUT
 NLCO(8) = .T
 EINJA(8) =  0.000000E+00
 PINJA(8) =  0.000000E+00
 TBONA(8) =  1.600700E+01
 TBOFFA(8) =  2.299899E+01
 XZBEAMA(8) =  1.000000E+00
 ABEAMA(8) =  2.000000E+00
 RTCENA(8) =  1.848000E+02
 XLBAPA(8) =  8.300000E+02
 XLBTNA(8) =  1.264600E+03
 XYBAPA(8) =  2.600000E+01
 XYBSCA(8) =  4.589999E+01
  ! BEAMLINE Q2 %$TRANSP.JET !NBLIST.FOR OUTPUT
 NLCO(9) = .T
 EINJA(9) =  0.000000E+00
 PINJA(9) =  0.000000E+00
 TBONA(9) =  1.632600E+01
 TBOFFA(9) =  2.299899E+01
 XZBEAMA(9) =  1.000000E+00
 ABEAMA(9) =  2.000000E+00
 RTCENA(9) =  1.848000E+02
 XLBAPA(9) =  8.205000E+02
 XLBTNA(9) =  1.255200E+03
 XYBAPA(9) =  1.500000E+01
 XYBSCA(9) =  1.461000E+02
  ! BEAMLINE Q3 %$TRANSP.JET !NBLIST.FOR OUTPUT
 NLCO(10) = .T
 EINJA(10) =  0.000000E+00
 PINJA(10) =  0.000000E+00
 TBONA(10) =  1.687100E+01
 TBOFFA(10) =  2.336501E+01
 XZBEAMA(10) =  1.000000E+00
 ABEAMA(10) =  2.000000E+00
 RTCENA(10) =  1.310000E+02
 XLBAPA(10) =  8.205000E+02
 XLBTNA(10) =  1.274300E+03
 XYBAPA(10) =  1.500000E+01
 XYBSCA(10) =  1.461000E+02
  ! BEAMLINE Q4 %$TRANSP.JET !NBLIST.FOR OUTPUT
 NLCO(11) = .T
 EINJA(11) =  0.000000E+00
 PINJA(11) =  0.000000E+00
 TBONA(11) =  1.650600E+01
 TBOFFA(11) =  2.387000E+01
 XZBEAMA(11) =  1.000000E+00
 ABEAMA(11) =  2.000000E+00
 RTCENA(11) =  1.310000E+02
 XLBAPA(11) =  8.300000E+02
 XLBTNA(11) =  1.283800E+03
 XYBAPA(11) =  2.600000E+01
 XYBSCA(11) =  4.589999E+01
  ! BEAMLINE Q5 %$TRANSP.JET !NBLIST.FOR OUTPUT
 NLCO(12) = .T
 EINJA(12) =  0.000000E+00
 PINJA(12) =  0.000000E+00
 TBONA(12) =  1.674100E+01
 TBOFFA(12) =  2.354500E+01
 XZBEAMA(12) =  1.000000E+00
 ABEAMA(12) =  2.000000E+00
 RTCENA(12) =  1.310000E+02
 XLBAPA(12) =  8.298999E+02
 XLBTNA(12) =  1.283700E+03
 XYBAPA(12) = -6.000000E+00
 XYBSCA(12) = -4.839999E+01
  ! BEAMLINE Q6 %$TRANSP.JET !NBLIST.FOR OUTPUT
 NLCO(13) = .T
 EINJA(13) =  0.000000E+00
 PINJA(13) =  0.000000E+00
 TBONA(13) =  1.650600E+01
 TBOFFA(13) =  2.399899E+01
 XZBEAMA(13) =  1.000000E+00
 ABEAMA(13) =  2.000000E+00
 RTCENA(13) =  1.310000E+02
 XLBAPA(13) =  8.190000E+02
 XLBTNA(13) =  1.272700E+03
 XYBAPA(13) = -3.000000E+00
 XYBSCA(13) = -1.474000E+02
  ! BEAMLINE Q7 %$TRANSP.JET !NBLIST.FOR OUTPUT
 NLCO(14) = .T
 EINJA(14) =  0.000000E+00
 PINJA(14) =  0.000000E+00
 TBONA(14) =  1.701100E+01
 TBOFFA(14) =  2.319000E+01
 XZBEAMA(14) =  1.000000E+00
 ABEAMA(14) =  2.000000E+00
 RTCENA(14) =  1.848000E+02
 XLBAPA(14) =  8.190000E+02
 XLBTNA(14) =  1.253600E+03
 XYBAPA(14) = -3.000000E+00
 XYBSCA(14) = -1.474000E+02
  ! BEAMLINE Q8 %$TRANSP.JET !NBLIST.FOR OUTPUT
 NLCO(15) = .T
 EINJA(15) =  0.000000E+00
 PINJA(15) =  0.000000E+00
 TBONA(15) =  1.661099E+01
 TBOFFA(15) =  2.371500E+01
 XZBEAMA(15) =  1.000000E+00
 ABEAMA(15) =  2.000000E+00
 RTCENA(15) =  1.848000E+02
 XLBAPA(15) =  8.298999E+02
 XLBTNA(15) =  1.264600E+03
 XYBAPA(15) = -6.000000E+00
 XYBSCA(15) = -4.839999E+01
 NBEAM=15  ! NBLIST.FOR: NO. OF BEAMS
  ! NBLIST.FOR:  20% .GT. MAX(INJECTION ENERGY):
 NLBEAM=.T   ! T=BEAMS ON              **
 EBDMAX= 1.619999E+05
 NLBDAT=.T   ! ** BEAM DATA UFILE FLAG **