diff --git a/.github/workflows/root-ci-config/build_root.py b/.github/workflows/root-ci-config/build_root.py index ed9303effd695..17f890d5fba48 100755 --- a/.github/workflows/root-ci-config/build_root.py +++ b/.github/workflows/root-ci-config/build_root.py @@ -317,7 +317,7 @@ def run_ctest(extra_ctest_flags: str) -> int: builddir = os.path.join(WORKDIR, "build") ctest_result = subprocess_with_log(f""" cd '{builddir}' - ctest --output-on-failure --parallel {os.cpu_count()} --output-junit TestResults.xml {extra_ctest_flags} + ctest -R "roottest-root-hist-h2root" --output-on-failure --parallel {os.cpu_count()} --output-junit TestResults.xml {extra_ctest_flags} """) return ctest_result diff --git a/.github/workflows/root-ci-config/buildconfig/mac14.txt b/.github/workflows/root-ci-config/buildconfig/mac14.txt index 56115d057e880..6a05790d73c7b 100644 --- a/.github/workflows/root-ci-config/buildconfig/mac14.txt +++ b/.github/workflows/root-ci-config/buildconfig/mac14.txt @@ -26,7 +26,6 @@ builtin_xxhash=ON builtin_zeromq=ON builtin_zstd=ON cocoa=ON -fortran=OFF minuit2_omp=OFF test_distrdf_dask=OFF test_distrdf_pyspark=OFF diff --git a/hist/hbook/src/THbookFile.cxx b/hist/hbook/src/THbookFile.cxx index f44e724f71c1a..5ea121775313d 100644 --- a/hist/hbook/src/THbookFile.cxx +++ b/hist/hbook/src/THbookFile.cxx @@ -137,6 +137,15 @@ static Int_t gLastEntry = -1; # define type_of_call # define DEFCHAR const char* # define PASSCHAR(string) string + +// As recommended in +// https://gcc.gnu.org/onlinedocs/gfortran/Argument-passing-conventions.html +#if __GNUC__ > 7 +typedef size_t fortran_charlen_t; +#else +typedef int fortran_charlen_t; +#endif + #else # define hlimit HLIMIT # define hldir HLDIR @@ -177,8 +186,8 @@ static Int_t gLastEntry = -1; extern "C" void type_of_call hlimit(const int&); #ifndef WIN32 extern "C" void type_of_call hropen(const int&,DEFCHAR,DEFCHAR,DEFCHAR, - const int&,const int&,const int,const int,const int); -extern "C" void type_of_call hrend(DEFCHAR,const int); + const int&,const int&,fortran_charlen_t,fortran_charlen_t,fortran_charlen_t); +extern "C" void type_of_call hrend(DEFCHAR,fortran_charlen_t); #else extern "C" void type_of_call hropen(const int&,DEFCHAR,DEFCHAR,DEFCHAR, const int&,const int&); @@ -189,7 +198,7 @@ extern "C" void type_of_call hrin(const int&,const int&,const int&); extern "C" void type_of_call hnoent(const int&,const int&); #ifndef WIN32 extern "C" void type_of_call hgive(const int&,DEFCHAR,const int&,const float&,const float&, - const int&,const float&,const float&,const int&,const int&,const int); + const int&,const float&,const float&,const int&,const int&,fortran_charlen_t); #else extern "C" void type_of_call hgive(const int&,DEFCHAR,const int&,const float&,const float&, const int&,const float&,const float&,const int&,const int&); @@ -198,8 +207,8 @@ extern "C" void type_of_call hgive(const int&,DEFCHAR,const int&,const float&,c //SUBROUTINE HGNT1(IDD,BLKNA1,VAR,IOFFST,NVAR,IDNEVT,IERROR) #ifndef WIN32 extern "C" void type_of_call hgiven(const int&,DEFCHAR,const int&,DEFCHAR, - const float&,const float&,const int,const int); -extern "C" void type_of_call hgnt1(const int&,DEFCHAR,DEFCHAR,const int&,const int&,const int&,const int&,const int,const int); + const float&,const float&,fortran_charlen_t,fortran_charlen_t); +extern "C" void type_of_call hgnt1(const int&,DEFCHAR,DEFCHAR,const int&,const int&,const int&,const int&,fortran_charlen_t,fortran_charlen_t); #else extern "C" void type_of_call hgiven(const int&,DEFCHAR,const int&,DEFCHAR, const float&,const float&); @@ -207,15 +216,15 @@ extern "C" void type_of_call hgnt1(const int&,DEFCHAR,DEFCHAR,const int&,const #endif #ifndef WIN32 -extern "C" void type_of_call hntvar2(const int&,const int&,DEFCHAR,DEFCHAR,DEFCHAR,int&,int&,int&,int&,int&,const int,const int, const int); -extern "C" void type_of_call hntvar3(const int&,const int&,DEFCHAR, const int); +extern "C" void type_of_call hntvar2(const int&,const int&,DEFCHAR,DEFCHAR,DEFCHAR,int&,int&,int&,int&,int&,fortran_charlen_t,fortran_charlen_t, fortran_charlen_t); +extern "C" void type_of_call hntvar3(const int&,const int&,DEFCHAR, fortran_charlen_t); #else extern "C" void type_of_call hntvar2(const int&,const int&,DEFCHAR,DEFCHAR,DEFCHAR,int&,int&,int&,int&,int&); extern "C" void type_of_call hntvar3(const int&,const int&,DEFCHAR); #endif #ifndef WIN32 -extern "C" void type_of_call hbnam(const int&,DEFCHAR,const int&,DEFCHAR,const int&,const int, const int); +extern "C" void type_of_call hbnam(const int&,DEFCHAR,const int&,DEFCHAR,const int&,fortran_charlen_t, fortran_charlen_t); #else extern "C" void type_of_call hbnam(const int&,DEFCHAR,const int&,DEFCHAR,const int&); #endif @@ -237,8 +246,8 @@ extern "C" void type_of_call hix(const int&,const int&,const float&); extern "C" void type_of_call hijxy(const int&,const int&,const int&,const float&,const float&); extern "C" float type_of_call hije(const int&,const int&,const int&); #ifndef WIN32 -extern "C" void type_of_call hcdir(DEFCHAR,DEFCHAR ,const int,const int); -extern "C" void type_of_call hldir(DEFCHAR,DEFCHAR ,const int,const int); +extern "C" void type_of_call hcdir(DEFCHAR,DEFCHAR ,fortran_charlen_t,fortran_charlen_t); +extern "C" void type_of_call hldir(DEFCHAR,DEFCHAR ,fortran_charlen_t,fortran_charlen_t); #else extern "C" void type_of_call hcdir(DEFCHAR,DEFCHAR); extern "C" void type_of_call hldir(DEFCHAR,DEFCHAR); diff --git a/main/CMakeLists.txt b/main/CMakeLists.txt index 98e50fd87e853..a7b88e0acc487 100644 --- a/main/CMakeLists.txt +++ b/main/CMakeLists.txt @@ -53,7 +53,6 @@ generateHeader(hadd if(fortran AND CMAKE_Fortran_COMPILER) ROOT_EXECUTABLE(g2root g2root.f LIBRARIES minicern CMAKENOEXPORT) - set_target_properties(g2root PROPERTIES COMPILE_FLAGS "-w") ROOT_EXECUTABLE(h2root h2root.cxx LIBRARIES Core RIO Net Hist Graf Graf3d Gpad Tree Matrix MathCore Thread minicern CMAKENOEXPORT) # This is needed in particular for macOS, where the path of the GNU Fortran diff --git a/main/src/h2root.cxx b/main/src/h2root.cxx index 87133310483a9..38416b70846e5 100644 --- a/main/src/h2root.cxx +++ b/main/src/h2root.cxx @@ -215,10 +215,10 @@ extern "C" void type_of_call hbnam(const int&,DEFCHAR,const int&,DEFCHAR,const #endif extern "C" void type_of_call hprntu(const int&); -extern "C" void type_of_call hgnpar(const int&,const char *,const int); +extern "C" void type_of_call hgnpar(const int&,DEFCHAR,fortran_charlen_t); extern "C" void type_of_call hgnf(const int&,const int&,const float&,const int&); extern "C" void type_of_call hgnt(const int&,const int&,const int&); -extern "C" void type_of_call rzink(const int&,const int&,const char *,const int); +extern "C" void type_of_call rzink(const int&,const int&,DEFCHAR,fortran_charlen_t); extern "C" void type_of_call hdcofl(); extern "C" void type_of_call hmaxim(const int&,const float&); extern "C" void type_of_call hminim(const int&,const float&); diff --git a/misc/minicern/CMakeLists.txt b/misc/minicern/CMakeLists.txt index 66542f68ce3cb..2a93967abe68e 100644 --- a/misc/minicern/CMakeLists.txt +++ b/misc/minicern/CMakeLists.txt @@ -12,9 +12,5 @@ ROOT_LINKER_LIBRARY(minicern *.c *.f TYPE STATIC) set_property(TARGET minicern PROPERTY POSITION_INDEPENDENT_CODE ON) target_link_libraries(minicern ${CMAKE_Fortran_IMPLICIT_LINK_LIBRARIES}) -# Disable optimization since it some cases was causing crashes. -# Disable warnings, since what has worked for 40 years... -# (see https://sft.its.cern.ch/jira/browse/ROOT-9179 for the warnings) -set_target_properties(minicern PROPERTIES COMPILE_FLAGS "-O0 -w") -# set_target_properties(minicern PROPERTIES COMPILE_FLAGS "-fsanitize=undefined -fsanitize=address") -# target_link_options(minicern BEFORE PUBLIC -fsanitize=undefined PUBLIC -fsanitize=address) +# set_target_properties(minicern PROPERTIES COMPILE_FLAGS "-fsanitize=undefined -fsanitize=address") # TODO enabling this shows issues +# target_link_options(minicern BEFORE PUBLIC -fsanitize=undefined PUBLIC -fsanitize=address) # TODO enabling this shows issues diff --git a/misc/minicern/src/hbook.f b/misc/minicern/src/hbook.f index 522c731686169..e7f712388ef75 100644 --- a/misc/minicern/src/hbook.f +++ b/misc/minicern/src/hbook.f @@ -19,16 +19,10 @@ SUBROUTINE HNTVAR2(ID1,IVAR,CHTAG,CHFULL,BLOCK,NSUB,ITYPE,ISIZE + 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 + INCLUDE 'hcflag.inc' + INCLUDE 'pawc.inc' 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) @@ -59,7 +53,7 @@ SUBROUTINE HNTVAR2(ID1,IVAR,CHTAG,CHFULL,BLOCK,NSUB,ITYPE,ISIZE + 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 - CHARACTER*(*) CHTAG, CHFULL, BLOCK + CHARACTER*99 CHTAG, CHFULL, BLOCK CHARACTER*80 VAR CHARACTER*32 NAME, SUBS LOGICAL LDUM @@ -162,12 +156,9 @@ 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 + INCLUDE 'pawc.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, @@ -245,8 +236,8 @@ SUBROUTINE HROPEN(LUN,CHDIR,CFNAME,CHOPTT,LRECL,ISTAT) + ,CHTOP(NLPATM) CHARACTER*(LENHFN) HFNAME COMMON /HCFILE/HFNAME(MXFILES) - COMMON/QUEST/IQUEST(100) CHARACTER*(*) CFNAME,CHDIR,CHOPTT + INCLUDE 'quest.inc' CHARACTER*8 CHOPT CHOPT=CHOPTT CALL CLTOU(CHOPT) @@ -379,10 +370,7 @@ 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) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -425,11 +413,8 @@ SUBROUTINE HRIN(IDD,ICYCLE,KOFSET) + 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 'hcflag.inc' + INCLUDE 'quest.inc' CHARACTER*128 CHWOLD INTEGER KEYS(2) DATA KHIDE,KHID1,KHID2,KHCO1,KHCO2/4HHIDE,4HHID1,4HHID2, @@ -612,10 +597,7 @@ 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) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -648,7 +630,7 @@ SUBROUTINE HRZIN(IXDIV,LBANK,JBIAS,KEYS,ICYCLE,CHOPT) COMMON /HCFILE/HFNAME(MXFILES) CHARACTER*128 CHMAIL COMMON /HCMAIL/CHMAIL - COMMON/QUEST/IQUEST(100) + INCLUDE 'quest.inc' DIMENSION LBANK(1),JBIAS(1) INTEGER KEYS(2) CHARACTER*(*)CHOPT @@ -664,10 +646,7 @@ 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) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -690,7 +669,7 @@ SUBROUTINE HNOENT(IDD,NUMB) + 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 'quest.inc' CALL HFIND(IDD,'HNOENT') IF(IQUEST(1).NE.0)THEN NUMB=0 @@ -707,10 +686,7 @@ 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) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -752,7 +728,7 @@ SUBROUTINE HGIVE(IDD,CHTITL,NCX,XMIN,XMAX,NCY,YMIN,YMAX,NWT,IDB) + 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 - CHARACTER*(*) CHTITL + CHARACTER*99 CHTITL NARG=10 NCX=0 IF(NARG.GT.5)NCY=0 @@ -794,7 +770,7 @@ SUBROUTINE HGIVE(IDD,CHTITL,NCX,XMIN,XMAX,NCY,YMIN,YMAX,NWT,IDB) IF(NWT.EQ.0)GO TO 99 NCH=LEN(CHTITL) NWCH=MIN(NCH,4*NWT) - IF(NCH.GT.0)CHTITL=' ' + IF (NCH .GT. 0) CHTITL = ' ' CALL UHTOC(IQ(IWT),4,CHTITL,NWCH) 99 RETURN END @@ -802,10 +778,7 @@ 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) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -839,10 +812,7 @@ SUBROUTINE HGIVEN( ID1, CHTITL, NVAR, TAGS, RLOW, RHIGH ) + 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 'hcflag.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, @@ -851,7 +821,7 @@ SUBROUTINE HGIVEN( ID1, CHTITL, NVAR, TAGS, RLOW, RHIGH ) + 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 - CHARACTER*(*) CHTITL, TAGS(*) + CHARACTER*99 CHTITL, TAGS(*) INTEGER ID1, NVAR REAL RLOW(*), RHIGH(*) CHARACTER*8 BLOCK @@ -911,10 +881,7 @@ 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) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -989,10 +956,7 @@ 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) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -1023,7 +987,7 @@ SUBROUTINE HGNF(IDN,IDNEVT,X,IERROR) + ,CHTOP(NLPATM) CHARACTER*(LENHFN) HFNAME COMMON /HCFILE/HFNAME(MXFILES) - COMMON/QUEST/IQUEST(100) + INCLUDE 'quest.inc' DIMENSION X(*) INTEGER KEYS(2) LC=LQ(LCIDN-1) @@ -1077,10 +1041,7 @@ 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) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -1103,10 +1064,7 @@ SUBROUTINE HGNT1(IDD,BLKNA1,VAR,IOFFST,NVAR,IDNEVT,IERROR) + 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 'hcflag.inc' INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, @@ -1184,10 +1142,7 @@ 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) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -1210,10 +1165,7 @@ SUBROUTINE HGNT2(VAR1,IVOFF,NVAR1,IDNEVT,IERROR) + 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 'hcflag.inc' INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, @@ -1547,10 +1499,7 @@ 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) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -1596,10 +1545,7 @@ 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) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -1633,10 +1579,7 @@ SUBROUTINE HDELET(ID1) + 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 'hcflag.inc' IF(LCDIR.LE.0)GO TO 999 IF(ID1.EQ.0)GO TO 120 ID=ID1 @@ -1692,10 +1635,7 @@ 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) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -1731,10 +1671,7 @@ SUBROUTINE HBNAM(IDD, BLKNA1, ADDRES, FORM1, ISCHAR) + 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 'hcflag.inc' INTEGER IDD, ADDRES, HNBPTR CHARACTER*(*) BLKNA1, FORM1 PARAMETER (MAXTOK = 50) @@ -1811,10 +1748,7 @@ 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) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -1863,10 +1797,7 @@ 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) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -1911,10 +1842,7 @@ 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) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -1954,10 +1882,7 @@ 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) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -1988,15 +1913,12 @@ SUBROUTINE HCDIR(CHPATH,CHOPT) + ,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 + INCLUDE 'hcflag.inc' INTEGER LOUT,LERR,LINFIT COMMON/HCUNIT/LOUT,LERR,LINFIT CHARACTER*128 CHMAIL COMMON /HCMAIL/CHMAIL - COMMON/QUEST/IQUEST(100) + INCLUDE 'quest.inc' CHARACTER*2 NODIR PARAMETER (NODIR = '@#') CHARACTER*128 CHAIN, CACHE @@ -2092,10 +2014,7 @@ 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) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -2118,10 +2037,7 @@ SUBROUTINE HMACHI + 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 'hcflag.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, @@ -2216,10 +2132,7 @@ 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) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -2328,10 +2241,7 @@ 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) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -2388,10 +2298,7 @@ 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) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -2414,10 +2321,7 @@ SUBROUTINE HFIND(IDD,CHROUT) + 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 'hcflag.inc' INTEGER IFW ,NW ,NB ,IH ,NHT ,ICN ,IPONCE, + NH ,MSTEP ,NOENT ,NOLD ,IDOLAR,IBLANC,KBINSZ,INO , + KSQUEZ,NCOLMA,NCOLPA,NLINPA, ICBLAC,ICSTAR,ICFUNC, @@ -2427,7 +2331,7 @@ SUBROUTINE HFIND(IDD,CHROUT) + NH ,MSTEP ,NOENT ,NOLD ,IDOLAR,IBLANC,KBINSZ,INO , + KSQUEZ,NCOLMA,NCOLPA,NLINPA,BIGP ,ICBLAC,ICSTAR,ICFUNC, + IDG ,MAXBIT,IDENT - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' CHARACTER*(*) CHROUT IF(LFIX.NE.0)GO TO 99 IQUEST(1)=0 @@ -2487,10 +2391,7 @@ 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) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -2731,10 +2632,7 @@ 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) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -2782,10 +2680,7 @@ 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) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -2853,10 +2748,7 @@ 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) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -2879,10 +2771,7 @@ SUBROUTINE HNTMP(IDD) + 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 'hcflag.inc' INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, @@ -2939,10 +2828,7 @@ 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) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -2965,10 +2851,7 @@ SUBROUTINE HNBUFR(IDD) + 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 'hcflag.inc' INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, @@ -2980,7 +2863,7 @@ SUBROUTINE HNBUFR(IDD) + 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 'quest.inc' CHARACTER*128 CHWOLD, CHDIR, CWDRZ INTEGER KEYS(2) LOGICAL MEMORY @@ -3076,10 +2959,7 @@ 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) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -3115,7 +2995,7 @@ SUBROUTINE HNTRD(INDX, IOFF, IBANK, IERROR) + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) LOGICAL NRECOV COMMON /HCRECV/ NRECOV - COMMON/QUEST/IQUEST(100) + INCLUDE 'quest.inc' CHARACTER*128 CHWOLD, CHDIR, CWDRZ INTEGER KEYS(2) IF (IQ(LNAME+IOFF+ZIBANK) .EQ. IBANK) THEN @@ -3231,10 +3111,7 @@ 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) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -3257,11 +3134,8 @@ SUBROUTINE HSPACE (N,CHROUT,IDD) + 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 'hcflag.inc' + INCLUDE 'quest.inc' CHARACTER*(*) CHROUT IDLAST=0 IERR=0 @@ -3279,10 +3153,7 @@ 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) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -3327,10 +3198,7 @@ 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) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -3376,10 +3244,7 @@ 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) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -3413,10 +3278,7 @@ SUBROUTINE HNTVAR(ID1,IVAR,CHTAG,BLOCK,NSUB,ITYPE,ISIZE,IELEM) + 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 'hcflag.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, @@ -3496,10 +3358,7 @@ 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) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -3533,10 +3392,7 @@ SUBROUTINE HNMSET(IDD, ITEM, IVAL) + 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 'hcflag.inc' ID = IDD IDPOS = LOCATI(IQ(LTAB+1),IQ(LCDIR+KNRH),ID) IF (IDPOS .LE. 0) THEN @@ -3562,10 +3418,7 @@ 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) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -3619,10 +3472,7 @@ 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) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -3645,10 +3495,7 @@ SUBROUTINE HNBUFF(IDD, FATAL) + 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 'hcflag.inc' LOGICAL FATAL IF (LQ(LCDIR-4) .EQ. 0) THEN IF (FATAL) THEN @@ -3677,10 +3524,7 @@ 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) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -3714,10 +3558,7 @@ SUBROUTINE HNBFWR(IDD) + 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 'hcflag.inc' CHARACTER*128 CHWOLD, CHDIR, CWDRZ INTEGER KEYS(2) IERR = 0 @@ -3772,10 +3613,7 @@ 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) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -3809,10 +3647,7 @@ SUBROUTINE HNHDWR(IDD) + 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 'hcflag.inc' CHARACTER*128 CHWOLD, CHDIR, CWDRZ INTEGER KEYS(2) IERR = 0 @@ -3845,10 +3680,7 @@ 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) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -3885,7 +3717,7 @@ SUBROUTINE HLDIR(CHPATH,CHOPT) COMMON /HCMAIL/CHMAIL 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,10 +3794,7 @@ 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) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -3988,10 +3817,7 @@ SUBROUTINE HLDIRT(CHDIR) + 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 'hcflag.inc' INTEGER LOUT,LERR,LINFIT COMMON/HCUNIT/LOUT,LERR,LINFIT INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, @@ -4006,7 +3832,7 @@ SUBROUTINE HLDIRT(CHDIR) + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) CHARACTER*(*) CHDIR - COMMON/QUEST/IQUEST(100) + INCLUDE 'quest.inc' CHARACTER*1 HTYPE INTEGER KEYS(2) NCH=LENOCC(CHDIR) @@ -4123,4 +3949,3 @@ SUBROUTINE HGNTF(IDD,IDNEVT,IERROR) END *------------------------------------------------------------------------------- - 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/kernlib.f b/misc/minicern/src/kernlib.f index 701f776e015f9..5e5e4e3e1cd10 100644 --- a/misc/minicern/src/kernlib.f +++ b/misc/minicern/src/kernlib.f @@ -244,7 +244,7 @@ SUBROUTINE UCTOH (MS,MT,NPW,NCH) SUBROUTINE UHTOC (MS,NPW,MT,NCH) DIMENSION MS(99) - CHARACTER MT*99 + CHARACTER MT*128 PARAMETER (NCHAPW=4) CHARACTER CHWORD*(NCHAPW) INTEGER IWORD 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..cd634e7cc2deb --- /dev/null +++ b/misc/minicern/src/quest.inc @@ -0,0 +1,3 @@ +C=== quest.inc ================================================= + INTEGER IQUEST + COMMON /QUEST/ IQUEST(100) diff --git a/misc/minicern/src/zebra.f b/misc/minicern/src/zebra.f index 80477ee9bfa50..033b6d7442d0a 100644 --- a/misc/minicern/src/zebra.f +++ b/misc/minicern/src/zebra.f @@ -31,7 +31,7 @@ SUBROUTINE MZEBRA (LIST) 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) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -105,7 +105,7 @@ SUBROUTINE MZINCO (LIST) 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 'quest.inc' DIMENSION LIST(9) JBIT(IZW,IZP) = IAND(ISHFT(IZW,-(IZP-1)),1) CALL VZEROI (IQUEST,100) @@ -202,8 +202,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 +210,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 @@ -235,7 +234,7 @@ SUBROUTINE MZSTOR (IXSTOR,CHNAME,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) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -463,7 +462,7 @@ SUBROUTINE RZOPEN(LUNIN,CHDIR,CFNAME,CHOPTT,LRECL,ISTAT) 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) + INCLUDE 'quest.inc' COMMON /RZBUFF/ ITEST(8704) PARAMETER (MAXFILES=128, MAXSTRIP=21) CHARACTER*128 RZNAMES(MAXFILES),RZSFILE(MAXSTRIP) @@ -700,7 +699,7 @@ 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) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -803,7 +802,7 @@ SUBROUTINE RZIODO(LUNRZ,JREC,IREC1,IBUF,IRW) SUBROUTINE RZVCYC(LTAD) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -871,7 +870,7 @@ SUBROUTINE RZVCYC(LTAD) SUBROUTINE RZIN(IXDIV,LSUP,JBIAS,KEYU,ICYCLE,CHOPT) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -968,7 +967,7 @@ SUBROUTINE RZINS(IXDIVP,LSUPP,JBIASP,LBANK) COMMON /ZMACH/ NQBITW,NQBITC,NQCHAW +, NQLNOR,NQLMAX,NQLPTH,NQRMAX,IQLPCT,IQNIL PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -1162,7 +1161,7 @@ SUBROUTINE ZITOH (INTV,IHOLL,NP) SUBROUTINE MZRESV PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -1243,7 +1242,7 @@ SUBROUTINE MZRESV SUBROUTINE RZSAVE PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -1370,7 +1369,7 @@ SUBROUTINE RZSAVE *------------------------------------------------------------------------------- SUBROUTINE FZICV (MS,IRMT) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /MZIOC/ NWFOAV,NWFOTT,NWFODN,NWFORE,IFOCON(3) +, MFOSAV(2), JFOEND,JFOREP,JFOCUR,MFO(200) DIMENSION MS(99), IRMT(99) @@ -1485,7 +1484,7 @@ SUBROUTINE FZIREL 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) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -1618,7 +1617,7 @@ SUBROUTINE FZIREL SUBROUTINE FZILIN PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -1686,7 +1685,7 @@ SUBROUTINE MZCHLS (IXST,LP) COMMON /ZMACH/ NQBITW,NQBITC,NQCHAW +, NQLNOR,NQLMAX,NQLPTH,NQRMAX,IQLPCT,IQNIL PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -1753,7 +1752,7 @@ SUBROUTINE MZBOOK (IXP,LP,LSUPP,JBP, CHIDH,NL,NS,ND,NIOP,NZP) +, IQCROP,IQVERT,IQCRCL,IQNOT, IQGRAV, IQILEG +, NQHOL0,NQHOLL(95) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -1819,7 +1818,7 @@ SUBROUTINE MZLIFT (IXDIV,LP,LSUPP,JBIAS,NAME,NZERO) 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) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -2113,7 +2112,7 @@ SUBROUTINE MZLINK (IXSTOR,CHNAME,LAREA,LREF,LREFL) 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) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -2250,7 +2249,7 @@ SUBROUTINE MZPUSH (IXDIV,LORGP,INCNLP,INCNDP,CHOPT) 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) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -2529,7 +2528,7 @@ SUBROUTINE MZNEED (IXDIV,NEEDP,CHOPT) 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) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -2642,7 +2641,7 @@ 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) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -2801,7 +2800,7 @@ SUBROUTINE RZFILE(LUNIN,CHDIR,CHOPT) 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) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -3031,7 +3030,7 @@ 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) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -3213,7 +3212,7 @@ SUBROUTINE FZIMTB 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) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -3508,7 +3507,7 @@ FUNCTION IUCOMP (ITEXT,IVECT,N) *------------------------------------------------------------------------------- SUBROUTINE IZBCDT (NP,ITABT) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' PARAMETER (NQTCET=256) COMMON /ZCETA/ IQCETA(256),IQTCET(256) COMMON /ZKRAKC/IQHOLK(120), IQKRAK(80), IQCETK(122) @@ -3550,7 +3549,7 @@ LOGICAL FUNCTION RZSAME(IH1,IH2,N) SUBROUTINE RZINK(KEYU,ICYCLE,CHOPT) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -3772,7 +3771,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 @@ -3951,7 +3950,7 @@ 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) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -4154,7 +4153,7 @@ SUBROUTINE MZCHLN (IXST,LP) COMMON /ZMACH/ NQBITW,NQBITC,NQCHAW +, NQLNOR,NQLMAX,NQLPTH,NQRMAX,IQLPCT,IQNIL PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -4226,7 +4225,7 @@ SUBROUTINE MZCHLN (IXST,LP) SUBROUTINE MZCHNB (LIX) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -4277,7 +4276,7 @@ SUBROUTINE MZDROP (IXSTOR,LHEADP,CHOPT) 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) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -4359,7 +4358,7 @@ FUNCTION MZDVAC (IXDIVP) 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) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -4431,7 +4430,7 @@ SUBROUTINE MZGARB (IXGP,IXWP) 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) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -4521,7 +4520,7 @@ SUBROUTINE MZGAR1 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) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -4646,7 +4645,7 @@ 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) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -4735,7 +4734,7 @@ SUBROUTINE MZFORM (CHID,CHFORM,IXIOP) FUNCTION MZFDIV (IXST,LIXP) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -4793,7 +4792,7 @@ SUBROUTINE MZFGAP 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) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -4933,7 +4932,7 @@ 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) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -5032,7 +5031,7 @@ SUBROUTINE MZTABF 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) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -5149,7 +5148,7 @@ SUBROUTINE MZTABH 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) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -5240,7 +5239,7 @@ SUBROUTINE MZTABM 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) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -5343,7 +5342,7 @@ SUBROUTINE MZTABR 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) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -5466,7 +5465,7 @@ SUBROUTINE MZTABR SUBROUTINE MZTABS PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -5515,7 +5514,7 @@ SUBROUTINE MZTABS SUBROUTINE MZTABX PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -5574,7 +5573,7 @@ SUBROUTINE MZIOCH (IODVEC,NWIOMP,CHFORM) +, 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) + INCLUDE 'quest.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 @@ -5878,7 +5877,7 @@ SUBROUTINE MZFLAG (IXSTOR,LHEADP,KBITP,CHOPT) 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) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -6010,7 +6009,7 @@ SUBROUTINE MZFLAG (IXSTOR,LHEADP,KBITP,CHOPT) SUBROUTINE MZGSTA (IGARB) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -6058,7 +6057,7 @@ SUBROUTINE MZGSTA (IGARB) SUBROUTINE MZIOCF (JUP,MXVAL) COMMON /ZKRAKC/IQHOLK(120), IQKRAK(80), IQCETK(122) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' DIMENSION MU(99) EQUIVALENCE (MU(1),IQHOLK(1)) EQUIVALENCE (NGR,IQUEST(1)), (NGRU,IQUEST(2)) @@ -6078,7 +6077,7 @@ SUBROUTINE MZIOCF (JUP,MXVAL) *------------------------------------------------------------------------------- SUBROUTINE MZIOCR (IOW) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /MZIOC/ NWFOAV,NWFOTT,NWFODN,NWFORE,IFOCON(3) +, MFOSAV(2), JFOEND,JFOREP,JFOCUR,MFO(200) EQUIVALENCE (JIO,IQUEST(1)) @@ -6205,7 +6204,7 @@ SUBROUTINE MZIOCR (IOW) FUNCTION MZIXCO (IXAA,IXBB,IXCC,IXDD) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -6300,7 +6299,7 @@ SUBROUTINE MZMOVE 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) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -6406,7 +6405,7 @@ SUBROUTINE MZPUDX (LP,NWP) +, IQCROP,IQVERT,IQCRCL,IQNOT, IQGRAV, IQILEG +, NQHOL0,NQHOLL(95) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -6452,7 +6451,7 @@ SUBROUTINE MZRELB 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) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -6645,7 +6644,7 @@ SUBROUTINE MZRELL (MDESV) 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) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -6788,7 +6787,7 @@ SUBROUTINE MZRELX 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) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -6839,7 +6838,7 @@ 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) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -6930,7 +6929,7 @@ 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) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -7096,7 +7095,7 @@ SUBROUTINE ZHTOI (HOLL,INTV,NP) SUBROUTINE RZSCAN(CHPATH,UROUT) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -7189,7 +7188,7 @@ SUBROUTINE RZSCAN(CHPATH,UROUT) SUBROUTINE MZWIPE (IXWP) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -7221,7 +7220,7 @@ SUBROUTINE RZEND(CHDIR) 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) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1))