GRASP
Functions/Subroutines
fical.f90 File Reference

Functions/Subroutines

program fical
 
subroutine openisodata (name, nameout, z)
 
subroutine openfile (name, unit, eflag, rflag, nvec, level, spinpar, fspin, par, energy, nms, sms, ms, fs)
 
subroutine fermidist (trms, t, w, b20, b40, flag, radmom)
 
subroutine openlsj (name, nvec, level, spin, par, csflabel, lmax)
 

Function/Subroutine Documentation

◆ fermidist()

subroutine fermidist ( double precision  trms,
double precision  t,
double precision  w,
double precision  b20,
double precision  b40,
integer  flag,
double precision, dimension(4)  radmom 
)

◆ fical()

program fical ( )
Here is the call graph for this function:

◆ openfile()

subroutine openfile ( character(len=100)  name,
character(len=3)  unit,
integer  eflag,
integer  rflag,
integer  nvec,
integer, dimension(500)  level,
character(len=11), dimension(500)  spinpar,
double precision, dimension(500)  fspin,
character(len=1), dimension(500)  par,
double precision, dimension(500)  energy,
double precision, dimension(500)  nms,
double precision, dimension(500)  sms,
double precision, dimension(500)  ms,
double precision, dimension(6,500)  fs 
)

◆ openisodata()

subroutine openisodata ( character(len=100)  name,
character(len=100)  nameout,
double precision  z 
)
Here is the call graph for this function:

◆ openlsj()

subroutine openlsj ( character(len=100)  name,
integer  nvec,
integer, dimension(500)  level,
character(len=4), dimension(500)  spin,
character(len=1), dimension(500)  par,
character(len=200), dimension(500)  csflabel,
integer  lmax 
)