SUBROUTINE PBDINI C- C- C- Purposes and Methods: C- -------------------- C- This routine must be called by the FrameWork to initialize C- the run time switches associated with the packages C- Created by the PROGRAM BUILDER C- 1-DEC-94 18:16:01 C- C- C- LOGICAL WRNGOK INTEGER LOGUNT,MAXLOG,MAXWRN CHARACTER*32 STRGLG LOGICAL PBD_FLAG_VALUE( 1) CHARACTER*32 PBD_FLAG_NAME( 1) INTEGER PBD_FLAG_MAX C- COMMON /PBD_COMMON/ PBD_FLAG_VALUE,PBD_FLAG_NAME,PBD_FLAG_MAX C- LOGUNT = 0 WRNGOK = .TRUE. CALL ERRINI(LOGUNT,WRNGOK) MAXLOG = 1 MAXWRN = 1 STRGLG = ' ' CALL ERRMAX(STRGLG,MAXLOG,MAXWRN) C- PBD_FLAG_MAX = 1 C- PBD_FLAG_VALUE( 1) = .TRUE. PBD_FLAG_NAME( 1) = 'L15CT_PROV' RETURN END C- C- C- The following routine has been generated by the Program Builder C- because the size of the common blocks has been modified C- by the user. C- C- Created by the PROGRAM BUILDER C- 1-DEC-94 18:16:01 C- C- SUBROUTINE INZCOM(I) C---------------------------------------------------------------------- C- C- Purpose and Methods : C- Initialize ZEBCOM (event data Zebra common) C- C- Inputs : I = 1 data in division 1, otherwise in division 2 C- Outputs : NONE C- C- Created 28-OCT-1988 Serban D. Protopopescu C- C---------------------------------------------------------------------- IMPLICIT NONE C- C INCLUDE 'D0$INC:ZEBCOM.INC' C- C- C DEC/CMS REPLACEMENT HISTORY, Element ZEBCOM.INC C *12 19-DEC-1988 11:45:39 D0LIBRARY "added IXCOM, removed IXDIV" C *11 29-NOV-1988 16:25:17 D0LIBRARY "added comments" C *10 29-NOV-1988 16:21:03 D0LIBRARY "added IXDIV and IXDVR" C *9 22-SEP-1986 11:26:53 JONCKHEERE "Increase ZEBCOM size for GEANT" C *8 2-SEP-1986 13:45:57 SERBAN "links are now in .LINKS files" C *7 15-JUL-1986 16:00:14 JONCKHEERE "PARAMETER FOR MUHT,CAHT,CDHT ADDED (MUH C *6 27-MAY-1986 13:10:11 SERBAN "parameter NNQ changed from 50000 to 100000" C *5 15-MAY-1986 16:51:11 SERBAN "added more pointers for ISAJET" C *4 12-MAY-1986 18:41:24 HEDIN "Put in Muon Zebra Links" C *3 12-MAY-1986 16:46:40 SERBAN "added parameters for link pointers" C *2 7-MAY-1986 21:41:19 KUNORI "convert to standard 77 (drop *4)" C *1 14-JAN-1986 17:22:30 PROTOPOPESCU "Zebra common block for event data" C DEC/CMS REPLACEMENT HISTORY, Element ZEBCOM.INC C C ZEBCOM is the main zebra common block for event data storage C INTEGER NNQ,NREF C PARAMETER (NNQ=200000) C- C- The following is the new parameter value C- PARAMETER (NNQ=2000000 ) C- PARAMETER (NREF=9) COMMON/ZEBCOM/IXCOM,IXMAIN,IXDVR,FENCE,LHEAD,LHEADR,LREF, & ZSTOR,ENDZS INTEGER IXCOM ! store number & ,IXMAIN ! event division number & ,IXDVR ! run division number INTEGER FENCE(8),LREF(NREF),ZSTOR(NNQ),ENDZS INTEGER LHEAD ! pointer to event HEAD bank INTEGER LHEADR ! pointer to begin run HEAD bank REAL Q(NNQ) INTEGER IQ(NNQ),LQ(NNQ) EQUIVALENCE (LHEAD,LQ(1)),(LQ(9),IQ(1),Q(1)) C C- C- INTEGER I LOGICAL FIRST SAVE FIRST DATA FIRST/.TRUE./ C---------------------------------------------------------------------- C IF(FIRST) THEN C C **** Initialize store in /ZEBCOM/ common (store 0) C IXCOM=0 CALL MZSTOR (IXCOM,'/ZEBCOM/','Q',FENCE,LHEAD,LREF(1),ZSTOR(1), & ZSTOR(40000),ENDZS) C C **** Use division IXMAIN for event data C IXMAIN=IXCOM+2 IF(I.EQ.1) IXMAIN=IXCOM+1 C C **** Create a division for run header (3rd division) C CALL MZDIV(IXCOM,IXDVR,'RUN DIV',100,40000,'L') FIRST=.FALSE. ENDIF 999 RETURN END C- C- C- C- C- The following routine has been generated by the Program Builder C- because the size of the common blocks has been modified C- by the user. C- C- Created by the PROGRAM BUILDER C- 1-DEC-94 18:16:01 C- C- SUBROUTINE INZSTP C---------------------------------------------------------------------- C- C- Purpose and Methods : C- Initialize ZEBSTP (Zebra common for static parameters) C- C- Created 28-OCT-1988 Serban D. Protopopescu C- C---------------------------------------------------------------------- IMPLICIT NONE C- C INCLUDE 'D0$INC:ZEBSTP.INC' C- C- C ZEBSTP.INC INTEGER NNC C PARAMETER (NNC=200000) C- C- The following is the new parameter value C- PARAMETER (NNC=1000000 ) C- COMMON/ZEBSTP/IXSTP,IDVSTP,IDVSUM,FENSTP,LSTPH,LZSUM, 1 LSLV0,LLPDH,LLGNH,LLTMH,LLGEH,LLV, ! level 0 links 2 LSMUO,LMPDH,LMGNH,LMTMH,LMGEH,LMU, ! muon links 3 LSVTX,LVPDH,LVGNH,LVTMH,LVGEH,LBMXY,LVT, ! vertex chamber links 4 LSCDC,LDPDH,LDGNH,LDTMH,LDGEH,LDALH,LDC, ! cdc links 5 LSTRD,LTPDH,LTGAI,LTGEN,LTGEO,LTCAN,LTLIK,LTR, ! trd links 6 LSFDC,LFPDH,LFGNH,LFTMH,LFGEH,LFD, ! fdc links 7 LSCAL,LCPDH,LCGNH,LCGEH,LCA, ! calorimeter links 8 ZCONS,ENDZC INTEGER IXSTP,IDVSTP,IDVSUM,FENSTP(10),LZSUM,ZCONS(NNC),ENDZC REAL C(NNC) INTEGER IC(NNC),LC(NNC) EQUIVALENCE (LSTPH,LC(1)),(LC(9),IC(1),C(1)) INTEGER LSTPH ! static parameter header $, LSLV0 ! level 0 constants header $, LLPDH ! level 0 pedestal header $, LLGNH ! level 0 gain header $, LLTMH ! level 0 time constants header $, LLGEH ! level 0 geometry constants header $, LLV(10) ! available C INTEGER LSMUO ! Muon constants header $, LMPDH ! Muon pedestal header $, LMGNH ! Muon gain header $, LMTMH ! Muon time constants header $, LMGEH ! Muon geometry constants header $, LMU(10) ! available C C LBMXY added NGraf 8/16/94 INTEGER LSVTX ! Vertex chamber constants header $, LVPDH ! Vertex chamber pedestal header $, LVGNH ! Vertex chamber gain header $, LVTMH ! Vertex chamber time constants header $, LVGEH ! Vertex chamber geometry constants header $, LBMXY ! Beam position bank (does NOT hang from SVTX) $, LVT(9) ! available C INTEGER LSCDC ! CDC constants header $, LDPDH ! CDC pedestal header $, LDGNH ! CDC gain header $, LDTMH ! CDC time constants header $, LDGEH ! CDC geometry constants header $, LDALH ! CDC wire alignment constants header $, LDC(9) ! available C C LTCAN and LTLIK add Azlyber 8/1/94 INTEGER LSTRD ! TRD constants header $, LTPDH ! TRD pedestal header $, LTGAI ! TRD gains header $, LTGEN ! TRD general header $, LTGEO ! TRD geometry constants header $, LTCAN ! TRD canary header $, LTLIK ! TRD header for JFL's likelihood tables $, LTR(8) ! available C INTEGER LSFDC ! FDC constants header $, LFPDH ! FDC pedestal header $, LFGNH ! FDC gain header $, LFTMH ! FDC time constants header $, LFGEH ! FDC geometry constants header $, LFD(10) ! available C INTEGER LSCAL ! Calorimeter constants header $, LCPDH ! Calorimeter pedestal header $, LCGNH ! Calorimeter gain header $, LCGEH ! Calorimeter geometry constants header $, LCA(11) ! available C C- C- LOGICAL FIRST SAVE FIRST DATA FIRST/.TRUE./ C---------------------------------------------------------------------- C IF(FIRST) THEN C C Note that 10 words are set aside for reference links C but are not specifically named in the common block C CALL MZSTOR (IXSTP,'/ZEBSTP/','C',FENSTP,LSTPH,ZCONS,ZCONS(10), & ZCONS(10000),ENDZC) C C **** IDVSTP is the 2nd division in the ZEBSTP store. C IDVSTP=IXSTP+2 CALL CONSTP ! construct STP headers FIRST=.FALSE. ENDIF 999 RETURN END C- C- LOGICAL FUNCTION STSWCH() C- C- C- Purposes and Methods: C- -------------------- C- This routine allows the Program Builder user to set C- and reset(ON/OFF) the run time switches associated C- with the packages. C- Created by the PROGRAM BUILDER C- 1-DEC-94 18:16:01 C- C- C- A dummy routine becuase no SWITCH C- input qualifier specified C- STSWCH = .TRUE. RETURN END C- C- C- C- C- LOGICAL FUNCTION PBD_SET_FLAG(FLAG_NAME,VALUE) C- IMPLICIT NONE C- CHARACTER*(*) FLAG_NAME CHARACTER*80 TMP_FLAG_NAME INTEGER I LOGICAL DONE,VALUE LOGICAL PBD_FLAG_VALUE( 1) CHARACTER*32 PBD_FLAG_NAME( 1) INTEGER PBD_FLAG_MAX COMMON /PBD_COMMON/ PBD_FLAG_VALUE,PBD_FLAG_NAME,PBD_FLAG_MAX C- C- I = 1 DONE = .FALSE. CALL PBD_UPCASE(FLAG_NAME,TMP_FLAG_NAME) DO WHILE ((I.LE.PBD_FLAG_MAX).AND.(.NOT.DONE)) IF (TMP_FLAG_NAME(1:LEN(FLAG_NAME)).EQ. & PBD_FLAG_NAME(I)(1:LEN(FLAG_NAME))) THEN PBD_FLAG_VALUE(i) = VALUE DONE = .TRUE. END IF I = I + 1 END DO PBD_SET_FLAG = DONE RETURN END C- C- C- LOGICAL FUNCTION PBD_GET_FLAG(FLAG_NAME,VALUE) C- IMPLICIT NONE C- CHARACTER*(*) FLAG_NAME CHARACTER*80 TMP_FLAG_NAME INTEGER I LOGICAL DONE,VALUE C- LOGICAL PBD_FLAG_VALUE( 1) CHARACTER*32 PBD_FLAG_NAME( 1) INTEGER PBD_FLAG_MAX COMMON /PBD_COMMON/ PBD_FLAG_VALUE,PBD_FLAG_NAME,PBD_FLAG_MAX C- I = 1 DONE = .FALSE. CALL PBD_UPCASE(FLAG_NAME,TMP_FLAG_NAME) DO WHILE ((I.LE.PBD_FLAG_MAX).AND.(.NOT.DONE)) IF (TMP_FLAG_NAME(1:LEN(FLAG_NAME)).EQ. & PBD_FLAG_NAME(I)(1:LEN(FLAG_NAME))) THEN VALUE = PBD_FLAG_VALUE(I) DONE = .TRUE. END IF I = I + 1 END DO PBD_GET_FLAG = DONE RETURN END C- C- C- SUBROUTINE PBD_DUMP_FLAGS C- IMPLICIT NONE C- INTEGER I C- LOGICAL PBD_FLAG_VALUE( 1) CHARACTER*32 PBD_FLAG_NAME( 1) INTEGER PBD_FLAG_MAX COMMON /PBD_COMMON/ PBD_FLAG_VALUE,PBD_FLAG_NAME,PBD_FLAG_MAX DO I = 1, PBD_FLAG_MAX WRITE (6,'('' '',A,'' : '',L1)') PBD_FLAG_NAME(I)(1:32), &PBD_FLAG_VALUE(I) END DO C- RETURN END C- C- C- SUBROUTINE PBD_UPCASE(IN_STRING,OUT_STRING) IMPLICIT NONE CHARACTER*(*) IN_STRING,OUT_STRING INTEGER I,OFFSET C- C- C- OFFSET = ICHAR('A') - ICHAR('a') DO I = 1, LEN(IN_STRING) IF ((IN_STRING(I:I).GE.'a').AND.(IN_STRING(I:I).LE.'z')) THEN OUT_STRING(I:I) = CHAR(ICHAR(IN_STRING(I:I)) + OFFSET) ELSE OUT_STRING(I:I) = IN_STRING(I:I) END IF END DO RETURN END C- C- C- SUBROUTINE PBD_GET_FLAG_NAME(FLAG_ID,FLAG_NAME,FLAG_VALUE) C- IMPLICIT NONE C- INTEGER FLAG_ID CHARACTER*(*) FLAG_NAME LOGICAL FLAG_VALUE C- LOGICAL PBD_FLAG_VALUE( 1) CHARACTER*32 PBD_FLAG_NAME( 1) INTEGER PBD_FLAG_MAX COMMON /PBD_COMMON/ PBD_FLAG_VALUE,PBD_FLAG_NAME,PBD_FLAG_MAX C- IF ( FLAG_ID .LE. PBD_FLAG_MAX ) THEN FLAG_NAME = PBD_FLAG_NAME(FLAG_ID) FLAG_VALUE = PBD_FLAG_VALUE(FLAG_ID) ELSE FLAG_NAME = ' ' FLAG_ID = 0 FLAG_VALUE = .FALSE. END IF C- RETURN END C- C- C- LOGICAL FUNCTION EVENT_READ_OK() C- C- C- Purposes and Methods: C- -------------------- C- C- Created by the PROGRAM BUILDER Release C- 1-DEC-94 18:16:01 C- C- CHARACTER*32 MESSID,CALLER CHARACTER*80 MESSAG LOGICAL PBD_FLAG_VALUE( 1) CHARACTER*32 PBD_FLAG_NAME( 1) INTEGER PBD_FLAG_MAX COMMON /PBD_COMMON/ PBD_FLAG_VALUE,PBD_FLAG_NAME,PBD_FLAG_MAX C- EVENT_READ_OK = .TRUE. C- C- C- No routine was provided for the package: L15CT_PROV C- RETURN END C- C- C- LOGICAL FUNCTION USREVT() C- C- C- Purposes and Methods: C- -------------------- C- C- Created by the PROGRAM BUILDER Release C- 1-DEC-94 18:16:01 C- C- CHARACTER*32 MESSID,CALLER CHARACTER*80 MESSAG LOGICAL L15CT_PROV_EVENT EXTERNAL L15CT_PROV_EVENT LOGICAL PBD_FLAG_VALUE( 1) CHARACTER*32 PBD_FLAG_NAME( 1) INTEGER PBD_FLAG_MAX COMMON /PBD_COMMON/ PBD_FLAG_VALUE,PBD_FLAG_NAME,PBD_FLAG_MAX C- USREVT = .TRUE. C- C- IF ( (PBD_FLAG_VALUE( 1)) & ) THEN IF (.NOT. L15CT_PROV_EVENT()) THEN USREVT = .FALSE. MESSID = '!L15CT_PROV_EVENT is false.' CALLER = 'L15CT_PROV_EVENT' MESSAG = 'Further processing is skipped' CALL ERRMSG(MESSID,CALLER,MESSAG,'W') RETURN END IF END IF RETURN END C- C- C- LOGICAL FUNCTION USRINI() C- C- C- Purposes and Methods: C- -------------------- C- C- Created by the PROGRAM BUILDER Release C- 1-DEC-94 18:16:01 C- C- CHARACTER*32 MESSID,CALLER CHARACTER*80 MESSAG LOGICAL PBD_FLAG_VALUE( 1) CHARACTER*32 PBD_FLAG_NAME( 1) INTEGER PBD_FLAG_MAX COMMON /PBD_COMMON/ PBD_FLAG_VALUE,PBD_FLAG_NAME,PBD_FLAG_MAX C- USRINI = .TRUE. C- C- C- No routine was provided for the package: L15CT_PROV C- RETURN END C- C- C- LOGICAL FUNCTION USDIAL() C- C- C- Purposes and Methods: C- -------------------- C- C- Created by the PROGRAM BUILDER Release C- 1-DEC-94 18:16:01 C- C- CHARACTER*32 MESSID,CALLER CHARACTER*80 MESSAG LOGICAL PBD_FLAG_VALUE( 1) CHARACTER*32 PBD_FLAG_NAME( 1) INTEGER PBD_FLAG_MAX COMMON /PBD_COMMON/ PBD_FLAG_VALUE,PBD_FLAG_NAME,PBD_FLAG_MAX C- USDIAL = .TRUE. C- C- C- No routine was provided for the package: L15CT_PROV C- RETURN END C- C- C- LOGICAL FUNCTION USENDR() C- C- C- Purposes and Methods: C- -------------------- C- C- Created by the PROGRAM BUILDER Release C- 1-DEC-94 18:16:01 C- C- CHARACTER*32 MESSID,CALLER CHARACTER*80 MESSAG LOGICAL PBD_FLAG_VALUE( 1) CHARACTER*32 PBD_FLAG_NAME( 1) INTEGER PBD_FLAG_MAX COMMON /PBD_COMMON/ PBD_FLAG_VALUE,PBD_FLAG_NAME,PBD_FLAG_MAX C- USENDR = .TRUE. C- C- C- No routine was provided for the package: L15CT_PROV C- RETURN END C- C- C- LOGICAL FUNCTION USRPAR() C- C- C- Purposes and Methods: C- -------------------- C- C- Created by the PROGRAM BUILDER Release C- 1-DEC-94 18:16:01 C- C- CHARACTER*32 MESSID,CALLER CHARACTER*80 MESSAG LOGICAL PBD_FLAG_VALUE( 1) CHARACTER*32 PBD_FLAG_NAME( 1) INTEGER PBD_FLAG_MAX COMMON /PBD_COMMON/ PBD_FLAG_VALUE,PBD_FLAG_NAME,PBD_FLAG_MAX C- USRPAR = .TRUE. C- C- C- No routine was provided for the package: L15CT_PROV C- RETURN END C- C- C- LOGICAL FUNCTION USRPST() C- C- C- Purposes and Methods: C- -------------------- C- C- Created by the PROGRAM BUILDER Release C- 1-DEC-94 18:16:01 C- C- CHARACTER*32 MESSID,CALLER CHARACTER*80 MESSAG LOGICAL PBD_FLAG_VALUE( 1) CHARACTER*32 PBD_FLAG_NAME( 1) INTEGER PBD_FLAG_MAX COMMON /PBD_COMMON/ PBD_FLAG_VALUE,PBD_FLAG_NAME,PBD_FLAG_MAX C- USRPST = .TRUE. C- C- C- No routine was provided for the package: L15CT_PROV C- RETURN END C- C- C- LOGICAL FUNCTION USETSS() C- C- C- Purposes and Methods: C- -------------------- C- C- Created by the PROGRAM BUILDER Release C- 1-DEC-94 18:16:01 C- C- CHARACTER*32 MESSID,CALLER CHARACTER*80 MESSAG LOGICAL PBD_FLAG_VALUE( 1) CHARACTER*32 PBD_FLAG_NAME( 1) INTEGER PBD_FLAG_MAX COMMON /PBD_COMMON/ PBD_FLAG_VALUE,PBD_FLAG_NAME,PBD_FLAG_MAX C- USETSS = .TRUE. C- C- C- No routine was provided for the package: L15CT_PROV C- RETURN END C- C- C- LOGICAL FUNCTION EVT_DSTDROP() C- C- C- Purposes and Methods: C- -------------------- C- C- Created by the PROGRAM BUILDER Release C- 1-DEC-94 18:16:01 C- C- CHARACTER*32 MESSID,CALLER CHARACTER*80 MESSAG LOGICAL PBD_FLAG_VALUE( 1) CHARACTER*32 PBD_FLAG_NAME( 1) INTEGER PBD_FLAG_MAX COMMON /PBD_COMMON/ PBD_FLAG_VALUE,PBD_FLAG_NAME,PBD_FLAG_MAX C- EVT_DSTDROP = .TRUE. C- C- C- No routine was provided for the package: L15CT_PROV C- RETURN END C- C- C- LOGICAL FUNCTION PXEXEC() C- C- C- Purposes and Methods: C- -------------------- C- C- Created by the PROGRAM BUILDER Release C- 1-DEC-94 18:16:01 C- C- CHARACTER*32 MESSID,CALLER CHARACTER*80 MESSAG LOGICAL PBD_FLAG_VALUE( 1) CHARACTER*32 PBD_FLAG_NAME( 1) INTEGER PBD_FLAG_MAX COMMON /PBD_COMMON/ PBD_FLAG_VALUE,PBD_FLAG_NAME,PBD_FLAG_MAX C- PXEXEC = .TRUE. C- C- C- No routine was provided for the package: L15CT_PROV C- RETURN END C- C- C- LOGICAL FUNCTION USRSSM() C- C- C- Purposes and Methods: C- -------------------- C- C- Created by the PROGRAM BUILDER Release C- 1-DEC-94 18:16:01 C- C- CHARACTER*32 MESSID,CALLER CHARACTER*80 MESSAG LOGICAL L15CT_PROV_RUN_SUMMARY EXTERNAL L15CT_PROV_RUN_SUMMARY LOGICAL PBD_FLAG_VALUE( 1) CHARACTER*32 PBD_FLAG_NAME( 1) INTEGER PBD_FLAG_MAX COMMON /PBD_COMMON/ PBD_FLAG_VALUE,PBD_FLAG_NAME,PBD_FLAG_MAX C- USRSSM = .TRUE. C- C- IF ( (PBD_FLAG_VALUE( 1)) & ) THEN IF (.NOT. L15CT_PROV_RUN_SUMMARY()) THEN USRSSM = .FALSE. CALLER = 'L15CT_PROV_RUN_SUMMARY' MESSAG = 'This error is ignored' CALL ERRMSG(MESSID,CALLER,MESSAG,'I') END IF END IF RETURN END C- C- C- LOGICAL FUNCTION USRUSM() C- C- C- Purposes and Methods: C- -------------------- C- C- Created by the PROGRAM BUILDER Release C- 1-DEC-94 18:16:01 C- C- CHARACTER*32 MESSID,CALLER CHARACTER*80 MESSAG LOGICAL PBD_FLAG_VALUE( 1) CHARACTER*32 PBD_FLAG_NAME( 1) INTEGER PBD_FLAG_MAX COMMON /PBD_COMMON/ PBD_FLAG_VALUE,PBD_FLAG_NAME,PBD_FLAG_MAX C- USRUSM = .TRUE. C- C- C- No routine was provided for the package: L15CT_PROV C- RETURN END C- C- C- LOGICAL FUNCTION USRWRT() C- C- C- Purposes and Methods: C- -------------------- C- C- Created by the PROGRAM BUILDER Release C- 1-DEC-94 18:16:01 C- C- CHARACTER*32 MESSID,CALLER CHARACTER*80 MESSAG LOGICAL PBD_FLAG_VALUE( 1) CHARACTER*32 PBD_FLAG_NAME( 1) INTEGER PBD_FLAG_MAX COMMON /PBD_COMMON/ PBD_FLAG_VALUE,PBD_FLAG_NAME,PBD_FLAG_MAX C- USRWRT = .TRUE. C- C- C- No routine was provided for the package: L15CT_PROV C- RETURN END C- C- C- LOGICAL FUNCTION USRZEV() C- C- C- Purposes and Methods: C- -------------------- C- C- Created by the PROGRAM BUILDER Release C- 1-DEC-94 18:16:01 C- C- CHARACTER*32 MESSID,CALLER CHARACTER*80 MESSAG LOGICAL PBD_FLAG_VALUE( 1) CHARACTER*32 PBD_FLAG_NAME( 1) INTEGER PBD_FLAG_MAX COMMON /PBD_COMMON/ PBD_FLAG_VALUE,PBD_FLAG_NAME,PBD_FLAG_MAX C- USRZEV = .TRUE. C- C- C- No routine was provided for the package: L15CT_PROV C- RETURN END C- C- C- LOGICAL FUNCTION USZERO() C- C- C- Purposes and Methods: C- -------------------- C- C- Created by the PROGRAM BUILDER Release C- 1-DEC-94 18:16:01 C- C- CHARACTER*32 MESSID,CALLER CHARACTER*80 MESSAG LOGICAL PBD_FLAG_VALUE( 1) CHARACTER*32 PBD_FLAG_NAME( 1) INTEGER PBD_FLAG_MAX COMMON /PBD_COMMON/ PBD_FLAG_VALUE,PBD_FLAG_NAME,PBD_FLAG_MAX C- USZERO = .TRUE. C- C- C- No routine was provided for the package: L15CT_PROV C- RETURN END C- C- C- LOGICAL FUNCTION DMPUDF() C- C- C- Purposes and Methods: C- -------------------- C- C- Created by the PROGRAM BUILDER Release C- 1-DEC-94 18:16:01 C- C- CHARACTER*32 MESSID,CALLER CHARACTER*80 MESSAG LOGICAL PBD_FLAG_VALUE( 1) CHARACTER*32 PBD_FLAG_NAME( 1) INTEGER PBD_FLAG_MAX COMMON /PBD_COMMON/ PBD_FLAG_VALUE,PBD_FLAG_NAME,PBD_FLAG_MAX C- DMPUDF = .TRUE. C- C- C- No routine was provided for the package: L15CT_PROV C- RETURN END C- C- C- LOGICAL FUNCTION DMPUSR() C- C- C- Purposes and Methods: C- -------------------- C- C- Created by the PROGRAM BUILDER Release C- 1-DEC-94 18:16:01 C- C- CHARACTER*32 MESSID,CALLER CHARACTER*80 MESSAG LOGICAL PBD_FLAG_VALUE( 1) CHARACTER*32 PBD_FLAG_NAME( 1) INTEGER PBD_FLAG_MAX COMMON /PBD_COMMON/ PBD_FLAG_VALUE,PBD_FLAG_NAME,PBD_FLAG_MAX C- DMPUSR = .TRUE. C- C- C- No routine was provided for the package: L15CT_PROV C- RETURN END C- C- C- LOGICAL FUNCTION UQUIT() C- C- C- Purposes and Methods: C- -------------------- C- C- Created by the PROGRAM BUILDER Release C- 1-DEC-94 18:16:01 C- C- CHARACTER*32 MESSID,CALLER CHARACTER*80 MESSAG LOGICAL PBD_FLAG_VALUE( 1) CHARACTER*32 PBD_FLAG_NAME( 1) INTEGER PBD_FLAG_MAX COMMON /PBD_COMMON/ PBD_FLAG_VALUE,PBD_FLAG_NAME,PBD_FLAG_MAX C- UQUIT = .TRUE. C- C- C- No routine was provided for the package: L15CT_PROV C- RETURN END C- C- C-