GRASP
|
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) |
subroutine fermidist | ( | double precision | trms, |
double precision | t, | ||
double precision | w, | ||
double precision | b20, | ||
double precision | b40, | ||
integer | flag, | ||
double precision, dimension(4) | radmom | ||
) |
program fical | ( | ) |
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 | ||
) |
subroutine openisodata | ( | character(len=100) | name, |
character(len=100) | nameout, | ||
double precision | z | ||
) |
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 | ||
) |