Skip to content

Commit ea2885c

Browse files
couetcouet
committed
add and use hcflag.inc
1 parent b818e97 commit ea2885c

File tree

3 files changed

+27
-77
lines changed

3 files changed

+27
-77
lines changed

‎misc/minicern/src/hbook.f‎

Lines changed: 19 additions & 76 deletions
Original file line numberDiff line numberDiff line change
@@ -19,10 +19,7 @@ SUBROUTINE HNTVAR2(ID1,IVAR,CHTAG,CHFULL,BLOCK,NSUB,ITYPE,ISIZE
1919
+ ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12,
2020
+ ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11,
2121
+ ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6)
22-
INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH,
23-
+ NCHAR ,NRHIST,IERR ,NV
24-
COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH,
25-
+ NCHAR ,NRHIST,IERR ,NV
22+
INCLUDE 'hcflag.inc'
2623
INCLUDE 'pawc.inc'
2724
COMMON/BIGBUF/BIGB(4000000)
2825
character BIGB
@@ -416,10 +413,7 @@ SUBROUTINE HRIN(IDD,ICYCLE,KOFSET)
416413
+ ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11,
417414
+ ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6)
418415
COMMON /HNTCUR/ NTCUR
419-
INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH,
420-
+ NCHAR ,NRHIST,IERR ,NV
421-
COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH,
422-
+ NCHAR ,NRHIST,IERR ,NV
416+
INCLUDE 'hcflag.inc'
423417
INCLUDE 'quest.inc'
424418
CHARACTER*128 CHWOLD
425419
INTEGER KEYS(2)
@@ -818,10 +812,7 @@ SUBROUTINE HGIVEN( ID1, CHTITL, NVAR, TAGS, RLOW, RHIGH )
818812
+ ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12,
819813
+ ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11,
820814
+ ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6)
821-
INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH,
822-
+ NCHAR ,NRHIST,IERR ,NV
823-
COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH,
824-
+ NCHAR ,NRHIST,IERR ,NV
815+
INCLUDE 'hcflag.inc'
825816
INTEGER I1, I2, I3, I4, I5, I6, I7, I8,
826817
+ I9, I10, I11, I12, I13, I14, I15, I16,
827818
+I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27,
@@ -1073,10 +1064,7 @@ SUBROUTINE HGNT1(IDD,BLKNA1,VAR,IOFFST,NVAR,IDNEVT,IERROR)
10731064
+ KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11,
10741065
+ KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6,
10751066
+ KCON1=9,KCON2=3,KBITS=1,KNTOT=2)
1076-
INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH,
1077-
+ NCHAR ,NRHIST,IERR ,NV
1078-
COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH,
1079-
+ NCHAR ,NRHIST,IERR ,NV
1067+
INCLUDE 'hcflag.inc'
10801068
INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON,
10811069
+ ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1,
10821070
+ ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR,
@@ -1177,10 +1165,7 @@ SUBROUTINE HGNT2(VAR1,IVOFF,NVAR1,IDNEVT,IERROR)
11771165
+ KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11,
11781166
+ KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6,
11791167
+ KCON1=9,KCON2=3,KBITS=1,KNTOT=2)
1180-
INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH,
1181-
+ NCHAR ,NRHIST,IERR ,NV
1182-
COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH,
1183-
+ NCHAR ,NRHIST,IERR ,NV
1168+
INCLUDE 'hcflag.inc'
11841169
INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON,
11851170
+ ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1,
11861171
+ ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR,
@@ -1594,10 +1579,7 @@ SUBROUTINE HDELET(ID1)
15941579
+ ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12,
15951580
+ ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11,
15961581
+ ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6)
1597-
INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH,
1598-
+ NCHAR ,NRHIST,IERR ,NV
1599-
COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH,
1600-
+ NCHAR ,NRHIST,IERR ,NV
1582+
INCLUDE 'hcflag.inc'
16011583
IF(LCDIR.LE.0)GO TO 999
16021584
IF(ID1.EQ.0)GO TO 120
16031585
ID=ID1
@@ -1689,10 +1671,7 @@ SUBROUTINE HBNAM(IDD, BLKNA1, ADDRES, FORM1, ISCHAR)
16891671
+ ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12,
16901672
+ ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11,
16911673
+ ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6)
1692-
INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH,
1693-
+ NCHAR ,NRHIST,IERR ,NV
1694-
COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH,
1695-
+ NCHAR ,NRHIST,IERR ,NV
1674+
INCLUDE 'hcflag.inc'
16961675
INTEGER IDD, ADDRES, HNBPTR
16971676
CHARACTER*(*) BLKNA1, FORM1
16981677
PARAMETER (MAXTOK = 50)
@@ -1934,10 +1913,7 @@ SUBROUTINE HCDIR(CHPATH,CHOPT)
19341913
+ ,CHTOP(NLPATM)
19351914
CHARACTER*(LENHFN) HFNAME
19361915
COMMON /HCFILE/HFNAME(MXFILES)
1937-
INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH,
1938-
+ NCHAR ,NRHIST,IERR ,NV
1939-
COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH,
1940-
+ NCHAR ,NRHIST,IERR ,NV
1916+
INCLUDE 'hcflag.inc'
19411917
INTEGER LOUT,LERR,LINFIT
19421918
COMMON/HCUNIT/LOUT,LERR,LINFIT
19431919
CHARACTER*128 CHMAIL
@@ -2061,10 +2037,7 @@ SUBROUTINE HMACHI
20612037
+ KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11,
20622038
+ KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6,
20632039
+ KCON1=9,KCON2=3,KBITS=1,KNTOT=2)
2064-
INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH,
2065-
+ NCHAR ,NRHIST,IERR ,NV
2066-
COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH,
2067-
+ NCHAR ,NRHIST,IERR ,NV
2040+
INCLUDE 'hcflag.inc'
20682041
INTEGER I1, I2, I3, I4, I5, I6, I7, I8,
20692042
+ I9, I10, I11, I12, I13, I14, I15, I16,
20702043
+I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27,
@@ -2348,10 +2321,7 @@ SUBROUTINE HFIND(IDD,CHROUT)
23482321
+ KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11,
23492322
+ KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6,
23502323
+ KCON1=9,KCON2=3,KBITS=1,KNTOT=2)
2351-
INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH,
2352-
+ NCHAR ,NRHIST,IERR ,NV
2353-
COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH,
2354-
+ NCHAR ,NRHIST,IERR ,NV
2324+
INCLUDE 'hcflag.inc'
23552325
INTEGER IFW ,NW ,NB ,IH ,NHT ,ICN ,IPONCE,
23562326
+ NH ,MSTEP ,NOENT ,NOLD ,IDOLAR,IBLANC,KBINSZ,INO ,
23572327
+ KSQUEZ,NCOLMA,NCOLPA,NLINPA, ICBLAC,ICSTAR,ICFUNC,
@@ -2801,10 +2771,7 @@ SUBROUTINE HNTMP(IDD)
28012771
+ KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11,
28022772
+ KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6,
28032773
+ KCON1=9,KCON2=3,KBITS=1,KNTOT=2)
2804-
INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH,
2805-
+ NCHAR ,NRHIST,IERR ,NV
2806-
COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH,
2807-
+ NCHAR ,NRHIST,IERR ,NV
2774+
INCLUDE 'hcflag.inc'
28082775
INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON,
28092776
+ ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1,
28102777
+ ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR,
@@ -2884,10 +2851,7 @@ SUBROUTINE HNBUFR(IDD)
28842851
+ KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11,
28852852
+ KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6,
28862853
+ KCON1=9,KCON2=3,KBITS=1,KNTOT=2)
2887-
INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH,
2888-
+ NCHAR ,NRHIST,IERR ,NV
2889-
COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH,
2890-
+ NCHAR ,NRHIST,IERR ,NV
2854+
INCLUDE 'hcflag.inc'
28912855
INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON,
28922856
+ ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1,
28932857
+ ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR,
@@ -3170,10 +3134,7 @@ SUBROUTINE HSPACE (N,CHROUT,IDD)
31703134
+ KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11,
31713135
+ KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6,
31723136
+ KCON1=9,KCON2=3,KBITS=1,KNTOT=2)
3173-
INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH,
3174-
+ NCHAR ,NRHIST,IERR ,NV
3175-
COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH,
3176-
+ NCHAR ,NRHIST,IERR ,NV
3137+
INCLUDE 'hcflag.inc'
31773138
INCLUDE 'quest.inc'
31783139
CHARACTER*(*) CHROUT
31793140
IDLAST=0
@@ -3317,10 +3278,7 @@ SUBROUTINE HNTVAR(ID1,IVAR,CHTAG,BLOCK,NSUB,ITYPE,ISIZE,IELEM)
33173278
+ ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12,
33183279
+ ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11,
33193280
+ ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6)
3320-
INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH,
3321-
+ NCHAR ,NRHIST,IERR ,NV
3322-
COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH,
3323-
+ NCHAR ,NRHIST,IERR ,NV
3281+
INCLUDE 'hcflag.inc'
33243282
INTEGER I1, I2, I3, I4, I5, I6, I7, I8,
33253283
+ I9, I10, I11, I12, I13, I14, I15, I16,
33263284
+I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27,
@@ -3434,10 +3392,7 @@ SUBROUTINE HNMSET(IDD, ITEM, IVAL)
34343392
+ ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12,
34353393
+ ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11,
34363394
+ ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6)
3437-
INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH,
3438-
+ NCHAR ,NRHIST,IERR ,NV
3439-
COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH,
3440-
+ NCHAR ,NRHIST,IERR ,NV
3395+
INCLUDE 'hcflag.inc'
34413396
ID = IDD
34423397
IDPOS = LOCATI(IQ(LTAB+1),IQ(LCDIR+KNRH),ID)
34433398
IF (IDPOS .LE. 0) THEN
@@ -3540,10 +3495,7 @@ SUBROUTINE HNBUFF(IDD, FATAL)
35403495
+ KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11,
35413496
+ KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6,
35423497
+ KCON1=9,KCON2=3,KBITS=1,KNTOT=2)
3543-
INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH,
3544-
+ NCHAR ,NRHIST,IERR ,NV
3545-
COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH,
3546-
+ NCHAR ,NRHIST,IERR ,NV
3498+
INCLUDE 'hcflag.inc'
35473499
LOGICAL FATAL
35483500
IF (LQ(LCDIR-4) .EQ. 0) THEN
35493501
IF (FATAL) THEN
@@ -3606,10 +3558,7 @@ SUBROUTINE HNBFWR(IDD)
36063558
+ ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12,
36073559
+ ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11,
36083560
+ ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6)
3609-
INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH,
3610-
+ NCHAR ,NRHIST,IERR ,NV
3611-
COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH,
3612-
+ NCHAR ,NRHIST,IERR ,NV
3561+
INCLUDE 'hcflag.inc'
36133562
CHARACTER*128 CHWOLD, CHDIR, CWDRZ
36143563
INTEGER KEYS(2)
36153564
IERR = 0
@@ -3698,10 +3647,7 @@ SUBROUTINE HNHDWR(IDD)
36983647
+ ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12,
36993648
+ ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11,
37003649
+ ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6)
3701-
INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH,
3702-
+ NCHAR ,NRHIST,IERR ,NV
3703-
COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH,
3704-
+ NCHAR ,NRHIST,IERR ,NV
3650+
INCLUDE 'hcflag.inc'
37053651
CHARACTER*128 CHWOLD, CHDIR, CWDRZ
37063652
INTEGER KEYS(2)
37073653
IERR = 0
@@ -3871,10 +3817,7 @@ SUBROUTINE HLDIRT(CHDIR)
38713817
+ KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11,
38723818
+ KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6,
38733819
+ KCON1=9,KCON2=3,KBITS=1,KNTOT=2)
3874-
INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH,
3875-
+ NCHAR ,NRHIST,IERR ,NV
3876-
COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH,
3877-
+ NCHAR ,NRHIST,IERR ,NV
3820+
INCLUDE 'hcflag.inc'
38783821
INTEGER LOUT,LERR,LINFIT
38793822
COMMON/HCUNIT/LOUT,LERR,LINFIT
38803823
INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON,

‎misc/minicern/src/hcflag.inc‎

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,5 @@
1+
C=== hcflag.inc ================================================
2+
INTEGER ID,IDBADD,LID,IDLAST,IDHOLD,NBIT,NBITCH,
3+
+ NCHAR,NRHIST,IERR,NV
4+
COMMON /HCFLAG/ ID,IDBADD,LID,IDLAST,IDHOLD,NBIT,NBITCH,
5+
+ NCHAR,NRHIST,IERR ,NV

‎misc/minicern/src/quest.inc‎

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1 +1,3 @@
1-
COMMON /QUEST/ IQUEST(100)
1+
C=== quest.inc =================================================
2+
INTEGER IQUEST
3+
COMMON /QUEST/ IQUEST(100)

0 commit comments

Comments
 (0)