fpa.h
12 lines
| 549 B
| text/x-c
|
CLexer
| r1601 | parameter(nl=16,nrange=75) ! was 95 | |||
| parameter(nstate=5,npen=5) | ||||
| real plag(nl,nrange+nl),plag_errors(nl,nrange+nl),sconst | ||||
| real densp(nrange+nl),tep(nrange+nl),trp(nrange+nl), | ||||
| & tip(nrange+nl),hfp(nrange+nl),hefp(nrange+nl),altp(nrange+nl), | ||||
| & r0,dr | ||||
| real edensp(nrange+nl),etep(nrange+nl),etip(nrange+nl), | ||||
| & ehfp(nrange+nl),ehefp(nrange+nl) | ||||
| common /fpa/densp,tep,trp,tip,hfp,hefp,altp,r0,dr,wl | ||||
| common /data/plag,plag_errors | ||||
| common /sys/sconst | ||||
| common /errs/edensp,etep,etip,ehfp,ehefp | ||||
