Argument Definitions (+ indicates altered content)

DOUBLE PRECISION +FUN, +GRAD(*), +PAR(*) INTEGER IFLAG, ITER, +NPAR

Source file:	fcn.f

I/O Operations:

Unit ID Unit No Access Form Operation 9 SEQ FMTD O W * SEQ FMTD RW 4 SEQ A 4 SEQ FMTD RW 5 SEQ FMTD R 7 SEQ FMTD OR 8 SEQ FMTD O W 1 SEQ A 1 SEQ UNF RW 7 C 2 SEQ A 2 SEQ UNF RW 3 SEQ UNF RW 3 SEQ A 8 C Operation codes A=rewind,B=backspace,C=close,E=endfile I=inquire,O=open,R=read,W=write

Intrinsic Functions Called

DOUBLE PRECISION DABS, DEXP, DLOG, DLOG10 DOUBLE PRECISION DMAX1, DSQRT INTEGER IDINT, MIN0 GENERIC MOD SUBROUTINE LOC

External Functions and Subroutines Called

SUBROUTINE CORREL, DEFAULT, DERUTI, EXTRA SUBROUTINE LOC, PLOT, READCON, SINV SUBROUTINE UTILITY, VARDEC, ZLAMBDA

Local Variables (+ indicates altered content)

CHARACTER*20 ELAPXUXFILE CHARACTER*80 +FNAME, +IFMT CHARACTER*10 +NAMX(200), +NAMY(20), +NASTER(30) CHARACTER*10 +NOMX(80), +NOMY(12) CHARACTER*2 +NPOSX(80) CHARACTER*10 +NTITLE CHARACTER*13 +NTY CHARACTER*10 +NTYPE CHARACTER*17 +OPTNAME(5) CHARACTER*16 TABFILE CHARACTER*9 +TABFILENAME(5) CHARACTER*20 UTILFILE DOUBLE PRECISION +BKL, +CONDH(7260) DOUBLE PRECISION +CONDSTE(120), +COR(6400) DOUBLE PRECISION +CORYX(10,80), +CORYXT(10,80) DOUBLE PRECISION +CSTU, +D(10), D1, D2 DOUBLE PRECISION +DC(80), DER1, DER2, +DERP(120) DOUBLE PRECISION DERUTIL(10,120), +DEV(10), +DEVX DOUBLE PRECISION +DEVXX, +DEVY, +DEVYX, +DEVYY DOUBLE PRECISION +DPX(10), +DUTIL(10), +DXX1(10,80) DOUBLE PRECISION DXX2(10,80), +EEV(10), +ELA(10) DOUBLE PRECISION +ELAUTIL, +EV(10), +EVL(10), +EVLBC DOUBLE PRECISION +EVLPHI, +F, +FACTDER(10) DOUBLE PRECISION +FINIT, +FZERO, +G(120), +GN(120) DOUBLE PRECISION +H(7260), +P(10), +PCR, +PMAX DOUBLE PRECISION +PMEAN(10), +PSHIFT, +PST(12,12) DOUBLE PRECISION +R2, +R2A, +R2H, +R2J DOUBLE PRECISION +RES(10), +S, SCA, +SCALE(80) DOUBLE PRECISION +SDEV, +SDP(10,800), +SDUTIL DOUBLE PRECISION +SEV, +SJ, +SJJ, +SK DOUBLE PRECISION +SKK, +SSR, +STD, +STDX(10,80) DOUBLE PRECISION +STU, +STU1, +SUMP(10) DOUBLE PRECISION +SUMPOSX(10,80), +SUTIL, +SWT DOUBLE PRECISION +SXX(80), +SYX(80), +SYY DOUBLE PRECISION +TBETACOND(10,80), +TEST, +UTIL(10) DOUBLE PRECISION +V(10), +VIJ, +VLAM(10), +VMAX DOUBLE PRECISION +VPX(10), +WDP(10,800) DOUBLE PRECISION +WELA(10,800), +WVP(10,800) DOUBLE PRECISION +X(200), +XIJ, +XIK, +XM(10,80) DOUBLE PRECISION +XMAX(10,80), +XMEAN(10,80) DOUBLE PRECISION +XMIN(10,80), +XMPOS(10,80) DOUBLE PRECISION +XMT(10,80), +XX(10,80), +XXP(80) DOUBLE PRECISION +Y(20), +YM(10) INTEGER +I, +I1, +I2, +ICH INTEGER +IDUM(50), IER, +IJ, +IK INTEGER +IMAX, +IMP, +IR, +IVAR(50) INTEGER +J, +J1, +J2, +JI INTEGER +JJ, +JK, +JR, +K INTEGER +KF, +KK, +L, +LK INTEGER +LL, +LM, +LN, +M INTEGER +MC, +MD, +MM, +N INTEGER +N1, +N2, +NAD INTEGER +NASSDUM(10,80), +NAV, +NAVAIL INTEGER +NBETA(10), +NCONSTANT(10), +NCOST(10) INTEGER +NCST, +NDF, +NDUM, +NEND INTEGER +NEST, +NEXTRA, +NFIRST, +NFU INTEGER +NFULL, +NH, +NIJ(10), +NIJ1 INTEGER +NIV, +NN, +NOBS, +NPAREXT INTEGER +NSO, +NSPE, +NTDUM(50) INTEGER +NTGTETA(10,10), +NTL(10), +NTOT INTEGER +NTSTETA(10), +NTV(10,80) INTEGER +NUCO(10), +NULL(10,80), +NUMBDUM INTEGER +NUMBVAR, +NUMC(10), +NUMDUM(50) INTEGER +NUME(10), +NUML(80), +NUMS(200), +NUMX(10,80) INTEGER +NUMY(10), +NV, +NV2

Referenced Common Block Variables (+ indicates altered content)

%BLANK CHARACTER*10 NAMEDEP, NAMEVT %BLANK INTEGER INIT, NALT %BLANK INTEGER NCON, NCOR %BLANK INTEGER NDV, NELAST %BLANK INTEGER NFL, NGV %BLANK INTEGER NLAM, NMRS %BLANK INTEGER NOPT, NPRED %BLANK INTEGER NPRINT, NREAD %BLANK INTEGER NRES, NSCALE %BLANK INTEGER NSV(10), NUMVT %BLANK INTEGER NVAX, NWT EXPAR INTEGER +NMU, +NPHI EXPAR INTEGER +NTETA, NUMGT(10,10) EXPAR INTEGER NUMMU(10) EXPAR INTEGER NUMPHI(10) EXPAR INTEGER NUMST(10) MINMAX DOUBLE PRECISION +ARGMAX, +ARGMIN MINMAX DOUBLE PRECISION +PHIZERO VALEXPAR DOUBLE PRECISION GTETA(10,10) VALEXPAR DOUBLE PRECISION PHI(10), PMU(10) VALEXPAR DOUBLE PRECISION STETA(10)