V3FIT
bootsj_input.f
1  MODULE bootsj_input
2  USE stel_kinds
3  INTEGER :: nrho, mbuse, nbuse, isymm0
4  REAL(rprec) :: tempres, ate(0:11), ati(0:11)
5  REAL(rprec) :: zeff1, dens0, teti, damp, damp_bs
6 
7  namelist /bootin/ nrho, mbuse, nbuse, zeff1, dens0, teti, tempres,
8  1 damp, damp_bs, isymm0, ate, ati
9 
10  CONTAINS
11 
12  SUBROUTINE read_boot_namelist (iunit, istat)
13  INTEGER :: iunit, istat
14 
15  nrho = 0; mbuse = 0; nbuse = 0; zeff1 = 1
16  dens0 = 0; teti = 0; tempres = 0;
17  damp = 0; damp_bs = 0; isymm0 = 0; ate = 0; ati = 0
18  READ (iunit, nml=bootin, iostat=istat)
19 
20  END SUBROUTINE read_boot_namelist
21 
22  END MODULE bootsj_input