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
7 namelist /bootin/ nrho, mbuse, nbuse, zeff1, dens0, teti, tempres,
8 1 damp, damp_bs, isymm0, ate, ati
12 SUBROUTINE read_boot_namelist (iunit, istat)
13 INTEGER :: iunit, istat
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)
20 END SUBROUTINE read_boot_namelist
22 END MODULE bootsj_input