diff --git a/misc/minicern/src/allvars.inc b/misc/minicern/src/allvars.inc new file mode 100644 index 0000000000000..875fbbaaea101 --- /dev/null +++ b/misc/minicern/src/allvars.inc @@ -0,0 +1,4 @@ +C=== allvars.inc =============================================== + character *80 allvars + common/callvars/allvars(100) + common/calloff/ioffset(100) diff --git a/misc/minicern/src/bigbuf.inc b/misc/minicern/src/bigbuf.inc new file mode 100644 index 0000000000000..06e52d90928b4 --- /dev/null +++ b/misc/minicern/src/bigbuf.inc @@ -0,0 +1,3 @@ +C=== bigbuf.inc ================================================ + COMMON/BIGBUF/BIGB(4000000) + character BIGB diff --git a/misc/minicern/src/fzc.inc b/misc/minicern/src/fzc.inc new file mode 100644 index 0000000000000..367af6c44a9d8 --- /dev/null +++ b/misc/minicern/src/fzc.inc @@ -0,0 +1,3 @@ +C=== fcz.inc =================================================== + COMMON /FZCSEG/NQSEG,IQSEGH(2,20),IQSEGD(20),IQSGLU,IQSGWK + COMMON /FZCOCC/NQOCC,IQOCDV(20),IQOCSP(20) diff --git a/misc/minicern/src/fzci.inc b/misc/minicern/src/fzci.inc new file mode 100644 index 0000000000000..fc90fc4a9c64b --- /dev/null +++ b/misc/minicern/src/fzci.inc @@ -0,0 +1,11 @@ +C=== fzci.inc ================================================== + COMMON /FZCI/ LUNI,LUNNI,IXDIVI,LTEMPI,IEVFLI + +, MSTATI,MEDIUI,IFIFOI,IDAFOI,IACMOI,IUPAKI + +, IADOPI,IACTVI,INCBPI,LOGLVI,MAXREI, ISTENI + +, LBPARI, L4STOI,L4STAI,L4CURI,L4ENDI + +, IFLAGI,NFASTI,N4SKII,N4RESI,N4DONI,N4ENDI + +, IOPTIE,IOPTIR,IOPTIS,IOPTIA,IOPTIT,IOPTID + +, IOPTIF,IOPTIG,IOPTIH,IOPTI2(4) + +, IDI(2),IPILI(4),NWTXI,NWSEGI,NWTABI,NWBKI,LENTRI + +, NWUHCI,IOCHI(16),NWUMXI,NWUHI,NWIOI + +, NWRDAI,NRECAI,LUHEAI,JRETCD,JERROR,NWERR diff --git a/misc/minicern/src/hbook.f b/misc/minicern/src/hbook.f index 522c731686169..b893c0085c799 100644 --- a/misc/minicern/src/hbook.f +++ b/misc/minicern/src/hbook.f @@ -8,57 +8,12 @@ SUBROUTINE HNTVAR2(ID1,IVAR,CHTAG,CHFULL,BLOCK,NSUB,ITYPE,ISIZE + ,NBITS,IELEM) - INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, - + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, - + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, - + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, - + ZID, ZNTMP, ZNTMP1, ZLINK - PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, - + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, - + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, - + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, - + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, - + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) - INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/BIGBUF/BIGB(4000000) - character BIGB - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - INTEGER I1, I2, I3, I4, I5, I6, I7, I8, - + I9, I10, I11, I12, I13, I14, I15, I16, - +I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27, - +I28, I29, I30, I31, I32, I33, I34, I35, I123, I230 - COMMON / HCBITS / I1, I2, I3, I4, I5, I6, I7, I8, - + I9, I10, I11, I12, I13, I14, I15, I16, - +I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27, - +I28, I29, I30, I31, I32, I33, I34, I35, I123, I230 + INCLUDE 'zbits.inc' + INCLUDE 'hcflag.inc' + INCLUDE 'bigbuf.inc' + INCLUDE 'pawc.inc' + INCLUDE 'hparam1.inc' + INCLUDE 'hcbits.inc' CHARACTER*(*) CHTAG, CHFULL, BLOCK CHARACTER*80 VAR CHARACTER*32 NAME, SUBS @@ -133,9 +88,7 @@ SUBROUTINE HNTVAR2(ID1,IVAR,CHTAG,CHFULL,BLOCK,NSUB,ITYPE,ISIZE *------------------------------------------------------------------------------- subroutine hntvar3(id,last,chvar) - character *80 allvars - common/callvars/allvars(100) - common/calloff/ioffset(100) + INCLUDE 'allvars.inc' character *(*) chvar integer id,ivar,last save ivar @@ -162,42 +115,10 @@ subroutine hntvar3(id,last,chvar) *------------------------------------------------------------------------------- SUBROUTINE HLIMIT (LIMIT) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - COMMON/HCFORM/IODIR,IOH1,IOH2,IOHN,IOCF1,IOCF2,IOCB1,IOCB2, - + IOCF4,IOFIT,IONT,IOBL,IOCC - PARAMETER (NLPATM=100, MXFILES=50, LENHFN=128) - COMMON /HCDIRN/NLCDIR,NLNDIR,NLPAT,ICDIR,NCHTOP,ICHTOP(MXFILES) - + ,ICHTYP(MXFILES),ICHLUN(MXFILES) - CHARACTER*16 CHNDIR, CHCDIR, CHPAT ,CHTOP - COMMON /HCDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) - + ,CHTOP(NLPATM) - CHARACTER*(LENHFN) HFNAME - COMMON /HCFILE/HFNAME(MXFILES) + INCLUDE 'pawc.inc' + INCLUDE 'hparam1.inc' + INCLUDE 'hcform.inc' + INCLUDE 'hcdirn.inc' CALL HMACHI NHBOOK = IABS(LIMIT) IF (NHBOOK.LT.10000) NHBOOK=10000 @@ -237,15 +158,8 @@ SUBROUTINE HLIMIT (LIMIT) *------------------------------------------------------------------------------- SUBROUTINE HROPEN(LUN,CHDIR,CFNAME,CHOPTT,LRECL,ISTAT) - PARAMETER (NLPATM=100, MXFILES=50, LENHFN=128) - COMMON /HCDIRN/NLCDIR,NLNDIR,NLPAT,ICDIR,NCHTOP,ICHTOP(MXFILES) - + ,ICHTYP(MXFILES),ICHLUN(MXFILES) - CHARACTER*16 CHNDIR, CHCDIR, CHPAT ,CHTOP - COMMON /HCDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) - + ,CHTOP(NLPATM) - CHARACTER*(LENHFN) HFNAME - COMMON /HCFILE/HFNAME(MXFILES) - COMMON/QUEST/IQUEST(100) + INCLUDE 'hcdirn.inc' + INCLUDE 'quest.inc' CHARACTER*(*) CFNAME,CHDIR,CHOPTT CHARACTER*8 CHOPT CHOPT=CHOPTT @@ -289,17 +203,9 @@ SUBROUTINE HROPEN(LUN,CHDIR,CFNAME,CHOPTT,LRECL,ISTAT) *------------------------------------------------------------------------------- SUBROUTINE HRFILE(LUN,CHDIR,CHOPT) - PARAMETER (NLPATM=100, MXFILES=50, LENHFN=128) - COMMON /HCDIRN/NLCDIR,NLNDIR,NLPAT,ICDIR,NCHTOP,ICHTOP(MXFILES) - + ,ICHTYP(MXFILES),ICHLUN(MXFILES) - CHARACTER*16 CHNDIR, CHCDIR, CHPAT ,CHTOP - COMMON /HCDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) - + ,CHTOP(NLPATM) - CHARACTER*(LENHFN) HFNAME - COMMON /HCFILE/HFNAME(MXFILES) - CHARACTER*128 CHMAIL - COMMON /HCMAIL/CHMAIL - COMMON/QUEST/IQUEST(100) + INCLUDE 'hcdirn.inc' + INCLUDE 'hcmail.inc' + INCLUDE 'quest.inc' CHARACTER*(*) CHDIR,CHOPT CHARACTER*8 TAGS(2),CHOPTT DIMENSION IOPT(6) @@ -379,57 +285,13 @@ SUBROUTINE HRFILE(LUN,CHDIR,CHOPT) *------------------------------------------------------------------------------- SUBROUTINE HRIN(IDD,ICYCLE,KOFSET) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - PARAMETER (NLPATM=100, MXFILES=50, LENHFN=128) - COMMON /HCDIRN/NLCDIR,NLNDIR,NLPAT,ICDIR,NCHTOP,ICHTOP(MXFILES) - + ,ICHTYP(MXFILES),ICHLUN(MXFILES) - CHARACTER*16 CHNDIR, CHCDIR, CHPAT ,CHTOP - COMMON /HCDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) - + ,CHTOP(NLPATM) - CHARACTER*(LENHFN) HFNAME - COMMON /HCFILE/HFNAME(MXFILES) - INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, - + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, - + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, - + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, - + ZID, ZNTMP, ZNTMP1, ZLINK - PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, - + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, - + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, - + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, - + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, - + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) - COMMON /HNTCUR/ NTCUR - INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - COMMON/QUEST/IQUEST(100) + INCLUDE 'pawc.inc' + INCLUDE 'hparam1.inc' + INCLUDE 'hcdirn.inc' + INCLUDE 'zbits.inc' + INCLUDE 'hntcur.inc' + INCLUDE 'quest.inc' + INCLUDE 'hcflag.inc' CHARACTER*128 CHWOLD INTEGER KEYS(2) DATA KHIDE,KHID1,KHID2,KHCO1,KHCO2/4HHIDE,4HHID1,4HHID2, @@ -612,43 +474,11 @@ SUBROUTINE HRIN(IDD,ICYCLE,KOFSET) *------------------------------------------------------------------------------- SUBROUTINE HRZIN(IXDIV,LBANK,JBIAS,KEYS,ICYCLE,CHOPT) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - PARAMETER (NLPATM=100, MXFILES=50, LENHFN=128) - COMMON /HCDIRN/NLCDIR,NLNDIR,NLPAT,ICDIR,NCHTOP,ICHTOP(MXFILES) - + ,ICHTYP(MXFILES),ICHLUN(MXFILES) - CHARACTER*16 CHNDIR, CHCDIR, CHPAT ,CHTOP - COMMON /HCDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) - + ,CHTOP(NLPATM) - CHARACTER*(LENHFN) HFNAME - COMMON /HCFILE/HFNAME(MXFILES) - CHARACTER*128 CHMAIL - COMMON /HCMAIL/CHMAIL - COMMON/QUEST/IQUEST(100) + INCLUDE 'pawc.inc' + INCLUDE 'hparam1.inc' + INCLUDE 'hcdirn.inc' + INCLUDE 'hcmail.inc' + INCLUDE 'quest.inc' DIMENSION LBANK(1),JBIAS(1) INTEGER KEYS(2) CHARACTER*(*)CHOPT @@ -664,33 +494,9 @@ SUBROUTINE HRZIN(IXDIV,LBANK,JBIAS,KEYS,ICYCLE,CHOPT) *------------------------------------------------------------------------------- SUBROUTINE HNOENT(IDD,NUMB) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'pawc.inc' + INCLUDE 'hparam1.inc' + INCLUDE 'quest.inc' CALL HFIND(IDD,'HNOENT') IF(IQUEST(1).NE.0)THEN NUMB=0 @@ -707,51 +513,10 @@ SUBROUTINE HNOENT(IDD,NUMB) *------------------------------------------------------------------------------- SUBROUTINE HGIVE(IDD,CHTITL,NCX,XMIN,XMAX,NCY,YMIN,YMAX,NWT,IDB) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, - + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, - + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, - + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, - + ZID, ZNTMP, ZNTMP1, ZLINK - PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, - + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, - + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, - + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, - + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, - + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) - INTEGER I1, I2, I3, I4, I5, I6, I7, I8, - + I9, I10, I11, I12, I13, I14, I15, I16, - +I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27, - +I28, I29, I30, I31, I32, I33, I34, I35, I123, I230 - COMMON / HCBITS / I1, I2, I3, I4, I5, I6, I7, I8, - + I9, I10, I11, I12, I13, I14, I15, I16, - +I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27, - +I28, I29, I30, I31, I32, I33, I34, I35, I123, I230 + INCLUDE 'pawc.inc' + INCLUDE 'hparam1.inc' + INCLUDE 'zbits.inc' + INCLUDE 'hcbits.inc' CHARACTER*(*) CHTITL NARG=10 NCX=0 @@ -802,55 +567,11 @@ SUBROUTINE HGIVE(IDD,CHTITL,NCX,XMIN,XMAX,NCY,YMIN,YMAX,NWT,IDB) *------------------------------------------------------------------------------- SUBROUTINE HGIVEN( ID1, CHTITL, NVAR, TAGS, RLOW, RHIGH ) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, - + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, - + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, - + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, - + ZID, ZNTMP, ZNTMP1, ZLINK - PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, - + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, - + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, - + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, - + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, - + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) - INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - INTEGER I1, I2, I3, I4, I5, I6, I7, I8, - + I9, I10, I11, I12, I13, I14, I15, I16, - +I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27, - +I28, I29, I30, I31, I32, I33, I34, I35, I123, I230 - COMMON / HCBITS / I1, I2, I3, I4, I5, I6, I7, I8, - + I9, I10, I11, I12, I13, I14, I15, I16, - +I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27, - +I28, I29, I30, I31, I32, I33, I34, I35, I123, I230 + INCLUDE 'pawc.inc' + INCLUDE 'hparam1.inc' + INCLUDE 'zbits.inc' + INCLUDE 'hcflag.inc' + INCLUDE 'hcbits.inc' CHARACTER*(*) CHTITL, TAGS(*) INTEGER ID1, NVAR REAL RLOW(*), RHIGH(*) @@ -911,32 +632,8 @@ SUBROUTINE HGIVEN( ID1, CHTITL, NVAR, TAGS, RLOW, RHIGH ) *------------------------------------------------------------------------------- SUBROUTINE HGNPAR(IDN,CHROUT) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'pawc.inc' + INCLUDE 'hparam1.inc' CHARACTER*(*) CHROUT INTEGER KEYS(2) LCIDN=0 @@ -989,41 +686,10 @@ SUBROUTINE HGNPAR(IDN,CHROUT) *------------------------------------------------------------------------------- SUBROUTINE HGNF(IDN,IDNEVT,X,IERROR) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - PARAMETER (NLPATM=100, MXFILES=50, LENHFN=128) - COMMON /HCDIRN/NLCDIR,NLNDIR,NLPAT,ICDIR,NCHTOP,ICHTOP(MXFILES) - + ,ICHTYP(MXFILES),ICHLUN(MXFILES) - CHARACTER*16 CHNDIR, CHCDIR, CHPAT ,CHTOP - COMMON /HCDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) - + ,CHTOP(NLPATM) - CHARACTER*(LENHFN) HFNAME - COMMON /HCFILE/HFNAME(MXFILES) - COMMON/QUEST/IQUEST(100) + INCLUDE 'pawc.inc' + INCLUDE 'hparam1.inc' + INCLUDE 'hcdirn.inc' + INCLUDE 'quest.inc' DIMENSION X(*) INTEGER KEYS(2) LC=LQ(LCIDN-1) @@ -1077,48 +743,11 @@ SUBROUTINE HGNT(IDN,IDNEVT,IERROR) *------------------------------------------------------------------------------- SUBROUTINE HGNT1(IDD,BLKNA1,VAR,IOFFST,NVAR,IDNEVT,IERROR) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, - + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, - + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, - + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, - + ZID, ZNTMP, ZNTMP1, ZLINK - PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, - + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, - + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, - + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, - + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, - + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) - COMMON /HNTCUR/ NTCUR + INCLUDE 'pawc.inc' + INCLUDE 'hparam1.inc' + INCLUDE 'hcflag.inc' + INCLUDE 'zbits.inc' + INCLUDE 'hntcur.inc' CHARACTER*(*) BLKNA1, VAR(*) CHARACTER*8 BLKNAM, BLKSAV INTEGER HNBPTR, IOFFST(*) @@ -1184,50 +813,12 @@ SUBROUTINE HGNT1(IDD,BLKNA1,VAR,IOFFST,NVAR,IDNEVT,IERROR) *------------------------------------------------------------------------------- SUBROUTINE HGNT2(VAR1,IVOFF,NVAR1,IDNEVT,IERROR) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, - + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, - + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, - + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, - + ZID, ZNTMP, ZNTMP1, ZLINK - PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, - + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, - + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, - + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, - + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, - + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) - COMMON /HCNT/ IBIPW, IBIPB, IBYPW, ISHBIT - LOGICAL NRECOV - COMMON /HCRECV/ NRECOV + INCLUDE 'pawc.inc' + INCLUDE 'hparam1.inc' + INCLUDE 'hcflag.inc' + INCLUDE 'zbits.inc' + INCLUDE 'hcnt.inc' + INCLUDE 'hcrecv.inc' CHARACTER*(*) VAR1(*) INTEGER IVOFF(*) CHARACTER*32 VAR @@ -1547,40 +1138,9 @@ SUBROUTINE HGNT2(VAR1,IVOFF,NVAR1,IDNEVT,IERROR) *------------------------------------------------------------------------------- SUBROUTINE HDCOFL - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - INTEGER I1, I2, I3, I4, I5, I6, I7, I8, - + I9, I10, I11, I12, I13, I14, I15, I16, - +I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27, - +I28, I29, I30, I31, I32, I33, I34, I35, I123, I230 - COMMON / HCBITS / I1, I2, I3, I4, I5, I6, I7, I8, - + I9, I10, I11, I12, I13, I14, I15, I16, - +I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27, - +I28, I29, I30, I31, I32, I33, I34, I35, I123, I230 + INCLUDE 'pawc.inc' + INCLUDE 'hparam1.inc' + INCLUDE 'hcbits.inc' DIMENSION IFLAG(37) EQUIVALENCE (IFLAG(1),I1) IF(IQ(LCID-2).NE.0)THEN @@ -1596,47 +1156,10 @@ SUBROUTINE HDCOFL *------------------------------------------------------------------------------- SUBROUTINE HDELET(ID1) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, - + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, - + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, - + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, - + ZID, ZNTMP, ZNTMP1, ZLINK - PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, - + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, - + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, - + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, - + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, - + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) - INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV + INCLUDE 'pawc.inc' + INCLUDE 'hparam1.inc' + INCLUDE 'zbits.inc' + INCLUDE 'hcflag.inc' IF(LCDIR.LE.0)GO TO 999 IF(ID1.EQ.0)GO TO 120 ID=ID1 @@ -1692,49 +1215,11 @@ SUBROUTINE HDELET(ID1) *------------------------------------------------------------------------------- SUBROUTINE HBNAM(IDD, BLKNA1, ADDRES, FORM1, ISCHAR) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - COMMON/HCFORM/IODIR,IOH1,IOH2,IOHN,IOCF1,IOCF2,IOCB1,IOCB2, - + IOCF4,IOFIT,IONT,IOBL,IOCC - INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, - + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, - + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, - + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, - + ZID, ZNTMP, ZNTMP1, ZLINK - PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, - + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, - + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, - + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, - + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, - + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) - INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV + INCLUDE 'pawc.inc' + INCLUDE 'hparam1.inc' + INCLUDE 'hcform.inc' + INCLUDE 'zbits.inc' + INCLUDE 'hcflag.inc' INTEGER IDD, ADDRES, HNBPTR CHARACTER*(*) BLKNA1, FORM1 PARAMETER (MAXTOK = 50) @@ -1811,32 +1296,8 @@ FUNCTION HI(IDD,I) *------------------------------------------------------------------------------- FUNCTION HIE(IDD,I) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'pawc.inc' + INCLUDE 'hparam1.inc' CALL HFIND(IDD,'HIE ') IF(JBIT(IQ(LCID+KBITS),9).NE.0)THEN HIE=HCX(I,2) @@ -1863,40 +1324,9 @@ FUNCTION HIJ(IDD,I,J) *------------------------------------------------------------------------------- SUBROUTINE HIX(IDD,I,X) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - INTEGER I1, I2, I3, I4, I5, I6, I7, I8, - + I9, I10, I11, I12, I13, I14, I15, I16, - +I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27, - +I28, I29, I30, I31, I32, I33, I34, I35, I123, I230 - COMMON / HCBITS / I1, I2, I3, I4, I5, I6, I7, I8, - + I9, I10, I11, I12, I13, I14, I15, I16, - +I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27, - +I28, I29, I30, I31, I32, I33, I34, I35, I123, I230 + INCLUDE 'pawc.inc' + INCLUDE 'hparam1.inc' + INCLUDE 'hcbits.inc' CALL HFIND(IDD,'HIX ') CALL HDCOFL IF(I6.EQ.0)THEN @@ -1911,32 +1341,8 @@ SUBROUTINE HIX(IDD,I,X) *------------------------------------------------------------------------------- SUBROUTINE HIJXY(IDD,I,J,X,Y) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'pawc.inc' + INCLUDE 'hparam1.inc' CALL HFIND(IDD,'HIJXY ') DX=(Q(LCID+KXMAX)-Q(LCID+KXMIN))/FLOAT(IQ(LCID+KNCX)) DY=(Q(LCID+KYMAX)-Q(LCID+KYMIN))/FLOAT(IQ(LCID+KNCY)) @@ -1954,49 +1360,13 @@ FUNCTION HIJE(IDD,I,J) *------------------------------------------------------------------------------- SUBROUTINE HCDIR(CHPATH,CHOPT) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - PARAMETER (NLPATM=100, MXFILES=50, LENHFN=128) - COMMON /HCDIRN/NLCDIR,NLNDIR,NLPAT,ICDIR,NCHTOP,ICHTOP(MXFILES) - + ,ICHTYP(MXFILES),ICHLUN(MXFILES) - CHARACTER*16 CHNDIR, CHCDIR, CHPAT ,CHTOP - COMMON /HCDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) - + ,CHTOP(NLPATM) - CHARACTER*(LENHFN) HFNAME - COMMON /HCFILE/HFNAME(MXFILES) - INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - INTEGER LOUT,LERR,LINFIT - COMMON/HCUNIT/LOUT,LERR,LINFIT - CHARACTER*128 CHMAIL - COMMON /HCMAIL/CHMAIL - COMMON/QUEST/IQUEST(100) + INCLUDE 'pawc.inc' + INCLUDE 'hparam1.inc' + INCLUDE 'hcdirn.inc' + INCLUDE 'hcflag.inc' + INCLUDE 'hcunit.inc' + INCLUDE 'hcmail.inc' + INCLUDE 'quest.inc' CHARACTER*2 NODIR PARAMETER (NODIR = '@#') CHARACTER*128 CHAIN, CACHE @@ -2092,59 +1462,15 @@ SUBROUTINE HCDIR(CHPATH,CHOPT) *------------------------------------------------------------------------------- SUBROUTINE HMACHI - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - INTEGER I1, I2, I3, I4, I5, I6, I7, I8, - + I9, I10, I11, I12, I13, I14, I15, I16, - +I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27, - +I28, I29, I30, I31, I32, I33, I34, I35, I123, I230 - COMMON / HCBITS / I1, I2, I3, I4, I5, I6, I7, I8, - + I9, I10, I11, I12, I13, I14, I15, I16, - +I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27, - +I28, I29, I30, I31, I32, I33, I34, I35, I123, I230 - INTEGER LOUT,LERR,LINFIT - COMMON/HCUNIT/LOUT,LERR,LINFIT - INTEGER IFW ,NW ,NB ,IH ,NHT ,ICN ,IPONCE, - + NH ,MSTEP ,NOENT ,NOLD ,IDOLAR,IBLANC,KBINSZ,INO , - + KSQUEZ,NCOLMA,NCOLPA,NLINPA, ICBLAC,ICSTAR,ICFUNC, - + IDG(42),MAXBIT(30),IDENT(9) - REAL BIGP - COMMON/HCPRIN/IFW ,NW ,NB ,IH ,NHT ,ICN ,IPONCE, - + NH ,MSTEP ,NOENT ,NOLD ,IDOLAR,IBLANC,KBINSZ,INO , - + KSQUEZ,NCOLMA,NCOLPA,NLINPA,BIGP ,ICBLAC,ICSTAR,ICFUNC, - + IDG ,MAXBIT,IDENT - COMMON /HCNT/ IBIPW, IBIPB, IBYPW, ISHBIT - COMMON /HCSET/ IBSIZE - LOGICAL NRECOV - COMMON /HCRECV/ NRECOV + INCLUDE 'pawc.inc' + INCLUDE 'hparam1.inc' + INCLUDE 'hcflag.inc' + INCLUDE 'hcbits.inc' + INCLUDE 'hcunit.inc' + INCLUDE 'hcprin.inc' + INCLUDE 'hcnt.inc' + INCLUDE 'hcset.inc' + INCLUDE 'hcrecv.inc' PARAMETER (MBIT=32,MBITCH=8,MOUT=6,HMBIGP=1.E+30) CHARACTER*1 IDGTDA(42) CHARACTER*4 IPROJ(9) @@ -2216,41 +1542,9 @@ SUBROUTINE HMACHI *------------------------------------------------------------------------------- FUNCTION HCX(ICX,IOPT) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - INTEGER IFW ,NW ,NB ,IH ,NHT ,ICN ,IPONCE, - + NH ,MSTEP ,NOENT ,NOLD ,IDOLAR,IBLANC,KBINSZ,INO , - + KSQUEZ,NCOLMA,NCOLPA,NLINPA, ICBLAC,ICSTAR,ICFUNC, - + IDG(42),MAXBIT(30),IDENT(9) - REAL BIGP - COMMON/HCPRIN/IFW ,NW ,NB ,IH ,NHT ,ICN ,IPONCE, - + NH ,MSTEP ,NOENT ,NOLD ,IDOLAR,IBLANC,KBINSZ,INO , - + KSQUEZ,NCOLMA,NCOLPA,NLINPA,BIGP ,ICBLAC,ICSTAR,ICFUNC, - + IDG ,MAXBIT,IDENT + INCLUDE 'pawc.inc' + INCLUDE 'hparam1.inc' + INCLUDE 'hcprin.inc' DOUBLE PRECISION CONT,ERR2,SUM,EPRIM HCX = 0.0 LW = LQ(LCONT) @@ -2328,41 +1622,9 @@ FUNCTION HCX(ICX,IOPT) *------------------------------------------------------------------------------- FUNCTION HCXY(ICX,ICY,IOPT) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - INTEGER IFW ,NW ,NB ,IH ,NHT ,ICN ,IPONCE, - + NH ,MSTEP ,NOENT ,NOLD ,IDOLAR,IBLANC,KBINSZ,INO , - + KSQUEZ,NCOLMA,NCOLPA,NLINPA, ICBLAC,ICSTAR,ICFUNC, - + IDG(42),MAXBIT(30),IDENT(9) - REAL BIGP - COMMON/HCPRIN/IFW ,NW ,NB ,IH ,NHT ,ICN ,IPONCE, - + NH ,MSTEP ,NOENT ,NOLD ,IDOLAR,IBLANC,KBINSZ,INO , - + KSQUEZ,NCOLMA,NCOLPA,NLINPA,BIGP ,ICBLAC,ICSTAR,ICFUNC, - + IDG ,MAXBIT,IDENT + INCLUDE 'pawc.inc' + INCLUDE 'hparam1.inc' + INCLUDE 'hcprin.inc' NW=32/NB J=(IQ(LCID+KNCY)-ICY+1)*(IQ(LCID+KNCX)+2) L2=ICX+J @@ -2388,46 +1650,11 @@ FUNCTION HCXY(ICX,ICY,IOPT) *------------------------------------------------------------------------------- SUBROUTINE HFIND(IDD,CHROUT) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - INTEGER IFW ,NW ,NB ,IH ,NHT ,ICN ,IPONCE, - + NH ,MSTEP ,NOENT ,NOLD ,IDOLAR,IBLANC,KBINSZ,INO , - + KSQUEZ,NCOLMA,NCOLPA,NLINPA, ICBLAC,ICSTAR,ICFUNC, - + IDG(42),MAXBIT(30),IDENT(9) - REAL BIGP - COMMON/HCPRIN/IFW ,NW ,NB ,IH ,NHT ,ICN ,IPONCE, - + NH ,MSTEP ,NOENT ,NOLD ,IDOLAR,IBLANC,KBINSZ,INO , - + KSQUEZ,NCOLMA,NCOLPA,NLINPA,BIGP ,ICBLAC,ICSTAR,ICFUNC, - + IDG ,MAXBIT,IDENT - COMMON /QUEST/ IQUEST(100) + INCLUDE 'pawc.inc' + INCLUDE 'hparam1.inc' + INCLUDE 'hcflag.inc' + INCLUDE 'hcprin.inc' + INCLUDE 'quest.inc' CHARACTER*(*) CHROUT IF(LFIX.NE.0)GO TO 99 IQUEST(1)=0 @@ -2468,14 +1695,7 @@ SUBROUTINE HUOPTC(CCHOPT,CSTR,IOPT) *------------------------------------------------------------------------------- SUBROUTINE HRZCD(CHDIR,CHOPT) - PARAMETER (NLPATM=100, MXFILES=50, LENHFN=128) - COMMON /HCDIRN/NLCDIR,NLNDIR,NLPAT,ICDIR,NCHTOP,ICHTOP(MXFILES) - + ,ICHTYP(MXFILES),ICHLUN(MXFILES) - CHARACTER*16 CHNDIR, CHCDIR, CHPAT ,CHTOP - COMMON /HCDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) - + ,CHTOP(NLPATM) - CHARACTER*(LENHFN) HFNAME - COMMON /HCFILE/HFNAME(MXFILES) + INCLUDE 'hcdirn.inc' CHARACTER*(*)CHDIR,CHOPT IF(ICHTOP(ICDIR).GT.1000)THEN print*, 'CZ option not active','HRZCD',0 @@ -2487,44 +1707,10 @@ SUBROUTINE HRZCD(CHDIR,CHOPT) *------------------------------------------------------------------------------- SUBROUTINE HNMADR(VAR1, IADD, ISCHAR) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - COMMON /HCNT/ IBIPW, IBIPB, IBYPW, ISHBIT - INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, - + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, - + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, - + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, - + ZID, ZNTMP, ZNTMP1, ZLINK - PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, - + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, - + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, - + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, - + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, - + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) + INCLUDE 'pawc.inc' + INCLUDE 'hparam1.inc' + INCLUDE 'hcnt.inc' + INCLUDE 'zbits.inc' CHARACTER*(*) VAR1 CHARACTER*32 NAME, VAR INTEGER IADD @@ -2597,16 +1783,8 @@ SUBROUTINE HITOC(IVAL, VALC, NCSTR, IERR) *------------------------------------------------------------------------------- SUBROUTINE HPATH(CHPATH) - PARAMETER (NLPATM=100, MXFILES=50, LENHFN=128) - COMMON /HCDIRN/NLCDIR,NLNDIR,NLPAT,ICDIR,NCHTOP,ICHTOP(MXFILES) - + ,ICHTYP(MXFILES),ICHLUN(MXFILES) - CHARACTER*16 CHNDIR, CHCDIR, CHPAT ,CHTOP - COMMON /HCDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) - + ,CHTOP(NLPATM) - CHARACTER*(LENHFN) HFNAME - COMMON /HCFILE/HFNAME(MXFILES) - INTEGER LOUT,LERR,LINFIT - COMMON/HCUNIT/LOUT,LERR,LINFIT + INCLUDE 'hcdirn.inc' + INCLUDE 'hcunit.inc' CHARACTER*(*) CHPATH CHARACTER*1 CH1,BSLASH CHARACTER*2 CH2 @@ -2731,44 +1909,10 @@ SUBROUTINE HPATH(CHPATH) *------------------------------------------------------------------------------- SUBROUTINE HNDESC(IOFF, NSUB, ITYPE, ISIZE, NBITS, INDVAR) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, - + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, - + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, - + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, - + ZID, ZNTMP, ZNTMP1, ZLINK - PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, - + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, - + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, - + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, - + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, - + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) - COMMON /HCNT/ IBIPW, IBIPB, IBYPW, ISHBIT + INCLUDE 'pawc.inc' + INCLUDE 'hparam1.inc' + INCLUDE 'zbits.inc' + INCLUDE 'hcnt.inc' LOGICAL INDVAR NSUB = JBYT(IQ(LNAME+IOFF+ZDESC), 18, 3) ITYPE = JBYT(IQ(LNAME+IOFF+ZDESC), 14, 4) @@ -2782,43 +1926,9 @@ SUBROUTINE HNDESC(IOFF, NSUB, ITYPE, ISIZE, NBITS, INDVAR) *------------------------------------------------------------------------------- SUBROUTINE HPARNT(IDN, CHROUT) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, - + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, - + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, - + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, - + ZID, ZNTMP, ZNTMP1, ZLINK - PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, - + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, - + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, - + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, - + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, - + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) + INCLUDE 'pawc.inc' + INCLUDE 'hparam1.inc' + INCLUDE 'zbits.inc' CHARACTER*(*) CHROUT LCID = 0 NIDN = LOCATI(IQ(LTAB+1),IQ(LCDIR+KNRH),IDN) @@ -2853,47 +1963,10 @@ SUBROUTINE HPARNT(IDN, CHROUT) *------------------------------------------------------------------------------- SUBROUTINE HNTMP(IDD) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, - + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, - + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, - + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, - + ZID, ZNTMP, ZNTMP1, ZLINK - PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, - + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, - + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, - + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, - + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, - + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) + INCLUDE 'pawc.inc' + INCLUDE 'hparam1.inc' + INCLUDE 'hcflag.inc' + INCLUDE 'zbits.inc' NDIM = IQ(LCID+ZNDIM) NW = 1 + ZNTMP*NDIM IF (LQ(LCDIR-5) .EQ. 0) THEN @@ -2939,48 +2012,11 @@ SUBROUTINE HNTMP(IDD) *------------------------------------------------------------------------------- SUBROUTINE HNBUFR(IDD) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, - + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, - + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, - + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, - + ZID, ZNTMP, ZNTMP1, ZLINK - PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, - + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, - + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, - + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, - + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, - + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) - COMMON/QUEST/IQUEST(100) + INCLUDE 'pawc.inc' + INCLUDE 'hparam1.inc' + INCLUDE 'hcflag.inc' + INCLUDE 'zbits.inc' + INCLUDE 'quest.inc' CHARACTER*128 CHWOLD, CHDIR, CWDRZ INTEGER KEYS(2) LOGICAL MEMORY @@ -3076,46 +2112,11 @@ SUBROUTINE HNBUFR(IDD) *------------------------------------------------------------------------------- SUBROUTINE HNTRD(INDX, IOFF, IBANK, IERROR) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, - + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, - + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, - + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, - + ZID, ZNTMP, ZNTMP1, ZLINK - PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, - + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, - + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, - + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, - + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, - + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) - LOGICAL NRECOV - COMMON /HCRECV/ NRECOV - COMMON/QUEST/IQUEST(100) + INCLUDE 'pawc.inc' + INCLUDE 'hparam1.inc' + INCLUDE 'zbits.inc' + INCLUDE 'hcrecv.inc' + INCLUDE 'quest.inc' CHARACTER*128 CHWOLD, CHDIR, CWDRZ INTEGER KEYS(2) IF (IQ(LNAME+IOFF+ZIBANK) .EQ. IBANK) THEN @@ -3186,8 +2187,7 @@ SUBROUTINE HNTRD(INDX, IOFF, IBANK, IERROR) *------------------------------------------------------------------------------- SUBROUTINE HPAFF(CH,NL,CHPATH) - CHARACTER*128 CHMAIL - COMMON /HCMAIL/CHMAIL + INCLUDE 'hcmail.inc' CHARACTER*(*) CHPATH,CH(*) CHARACTER*16 CHL MAXLEN=LEN(CHPATH) @@ -3231,37 +2231,10 @@ SUBROUTINE HRZFRA(IH,IOH,NW) *------------------------------------------------------------------------------- SUBROUTINE HSPACE (N,CHROUT,IDD) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - COMMON/QUEST/IQUEST(100) + INCLUDE 'pawc.inc' + INCLUDE 'quest.inc' + INCLUDE 'hparam1.inc' + INCLUDE 'hcflag.inc' CHARACTER*(*) CHROUT IDLAST=0 IERR=0 @@ -3279,32 +2252,8 @@ SUBROUTINE HSPACE (N,CHROUT,IDD) *------------------------------------------------------------------------------- SUBROUTINE HNTMPD(IDD) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'pawc.inc' + INCLUDE 'hparam1.inc' IF (LQ(LCDIR-5) .EQ. 0) RETURN IF (IDD .EQ. 0) THEN CALL MZDROP(IHDIV,LQ(LCDIR-5),'L') @@ -3327,32 +2276,8 @@ SUBROUTINE HNTMPD(IDD) *------------------------------------------------------------------------------- SUBROUTINE HNBUFD(IDD) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'pawc.inc' + INCLUDE 'hparam1.inc' CALL HNTMPD(IDD) IF (LQ(LCDIR-4) .EQ. 0) RETURN IF (IDD .EQ. 0) THEN @@ -3376,55 +2301,11 @@ SUBROUTINE HNBUFD(IDD) *------------------------------------------------------------------------------- SUBROUTINE HNTVAR(ID1,IVAR,CHTAG,BLOCK,NSUB,ITYPE,ISIZE,IELEM) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, - + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, - + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, - + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, - + ZID, ZNTMP, ZNTMP1, ZLINK - PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, - + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, - + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, - + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, - + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, - + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) - INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - INTEGER I1, I2, I3, I4, I5, I6, I7, I8, - + I9, I10, I11, I12, I13, I14, I15, I16, - +I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27, - +I28, I29, I30, I31, I32, I33, I34, I35, I123, I230 - COMMON / HCBITS / I1, I2, I3, I4, I5, I6, I7, I8, - + I9, I10, I11, I12, I13, I14, I15, I16, - +I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27, - +I28, I29, I30, I31, I32, I33, I34, I35, I123, I230 + INCLUDE 'pawc.inc' + INCLUDE 'hparam1.inc' + INCLUDE 'zbits.inc' + INCLUDE 'hcflag.inc' + INCLUDE 'hcbits.inc' CHARACTER*(*) CHTAG, BLOCK CHARACTER*32 NAME LOGICAL NEWTUP, LDUM @@ -3496,47 +2377,10 @@ SUBROUTINE HNTVAR(ID1,IVAR,CHTAG,BLOCK,NSUB,ITYPE,ISIZE,IELEM) *------------------------------------------------------------------------------- SUBROUTINE HNMSET(IDD, ITEM, IVAL) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, - + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, - + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, - + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, - + ZID, ZNTMP, ZNTMP1, ZLINK - PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, - + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, - + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, - + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, - + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, - + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) - INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV + INCLUDE 'pawc.inc' + INCLUDE 'hparam1.inc' + INCLUDE 'zbits.inc' + INCLUDE 'hcflag.inc' ID = IDD IDPOS = LOCATI(IQ(LTAB+1),IQ(LCDIR+KNRH),ID) IF (IDPOS .LE. 0) THEN @@ -3562,43 +2406,9 @@ SUBROUTINE HNMSET(IDD, ITEM, IVAL) *------------------------------------------------------------------------------- INTEGER FUNCTION HNBPTR(BLKNA1) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, - + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, - + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, - + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, - + ZID, ZNTMP, ZNTMP1, ZLINK - PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, - + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, - + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, - + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, - + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, - + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) + INCLUDE 'pawc.inc' + INCLUDE 'hparam1.inc' + INCLUDE 'zbits.inc' CHARACTER*(*) BLKNA1 CHARACTER*8 BLKNAM INTEGER IBLKN(2) @@ -3619,36 +2429,9 @@ INTEGER FUNCTION HNBPTR(BLKNA1) *------------------------------------------------------------------------------- SUBROUTINE HNBUFF(IDD, FATAL) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV + INCLUDE 'pawc.inc' + INCLUDE 'hparam1.inc' + INCLUDE 'hcflag.inc' LOGICAL FATAL IF (LQ(LCDIR-4) .EQ. 0) THEN IF (FATAL) THEN @@ -3677,47 +2460,10 @@ SUBROUTINE HNBUFF(IDD, FATAL) *------------------------------------------------------------------------------- SUBROUTINE HNBFWR(IDD) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, - + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, - + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, - + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, - + ZID, ZNTMP, ZNTMP1, ZLINK - PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, - + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, - + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, - + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, - + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, - + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) - INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV + INCLUDE 'pawc.inc' + INCLUDE 'hparam1.inc' + INCLUDE 'zbits.inc' + INCLUDE 'hcflag.inc' CHARACTER*128 CHWOLD, CHDIR, CWDRZ INTEGER KEYS(2) IERR = 0 @@ -3772,47 +2518,10 @@ SUBROUTINE HNBFWR(IDD) *------------------------------------------------------------------------------- SUBROUTINE HNHDWR(IDD) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, - + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, - + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, - + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, - + ZID, ZNTMP, ZNTMP1, ZLINK - PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, - + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, - + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, - + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, - + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, - + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) - INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV + INCLUDE 'pawc.inc' + INCLUDE 'hparam1.inc' + INCLUDE 'zbits.inc' + INCLUDE 'hcflag.inc' CHARACTER*128 CHWOLD, CHDIR, CWDRZ INTEGER KEYS(2) IERR = 0 @@ -3845,47 +2554,14 @@ SUBROUTINE HNHDWR(IDD) *------------------------------------------------------------------------------- SUBROUTINE HLDIR(CHPATH,CHOPT) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - INTEGER LOUT,LERR,LINFIT - COMMON/HCUNIT/LOUT,LERR,LINFIT - PARAMETER (NLPATM=100, MXFILES=50, LENHFN=128) - COMMON /HCDIRN/NLCDIR,NLNDIR,NLPAT,ICDIR,NCHTOP,ICHTOP(MXFILES) - + ,ICHTYP(MXFILES),ICHLUN(MXFILES) - CHARACTER*16 CHNDIR, CHCDIR, CHPAT ,CHTOP - COMMON /HCDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) - + ,CHTOP(NLPATM) - CHARACTER*(LENHFN) HFNAME - COMMON /HCFILE/HFNAME(MXFILES) - CHARACTER*128 CHMAIL - COMMON /HCMAIL/CHMAIL + INCLUDE 'pawc.inc' + INCLUDE 'hparam1.inc' + INCLUDE 'hcunit.inc' + INCLUDE 'hcdirn.inc' + INCLUDE 'hcmail.inc' DIMENSION IPAWC(99) EQUIVALENCE (NWPAW,IPAWC(1)) - COMMON/QUEST/IQUEST(100) + INCLUDE 'quest.inc' CHARACTER*(*) CHPATH,CHOPT CHARACTER*128 CHWOLD DIMENSION LCUR(15),IOPT(5) @@ -3962,51 +2638,13 @@ SUBROUTINE HLDIR(CHPATH,CHOPT) *------------------------------------------------------------------------------- SUBROUTINE HLDIRT(CHDIR) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - INTEGER LOUT,LERR,LINFIT - COMMON/HCUNIT/LOUT,LERR,LINFIT - INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, - + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, - + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, - + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, - + ZID, ZNTMP, ZNTMP1, ZLINK - PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, - + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, - + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, - + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, - + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, - + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) + INCLUDE 'pawc.inc' + INCLUDE 'hparam1.inc' + INCLUDE 'hcflag.inc' + INCLUDE 'hcunit.inc' + INCLUDE 'zbits.inc' CHARACTER*(*) CHDIR - COMMON/QUEST/IQUEST(100) + INCLUDE 'quest.inc' CHARACTER*1 HTYPE INTEGER KEYS(2) NCH=LENOCC(CHDIR) @@ -4086,14 +2724,7 @@ SUBROUTINE HLDIRT(CHDIR) *------------------------------------------------------------------------------- SUBROUTINE HREND(CHDIR) - PARAMETER (NLPATM=100, MXFILES=50, LENHFN=128) - COMMON /HCDIRN/NLCDIR,NLNDIR,NLPAT,ICDIR,NCHTOP,ICHTOP(MXFILES) - + ,ICHTYP(MXFILES),ICHLUN(MXFILES) - CHARACTER*16 CHNDIR, CHCDIR, CHPAT ,CHTOP - COMMON /HCDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) - + ,CHTOP(NLPATM) - CHARACTER*(LENHFN) HFNAME - COMMON /HCFILE/HFNAME(MXFILES) + INCLUDE 'hcdirn.inc' CHARACTER*(*) CHDIR NCHMAX=NCHTOP DO 20 I=2,NCHMAX diff --git a/misc/minicern/src/hcbits.inc b/misc/minicern/src/hcbits.inc new file mode 100644 index 0000000000000..278e986be6188 --- /dev/null +++ b/misc/minicern/src/hcbits.inc @@ -0,0 +1,9 @@ +C=== hcbits.inc ================================================ + INTEGER I1, I2, I3, I4, I5, I6, I7, I8, + + I9, I10, I11, I12, I13, I14, I15, I16, + +I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27, + +I28, I29, I30, I31, I32, I33, I34, I35, I123, I230 + COMMON / HCBITS / I1, I2, I3, I4, I5, I6, I7, I8, + + I9, I10, I11, I12, I13, I14, I15, I16, + +I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27, + +I28, I29, I30, I31, I32, I33, I34, I35, I123, I230 diff --git a/misc/minicern/src/hcdirn.inc b/misc/minicern/src/hcdirn.inc new file mode 100644 index 0000000000000..d69f07ac54eef --- /dev/null +++ b/misc/minicern/src/hcdirn.inc @@ -0,0 +1,9 @@ +C=== hcdirn.inc ================================================ + PARAMETER (NLPATM=100, MXFILES=50, LENHFN=128) + COMMON /HCDIRN/NLCDIR,NLNDIR,NLPAT,ICDIR,NCHTOP,ICHTOP(MXFILES) + + ,ICHTYP(MXFILES),ICHLUN(MXFILES) + CHARACTER*16 CHNDIR, CHCDIR, CHPAT ,CHTOP + COMMON /HCDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) + + ,CHTOP(NLPATM) + CHARACTER*(LENHFN) HFNAME + COMMON /HCFILE/HFNAME(MXFILES) diff --git a/misc/minicern/src/hcflag.inc b/misc/minicern/src/hcflag.inc new file mode 100644 index 0000000000000..cb9e7324076e5 --- /dev/null +++ b/misc/minicern/src/hcflag.inc @@ -0,0 +1,5 @@ +C=== hcflag.inc ================================================ + INTEGER ID,IDBADD,LID,IDLAST,IDHOLD,NBIT,NBITCH, + + NCHAR,NRHIST,IERR,NV + COMMON /HCFLAG/ ID,IDBADD,LID,IDLAST,IDHOLD,NBIT,NBITCH, + + NCHAR,NRHIST,IERR ,NV diff --git a/misc/minicern/src/hcform.inc b/misc/minicern/src/hcform.inc new file mode 100644 index 0000000000000..4cddb0845a2df --- /dev/null +++ b/misc/minicern/src/hcform.inc @@ -0,0 +1,3 @@ +C=== hcform.inc ================================================ + COMMON/HCFORM/IODIR,IOH1,IOH2,IOHN,IOCF1,IOCF2,IOCB1,IOCB2, + + IOCF4,IOFIT,IONT,IOBL,IOCC diff --git a/misc/minicern/src/hcmail.inc b/misc/minicern/src/hcmail.inc new file mode 100644 index 0000000000000..3cbf72183c7e3 --- /dev/null +++ b/misc/minicern/src/hcmail.inc @@ -0,0 +1,3 @@ +C=== hcmail.inc ================================================ + CHARACTER*128 CHMAIL + COMMON /HCMAIL/CHMAIL diff --git a/misc/minicern/src/hcnt.inc b/misc/minicern/src/hcnt.inc new file mode 100644 index 0000000000000..a4e8658f65153 --- /dev/null +++ b/misc/minicern/src/hcnt.inc @@ -0,0 +1,2 @@ +C=== hcnt.inc ================================================== + COMMON /HCNT/ IBIPW, IBIPB, IBYPW, ISHBIT diff --git a/misc/minicern/src/hcprin.inc b/misc/minicern/src/hcprin.inc new file mode 100644 index 0000000000000..58623f0869dc0 --- /dev/null +++ b/misc/minicern/src/hcprin.inc @@ -0,0 +1,10 @@ +C=== hcprin.inc ================================================ + INTEGER IFW ,NW ,NB ,IH ,NHT ,ICN ,IPONCE, + + NH ,MSTEP ,NOENT ,NOLD ,IDOLAR,IBLANC,KBINSZ,INO , + + KSQUEZ,NCOLMA,NCOLPA,NLINPA, ICBLAC,ICSTAR,ICFUNC, + + IDG(42),MAXBIT(30),IDENT(9) + REAL BIGP + COMMON/HCPRIN/IFW ,NW ,NB ,IH ,NHT ,ICN ,IPONCE, + + NH ,MSTEP ,NOENT ,NOLD ,IDOLAR,IBLANC,KBINSZ,INO , + + KSQUEZ,NCOLMA,NCOLPA,NLINPA,BIGP ,ICBLAC,ICSTAR,ICFUNC, + + IDG ,MAXBIT,IDENT diff --git a/misc/minicern/src/hcrecv.inc b/misc/minicern/src/hcrecv.inc new file mode 100644 index 0000000000000..4cc3c5daa627a --- /dev/null +++ b/misc/minicern/src/hcrecv.inc @@ -0,0 +1,3 @@ +C=== hcrecv.inc ================================================ + LOGICAL NRECOV + COMMON /HCRECV/ NRECOV diff --git a/misc/minicern/src/hcset.inc b/misc/minicern/src/hcset.inc new file mode 100644 index 0000000000000..4cde3f9aa4c02 --- /dev/null +++ b/misc/minicern/src/hcset.inc @@ -0,0 +1,2 @@ +C=== hcset.inc ================================================= + COMMON /HCSET/ IBSIZE diff --git a/misc/minicern/src/hcunit.inc b/misc/minicern/src/hcunit.inc new file mode 100644 index 0000000000000..c611a807c65d5 --- /dev/null +++ b/misc/minicern/src/hcunit.inc @@ -0,0 +1,3 @@ +C=== hcunit.inc ================================================ + INTEGER LOUT,LERR,LINFIT + COMMON/HCUNIT/LOUT,LERR,LINFIT diff --git a/misc/minicern/src/hntcur.inc b/misc/minicern/src/hntcur.inc new file mode 100644 index 0000000000000..19550d9abedda --- /dev/null +++ b/misc/minicern/src/hntcur.inc @@ -0,0 +1,2 @@ +C=== hntcur.inc ================================================ + COMMON /HNTCUR/ NTCUR diff --git a/misc/minicern/src/hparam1.inc b/misc/minicern/src/hparam1.inc new file mode 100644 index 0000000000000..14cfe85e9244d --- /dev/null +++ b/misc/minicern/src/hparam1.inc @@ -0,0 +1,23 @@ +C=== hparam1.inc =============================================== + INTEGER IQ ,LQ + REAL Q + DIMENSION IQ(2),Q(2),LQ(8000) + EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) + INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, + +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, + +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, + +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, + +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN + COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, + +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, + +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, + +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), + +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN + INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, + + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, + + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , + + KCON1 ,KCON2 ,KBITS ,KNTOT + PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, + + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, + + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, + + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) diff --git a/misc/minicern/src/jauioc.inc b/misc/minicern/src/jauioc.inc new file mode 100644 index 0000000000000..638be491e5cb6 --- /dev/null +++ b/misc/minicern/src/jauioc.inc @@ -0,0 +1,2 @@ +C=== jauioc.inc ================================================ + PARAMETER (JAUIOC=50, JAUSEG=68, JAUEAR=130) diff --git a/misc/minicern/src/jzuc.inc b/misc/minicern/src/jzuc.inc new file mode 100644 index 0000000000000..316f5f6337f8c --- /dev/null +++ b/misc/minicern/src/jzuc.inc @@ -0,0 +1,2 @@ +C=== jzuc.inc ================================================== + COMMON /JZUC/ LQJZ,LQUP,LQDW,LQSV,LQAN, JQLEV,JQFLAG(10) diff --git a/misc/minicern/src/mza.inc b/misc/minicern/src/mza.inc new file mode 100644 index 0000000000000..30564a22270cb --- /dev/null +++ b/misc/minicern/src/mza.inc @@ -0,0 +1,6 @@ +C=== mza.inc =================================================== + COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM + +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ + +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE + +, NQTRAC,MQTRAC(48) + EQUIVALENCE (KQSP,NQOFFS(1)) diff --git a/misc/minicern/src/mzabq.inc b/misc/minicern/src/mzabq.inc new file mode 100644 index 0000000000000..06c2c5eb2b483 --- /dev/null +++ b/misc/minicern/src/mzabq.inc @@ -0,0 +1,11 @@ +C=== mzabq.inc ================================================= + COMMON /ZEBQ/ IQFENC(4), LQ(100) + DIMENSION IQ(92), Q(92) + EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) + INCLUDE 'mza.inc' + COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR + +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV + +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END + +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) + DIMENSION IQCUR(16) + EQUIVALENCE (IQCUR(1),LQSTOR) diff --git a/misc/minicern/src/mzcc.inc b/misc/minicern/src/mzcc.inc new file mode 100644 index 0000000000000..f7e34f7c084df --- /dev/null +++ b/misc/minicern/src/mzcc.inc @@ -0,0 +1,11 @@ +C=== mzcc.inc ================================================== + COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E + +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) + +, LQSYSS(10), LQSYSR(10), IQTDUM(22) + +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) + +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) + +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) + +, NQDPSH(20),NQDRED(20),NQDSIZ(20) + +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) + DIMENSION IQTABV(16) + EQUIVALENCE (IQTABV(1),LQPSTO) diff --git a/misc/minicern/src/mzcl.inc b/misc/minicern/src/mzcl.inc new file mode 100644 index 0000000000000..2c0427f40dd97 --- /dev/null +++ b/misc/minicern/src/mzcl.inc @@ -0,0 +1,3 @@ +C=== mzcl.inc ================================================== + COMMON /MZCL/ NQLN,NQLS,NQNIO,NQID,NQNL,NQNS,NQND,NQIOCH(16) + +, LQSUP,NQBIA, NQIOSV(3) diff --git a/misc/minicern/src/mzcn.inc b/misc/minicern/src/mzcn.inc new file mode 100644 index 0000000000000..a5412c465c0e2 --- /dev/null +++ b/misc/minicern/src/mzcn.inc @@ -0,0 +1,2 @@ +C=== mzcn.inc ================================================== + COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL diff --git a/misc/minicern/src/mzct.inc b/misc/minicern/src/mzct.inc new file mode 100644 index 0000000000000..b7f3ef7b0c266 --- /dev/null +++ b/misc/minicern/src/mzct.inc @@ -0,0 +1,7 @@ +C=== mzct.inc ================================================== + COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO + +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL + +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) + +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE + +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR + +, LQMTC1,LQMTC2, NQFRTC,NQLIVE diff --git a/misc/minicern/src/mzcwk.inc b/misc/minicern/src/mzcwk.inc new file mode 100644 index 0000000000000..7512c3620adcb --- /dev/null +++ b/misc/minicern/src/mzcwk.inc @@ -0,0 +1,3 @@ +C=== mzcwk.inc ================================================= + PARAMETER (NQWKTT=2560) + COMMON /MZCWK/ IQWKTB(NQWKTT), IQWKFZ(NQWKTT) diff --git a/misc/minicern/src/mzioc.inc b/misc/minicern/src/mzioc.inc new file mode 100644 index 0000000000000..ce5b9033fc60a --- /dev/null +++ b/misc/minicern/src/mzioc.inc @@ -0,0 +1,3 @@ +C=== mzioc.inc ================================================= + COMMON /MZIOC/ NWFOAV,NWFOTT,NWFODN,NWFORE,IFOCON(3) + +, MFOSAV(2), JFOEND,JFOREP,JFOCUR,MFO(200) diff --git a/misc/minicern/src/nlpatm.inc b/misc/minicern/src/nlpatm.inc new file mode 100644 index 0000000000000..bf0f672e497a5 --- /dev/null +++ b/misc/minicern/src/nlpatm.inc @@ -0,0 +1,2 @@ +C=== nlpatm.inc ================================================ + PARAMETER (NLPATM=100) diff --git a/misc/minicern/src/pawc.inc b/misc/minicern/src/pawc.inc new file mode 100644 index 0000000000000..2bb8b5bb1d45b --- /dev/null +++ b/misc/minicern/src/pawc.inc @@ -0,0 +1,4 @@ +C=== pawc.inc ================================================== + INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,IFENCE,LMAIN,IPAW + COMMON /PAWC/ NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,IFENCE(5),LMAIN, + + IPAW(4000000-11) diff --git a/misc/minicern/src/quest.inc b/misc/minicern/src/quest.inc new file mode 100644 index 0000000000000..38c25dfa273ab --- /dev/null +++ b/misc/minicern/src/quest.inc @@ -0,0 +1,2 @@ +C=== quest.inc ================================================= + COMMON /QUEST/ IQUEST(100) diff --git a/misc/minicern/src/rzbuff.inc b/misc/minicern/src/rzbuff.inc new file mode 100644 index 0000000000000..0575ef3339e72 --- /dev/null +++ b/misc/minicern/src/rzbuff.inc @@ -0,0 +1,2 @@ +C=== rzbuff.inc ================================================ + COMMON /RZBUFF/ ITEST(8704) diff --git a/misc/minicern/src/rzch.inc b/misc/minicern/src/rzch.inc new file mode 100644 index 0000000000000..638e95605951a --- /dev/null +++ b/misc/minicern/src/rzch.inc @@ -0,0 +1,3 @@ +C=== rzch.inc ================================================== + COMMON /RZCH/ CHWOLD,CHL + CHARACTER*255 CHWOLD,CHL diff --git a/misc/minicern/src/rzckey.inc b/misc/minicern/src/rzckey.inc new file mode 100644 index 0000000000000..18fb1878ceec7 --- /dev/null +++ b/misc/minicern/src/rzckey.inc @@ -0,0 +1,2 @@ +C=== rzckey.inc ================================================ + COMMON/RZCKEY/IHEAD(3),KEY(100),KEY2(100),KEYDUM(50) diff --git a/misc/minicern/src/rzcl.inc b/misc/minicern/src/rzcl.inc new file mode 100644 index 0000000000000..530f138bff4ef --- /dev/null +++ b/misc/minicern/src/rzcl.inc @@ -0,0 +1,4 @@ +C=== rzcl.inc ================================================== + COMMON /RZCL/ LTOP,LRZ0,LCDIR,LRIN,LROUT,LFREE,LUSED,LPURG + +, LTEMP,LCORD,LFROM + EQUIVALENCE (LQRS,LQSYSS(7)) diff --git a/misc/minicern/src/rzcls.inc b/misc/minicern/src/rzcls.inc new file mode 100644 index 0000000000000..abf835b1fab8b --- /dev/null +++ b/misc/minicern/src/rzcls.inc @@ -0,0 +1,3 @@ +C=== rzcls.inc ================================================= + INCLUDE 'rzcl.inc' + INCLUDE 'rzclun.inc' diff --git a/misc/minicern/src/rzclun.inc b/misc/minicern/src/rzclun.inc new file mode 100644 index 0000000000000..52d199dee2e58 --- /dev/null +++ b/misc/minicern/src/rzclun.inc @@ -0,0 +1,3 @@ +C=== rzclun.inc ================================================ + COMMON /RZCLUN/LUN,LREC,ISAVE,IMODEX,IRELAT,NHPWD,IHPWD(2) + +, IZRECL,IMODEC,IMODEH diff --git a/misc/minicern/src/rzcount.inc b/misc/minicern/src/rzcount.inc new file mode 100644 index 0000000000000..35945726a029c --- /dev/null +++ b/misc/minicern/src/rzcount.inc @@ -0,0 +1,2 @@ +C=== rzcount.inc =============================================== + COMMON/RZCOUNT/RZXIO(2) diff --git a/misc/minicern/src/rzcout.inc b/misc/minicern/src/rzcout.inc new file mode 100644 index 0000000000000..293bde7fd9bb1 --- /dev/null +++ b/misc/minicern/src/rzcout.inc @@ -0,0 +1,2 @@ +C=== rzcout.inc ================================================ + COMMON /RZCOUT/IP1,IR1,IR2,IROUT,IRLOUT,IOPTRR diff --git a/misc/minicern/src/rzcycle.inc b/misc/minicern/src/rzcycle.inc new file mode 100644 index 0000000000000..adb14e1cb9346 --- /dev/null +++ b/misc/minicern/src/rzcycle.inc @@ -0,0 +1,5 @@ +C=== rzcycle.inc =============================================== + INTEGER KLCYCL, KPPCYC, KFRCYC, KSRCYC, KFLCYC, KORCYC, + + KCNCYC, KNWCYC, KKYCYC, KVSCYC + COMMON/RZCYCLE/KLCYCL, KPPCYC, KFRCYC, KSRCYC, KFLCYC, KORCYC, + + KCNCYC, KNWCYC, KKYCYC, KVSCYC diff --git a/misc/minicern/src/rzdir.inc b/misc/minicern/src/rzdir.inc new file mode 100644 index 0000000000000..65521d274c5bb --- /dev/null +++ b/misc/minicern/src/rzdir.inc @@ -0,0 +1,4 @@ +C=== rzdir.inc ================================================= + COMMON /RZDIRN/NLCDIR,NLNDIR,NLPAT + COMMON /RZDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) + CHARACTER*16 CHNDIR, CHCDIR, CHPAT diff --git a/misc/minicern/src/rzpars.inc b/misc/minicern/src/rzpars.inc new file mode 100644 index 0000000000000..3cb32e56d63e5 --- /dev/null +++ b/misc/minicern/src/rzpars.inc @@ -0,0 +1,6 @@ +C=== rzpars.inc ================================================ + PARAMETER (MAXFILES=128, MAXSTRIP=21) + CHARACTER*128 RZNAMES(MAXFILES),RZSFILE(MAXSTRIP) + COMMON/RZCSTRC/RZNAMES,RZSFILE + COMMON/RZCSTRI/ISLAST,ISTRIP(MAXFILES),NSTRIP(MAXFILES), + + NRSTRIP(MAXFILES) diff --git a/misc/minicern/src/slate.inc b/misc/minicern/src/slate.inc new file mode 100644 index 0000000000000..947d1fe7e75ba --- /dev/null +++ b/misc/minicern/src/slate.inc @@ -0,0 +1,2 @@ +C=== slate.inc ================================================= + COMMON /SLATE/ DUMMY(8), MM(4), DUMB(28) diff --git a/misc/minicern/src/zbcd.inc b/misc/minicern/src/zbcd.inc new file mode 100644 index 0000000000000..b66091b55192d --- /dev/null +++ b/misc/minicern/src/zbcd.inc @@ -0,0 +1,8 @@ +C=== zbcd.inc ================================================== + COMMON /ZBCD/ IQNUM2(11),IQLETT(26),IQNUM(10), IQPLUS,IQMINS + +, IQSTAR,IQSLAS,IQOPEN,IQCLOS,IQDOLL,IQEQU, IQBLAN + +, IQCOMA,IQDOT, IQNUMB,IQAPO, IQEXCL,IQCOLO,IQQUOT + +, IQUNDE,IQCLSQ,IQAND, IQAT, IQQUES,IQOPSQ,IQGREA + +, IQLESS,IQREVE,IQCIRC,IQSEMI,IQPERC, IQLOWL(26) + +, IQCROP,IQVERT,IQCRCL,IQNOT, IQGRAV, IQILEG + +, NQHOL0,NQHOLL(95) diff --git a/misc/minicern/src/zbcdh.inc b/misc/minicern/src/zbcdh.inc new file mode 100644 index 0000000000000..53ea5c2826037 --- /dev/null +++ b/misc/minicern/src/zbcdh.inc @@ -0,0 +1,6 @@ +C=== zbcdh.inc ================================================= + CHARACTER CQALLC*96 + COMMON /ZBCDCH/ CQALLC + CHARACTER*1 CQLETT(96), CQNUM(10) + EQUIVALENCE (CQLETT(1),CQALLC(1:1)) + EQUIVALENCE (CQNUM(1), CQALLC(27:27)) diff --git a/misc/minicern/src/zbits.inc b/misc/minicern/src/zbits.inc new file mode 100644 index 0000000000000..e9d7035f9e9a2 --- /dev/null +++ b/misc/minicern/src/zbits.inc @@ -0,0 +1,12 @@ +C=== zbits.inc ================================================= + INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, + + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, + + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, + + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, + + ZID, ZNTMP, ZNTMP1, ZLINK + PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, + + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, + + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, + + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, + + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, + + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) diff --git a/misc/minicern/src/zceta.inc b/misc/minicern/src/zceta.inc new file mode 100644 index 0000000000000..185676bab8e58 --- /dev/null +++ b/misc/minicern/src/zceta.inc @@ -0,0 +1,3 @@ +C=== zceta.inc ================================================= + PARAMETER (NQTCET=256) + COMMON /ZCETA/ IQCETA(256),IQTCET(256) diff --git a/misc/minicern/src/zebra.f b/misc/minicern/src/zebra.f index 80477ee9bfa50..dca35c7f7576a 100644 --- a/misc/minicern/src/zebra.f +++ b/misc/minicern/src/zebra.f @@ -7,56 +7,22 @@ *------------------------------------------------------------------------------- SUBROUTINE MZEBRA (LIST) - COMMON /ZBCD/ IQNUM2(11),IQLETT(26),IQNUM(10), IQPLUS,IQMINS - +, IQSTAR,IQSLAS,IQOPEN,IQCLOS,IQDOLL,IQEQU, IQBLAN - +, IQCOMA,IQDOT, IQNUMB,IQAPO, IQEXCL,IQCOLO,IQQUOT - +, IQUNDE,IQCLSQ,IQAND, IQAT, IQQUES,IQOPSQ,IQGREA - +, IQLESS,IQREVE,IQCIRC,IQSEMI,IQPERC, IQLOWL(26) - +, IQCROP,IQVERT,IQCRCL,IQNOT, IQGRAV, IQILEG - +, NQHOL0,NQHOLL(95) - CHARACTER CQALLC*96 - COMMON /ZBCDCH/ CQALLC - CHARACTER*1 CQLETT(96), CQNUM(10) - EQUIVALENCE (CQLETT(1),CQALLC(1:1)) - EQUIVALENCE (CQNUM(1), CQALLC(27:27)) - PARAMETER (NQTCET=256) - COMMON /ZCETA/ IQCETA(256),IQTCET(256) - COMMON /ZHEADP/IQHEAD(20),IQDATE,IQTIME,IQPAGE,NQPAGE(4) - PARAMETER (IQBITW=32, IQBITC=8, IQCHAW=4) - COMMON /ZMACH/ NQBITW,NQBITC,NQCHAW - +, NQLNOR,NQLMAX,NQLPTH,NQRMAX,IQLPCT,IQNIL - COMMON /ZNATUR/QPI2,QPI,QPIBY2,QPBYHR - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCL/ NQLN,NQLS,NQNIO,NQID,NQNL,NQNS,NQND,NQIOCH(16) - +, LQSUP,NQBIA, NQIOSV(3) - COMMON /JZUC/ LQJZ,LQUP,LQDW,LQSV,LQAN, JQLEV,JQFLAG(10) - COMMON/RZCOUNT/RZXIO(2) - COMMON /RZCLUN/LUN,LREC,ISAVE,IMODEX,IRELAT,NHPWD,IHPWD(2) - +, IZRECL,IMODEC,IMODEH - PARAMETER (MAXFILES=128, MAXSTRIP=21) - CHARACTER*128 RZNAMES(MAXFILES),RZSFILE(MAXSTRIP) - COMMON/RZCSTRC/RZNAMES,RZSFILE - COMMON/RZCSTRI/ISLAST,ISTRIP(MAXFILES),NSTRIP(MAXFILES), - + NRSTRIP(MAXFILES) + INCLUDE 'zbcd.inc' + INCLUDE 'zbcdh.inc' + INCLUDE 'zceta.inc' + INCLUDE 'zheadp.inc' + INCLUDE 'zmach.inc' + INCLUDE 'znatur.inc' + INCLUDE 'zstate.inc' + INCLUDE 'zunit.inc' + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcl.inc' + INCLUDE 'jzuc.inc' + INCLUDE 'rzcount.inc' + INCLUDE 'rzclun.inc' + INCLUDE 'rzpars.inc' CHARACTER*4 CVERSN DIMENSION LIST(9), INKEYS(3) DATA INKEYS / 4HEBRA, 4HINIT, 4HDONE / @@ -81,31 +47,16 @@ SUBROUTINE MZEBRA (LIST) *------------------------------------------------------------------------------- SUBROUTINE MZINCO (LIST) - COMMON /ZBCD/ IQNUM2(11),IQLETT(26),IQNUM(10), IQPLUS,IQMINS - +, IQSTAR,IQSLAS,IQOPEN,IQCLOS,IQDOLL,IQEQU, IQBLAN - +, IQCOMA,IQDOT, IQNUMB,IQAPO, IQEXCL,IQCOLO,IQQUOT - +, IQUNDE,IQCLSQ,IQAND, IQAT, IQQUES,IQOPSQ,IQGREA - +, IQLESS,IQREVE,IQCIRC,IQSEMI,IQPERC, IQLOWL(26) - +, IQCROP,IQVERT,IQCRCL,IQNOT, IQGRAV, IQILEG - +, NQHOL0,NQHOLL(95) - CHARACTER CQALLC*96 - COMMON /ZBCDCH/ CQALLC - CHARACTER*1 CQLETT(96), CQNUM(10) - EQUIVALENCE (CQLETT(1),CQALLC(1:1)) - EQUIVALENCE (CQNUM(1), CQALLC(27:27)) - PARAMETER (NQTCET=256) - COMMON /ZCETA/ IQCETA(256),IQTCET(256) - COMMON /ZHEADP/IQHEAD(20),IQDATE,IQTIME,IQPAGE,NQPAGE(4) - PARAMETER (IQBITW=32, IQBITC=8, IQCHAW=4) - COMMON /ZMACH/ NQBITW,NQBITC,NQCHAW - +, NQLNOR,NQLMAX,NQLPTH,NQRMAX,IQLPCT,IQNIL - COMMON /ZNATUR/QPI2,QPI,QPIBY2,QPBYHR - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED - COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'zbcd.inc' + INCLUDE 'zbcdh.inc' + INCLUDE 'zceta.inc' + INCLUDE 'zheadp.inc' + INCLUDE 'zmach.inc' + INCLUDE 'znatur.inc' + INCLUDE 'zstate.inc' + INCLUDE 'zunit.inc' + INCLUDE 'zvfaut.inc' + INCLUDE 'quest.inc' DIMENSION LIST(9) JBIT(IZW,IZP) = IAND(ISHFT(IZW,-(IZP-1)),1) CALL VZEROI (IQUEST,100) @@ -202,8 +153,7 @@ SUBROUTINE MZINCO (LIST) *------------------------------------------------------------------------------- SUBROUTINE MZPAW (NWORDS,CHOPT) - COMMON /PAWC/ NWPAW,IXPAWC,IHBOOK,IXHIGZ,IXKU,IFENCE(5) - +, LMAIN, IPAW(4000000-11) + INCLUDE 'pawc.inc' CHARACTER *(*) CHOPT CALL UOPTC (CHOPT,'M',IPAW) IF (IPAW(1).NE.0) CALL MZEBRA(-1) @@ -211,7 +161,7 @@ SUBROUTINE MZPAW (NWORDS,CHOPT) CALL MZSTOR (IXPAWC,'/PAWC/',' ',IFENCE,LMAIN,IPAW(1),IPAW(1), + IPAW(5000),IPAW(NW-11)) NWPAW = NW - IHBOOK = 0 + IHDIV = 0 IXHIGZ = 0 IXKU = 0 END @@ -220,48 +170,15 @@ SUBROUTINE MZPAW (NWORDS,CHOPT) SUBROUTINE MZSTOR (IXSTOR,CHNAME,CHOPT +, IFENCE,LV,LLR,LLD,LIMIT,LAST) - COMMON /ZBCD/ IQNUM2(11),IQLETT(26),IQNUM(10), IQPLUS,IQMINS - +, IQSTAR,IQSLAS,IQOPEN,IQCLOS,IQDOLL,IQEQU, IQBLAN - +, IQCOMA,IQDOT, IQNUMB,IQAPO, IQEXCL,IQCOLO,IQQUOT - +, IQUNDE,IQCLSQ,IQAND, IQAT, IQQUES,IQOPSQ,IQGREA - +, IQLESS,IQREVE,IQCIRC,IQSEMI,IQPERC, IQLOWL(26) - +, IQCROP,IQVERT,IQCRCL,IQNOT, IQGRAV, IQILEG - +, NQHOL0,NQHOLL(95) - PARAMETER (IQBITW=32, IQBITC=8, IQCHAW=4) - COMMON /ZMACH/ NQBITW,NQBITC,NQCHAW - +, NQLNOR,NQLMAX,NQLPTH,NQRMAX,IQLPCT,IQNIL - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) - PARAMETER (NQWKTT=2560) - COMMON /MZCWK/ IQWKTB(NQWKTT), IQWKFZ(NQWKTT) + INCLUDE 'zbcd.inc' + INCLUDE 'zmach.inc' + INCLUDE 'zstate.inc' + INCLUDE 'zunit.inc' + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' + INCLUDE 'mzcwk.inc' * DIMENSION IXSTOR(9),IFENCE(9) DIMENSION LV(9),LLR(9),LLD(9),LIMIT(9),LAST(9) @@ -458,18 +375,12 @@ SUBROUTINE MZSTOR (IXSTOR,CHNAME,CHOPT *------------------------------------------------------------------------------- SUBROUTINE RZOPEN(LUNIN,CHDIR,CFNAME,CHOPTT,LRECL,ISTAT) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED - COMMON/RZCKEY/IHEAD(3),KEY(100),KEY2(100),KEYDUM(50) - COMMON /RZCLUN/LUN,LREC,ISAVE,IMODEX,IRELAT,NHPWD,IHPWD(2) - +, IZRECL,IMODEC,IMODEH - COMMON /QUEST/ IQUEST(100) - COMMON /RZBUFF/ ITEST(8704) - PARAMETER (MAXFILES=128, MAXSTRIP=21) - CHARACTER*128 RZNAMES(MAXFILES),RZSFILE(MAXSTRIP) - COMMON/RZCSTRC/RZNAMES,RZSFILE - COMMON/RZCSTRI/ISLAST,ISTRIP(MAXFILES),NSTRIP(MAXFILES), - + NRSTRIP(MAXFILES) + INCLUDE 'zunit.inc' + INCLUDE 'rzckey.inc' + INCLUDE 'rzclun.inc' + INCLUDE 'quest.inc' + INCLUDE 'rzbuff.inc' + INCLUDE 'rzpars.inc' integer cfstat,statf,info(12) CHARACTER*(*) CFNAME,CHDIR,CHOPTT CHARACTER*9 SPACES @@ -697,46 +608,15 @@ SUBROUTINE RZOPEN(LUNIN,CHDIR,CFNAME,CHOPTT,LRECL,ISTAT) *------------------------------------------------------------------------------- SUBROUTINE RZIODO(LUNRZ,JREC,IREC1,IBUF,IRW) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) - COMMON /RZCL/ LTOP,LRZ0,LCDIR,LRIN,LROUT,LFREE,LUSED,LPURG - +, LTEMP,LCORD,LFROM - EQUIVALENCE (LQRS,LQSYSS(7)) - COMMON /RZCLUN/LUN,LREC,ISAVE,IMODEX,IRELAT,NHPWD,IHPWD(2) - +, IZRECL,IMODEC,IMODEH - COMMON /RZBUFF/ ITEST(8704) - COMMON/RZCOUNT/RZXIO(2) - PARAMETER (MAXFILES=128, MAXSTRIP=21) - CHARACTER*128 RZNAMES(MAXFILES),RZSFILE(MAXSTRIP) - COMMON/RZCSTRC/RZNAMES,RZSFILE - COMMON/RZCSTRI/ISLAST,ISTRIP(MAXFILES),NSTRIP(MAXFILES), - + NRSTRIP(MAXFILES) + INCLUDE 'zunit.inc' + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' + INCLUDE 'rzcls.inc' + INCLUDE 'rzbuff.inc' + INCLUDE 'rzcount.inc' + INCLUDE 'rzpars.inc' DIMENSION IBUF(JREC) PARAMETER (MEDIUM=0) JBYT(IZW,IZP,NZB) = ISHFT(ISHFT(IZW,33-IZP-NZB),-(32-NZB)) @@ -802,44 +682,13 @@ SUBROUTINE RZIODO(LUNRZ,JREC,IREC1,IBUF,IRW) *------------------------------------------------------------------------------- SUBROUTINE RZVCYC(LTAD) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) - COMMON /RZCL/ LTOP,LRZ0,LCDIR,LRIN,LROUT,LFREE,LUSED,LPURG - +, LTEMP,LCORD,LFROM - EQUIVALENCE (LQRS,LQSYSS(7)) - PARAMETER (KUP=5,KPW1=7,KNCH=9,KDATEC=10,KDATEM=11,KQUOTA=12, - + KRUSED=13,KWUSED=14,KMEGA=15,KRZVER=16,KIRIN=17, - + KIROUT=18,KRLOUT=19,KIP1=20,KNFREE=22,KNSD=23,KLD=24, - + KLB=25,KLS=26,KLK=27,KLF=28,KLC=29,KLE=30,KNKEYS=31, - + KNWKEY=32,KKDES=33,KNSIZE=253,KEX=6,KNMAX=100) - INTEGER KLCYCL, KPPCYC, KFRCYC, KSRCYC, KFLCYC, KORCYC, - + KCNCYC, KNWCYC, KKYCYC, KVSCYC - COMMON/RZCYCLE/KLCYCL, KPPCYC, KFRCYC, KSRCYC, KFLCYC, KORCYC, - + KCNCYC, KNWCYC, KKYCYC, KVSCYC + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' + INCLUDE 'rzcl.inc' + INCLUDE 'zkpars.inc' + INCLUDE 'rzcycle.inc' IF (LTAD.EQ.0) GO TO 99 IF (IQ(KQSP+LTAD+KRZVER).EQ.0) THEN KLCYCL = 4 @@ -870,42 +719,12 @@ SUBROUTINE RZVCYC(LTAD) *------------------------------------------------------------------------------- SUBROUTINE RZIN(IXDIV,LSUP,JBIAS,KEYU,ICYCLE,CHOPT) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) - COMMON /RZCL/ LTOP,LRZ0,LCDIR,LRIN,LROUT,LFREE,LUSED,LPURG - +, LTEMP,LCORD,LFROM - EQUIVALENCE (LQRS,LQSYSS(7)) - COMMON /RZCLUN/LUN,LREC,ISAVE,IMODEX,IRELAT,NHPWD,IHPWD(2) - +, IZRECL,IMODEC,IMODEH - PARAMETER (KUP=5,KPW1=7,KNCH=9,KDATEC=10,KDATEM=11,KQUOTA=12, - + KRUSED=13,KWUSED=14,KMEGA=15,KRZVER=16,KIRIN=17, - + KIROUT=18,KRLOUT=19,KIP1=20,KNFREE=22,KNSD=23,KLD=24, - + KLB=25,KLS=26,KLK=27,KLF=28,KLC=29,KLE=30,KNKEYS=31, - + KNWKEY=32,KKDES=33,KNSIZE=253,KEX=6,KNMAX=100) + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' + INCLUDE 'rzcls.inc' + INCLUDE 'zkpars.inc' CHARACTER*(*) CHOPT DIMENSION KEYU(*) DIMENSION LSUP(1),JBIAS(1),IQK(10),IQKS(10) @@ -964,59 +783,18 @@ SUBROUTINE RZIN(IXDIV,LSUP,JBIAS,KEYU,ICYCLE,CHOPT) *------------------------------------------------------------------------------- SUBROUTINE RZINS(IXDIVP,LSUPP,JBIASP,LBANK) - PARAMETER (IQBITW=32, IQBITC=8, IQCHAW=4) - COMMON /ZMACH/ NQBITW,NQBITC,NQCHAW - +, NQLNOR,NQLMAX,NQLPTH,NQRMAX,IQLPCT,IQNIL - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE - COMMON /MZIOC/ NWFOAV,NWFOTT,NWFODN,NWFORE,IFOCON(3) - +, MFOSAV(2), JFOEND,JFOREP,JFOCUR,MFO(200) - COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL - COMMON /FZCI/ LUNI,LUNNI,IXDIVI,LTEMPI,IEVFLI - +, MSTATI,MEDIUI,IFIFOI,IDAFOI,IACMOI,IUPAKI - +, IADOPI,IACTVI,INCBPI,LOGLVI,MAXREI, ISTENI - +, LBPARI, L4STOI,L4STAI,L4CURI,L4ENDI - +, IFLAGI,NFASTI,N4SKII,N4RESI,N4DONI,N4ENDI - +, IOPTIE,IOPTIR,IOPTIS,IOPTIA,IOPTIT,IOPTID - +, IOPTIF,IOPTIG,IOPTIH,IOPTI2(4) - +, IDI(2),IPILI(4),NWTXI,NWSEGI,NWTABI,NWBKI,LENTRI - +, NWUHCI,IOCHI(16),NWUMXI,NWUHI,NWIOI - +, NWRDAI,NRECAI,LUHEAI,JRETCD,JERROR,NWERR - PARAMETER (JAUIOC=50, JAUSEG=68, JAUEAR=130) - COMMON /FZCSEG/NQSEG,IQSEGH(2,20),IQSEGD(20),IQSGLU,IQSGWK - COMMON /FZCOCC/NQOCC,IQOCDV(20),IQOCSP(20) - COMMON /RZCLUN/LUN,LREC,ISAVE,IMODEX,IRELAT,NHPWD,IHPWD(2) - +, IZRECL,IMODEC,IMODEH + INCLUDE 'zmach.inc' + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' + INCLUDE 'mzct.inc' + INCLUDE 'mzioc.inc' + INCLUDE 'mzcn.inc' + INCLUDE 'fzci.inc' + INCLUDE 'jauioc.inc' + INCLUDE 'fzc.inc' + INCLUDE 'rzclun.inc' DIMENSION IXDIVP(9),LSUPP(9),JBIASP(9),IDUM(3) EQUIVALENCE (IOPTR,IQUEST(95)) JBYT(IZW,IZP,NZB) = ISHFT(ISHFT(IZW,33-IZP-NZB),-(32-NZB)) @@ -1136,14 +914,8 @@ SUBROUTINE RZINS(IXDIVP,LSUPP,JBIASP,LBANK) *------------------------------------------------------------------------------- SUBROUTINE ZITOH (INTV,IHOLL,NP) - COMMON /ZBCD/ IQNUM2(11),IQLETT(26),IQNUM(10), IQPLUS,IQMINS - +, IQSTAR,IQSLAS,IQOPEN,IQCLOS,IQDOLL,IQEQU, IQBLAN - +, IQCOMA,IQDOT, IQNUMB,IQAPO, IQEXCL,IQCOLO,IQQUOT - +, IQUNDE,IQCLSQ,IQAND, IQAT, IQQUES,IQOPSQ,IQGREA - +, IQLESS,IQREVE,IQCIRC,IQSEMI,IQPERC, IQLOWL(26) - +, IQCROP,IQVERT,IQCRCL,IQNOT, IQGRAV, IQILEG - +, NQHOL0,NQHOLL(95) - COMMON /SLATE/ DUMMY(8), MM(4), DUMB(28) + INCLUDE 'zbcd.inc' + INCLUDE 'slate.inc' DIMENSION INTV(99), IHOLL(99), NP(9) DIMENSION MPAK(2) DATA MPAK /6,4/ @@ -1161,32 +933,10 @@ SUBROUTINE ZITOH (INTV,IHOLL,NP) *------------------------------------------------------------------------------- SUBROUTINE MZRESV - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' JBIT(IZW,IZP) = IAND(ISHFT(IZW,-(IZP-1)),1) JBYT(IZW,IZP,NZB) = ISHFT(ISHFT(IZW,33-IZP-NZB),-(32-NZB)) JQDIVR = JQDIVI @@ -1242,42 +992,12 @@ SUBROUTINE MZRESV *------------------------------------------------------------------------------- SUBROUTINE RZSAVE - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) - COMMON /RZCL/ LTOP,LRZ0,LCDIR,LRIN,LROUT,LFREE,LUSED,LPURG - +, LTEMP,LCORD,LFROM - EQUIVALENCE (LQRS,LQSYSS(7)) - COMMON /RZCLUN/LUN,LREC,ISAVE,IMODEX,IRELAT,NHPWD,IHPWD(2) - +, IZRECL,IMODEC,IMODEH - PARAMETER (KUP=5,KPW1=7,KNCH=9,KDATEC=10,KDATEM=11,KQUOTA=12, - + KRUSED=13,KWUSED=14,KMEGA=15,KRZVER=16,KIRIN=17, - + KIROUT=18,KRLOUT=19,KIP1=20,KNFREE=22,KNSD=23,KLD=24, - + KLB=25,KLS=26,KLK=27,KLF=28,KLC=29,KLE=30,KNKEYS=31, - + KNWKEY=32,KKDES=33,KNSIZE=253,KEX=6,KNMAX=100) + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' + INCLUDE 'rzcls.inc' + INCLUDE 'zkpars.inc' JBIT(IZW,IZP) = IAND(ISHFT(IZW,-(IZP-1)),1) IF(LQRS.EQ.0)GO TO 99 IF(LTOP.EQ.0)GO TO 99 @@ -1370,9 +1090,8 @@ SUBROUTINE RZSAVE *------------------------------------------------------------------------------- SUBROUTINE FZICV (MS,IRMT) - COMMON /QUEST/ IQUEST(100) - COMMON /MZIOC/ NWFOAV,NWFOTT,NWFODN,NWFORE,IFOCON(3) - +, MFOSAV(2), JFOEND,JFOREP,JFOCUR,MFO(200) + INCLUDE 'quest.inc' + INCLUDE 'mzioc.inc' DIMENSION MS(99), IRMT(99) DOUBLE PRECISION THDB DIMENSION THIS(2) @@ -1472,64 +1191,19 @@ SUBROUTINE FZICV (MS,IRMT) *------------------------------------------------------------------------------- SUBROUTINE FZIREL - COMMON /ZBCD/ IQNUM2(11),IQLETT(26),IQNUM(10), IQPLUS,IQMINS - +, IQSTAR,IQSLAS,IQOPEN,IQCLOS,IQDOLL,IQEQU, IQBLAN - +, IQCOMA,IQDOT, IQNUMB,IQAPO, IQEXCL,IQCOLO,IQQUOT - +, IQUNDE,IQCLSQ,IQAND, IQAT, IQQUES,IQOPSQ,IQGREA - +, IQLESS,IQREVE,IQCIRC,IQSEMI,IQPERC, IQLOWL(26) - +, IQCROP,IQVERT,IQCRCL,IQNOT, IQGRAV, IQILEG - +, NQHOL0,NQHOLL(95) - PARAMETER (IQBITW=32, IQBITC=8, IQCHAW=4) - COMMON /ZMACH/ NQBITW,NQBITC,NQCHAW - +, NQLNOR,NQLMAX,NQLPTH,NQRMAX,IQLPCT,IQNIL - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'zbcd.inc' + INCLUDE 'zmach.inc' + INCLUDE 'zunit.inc' + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' EQUIVALENCE (LQFS,LQSYSS(4)), (LQFF,LQSYSR(4)) +, (LQFI,LQSYSR(5)), (LQFX,LQSYSR(6)) - COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE - COMMON /FZCI/ LUNI,LUNNI,IXDIVI,LTEMPI,IEVFLI - +, MSTATI,MEDIUI,IFIFOI,IDAFOI,IACMOI,IUPAKI - +, IADOPI,IACTVI,INCBPI,LOGLVI,MAXREI, ISTENI - +, LBPARI, L4STOI,L4STAI,L4CURI,L4ENDI - +, IFLAGI,NFASTI,N4SKII,N4RESI,N4DONI,N4ENDI - +, IOPTIE,IOPTIR,IOPTIS,IOPTIA,IOPTIT,IOPTID - +, IOPTIF,IOPTIG,IOPTIH,IOPTI2(4) - +, IDI(2),IPILI(4),NWTXI,NWSEGI,NWTABI,NWBKI,LENTRI - +, NWUHCI,IOCHI(16),NWUMXI,NWUHI,NWIOI - +, NWRDAI,NRECAI,LUHEAI,JRETCD,JERROR,NWERR - PARAMETER (JAUIOC=50, JAUSEG=68, JAUEAR=130) + INCLUDE 'mzcn.inc' + INCLUDE 'mzct.inc' + INCLUDE 'fzci.inc' + INCLUDE 'jauioc.inc' DIMENSION LADESV(6) DIMENSION NAMESR(2) DATA NAMESR / 4HFZIR, 4HEL / @@ -1617,39 +1291,12 @@ SUBROUTINE FZIREL *------------------------------------------------------------------------------- SUBROUTINE FZILIN - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) - COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' + INCLUDE 'mzcn.inc' + INCLUDE 'mzct.inc' IQFOUL = 0 LENTRI = 0 K = 0 @@ -1682,36 +1329,12 @@ SUBROUTINE FZILIN *------------------------------------------------------------------------------- SUBROUTINE MZCHLS (IXST,LP) - PARAMETER (IQBITW=32, IQBITC=8, IQCHAW=4) - COMMON /ZMACH/ NQBITW,NQBITC,NQCHAW - +, NQLNOR,NQLMAX,NQLPTH,NQRMAX,IQLPCT,IQNIL - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) - COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL + INCLUDE 'zmach.inc' + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' + INCLUDE 'mzcn.inc' DIMENSION IXST(9), LP(9) JBYT(IZW,IZP,NZB) = ISHFT(ISHFT(IZW,33-IZP-NZB),-(32-NZB)) IXSTOR = IXST(1) @@ -1745,41 +1368,12 @@ SUBROUTINE MZCHLS (IXST,LP) *------------------------------------------------------------------------------- SUBROUTINE MZBOOK (IXP,LP,LSUPP,JBP, CHIDH,NL,NS,ND,NIOP,NZP) - COMMON /ZBCD/ IQNUM2(11),IQLETT(26),IQNUM(10), IQPLUS,IQMINS - +, IQSTAR,IQSLAS,IQOPEN,IQCLOS,IQDOLL,IQEQU, IQBLAN - +, IQCOMA,IQDOT, IQNUMB,IQAPO, IQEXCL,IQCOLO,IQQUOT - +, IQUNDE,IQCLSQ,IQAND, IQAT, IQQUES,IQOPSQ,IQGREA - +, IQLESS,IQREVE,IQCIRC,IQSEMI,IQPERC, IQLOWL(26) - +, IQCROP,IQVERT,IQCRCL,IQNOT, IQGRAV, IQILEG - +, NQHOL0,NQHOLL(95) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) - COMMON /MZCL/ NQLN,NQLS,NQNIO,NQID,NQNL,NQNS,NQND,NQIOCH(16) - +, LQSUP,NQBIA, NQIOSV(3) + INCLUDE 'zbcd.inc' + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' + INCLUDE 'mzcl.inc' DIMENSION IXP(9),LP(9),LSUPP(9),JBP(9),NIOP(9),NZP(9) CHARACTER CHIDH*(*) DIMENSION NAMESR(2) @@ -1810,52 +1404,20 @@ SUBROUTINE MZBOOK (IXP,LP,LSUPP,JBP, CHIDH,NL,NS,ND,NIOP,NZP) *------------------------------------------------------------------------------- SUBROUTINE MZLIFT (IXDIV,LP,LSUPP,JBIAS,NAME,NZERO) - PARAMETER (IQBITW=32, IQBITC=8, IQCHAW=4) - COMMON /ZMACH/ NQBITW,NQBITC,NQCHAW - +, NQLNOR,NQLMAX,NQLPTH,NQRMAX,IQLPCT,IQNIL - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED - COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'zmach.inc' + INCLUDE 'zstate.inc' + INCLUDE 'zunit.inc' + INCLUDE 'zvfaut.inc' + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' DIMENSION LQMST(9) EQUIVALENCE (LQMST(1),LQSYSS(2)) EQUIVALENCE (LQFORM,LQSYSS(5)) - COMMON /MZCL/ NQLN,NQLS,NQNIO,NQID,NQNL,NQNS,NQND,NQIOCH(16) - +, LQSUP,NQBIA, NQIOSV(3) - COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'mzcl.inc' + INCLUDE 'mzcn.inc' + INCLUDE 'mzct.inc' DIMENSION IXDIV(9), LP(9), LSUPP(9), NAME(9) DIMENSION NAMESR(2) DATA NAMESR / 4HMZLI, 4HFT / @@ -2100,44 +1662,14 @@ SUBROUTINE MZLIFT (IXDIV,LP,LSUPP,JBIAS,NAME,NZERO) *------------------------------------------------------------------------------- SUBROUTINE MZLINK (IXSTOR,CHNAME,LAREA,LREF,LREFL) - COMMON /ZBCD/ IQNUM2(11),IQLETT(26),IQNUM(10), IQPLUS,IQMINS - +, IQSTAR,IQSLAS,IQOPEN,IQCLOS,IQDOLL,IQEQU, IQBLAN - +, IQCOMA,IQDOT, IQNUMB,IQAPO, IQEXCL,IQCOLO,IQQUOT - +, IQUNDE,IQCLSQ,IQAND, IQAT, IQQUES,IQOPSQ,IQGREA - +, IQLESS,IQREVE,IQCIRC,IQSEMI,IQPERC, IQLOWL(26) - +, IQCROP,IQVERT,IQCRCL,IQNOT, IQGRAV, IQILEG - +, NQHOL0,NQHOLL(95) - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED - COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'zbcd.inc' + INCLUDE 'zstate.inc' + INCLUDE 'zunit.inc' + INCLUDE 'zvfaut.inc' + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' DIMENSION LAREA(9),LREF(9),LREFL(9),NAME(2) CHARACTER *(*) CHNAME DIMENSION NAMESR(2) @@ -2237,53 +1769,17 @@ SUBROUTINE MZLINK (IXSTOR,CHNAME,LAREA,LREF,LREFL) *------------------------------------------------------------------------------- SUBROUTINE MZPUSH (IXDIV,LORGP,INCNLP,INCNDP,CHOPT) - COMMON /ZBCD/ IQNUM2(11),IQLETT(26),IQNUM(10), IQPLUS,IQMINS - +, IQSTAR,IQSLAS,IQOPEN,IQCLOS,IQDOLL,IQEQU, IQBLAN - +, IQCOMA,IQDOT, IQNUMB,IQAPO, IQEXCL,IQCOLO,IQQUOT - +, IQUNDE,IQCLSQ,IQAND, IQAT, IQQUES,IQOPSQ,IQGREA - +, IQLESS,IQREVE,IQCIRC,IQSEMI,IQPERC, IQLOWL(26) - +, IQCROP,IQVERT,IQCRCL,IQNOT, IQGRAV, IQILEG - +, NQHOL0,NQHOLL(95) - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED - COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) - COMMON /MZCL/ NQLN,NQLS,NQNIO,NQID,NQNL,NQNS,NQND,NQIOCH(16) - +, LQSUP,NQBIA, NQIOSV(3) - COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'zbcd.inc' + INCLUDE 'zstate.inc' + INCLUDE 'zunit.inc' + INCLUDE 'zvfaut.inc' + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' + INCLUDE 'mzcl.inc' + INCLUDE 'mzcn.inc' + INCLUDE 'mzct.inc' DIMENSION IXDIV(9),LORGP(9),INCNLP(9),INCNDP(9) CHARACTER *(*) CHOPT DIMENSION NAMESR(2) @@ -2525,41 +2021,13 @@ SUBROUTINE MZPUSH (IXDIV,LORGP,INCNLP,INCNDP,CHOPT) *------------------------------------------------------------------------------- SUBROUTINE MZNEED (IXDIV,NEEDP,CHOPT) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED - COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'zunit.inc' + INCLUDE 'zvfaut.inc' + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' + INCLUDE 'mzct.inc' DIMENSION IXDIV(9),NEEDP(9) CHARACTER *(*) CHOPT DIMENSION NAMESR(2) @@ -2639,50 +2107,16 @@ SUBROUTINE RZDATE(IWORD,IDATE,ITIME,ICASE) *------------------------------------------------------------------------------- SUBROUTINE RZCDIR(CHPATH,CHOPT) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) - COMMON /RZCL/ LTOP,LRZ0,LCDIR,LRIN,LROUT,LFREE,LUSED,LPURG - +, LTEMP,LCORD,LFROM - EQUIVALENCE (LQRS,LQSYSS(7)) - PARAMETER (NLPATM=100) - COMMON /RZDIRN/NLCDIR,NLNDIR,NLPAT - COMMON /RZDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) - CHARACTER*16 CHNDIR, CHCDIR, CHPAT - COMMON /RZCH/ CHWOLD,CHL - CHARACTER*255 CHWOLD,CHL - COMMON /RZCLUN/LUN,LREC,ISAVE,IMODEX,IRELAT,NHPWD,IHPWD(2) - +, IZRECL,IMODEC,IMODEH - PARAMETER (KUP=5,KPW1=7,KNCH=9,KDATEC=10,KDATEM=11,KQUOTA=12, - + KRUSED=13,KWUSED=14,KMEGA=15,KRZVER=16,KIRIN=17, - + KIROUT=18,KRLOUT=19,KIP1=20,KNFREE=22,KNSD=23,KLD=24, - + KLB=25,KLS=26,KLK=27,KLF=28,KLC=29,KLE=30,KNKEYS=31, - + KNWKEY=32,KKDES=33,KNSIZE=253,KEX=6,KNMAX=100) + INCLUDE 'zunit.inc' + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' + INCLUDE 'rzcls.inc' + INCLUDE 'nlpatm.inc' + INCLUDE 'rzdir.inc' + INCLUDE 'rzch.inc' + INCLUDE 'zkpars.inc' DIMENSION IOPTV(5) EQUIVALENCE (IOPTR,IOPTV(1)), (IOPTP,IOPTV(2)), (IOPTU,IOPTV(3)) EQUIVALENCE (IOPTK,IOPTV(4)), (IOPTQ,IOPTV(5)) @@ -2796,56 +2230,19 @@ SUBROUTINE RZCDIR(CHPATH,CHOPT) *------------------------------------------------------------------------------- SUBROUTINE RZFILE(LUNIN,CHDIR,CHOPT) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) - COMMON /RZCL/ LTOP,LRZ0,LCDIR,LRIN,LROUT,LFREE,LUSED,LPURG - +, LTEMP,LCORD,LFROM - EQUIVALENCE (LQRS,LQSYSS(7)) - PARAMETER (NLPATM=100) - COMMON /RZDIRN/NLCDIR,NLNDIR,NLPAT - COMMON /RZDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) - CHARACTER*16 CHNDIR, CHCDIR, CHPAT - COMMON /RZCLUN/LUN,LREC,ISAVE,IMODEX,IRELAT,NHPWD,IHPWD(2) - +, IZRECL,IMODEC,IMODEH - PARAMETER (KUP=5,KPW1=7,KNCH=9,KDATEC=10,KDATEM=11,KQUOTA=12, - + KRUSED=13,KWUSED=14,KMEGA=15,KRZVER=16,KIRIN=17, - + KIROUT=18,KRLOUT=19,KIP1=20,KNFREE=22,KNSD=23,KLD=24, - + KLB=25,KLS=26,KLK=27,KLF=28,KLC=29,KLE=30,KNKEYS=31, - + KNWKEY=32,KKDES=33,KNSIZE=253,KEX=6,KNMAX=100) - COMMON/RZCKEY/IHEAD(3),KEY(100),KEY2(100),KEYDUM(50) - INTEGER KLCYCL, KPPCYC, KFRCYC, KSRCYC, KFLCYC, KORCYC, - + KCNCYC, KNWCYC, KKYCYC, KVSCYC - COMMON/RZCYCLE/KLCYCL, KPPCYC, KFRCYC, KSRCYC, KFLCYC, KORCYC, - + KCNCYC, KNWCYC, KKYCYC, KVSCYC - COMMON /RZBUFF/ ITEST(8704) + INCLUDE 'zunit.inc' + INCLUDE 'zstate.inc' + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' + INCLUDE 'rzcls.inc' + INCLUDE 'nlpatm.inc' + INCLUDE 'rzdir.inc' + INCLUDE 'zkpars.inc' + INCLUDE 'rzckey.inc' + INCLUDE 'rzcycle.inc' + INCLUDE 'rzbuff.inc' CHARACTER CHOPT*(*),CHDIR*(*) CHARACTER*16 CHTOP DIMENSION IOPTV(10) @@ -3028,54 +2425,17 @@ SUBROUTINE RZFILE(LUNIN,CHDIR,CHOPT) *------------------------------------------------------------------------------- SUBROUTINE RZFDIR(CHROUT,LT,LDIR,CHOPT) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) - COMMON /RZCL/ LTOP,LRZ0,LCDIR,LRIN,LROUT,LFREE,LUSED,LPURG - +, LTEMP,LCORD,LFROM - EQUIVALENCE (LQRS,LQSYSS(7)) - PARAMETER (NLPATM=100) - COMMON /RZDIRN/NLCDIR,NLNDIR,NLPAT - COMMON /RZDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) - CHARACTER*16 CHNDIR, CHCDIR, CHPAT - COMMON /RZCH/ CHWOLD,CHL - CHARACTER*255 CHWOLD,CHL - PARAMETER (KUP=5,KPW1=7,KNCH=9,KDATEC=10,KDATEM=11,KQUOTA=12, - + KRUSED=13,KWUSED=14,KMEGA=15,KRZVER=16,KIRIN=17, - + KIROUT=18,KRLOUT=19,KIP1=20,KNFREE=22,KNSD=23,KLD=24, - + KLB=25,KLS=26,KLK=27,KLF=28,KLC=29,KLE=30,KNKEYS=31, - + KNWKEY=32,KKDES=33,KNSIZE=253,KEX=6,KNMAX=100) - INTEGER KLCYCL, KPPCYC, KFRCYC, KSRCYC, KFLCYC, KORCYC, - + KCNCYC, KNWCYC, KKYCYC, KVSCYC - COMMON/RZCYCLE/KLCYCL, KPPCYC, KFRCYC, KSRCYC, KFLCYC, KORCYC, - + KCNCYC, KNWCYC, KKYCYC, KVSCYC - COMMON /RZCLUN/LUN,LREC,ISAVE,IMODEX,IRELAT,NHPWD,IHPWD(2) - +, IZRECL,IMODEC,IMODEH + INCLUDE 'zunit.inc' + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' + INCLUDE 'rzcls.inc' + INCLUDE 'nlpatm.inc' + INCLUDE 'rzdir.inc' + INCLUDE 'rzch.inc' + INCLUDE 'zkpars.inc' + INCLUDE 'rzcycle.inc' CHARACTER*(*) CHROUT CHARACTER*(*) CHOPT DIMENSION IHDIR(4) @@ -3200,66 +2560,20 @@ SUBROUTINE RZFDIR(CHROUT,LT,LDIR,CHOPT) *------------------------------------------------------------------------------- SUBROUTINE FZIMTB - COMMON /ZBCD/ IQNUM2(11),IQLETT(26),IQNUM(10), IQPLUS,IQMINS - +, IQSTAR,IQSLAS,IQOPEN,IQCLOS,IQDOLL,IQEQU, IQBLAN - +, IQCOMA,IQDOT, IQNUMB,IQAPO, IQEXCL,IQCOLO,IQQUOT - +, IQUNDE,IQCLSQ,IQAND, IQAT, IQQUES,IQOPSQ,IQGREA - +, IQLESS,IQREVE,IQCIRC,IQSEMI,IQPERC, IQLOWL(26) - +, IQCROP,IQVERT,IQCRCL,IQNOT, IQGRAV, IQILEG - +, NQHOL0,NQHOLL(95) - PARAMETER (IQBITW=32, IQBITC=8, IQCHAW=4) - COMMON /ZMACH/ NQBITW,NQBITC,NQCHAW - +, NQLNOR,NQLMAX,NQLPTH,NQRMAX,IQLPCT,IQNIL - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'zbcd.inc' + INCLUDE 'zmach.inc' + INCLUDE 'zunit.inc' + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' EQUIVALENCE (LQFS,LQSYSS(4)), (LQFF,LQSYSR(4)) - +, (LQFI,LQSYSR(5)), (LQFX,LQSYSR(6)) - COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE - COMMON /FZCI/ LUNI,LUNNI,IXDIVI,LTEMPI,IEVFLI - +, MSTATI,MEDIUI,IFIFOI,IDAFOI,IACMOI,IUPAKI - +, IADOPI,IACTVI,INCBPI,LOGLVI,MAXREI, ISTENI - +, LBPARI, L4STOI,L4STAI,L4CURI,L4ENDI - +, IFLAGI,NFASTI,N4SKII,N4RESI,N4DONI,N4ENDI - +, IOPTIE,IOPTIR,IOPTIS,IOPTIA,IOPTIT,IOPTID - +, IOPTIF,IOPTIG,IOPTIH,IOPTI2(4) - +, IDI(2),IPILI(4),NWTXI,NWSEGI,NWTABI,NWBKI,LENTRI - +, NWUHCI,IOCHI(16),NWUMXI,NWUHI,NWIOI - +, NWRDAI,NRECAI,LUHEAI,JRETCD,JERROR,NWERR - PARAMETER (JAUIOC=50, JAUSEG=68, JAUEAR=130) - COMMON /FZCSEG/NQSEG,IQSEGH(2,20),IQSEGD(20),IQSGLU,IQSGWK - COMMON /FZCOCC/NQOCC,IQOCDV(20),IQOCSP(20) + +, (LQFI,LQSYSR(5)), (LQFX,LQSYSR(6)) + INCLUDE 'mzcn.inc' + INCLUDE 'mzct.inc' + INCLUDE 'fzci.inc' + INCLUDE 'jauioc.inc' + INCLUDE 'fzc.inc' DIMENSION ITOSOR(20), ISORDV(20), ISORSP(20) DIMENSION LSTAV(20), LENDV(20) EQUIVALENCE (LSTAV(1),IQUEST(60)), (LENDV(1),IQUEST(80)) @@ -3508,10 +2822,9 @@ FUNCTION IUCOMP (ITEXT,IVECT,N) *------------------------------------------------------------------------------- SUBROUTINE IZBCDT (NP,ITABT) - COMMON /QUEST/ IQUEST(100) - PARAMETER (NQTCET=256) - COMMON /ZCETA/ IQCETA(256),IQTCET(256) - COMMON /ZKRAKC/IQHOLK(120), IQKRAK(80), IQCETK(122) + INCLUDE 'quest.inc' + INCLUDE 'zceta.inc' + INCLUDE 'zkrakc.inc' DIMENSION NP(9), ITABT(99) N = NP(1) LIM = ITABT(1) @@ -3549,48 +2862,15 @@ LOGICAL FUNCTION RZSAME(IH1,IH2,N) *------------------------------------------------------------------------------- SUBROUTINE RZINK(KEYU,ICYCLE,CHOPT) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) - COMMON /RZCL/ LTOP,LRZ0,LCDIR,LRIN,LROUT,LFREE,LUSED,LPURG - +, LTEMP,LCORD,LFROM - EQUIVALENCE (LQRS,LQSYSS(7)) - COMMON /RZCLUN/LUN,LREC,ISAVE,IMODEX,IRELAT,NHPWD,IHPWD(2) - +, IZRECL,IMODEC,IMODEH - COMMON /RZCOUT/IP1,IR1,IR2,IROUT,IRLOUT,IOPTRR - PARAMETER (KUP=5,KPW1=7,KNCH=9,KDATEC=10,KDATEM=11,KQUOTA=12, - + KRUSED=13,KWUSED=14,KMEGA=15,KRZVER=16,KIRIN=17, - + KIROUT=18,KRLOUT=19,KIP1=20,KNFREE=22,KNSD=23,KLD=24, - + KLB=25,KLS=26,KLK=27,KLF=28,KLC=29,KLE=30,KNKEYS=31, - + KNWKEY=32,KKDES=33,KNSIZE=253,KEX=6,KNMAX=100) - COMMON/RZCKEY/IHEAD(3),KEY(100),KEY2(100),KEYDUM(50) - INTEGER KLCYCL, KPPCYC, KFRCYC, KSRCYC, KFLCYC, KORCYC, - + KCNCYC, KNWCYC, KKYCYC, KVSCYC - COMMON/RZCYCLE/KLCYCL, KPPCYC, KFRCYC, KSRCYC, KFLCYC, KORCYC, - + KCNCYC, KNWCYC, KKYCYC, KVSCYC + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' + INCLUDE 'rzcls.inc' + INCLUDE 'rzcout.inc' + INCLUDE 'zkpars.inc' + INCLUDE 'rzckey.inc' + INCLUDE 'rzcycle.inc' CHARACTER*(*) CHOPT DIMENSION KEYU(*) EQUIVALENCE (IOPTA,IQUEST(91)), (IOPTC,IQUEST(92)) @@ -3772,7 +3052,7 @@ SUBROUTINE RZPAFF(CH,NL,CHPATH) CHARACTER*(*) CHPATH,CH(*) CHARACTER*255 CHTEMP CHARACTER*16 CHL - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' MAXLEN=LEN(CHPATH) IF(MAXLEN.GT.255)MAXLEN=255 IQUEST(1) = 0 @@ -3805,18 +3085,11 @@ SUBROUTINE RZPAFF(CH,NL,CHPATH) *------------------------------------------------------------------------------- SUBROUTINE RZPATH(CHPATH) - CHARACTER CQALLC*96 - COMMON /ZBCDCH/ CQALLC - CHARACTER*1 CQLETT(96), CQNUM(10) - EQUIVALENCE (CQLETT(1),CQALLC(1:1)) - EQUIVALENCE (CQNUM(1), CQALLC(27:27)) + INCLUDE 'zbcdh.inc' CHARACTER*1 BSLASH,KTILDE - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED - PARAMETER (NLPATM=100) - COMMON /RZDIRN/NLCDIR,NLNDIR,NLPAT - COMMON /RZDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) - CHARACTER*16 CHNDIR, CHCDIR, CHPAT + INCLUDE 'zunit.inc' + INCLUDE 'nlpatm.inc' + INCLUDE 'rzdir.inc' CHARACTER*(*) CHPATH CHARACTER*1 CH1 CHARACTER*2 CH2 @@ -3948,47 +3221,15 @@ SUBROUTINE RZPATH(CHPATH) *------------------------------------------------------------------------------- SUBROUTINE RZREAD(IV,N,IPC,IFORM) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) - COMMON /RZCL/ LTOP,LRZ0,LCDIR,LRIN,LROUT,LFREE,LUSED,LPURG - +, LTEMP,LCORD,LFROM - EQUIVALENCE (LQRS,LQSYSS(7)) - COMMON /RZCLUN/LUN,LREC,ISAVE,IMODEX,IRELAT,NHPWD,IHPWD(2) - +, IZRECL,IMODEC,IMODEH - COMMON /RZCOUT/IP1,IR1,IR2,IROUT,IRLOUT,IOPTRR - PARAMETER (KUP=5,KPW1=7,KNCH=9,KDATEC=10,KDATEM=11,KQUOTA=12, - + KRUSED=13,KWUSED=14,KMEGA=15,KRZVER=16,KIRIN=17, - + KIROUT=18,KRLOUT=19,KIP1=20,KNFREE=22,KNSD=23,KLD=24, - + KLB=25,KLS=26,KLK=27,KLF=28,KLC=29,KLE=30,KNKEYS=31, - + KNWKEY=32,KKDES=33,KNSIZE=253,KEX=6,KNMAX=100) - COMMON /MZIOC/ NWFOAV,NWFOTT,NWFODN,NWFORE,IFOCON(3) - +, MFOSAV(2), JFOEND,JFOREP,JFOCUR,MFO(200) + INCLUDE 'zunit.inc' + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' + INCLUDE 'rzcls.inc' + INCLUDE 'rzcout.inc' + INCLUDE 'zkpars.inc' + INCLUDE 'mzioc.inc' DIMENSION IV(*) NL1=LREC-IP1+1 IF(IPC.LE.NL1)THEN @@ -4150,36 +3391,12 @@ SUBROUTINE RZREAD(IV,N,IPC,IFORM) *------------------------------------------------------------------------------- SUBROUTINE MZCHLN (IXST,LP) - PARAMETER (IQBITW=32, IQBITC=8, IQCHAW=4) - COMMON /ZMACH/ NQBITW,NQBITC,NQCHAW - +, NQLNOR,NQLMAX,NQLPTH,NQRMAX,IQLPCT,IQNIL - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) - COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL + INCLUDE 'zmach.inc' + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' + INCLUDE 'mzcn.inc' DIMENSION IXST(9), LP(9) JBYT(IZW,IZP,NZB) = ISHFT(ISHFT(IZW,33-IZP-NZB),-(32-NZB)) IXSTOR = IXST(1) @@ -4225,32 +3442,10 @@ SUBROUTINE MZCHLN (IXST,LP) *------------------------------------------------------------------------------- SUBROUTINE MZCHNB (LIX) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' DIMENSION LIX(9) DIMENSION NAMESR(2) DATA NAMESR / 4HMZCH, 4HNB / @@ -4271,38 +3466,14 @@ SUBROUTINE MZCHNB (LIX) *------------------------------------------------------------------------------- SUBROUTINE MZDROP (IXSTOR,LHEADP,CHOPT) - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED - COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) - COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL + INCLUDE 'zstate.inc' + INCLUDE 'zunit.inc' + INCLUDE 'zvfaut.inc' + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' + INCLUDE 'mzcn.inc' DIMENSION LHEADP(9) CHARACTER *(*) CHOPT DIMENSION NAMESR(2) @@ -4354,36 +3525,12 @@ SUBROUTINE MZDROP (IXSTOR,LHEADP,CHOPT) *------------------------------------------------------------------------------- FUNCTION MZDVAC (IXDIVP) - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'zstate.inc' + INCLUDE 'zunit.inc' + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' DIMENSION IXDIVP(9) DIMENSION NAMESR(2) DATA NAMESR / 4HMZDV, 4HAC / @@ -4425,43 +3572,14 @@ FUNCTION MZDVAC (IXDIVP) *------------------------------------------------------------------------------- SUBROUTINE MZGARB (IXGP,IXWP) - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED - COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'zstate.inc' + INCLUDE 'zunit.inc' + INCLUDE 'zvfaut.inc' + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' + INCLUDE 'mzct.inc' DIMENSION IXGP(1), IXWP(9) DIMENSION NAMESR(2) DATA NAMESR / 4HMZGA, 4HRB / @@ -4515,44 +3633,15 @@ SUBROUTINE MZGARB (IXGP,IXWP) *------------------------------------------------------------------------------- SUBROUTINE MZGAR1 - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED - COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) - COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'zstate.inc' + INCLUDE 'zunit.inc' + INCLUDE 'zvfaut.inc' + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' + INCLUDE 'mzcn.inc' + INCLUDE 'mzct.inc' DIMENSION NAMESR(2) DATA NAMESR / 4HMZGA, 4HR1 / MSBIT1 (IZW,IZP) = IOR (IZW, ISHFT(1,IZP-1)) @@ -4643,34 +3732,12 @@ SUBROUTINE MZGAR1 *------------------------------------------------------------------------------- SUBROUTINE MZFORM (CHID,CHFORM,IXIOP) - COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) - COMMON /ZKRAKC/IQHOLK(120), IQKRAK(80), IQCETK(122) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'zvfaut.inc' + INCLUDE 'zkrakc.inc' + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' EQUIVALENCE (LQFORM,LQSYSS(5)) EQUIVALENCE (NW,IQUEST(1)) DIMENSION IXIOP(99) @@ -4734,32 +3801,10 @@ SUBROUTINE MZFORM (CHID,CHFORM,IXIOP) *------------------------------------------------------------------------------- FUNCTION MZFDIV (IXST,LIXP) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' DIMENSION IXST(9), LIXP(9) JBYT(IZW,IZP,NZB) = ISHFT(ISHFT(IZW,33-IZP-NZB),-(32-NZB)) IXSTOR = IXST(1) @@ -4788,42 +3833,13 @@ FUNCTION MZFDIV (IXST,LIXP) *------------------------------------------------------------------------------- SUBROUTINE MZFGAP - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'zstate.inc' + INCLUDE 'zunit.inc' + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' + INCLUDE 'mzct.inc' DIMENSION NGAPV(7), JDIVV(7), JSTOV(7), JPV(7) EQUIVALENCE (NGAPV(1),IQUEST(11)), (JDIVV(1),IQUEST(21)) EQUIVALENCE (JSTOV(1),IQUEST(31)), (JPV(1), IQUEST(41)) @@ -4931,39 +3947,12 @@ SUBROUTINE MZFGAP *------------------------------------------------------------------------------- SUBROUTINE MZTABC - COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'mzcn.inc' + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' + INCLUDE 'mzct.inc' EQUIVALENCE (LS,IQLS), (LNX,IQNX) DIMENSION NAMESR(2) DATA NAMESR / 4HMZTA, 4HBC / @@ -5027,42 +4016,13 @@ SUBROUTINE MZTABC *------------------------------------------------------------------------------- SUBROUTINE MZTABF - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'zstate.inc' + INCLUDE 'zunit.inc' + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' + INCLUDE 'mzct.inc' DIMENSION NAMESR(2) DATA NAMESR / 4HMZTA, 4HBF / JBIT(IZW,IZP) = IAND(ISHFT(IZW,-(IZP-1)),1) @@ -5144,42 +4104,13 @@ SUBROUTINE MZTABF *------------------------------------------------------------------------------- SUBROUTINE MZTABH - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'zstate.inc' + INCLUDE 'zunit.inc' + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' + INCLUDE 'mzct.inc' DIMENSION NAMESR(2) DATA NAMESR / 4HMZTA, 4HBH / MQTRAC(NQTRAC+1) = NAMESR(1) @@ -5235,42 +4166,13 @@ SUBROUTINE MZTABH *------------------------------------------------------------------------------- SUBROUTINE MZTABM - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'zstate.inc' + INCLUDE 'zunit.inc' + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' + INCLUDE 'mzct.inc' DIMENSION NAMESR(2) DATA NAMESR / 4HMZTA, 4HBM / JBIT(IZW,IZP) = IAND(ISHFT(IZW,-(IZP-1)),1) @@ -5338,42 +4240,13 @@ SUBROUTINE MZTABM *------------------------------------------------------------------------------- SUBROUTINE MZTABR - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'zstate.inc' + INCLUDE 'zunit.inc' + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' + INCLUDE 'mzct.inc' EQUIVALENCE (LMT,LQMTB) DIMENSION NAMESR(2) DATA NAMESR / 4HMZTA, 4HBR / @@ -5465,38 +4338,11 @@ SUBROUTINE MZTABR *------------------------------------------------------------------------------- SUBROUTINE MZTABS - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' + INCLUDE 'mzct.inc' MSBIT1 (IZW,IZP) = IOR (IZW, ISHFT(1,IZP-1)) LMT = LQMTA 21 LMT = LMT + 8 @@ -5514,38 +4360,11 @@ SUBROUTINE MZTABS *------------------------------------------------------------------------------- SUBROUTINE MZTABX - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' + INCLUDE 'mzct.inc' JBYTET (MZ,IZW,IZP,NZB) = IAND (MZ, + ISHFT (ISHFT(IZW,33-IZP-NZB),-(32-NZB)) ) MERGE = 0 @@ -5569,24 +4388,12 @@ SUBROUTINE MZTABX *------------------------------------------------------------------------------- SUBROUTINE MZIOCH (IODVEC,NWIOMP,CHFORM) - COMMON /ZKRAKC/IQHOLK(120), IQKRAK(80), IQCETK(122) - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED - COMMON /QUEST/ IQUEST(100) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /ZBCD/ IQNUM2(11),IQLETT(26),IQNUM(10), IQPLUS,IQMINS - +, IQSTAR,IQSLAS,IQOPEN,IQCLOS,IQDOLL,IQEQU, IQBLAN - +, IQCOMA,IQDOT, IQNUMB,IQAPO, IQEXCL,IQCOLO,IQQUOT - +, IQUNDE,IQCLSQ,IQAND, IQAT, IQQUES,IQOPSQ,IQGREA - +, IQLESS,IQREVE,IQCIRC,IQSEMI,IQPERC, IQLOWL(26) - +, IQCROP,IQVERT,IQCRCL,IQNOT, IQGRAV, IQILEG - +, NQHOL0,NQHOLL(95) + INCLUDE 'zkrakc.inc' + INCLUDE 'zstate.inc' + INCLUDE 'zunit.inc' + INCLUDE 'quest.inc' + INCLUDE 'mza.inc' + INCLUDE 'zbcd.inc' DIMENSION IODVEC(99), NWIOMP(9) CHARACTER CHFORM*(*) EQUIVALENCE (NGR,IQUEST(1)), (NGRU,IQUEST(2)) @@ -5871,41 +4678,16 @@ SUBROUTINE MZIOCH (IODVEC,NWIOMP,CHFORM) *------------------------------------------------------------------------------- SUBROUTINE MZFLAG (IXSTOR,LHEADP,KBITP,CHOPT) - COMMON /ZLIMIT/LQLIML,LQLIMH - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED - COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) - COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL - PARAMETER (NQWKTT=2560) - COMMON /MZCWK/ IQWKTB(NQWKTT), IQWKFZ(NQWKTT) + INCLUDE 'zlimit.inc' + INCLUDE 'zstate.inc' + INCLUDE 'zunit.inc' + INCLUDE 'zvfaut.inc' + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' + INCLUDE 'mzcn.inc' + INCLUDE 'mzcwk.inc' DIMENSION KBITP(9),LHEADP(9) CHARACTER *(*) CHOPT DIMENSION NAMESR(2) @@ -6009,38 +4791,11 @@ SUBROUTINE MZFLAG (IXSTOR,LHEADP,KBITP,CHOPT) *------------------------------------------------------------------------------- SUBROUTINE MZGSTA (IGARB) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' + INCLUDE 'mzct.inc' DIMENSION IGARB(20) LMT = LQMTA 22 IACT = LQ(LMT+1) @@ -6057,8 +4812,8 @@ SUBROUTINE MZGSTA (IGARB) *------------------------------------------------------------------------------- SUBROUTINE MZIOCF (JUP,MXVAL) - COMMON /ZKRAKC/IQHOLK(120), IQKRAK(80), IQCETK(122) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'zkrakc.inc' + INCLUDE 'quest.inc' DIMENSION MU(99) EQUIVALENCE (MU(1),IQHOLK(1)) EQUIVALENCE (NGR,IQUEST(1)), (NGRU,IQUEST(2)) @@ -6078,9 +4833,8 @@ SUBROUTINE MZIOCF (JUP,MXVAL) *------------------------------------------------------------------------------- SUBROUTINE MZIOCR (IOW) - COMMON /QUEST/ IQUEST(100) - COMMON /MZIOC/ NWFOAV,NWFOTT,NWFODN,NWFORE,IFOCON(3) - +, MFOSAV(2), JFOEND,JFOREP,JFOCUR,MFO(200) + INCLUDE 'quest.inc' + INCLUDE 'mzioc.inc' EQUIVALENCE (JIO,IQUEST(1)) DIMENSION IOW(9) DIMENSION NBITVA(4), NBITVB(4), NBITVC(7) @@ -6204,32 +4958,10 @@ SUBROUTINE MZIOCR (IOW) *------------------------------------------------------------------------------- FUNCTION MZIXCO (IXAA,IXBB,IXCC,IXDD) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' DIMENSION IXAA(9), IXBB(9), IXCC(9), IXDD(9), IXV(4) EQUIVALENCE (IXV(1),IQUEST(11)) DIMENSION NAMESR(2) @@ -6295,42 +5027,13 @@ FUNCTION MZIXCO (IXAA,IXBB,IXCC,IXDD) *------------------------------------------------------------------------------- SUBROUTINE MZMOVE - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'zstate.inc' + INCLUDE 'zunit.inc' + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' + INCLUDE 'mzct.inc' DIMENSION NAMESR(2) DATA NAMESR / 4HMZMO, 4HVE / JBIT(IZW,IZP) = IAND(ISHFT(IZW,-(IZP-1)),1) @@ -6398,29 +5101,10 @@ SUBROUTINE MZMOVE *------------------------------------------------------------------------------- SUBROUTINE MZPUDX (LP,NWP) - COMMON /ZBCD/ IQNUM2(11),IQLETT(26),IQNUM(10), IQPLUS,IQMINS - +, IQSTAR,IQSLAS,IQOPEN,IQCLOS,IQDOLL,IQEQU, IQBLAN - +, IQCOMA,IQDOT, IQNUMB,IQAPO, IQEXCL,IQCOLO,IQQUOT - +, IQUNDE,IQCLSQ,IQAND, IQAT, IQQUES,IQOPSQ,IQGREA - +, IQLESS,IQREVE,IQCIRC,IQSEMI,IQPERC, IQLOWL(26) - +, IQCROP,IQVERT,IQCRCL,IQNOT, IQGRAV, IQILEG - +, NQHOL0,NQHOLL(95) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) + INCLUDE 'zbcd.inc' + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' DIMENSION LP(9),NWP(9) MSBIT1 (IZW,IZP) = IOR (IZW, ISHFT(1,IZP-1)) MSBYT (MZ,IZW,IZP,NZB) = IOR ( @@ -6447,43 +5131,14 @@ SUBROUTINE MZPUDX (LP,NWP) *------------------------------------------------------------------------------- SUBROUTINE MZRELB - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) - COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'zstate.inc' + INCLUDE 'zunit.inc' + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' + INCLUDE 'mzcn.inc' + INCLUDE 'mzct.inc' DIMENSION NAMESR(2) DATA NAMESR / 4HMZRE, 4HLB / JBYT(IZW,IZP,NZB) = ISHFT(ISHFT(IZW,33-IZP-NZB),-(32-NZB)) @@ -6640,43 +5295,14 @@ SUBROUTINE MZRELB *------------------------------------------------------------------------------- SUBROUTINE MZRELL (MDESV) - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) - COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'zstate.inc' + INCLUDE 'zunit.inc' + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' + INCLUDE 'mzcn.inc' + INCLUDE 'mzct.inc' DIMENSION MDESV(99) DIMENSION NAMESR(2) DATA NAMESR / 4HMZRE, 4HLL / @@ -6783,42 +5409,13 @@ SUBROUTINE MZRELL (MDESV) *------------------------------------------------------------------------------- SUBROUTINE MZRELX - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'zstate.inc' + INCLUDE 'zunit.inc' + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' + INCLUDE 'mzct.inc' DIMENSION NAMESR(2) DATA NAMESR / 4HMZRE, 4HLX / MQTRAC(NQTRAC+1) = NAMESR(1) @@ -6836,34 +5433,11 @@ SUBROUTINE MZRELX *------------------------------------------------------------------------------- SUBROUTINE MZSDIV (IXDIVP,IFLAGP) - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'zstate.inc' + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' DIMENSION IXDIVP(9), IFLAGP(9) DIMENSION NAMESR(2) DATA NAMESR / 4HMZSD, 4HIV / @@ -6927,35 +5501,12 @@ SUBROUTINE MZSDIV (IXDIVP,IFLAGP) *------------------------------------------------------------------------------- SUBROUTINE ZSHUNT (IXSTOR,LSHP,LSUPP,JBIASP,IFLAGP) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) - COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL + INCLUDE 'zunit.inc' + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' + INCLUDE 'mzcn.inc' DIMENSION LSHP(9),LSUPP(9),JBIASP(9),IFLAGP(9) DIMENSION NAMESR(2) DATA NAMESR / 4HZSHU, 4HNT / @@ -7074,8 +5625,7 @@ SUBROUTINE ZSHUNT (IXSTOR,LSHP,LSUPP,JBIASP,IFLAGP) *------------------------------------------------------------------------------- SUBROUTINE ZHTOI (HOLL,INTV,NP) - PARAMETER (NQTCET=256) - COMMON /ZCETA/ IQCETA(256),IQTCET(256) + INCLUDE 'zceta.inc' INTEGER INTV(99), HOLL(99) DO 39 JWH=1,NP MWH = HOLL(JWH) @@ -7095,46 +5645,15 @@ SUBROUTINE ZHTOI (HOLL,INTV,NP) *------------------------------------------------------------------------------- SUBROUTINE RZSCAN(CHPATH,UROUT) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) - COMMON /RZCL/ LTOP,LRZ0,LCDIR,LRIN,LROUT,LFREE,LUSED,LPURG - +, LTEMP,LCORD,LFROM - EQUIVALENCE (LQRS,LQSYSS(7)) - PARAMETER (NLPATM=100) - COMMON /RZDIRN/NLCDIR,NLNDIR,NLPAT - COMMON /RZDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) - CHARACTER*16 CHNDIR, CHCDIR, CHPAT - COMMON /RZCH/ CHWOLD,CHL - CHARACTER*255 CHWOLD,CHL - PARAMETER (KUP=5,KPW1=7,KNCH=9,KDATEC=10,KDATEM=11,KQUOTA=12, - + KRUSED=13,KWUSED=14,KMEGA=15,KRZVER=16,KIRIN=17, - + KIROUT=18,KRLOUT=19,KIP1=20,KNFREE=22,KNSD=23,KLD=24, - + KLB=25,KLS=26,KLK=27,KLF=28,KLC=29,KLE=30,KNKEYS=31, - + KNWKEY=32,KKDES=33,KNSIZE=253,KEX=6,KNMAX=100) + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' + INCLUDE 'rzcl.inc' + INCLUDE 'nlpatm.inc' + INCLUDE 'rzdir.inc' + INCLUDE 'rzch.inc' + INCLUDE 'zkpars.inc' CHARACTER *(*) CHPATH EXTERNAL UROUT DIMENSION ISD(NLPATM),NSD(NLPATM),IHDIR(4) @@ -7188,23 +5707,10 @@ SUBROUTINE RZSCAN(CHPATH,UROUT) *------------------------------------------------------------------------------- SUBROUTINE MZWIPE (IXWP) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'zvfaut.inc' DIMENSION IXWP(9) DIMENSION NAMESR(2) DATA NAMESR / 4HMZWI, 4HPE / @@ -7216,39 +5722,13 @@ SUBROUTINE MZWIPE (IXWP) *------------------------------------------------------------------------------- SUBROUTINE RZEND(CHDIR) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) - COMMON /RZCL/ LTOP,LRZ0,LCDIR,LRIN,LROUT,LFREE,LUSED,LPURG - +, LTEMP,LCORD,LFROM - EQUIVALENCE (LQRS,LQSYSS(7)) + INCLUDE 'zunit.inc' + INCLUDE 'zstate.inc' + INCLUDE 'ziq.inc' + INCLUDE 'quest.inc' + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' + INCLUDE 'rzcl.inc' CHARACTER CHDIR*(*) DIMENSION IHDIR(4) LOGICAL RZSAME diff --git a/misc/minicern/src/zheadp.inc b/misc/minicern/src/zheadp.inc new file mode 100644 index 0000000000000..07527f2d5d7f7 --- /dev/null +++ b/misc/minicern/src/zheadp.inc @@ -0,0 +1,2 @@ +C=== zheadp.inc ================================================ + COMMON /ZHEADP/IQHEAD(20),IQDATE,IQTIME,IQPAGE,NQPAGE(4) diff --git a/misc/minicern/src/ziq.inc b/misc/minicern/src/ziq.inc new file mode 100644 index 0000000000000..b30029349e32c --- /dev/null +++ b/misc/minicern/src/ziq.inc @@ -0,0 +1,2 @@ +C=== ziq.inc =================================================== + PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) diff --git a/misc/minicern/src/zkpars.inc b/misc/minicern/src/zkpars.inc new file mode 100644 index 0000000000000..393c7a9e8de6d --- /dev/null +++ b/misc/minicern/src/zkpars.inc @@ -0,0 +1,6 @@ +C=== zkpars.inc ================================================ + PARAMETER (KUP=5,KPW1=7,KNCH=9,KDATEC=10,KDATEM=11,KQUOTA=12, + + KRUSED=13,KWUSED=14,KMEGA=15,KRZVER=16,KIRIN=17, + + KIROUT=18,KRLOUT=19,KIP1=20,KNFREE=22,KNSD=23,KLD=24, + + KLB=25,KLS=26,KLK=27,KLF=28,KLC=29,KLE=30,KNKEYS=31, + + KNWKEY=32,KKDES=33,KNSIZE=253,KEX=6,KNMAX=100) diff --git a/misc/minicern/src/zkrakc.inc b/misc/minicern/src/zkrakc.inc new file mode 100644 index 0000000000000..3de5a99377c07 --- /dev/null +++ b/misc/minicern/src/zkrakc.inc @@ -0,0 +1,2 @@ +C=== zkrakc.inc ================================================ + COMMON /ZKRAKC/IQHOLK(120), IQKRAK(80), IQCETK(122) diff --git a/misc/minicern/src/zlimit.inc b/misc/minicern/src/zlimit.inc new file mode 100644 index 0000000000000..b7fe10e22cda6 --- /dev/null +++ b/misc/minicern/src/zlimit.inc @@ -0,0 +1,2 @@ +C=== zlimit.inc ================================================ + COMMON /ZLIMIT/LQLIML,LQLIMH diff --git a/misc/minicern/src/zmach.inc b/misc/minicern/src/zmach.inc new file mode 100644 index 0000000000000..acd925a37b827 --- /dev/null +++ b/misc/minicern/src/zmach.inc @@ -0,0 +1,4 @@ +C=== zmach.inc ================================================= + PARAMETER (IQBITW=32, IQBITC=8, IQCHAW=4) + COMMON /ZMACH/ NQBITW,NQBITC,NQCHAW + +, NQLNOR,NQLMAX,NQLPTH,NQRMAX,IQLPCT,IQNIL diff --git a/misc/minicern/src/znatur.inc b/misc/minicern/src/znatur.inc new file mode 100644 index 0000000000000..1c20f711a5e7a --- /dev/null +++ b/misc/minicern/src/znatur.inc @@ -0,0 +1,2 @@ +C=== znatur.inc ================================================ + COMMON /ZNATUR/QPI2,QPI,QPIBY2,QPBYHR diff --git a/misc/minicern/src/zstate.inc b/misc/minicern/src/zstate.inc new file mode 100644 index 0000000000000..6282de9be1780 --- /dev/null +++ b/misc/minicern/src/zstate.inc @@ -0,0 +1,3 @@ +C=== zstate.inc ================================================ + COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR + +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) diff --git a/misc/minicern/src/zunit.inc b/misc/minicern/src/zunit.inc new file mode 100644 index 0000000000000..805bb7fc3e96e --- /dev/null +++ b/misc/minicern/src/zunit.inc @@ -0,0 +1,3 @@ +C=== zunit.inc ================================================= + COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE + COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED diff --git a/misc/minicern/src/zvfaut.inc b/misc/minicern/src/zvfaut.inc new file mode 100644 index 0000000000000..78b0ea67b17de --- /dev/null +++ b/misc/minicern/src/zvfaut.inc @@ -0,0 +1,2 @@ +C=== zvfaut.inc ================================================ + COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6)