*KEEP,BPOYBS.
C
C RUNG Bank Structure
C ===================
INTEGER RUNGID
PARAMETER (RUNGID = 0)
INTEGER RUNVER
PARAMETER (RUNVER = 1)
INTEGER RUNRND
PARAMETER (RUNRND = 3)
INTEGER RUNEVS
PARAMETER (RUNEVS = 5)
C
C PART Bank Structure
C ===================
INTEGER PARNUM
PARAMETER (PARNUM = 0)
INTEGER PARNAM
PARAMETER (PARNAM = 1)
INTEGER PARTRT
PARAMETER (PARTRT = 6)
INTEGER PARMAS
PARAMETER (PARMAS = 7)
INTEGER PARCHR
PARAMETER (PARCHR = 8)
INTEGER PARLTI
PARAMETER (PARLTI = 9)
INTEGER PARBRT
PARAMETER (PARBRT = 10)
INTEGER PARDMO
PARAMETER (PARDMO = 16)
INTEGER PAUSER
PARAMETER (PAUSER = 22)
C
C MATE Bank Structure
C ===================
INTEGER MATNUM
PARAMETER (MATNUM = 0)
INTEGER MATNAM
PARAMETER (MATNAM = 1)
INTEGER MATATN
PARAMETER (MATATN = 6)
INTEGER MATMAS
PARAMETER (MATMAS = 7)
INTEGER MATDEN
PARAMETER (MATDEN = 8)
INTEGER MATRLE
PARAMETER (MATRLE = 9)
INTEGER MATABL
PARAMETER (MATABL = 10)
INTEGER MAUSER
PARAMETER (MAUSER = 11)
C
C TMED Bank Structure
C ===================
INTEGER TMENUM
PARAMETER (TMENUM = 0)
INTEGER TMENAM
PARAMETER (TMENAM = 1)
INTEGER TMEMAT
PARAMETER (TMEMAT = 6)
INTEGER TMESTF
PARAMETER (TMESTF = 7)
INTEGER TMEMFI
PARAMETER (TMEMFI = 8)
INTEGER TMEMFM
PARAMETER (TMEMFM = 9)
INTEGER TMEMAA
PARAMETER (TMEMAA = 10)
INTEGER TMEMAS
PARAMETER (TMEMAS = 11)
INTEGER TMEMAE
PARAMETER (TMEMAE = 12)
INTEGER TMEEPS
PARAMETER (TMEEPS = 13)
INTEGER TMEMIS
PARAMETER (TMEMIS = 14)
INTEGER TMUSER
PARAMETER (TMUSER = 15)
C
C HEAD Bank Structure
C ===================
INTEGER HEARUN
PARAMETER (HEARUN = 0)
INTEGER HEAEVT
PARAMETER (HEAEVT = 1)
INTEGER HEARND
PARAMETER (HEARND = 2)
INTEGER HEAQMI
PARAMETER (HEAQMI = 4)
INTEGER HEAKIN
PARAMETER (HEAKIN = 5)
INTEGER HEAVER
PARAMETER (HEAVER = 6)
INTEGER HEAUSE
PARAMETER (HEAUSE = 7)
C
C KINE Bank Structure
C ===================
INTEGER KINPPX
PARAMETER (KINPPX = 0)
INTEGER KINPPY
PARAMETER (KINPPY = 1)
INTEGER KINPPZ
PARAMETER (KINPPZ = 2)
INTEGER KINPEN
PARAMETER (KINPEN = 3)
INTEGER KINPTY
PARAMETER (KINPTY = 4)
INTEGER KINVXO
PARAMETER (KINVXO = 5)
INTEGER KINNVX
PARAMETER (KINNVX = 6)
INTEGER KINVLS
PARAMETER (KINVLS = 7)
C
C VERT Bank Structure
C ===================
INTEGER VERXCO
PARAMETER (VERXCO = 0)
INTEGER VERYCO
PARAMETER (VERYCO = 1)
INTEGER VERZCO
PARAMETER (VERZCO = 2)
INTEGER VERTOF
PARAMETER (VERTOF = 3)
INTEGER VERTNO
PARAMETER (VERTNO = 4)
INTEGER VERTAR
PARAMETER (VERTAR = 5)
INTEGER VERNTR
PARAMETER (VERNTR = 6)
INTEGER VERTLS
PARAMETER (VERTLS = 7)
C
C DHIT Bank Structure
C ===================
INTEGER DHIHDS
PARAMETER (DHIHDS = 0)
INTEGER DHIVRN
PARAMETER (DHIVRN = 1)
INTEGER DHINRO
PARAMETER (DHINRO = 2)
INTEGER DHINCO
PARAMETER (DHINCO = 3)
INTEGER DHIPTY
PARAMETER (DHIPTY = 0)
INTEGER DHITRA
PARAMETER (DHITRA = 1)
INTEGER DHIADR
PARAMETER (DHIADR = 2)
INTEGER DHIXCO
PARAMETER (DHIXCO = 3)
INTEGER DHIYCO
PARAMETER (DHIYCO = 4)
INTEGER DHIZCO
PARAMETER (DHIZCO = 5)
INTEGER DHIPPX
PARAMETER (DHIPPX = 6)
INTEGER DHIPPY
PARAMETER (DHIPPY = 7)
INTEGER DHIPPZ
PARAMETER (DHIPPZ = 8)
INTEGER DHITOF
PARAMETER (DHITOF = 9)
INTEGER DHIELO
PARAMETER (DHIELO =10)
INTEGER DHILEN
PARAMETER (DHILEN =11)
INTEGER DHITIM
PARAMETER (DHITIM =12)
INTEGER DHIDIS
PARAMETER (DHIDIS =13)
INTEGER DHIFLA
PARAMETER (DHIFLA =14)
C
C CHIT Bank Structure
C ===================
INTEGER CHIHDS
PARAMETER (CHIHDS = 0)
INTEGER CHIVRN
PARAMETER (CHIVRN = 1)
INTEGER CHINRO
PARAMETER (CHINRO = 2)
INTEGER CHINCO
PARAMETER (CHINCO = 3)
INTEGER CHIPTY
PARAMETER (CHIPTY = 0)
INTEGER CHITRA
PARAMETER (CHITRA = 1)
INTEGER CHIADR
PARAMETER (CHIADR = 2)
INTEGER CHIXCO
PARAMETER (CHIXCO = 3)
INTEGER CHIYCO
PARAMETER (CHIYCO = 4)
INTEGER CHIZCO
PARAMETER (CHIZCO = 5)
INTEGER CHITOF
PARAMETER (CHITOF = 6)
INTEGER CHIELO
PARAMETER (CHIELO = 7)
INTEGER CHILEN
PARAMETER (CHILEN = 8)
C
C CFHI Bank Structure
C ===================
INTEGER CFHHDS
PARAMETER (CFHHDS = 0)
INTEGER CFHVRN
PARAMETER (CFHVRN = 1)
INTEGER CFHNRO
PARAMETER (CFHNRO = 2)
INTEGER CFHNCO
PARAMETER (CFHNCO = 3)
INTEGER CFHPTY
PARAMETER (CFHPTY = 0)
INTEGER CFHTRA
PARAMETER (CFHTRA = 1)
INTEGER CFHADR
PARAMETER (CFHADR = 2)
INTEGER CFHXCO
PARAMETER (CFHXCO = 3)
INTEGER CFHYCO
PARAMETER (CFHYCO = 4)
INTEGER CFHZCO
PARAMETER (CFHZCO = 5)
INTEGER CFHPPX
PARAMETER (CFHPPX = 6)
INTEGER CFHPPY
PARAMETER (CFHPPY = 7)
INTEGER CFHPPZ
PARAMETER (CFHPPZ = 8)
INTEGER CFHTOF
PARAMETER (CFHTOF = 9)
INTEGER CFHLEN
PARAMETER (CFHLEN = 10)
C
C AHIT Bank Structure
C ===================
INTEGER AHIHDS
PARAMETER (AHIHDS = 0)
INTEGER AHIVRN
PARAMETER (AHIVRN = 1)
INTEGER AHINRO
PARAMETER (AHINRO = 2)
INTEGER AHINCO
PARAMETER (AHINCO = 3)
INTEGER AHIPTY
PARAMETER (AHIPTY = 0)
INTEGER AHITRA
PARAMETER (AHITRA = 1)
INTEGER AHIADR
PARAMETER (AHIADR = 2)
INTEGER AHIXCO
PARAMETER (AHIXCO = 3)
INTEGER AHIYCO
PARAMETER (AHIYCO = 4)
INTEGER AHIZCO
PARAMETER (AHIZCO = 5)
INTEGER AHIPPX
PARAMETER (AHIPPX = 6)
INTEGER AHIPPY
PARAMETER (AHIPPY = 7)
INTEGER AHIPPZ
PARAMETER (AHIPPZ = 8)
INTEGER AHITOF
PARAMETER (AHITOF = 9)
INTEGER AHIELO
PARAMETER (AHIELO =10)
INTEGER AHILEN
PARAMETER (AHILEN =11)
C
C QIHI Bank Structure
C ===================
INTEGER QIHHDS
PARAMETER (QIHHDS = 0)
INTEGER QIHVRN
PARAMETER (QIHVRN = 1)
INTEGER QIHNRO
PARAMETER (QIHNRO = 2)
INTEGER QIHNCO
PARAMETER (QIHNCO = 3)
INTEGER QIHPTY
PARAMETER (QIHPTY = 0)
INTEGER QIHTRA
PARAMETER (QIHTRA = 1)
INTEGER QIHADR
PARAMETER (QIHADR = 2)
INTEGER QIHXCO
PARAMETER (QIHXCO = 3)
INTEGER QIHYCO
PARAMETER (QIHYCO = 4)
INTEGER QIHZCO
PARAMETER (QIHZCO = 5)
INTEGER QIHPPX
PARAMETER (QIHPPX = 6)
INTEGER QIHPPY
PARAMETER (QIHPPY = 7)
INTEGER QIHPPZ
PARAMETER (QIHPPZ = 8)
INTEGER QIHTOF
PARAMETER (QIHTOF = 9)
INTEGER QIHELO
PARAMETER (QIHELO =10)
INTEGER QIHLEN
PARAMETER (QIHLEN =11)
C
C QHIT Bank Structure
C ===================
INTEGER QHIHDS
PARAMETER (QHIHDS = 0)
INTEGER QHIVRN
PARAMETER (QHIVRN = 1)
INTEGER QHINRO
PARAMETER (QHINRO = 2)
INTEGER QHINCO
PARAMETER (QHINCO = 3)
INTEGER QHIPTY
PARAMETER (QHIPTY = 0)
INTEGER QHITRA
PARAMETER (QHITRA = 1)
INTEGER QHIADR
PARAMETER (QHIADR = 2)
INTEGER QHIXCO
PARAMETER (QHIXCO = 3)
INTEGER QHIYCO
PARAMETER (QHIYCO = 4)
INTEGER QHIZCO
PARAMETER (QHIZCO = 5)
INTEGER QHIPPX
PARAMETER (QHIPPX = 6)
INTEGER QHIPPY
PARAMETER (QHIPPY = 7)
INTEGER QHIPPZ
PARAMETER (QHIPPZ = 8)
INTEGER QHITOF
PARAMETER (QHITOF = 9)
INTEGER QHIELO
PARAMETER (QHIELO =10)
INTEGER QHILEN
PARAMETER (QHILEN =11)
C
C DTCE Bank Structure
C ===================
INTEGER DTCHDS
PARAMETER (DTCHDS = 0)
INTEGER DTCVRN
PARAMETER (DTCVRN = 1)
INTEGER DTCNRO
PARAMETER (DTCNRO = 2)
INTEGER DTCNCO
PARAMETER (DTCNCO = 3)
INTEGER DTCADR
PARAMETER (DTCADR = 0)
INTEGER DTCTIM
PARAMETER (DTCTIM = 1)
INTEGER DTCCHA
PARAMETER (DTCCHA = 2)
C
C DTKA Bank Structure
C ===================
INTEGER DTKHDS
PARAMETER (DTKHDS = 0)
INTEGER DTKVRN
PARAMETER (DTKVRN = 1)
INTEGER DTKNRO
PARAMETER (DTKNRO = 2)
INTEGER DTKNTR
PARAMETER (DTKNTR = 0)
INTEGER DTKADR
PARAMETER (DTKADR = 1)
C
C DTHA Bank Structure
C ===================
INTEGER DTHHDS
PARAMETER (DTHHDS = 0)
INTEGER DTHVRN
PARAMETER (DTHVRN = 1)
INTEGER DTHNRO
PARAMETER (DTHNRO = 2)
INTEGER DTHNHI
PARAMETER (DTHNHI = 0)
C
C CELE Bank Structure
C ===================
INTEGER CELHDS
PARAMETER (CELHDS = 0)
INTEGER CELVRN
PARAMETER (CELVRN = 1)
INTEGER CELCAL
PARAMETER (CELCAL = 2)
INTEGER CELNRO
PARAMETER (CELNRO = 3)
INTEGER CELNCO
PARAMETER (CELNCO = 4)
INTEGER CELADR
PARAMETER (CELADR = 0)
INTEGER CELEA
PARAMETER (CELEA = 1)
INTEGER CELEB
PARAMETER (CELEB = 2)
INTEGER CELTA
PARAMETER (CELTA = 3)
INTEGER CELTB
PARAMETER (CELTB = 4)
C
C CEKA Bank Structure
C ===================
INTEGER CEKHDS
PARAMETER (CEKHDS = 0)
INTEGER CEKVRN
PARAMETER (CEKVRN = 1)
INTEGER CEKNRO
PARAMETER (CEKNRO = 2)
INTEGER CEKNTR
PARAMETER (CEKNTR = 0)
INTEGER CEKADR
PARAMETER (CEKADR = 1)
C
C DTDR Bank Structure
C ===================
INTEGER DTDHDS
PARAMETER (DTDHDS = 0)
INTEGER DTDVRN
PARAMETER (DTDVRN = 1)
INTEGER DTDNRO
PARAMETER (DTDNRO = 2)
INTEGER DTDNCO
PARAMETER (DTDNCO = 3)
INTEGER DTDZES
PARAMETER (DTDZES = 4)
INTEGER DTDADR
PARAMETER (DTDADR = 0)
C
C DADR Bank Structure
C ===================
INTEGER DADHDS
PARAMETER (DADHDS = 0)
INTEGER DADVRN
PARAMETER (DADVRN = 1)
INTEGER DADNRO
PARAMETER (DADNRO = 2)
INTEGER DADNCO
PARAMETER (DADNCO = 3)
INTEGER DADPES
PARAMETER (DADPES = 4)
INTEGER DADADR
PARAMETER (DADADR = 0)
C
C CTDR Bank Structure
C ===================
INTEGER CTDHDS
PARAMETER (CTDHDS = 0)
INTEGER CTDVRN
PARAMETER (CTDVRN = 1)
INTEGER CTDNRO
PARAMETER (CTDNRO = 2)
INTEGER CTDNCO
PARAMETER (CTDNCO = 3)
INTEGER CTDADR
PARAMETER (CTDADR = 0)
C
C CADR Bank Structure
C ===================
INTEGER CADHDS
PARAMETER (CADHDS = 0)
INTEGER CADVRN
PARAMETER (CADVRN = 1)
INTEGER CADNRO
PARAMETER (CADNRO = 2)
INTEGER CADNCO
PARAMETER (CADNCO = 3)
INTEGER CADADR
PARAMETER (CADADR = 0)
[KLOE]
[Offline Doc]
[TRK Files]
Generated with Light on Thu Apr 8 13:00:16 MET DST 1999
.
Mail comments and suggestions.
