| 
    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 | ||
| ) | 

 1.8.13