Source file:	P2P6Tablex.f

I/O Operations:

Unit ID Unit No Access Form Operation 1 C 1 SEQ FMTD OR * SEQ FMTD RW Operation codes A=rewind,B=backspace,C=close,E=endfile I=inquire,O=open,R=read,W=write

External Functions and Subroutines Called

DOUBLE PRECISION CORYXT INTEGER LAMGROUP, LNBLNK SUBROUTINE CENTERH, FORMATFD

Parameter Variables Used

INTEGER MAXIV (MAXIV = 100) INTEGER MAXVT (MAXVT = 10) INTEGER MAXALT (MAXALT = 30) INTEGER MAXIVALT (MAXIVALT = MAXIV*MAXALT) INTEGER MAXIVA (MAXIVA = 30) INTEGER MAXLAM (MAXLAM = 10) INTEGER MAXBLK (MAXBLK = 20)

Local Variables (+ indicates altered content)

CHARACTER*10 +ALTNAME(MAXALT) CHARACTER*11 BETA(MAXALT,MAXIV,MAXVT) CHARACTER*11 CORYX(MAXALT,MAXIV,MAXVT) CHARACTER*11 CSTU(MAXALT,MAXIV,MAXVT) CHARACTER*35 +DEFBLK(MAXBLK), +DEFV(MAXIV) CHARACTER*35 +DEFX CHARACTER*10 +DEPNAME(MAXVT) CHARACTER*80 +FILENAME CHARACTER*20 FRAME CHARACTER*11 GRAD(MAXALT,MAXIV,MAXVT) CHARACTER*11 GTETA(MAXALT,MAXALT,MAXVT) CHARACTER*10 +MODTYPE(MAXVT) CHARACTER*8 +NAMBLK(MAXBLK), +NAMV(MAXIV) CHARACTER*8 +NAMX CHARACTER*12 +NAMXK(MAXIVA), +NAMXREF(MAXALT) CHARACTER*4 +NGENSPE CHARACTER*80 +NTITLE CHARACTER*20 SEPARATOR1, SEPARATOR2 CHARACTER*11 SMRS(MAXALT,MAXIV,MAXVT) CHARACTER*11 STETA(MAXALT,MAXVT), STU1BMU(MAXALT,MAXVT) CHARACTER*11 STU1BPHI(MAXALT,MAXVT) CHARACTER*11 STU1LAMBDA(MAXLAM,MAXVT) CHARACTER*11 STU1LMU(MAXALT,MAXVT), STU1LPHI(MAXALT,MAXVT) CHARACTER*11 STUBMU(MAXALT,MAXVT), STUBPHI(MAXALT,MAXVT) CHARACTER*11 STUGTETA(MAXALT,MAXALT,MAXVT) CHARACTER*11 STULAMBDA(MAXLAM,MAXVT) CHARACTER*11 STULMU(MAXALT,MAXVT), STULPHI(MAXALT,MAXVT) CHARACTER*11 STUSTETA(MAXALT,MAXVT) CHARACTER*20 UNDERLINE1, UNDERLINE2 CHARACTER*2 +UPPERCASE CHARACTER*10 +VTNAME(MAXVT) CHARACTER*11 +WMRS(MAXALT,MAXIV,MAXVT) CHARACTER*11 XBMU(MAXALT,MAXVT), XBPHI(MAXALT,MAXVT) CHARACTER*11 XLAMBDA(MAXLAM,MAXVT), XLMU(MAXALT,MAXVT) CHARACTER*11 XLPHI(MAXALT,MAXVT) DOUBLE PRECISION +BET, +CHANG(MAXALT), +CONDSTU DOUBLE PRECISION +CYX, +CYXT, +DERIV(MAXALT) DOUBLE PRECISION +ELAST(MAXALT), +F(MAXVT) DOUBLE PRECISION +FINIT(MAXVT), +FZERO(MAXVT) DOUBLE PRECISION G, +GRA, +PAR, +PCR(MAXVT) DOUBLE PRECISION +R2(MAXVT), +R2A(MAXVT), +R2H(MAXVT) DOUBLE PRECISION +R2J(MAXVT), +SAMMRS(MAXIVA) DOUBLE PRECISION SCK, +SCONDSTE, SDK, SEK DOUBLE PRECISION +SSR, +STD, +STE, +STU DOUBLE PRECISION +STU1, +TEST(MAXVT), +VALUE DOUBLE PRECISION WCK, WDK, +WEIMRS(MAXIVA) DOUBLE PRECISION WEK INTEGER +I, +I1, +IBLOCK INTEGER +INDBLK(MAXIV), +INDX, +J INTEGER +J1, +JJ, +K, +M INTEGER MAXV, +MX, +N, NAD(MAXVT) INTEGER NALT, +NAVAIL(MAXALT,MAXVT), +NBET1 INTEGER +NBETA(MAXALT), NBLOCK INTEGER NBOXCOX(MAXVT), +NBTIPT INTEGER +NCONSTANT(MAXALT), NCROSS, NCST(MAXVT) INTEGER +NDF(MAXVT), +NDV INTEGER +NESTDV(MAXVT), NEXTRA(MAXVT) INTEGER NFL(MAXVT), +NGDOGIT, +NIV(MAXVT) INTEGER +NLAM, +NLAMX, +NLINIPT, NLIST INTEGER +NOBS(MAXVT), +NONBLANK, +NOPT INTEGER +NPAR(MAXVT), +NSDOGIT, +NSEP INTEGER NSTAT(13), +NTBMU(MAXALT) INTEGER +NTBPHI(MAXALT), +NTETA INTEGER +NTGTETA(MAXALT,MAXALT) INTEGER +NTLAM(MAXLAM,MAXVT), +NTLMU(MAXALT) INTEGER +NTLPHI(MAXALT), +NTOTX INTEGER +NTSTETA(MAXALT), +NTX INTEGER +NTYPEX(MAXIV), +NUM, +NUMLAM INTEGER +NUMVT(MAXVT) INTEGER +NUMVX(MAXALT,MAXIV,MAXVT), NUMXLAS INTEGER +NUMXLAST(MAXBLK), NV, NVA INTEGER NVAR, NVERS, +NXALT, +NYES

Namelists (+ indicates altered content)

INPUT INTEGER NALT, NBLOCK INPUT INTEGER NCROSS, NLIST INPUT INTEGER NSTAT(13) INPUT INTEGER NVAR, NVERS