* * $Id: fqtopen.inc,v 1.3 1997/09/02 15:16:18 mclareni Exp $ * * $Log: fqtopen.inc,v $ * Revision 1.3 1997/09/02 15:16:18 mclareni * WINNT corrections * * Revision 1.2 1997/03/14 17:22:19 mclareni * WNT mods * * Revision 1.1.1.1.2.1 1997/01/21 11:34:08 mclareni * All mods for Winnt 96a on winnt branch * * Revision 1.1.1.1 1996/03/06 10:47:01 mclareni * Zebra * * * * fqtopen.inc * #if defined(CERNLIB_QMALT) # if defined(CERNLIB_QFIXDANY) OPEN (LUNFZ,FILE=FQNAME(JF),STATUS=CHST,FORM=CHFM, + RECORDTYPE='FIXED',BLOCKSIZE=3600,RECL=3600) # endif #elif defined(CERNLIB_QMAPO) # if defined(CERNLIB_QFIMDANY) OPEN (LUNFZ,FILE=FQNAME(JF),STATUS=CHST,FORM=CHFM,RECL=40000) # elif defined(CERNLIB_QFINDAN)||defined(CERNLIB_QFICDANY) OPEN (LUNFZ,FILE=FQNAME(JF),STATUS=CHST,FORM=CHFM,RECL=10000) # elif defined(CERNLIB_QFIXDANY) OPEN (LUNFZ,FILE=FQNAME(JF),STATUS=CHST,FORM=CHFM,RECL=3600) # endif #elif defined(CERNLIB_QMCRY) # if defined(CERNLIB_QFIDDAN) OPEN (LUNFZ,FILE=FQNAME(JF),STATUS=CHST,FORM=CHFM, + ACCESS='DIRECT',RECL=7200) # endif #elif defined(CERNLIB_QMCV64) # if defined(CERNLIB_QFIXDAN) OPEN (LUNFZ,FILE=FQNAME(JF),STATUS=CHST,FORM=CHFM, + RECORDTYPE='FIXED',BLOCKSIZE=7200,RECL=7200) # elif defined(CERNLIB_QFIXDAX) OPEN (LUNFZ,FILE=FQNAME(JF),STATUS=CHST,FORM=CHFM, + RECORDTYPE='FIXED',BLOCKSIZE=3600,RECL=3600) # elif defined(CERNLIB_QFIDDAN) OPEN (LUNFZ,FILE=FQNAME(JF),STATUS=CHST,FORM=CHFM, + ACCESS='DIRECT',RECL=7200) # endif #elif defined(CERNLIB_QMCV32) # if defined(CERNLIB_QFIXDAN) OPEN (LUNFZ,FILE=FQNAME(JF),STATUS=CHST,FORM=CHFM, + RECORDTYPE='FIXED',BLOCKSIZE=3600,RECL=3600) # elif defined(CERNLIB_QFIXDAX) OPEN (LUNFZ,FILE=FQNAME(JF),STATUS=CHST,FORM=CHFM, + RECORDTYPE='FIXED',BLOCKSIZE=3600,RECL=3600) # elif defined(CERNLIB_QFIDDAN) OPEN (LUNFZ,FILE=FQNAME(JF),STATUS=CHST,FORM=CHFM, + ACCESS='DIRECT',RECL=3600) # endif #elif defined(CERNLIB_QMDOS) || defined(CERNLIB_WINNT) # if (defined(CERNLIB_QFIXDANY))&&(defined(CERNLIB_QF2C) || (defined(CERNLIB_WINNT) && !defined(_ALPHA_))) OPEN (LUNFZ,FILE=FQNAME(JF),STATUS=CHST,FORM=CHFM, + BLOCKSIZE=3600,RECL=3600) # elif (defined(CERNLIB_QFIXDANY))&&(defined(CERNLIB_QFDEC))&&(defined(_ALPHA_)) OPEN (LUNFZ,FILE=FQNAME(JF),STATUS=CHST,FORM=CHFM, + RECL=900) # elif (defined(CERNLIB_QFIMDAX)) # if defined(CERNLIB_QFDEC) && defined(_ALPHA_) OPEN (LUNFZ,FILE=FQNAME(JF),STATUS=CHST,FORM=CHFM, + RECL=900) # else OPEN (LUNFZ,FILE=FQNAME(JF),STATUS=CHST,FORM=CHFM, + RECL=3600) # endif # elif (defined(CERNLIB_QFINDAN)) # if defined(CERNLIB_QFDEC) && defined(_ALPHA_) OPEN (LUNFZ,FILE=FQNAME(JF),STATUS=CHST,FORM=CHFM, + RECL=900) # else OPEN (LUNFZ,FILE=FQNAME(JF),STATUS=CHST,FORM=CHFM, + RECL=3600) # endif # elif defined(CERNLIB_QFIDDANY) OPEN (LUNFZ,FILE=FQNAME(JF),STATUS=CHST,FORM=CHFM, + ACCESS='DIRECT',RECL=3600) # elif defined(CERNLIB_QFILDANY)||defined(CERNLIB_QFIRDANY) CALL CFOPEN (LUNPTR(JF), 0, 900, CHCL, 0, FQNAME(JF), ISTAT) # elif 1 # if defined(CERNLIB_QFIDDANY) OPEN (LUNFZ,FILE=FQNAME(JF),STATUS=CHST,FORM=CHFM, + ACCESS='DIRECT',RECL=3600) # elif defined(CERNLIB_QFILDANY)||defined(CERNLIB_QFIRDANY) CALL CFOPEN (LUNPTR(JF), 0, 900, CHCL, 0, FQNAME(JF), ISTAT) # elif 1 OPEN (LUNFZ,FILE=FQNAME(JF),STATUS=CHST,FORM=CHFM) # endif #endif #elif defined(CERNLIB_QMVAX) # if defined(CERNLIB_QFIXDANY) OPEN (LUNFZ,FILE=FQNAME(JF),STATUS=CHST,FORM=CHFM, + RECORDTYPE='FIXED',BLOCKSIZE=3600,RECL=900) # elif defined(CERNLIB_QFIDDANY) OPEN (LUNFZ,FILE=FQNAME(JF),STATUS=CHST,FORM=CHFM, + ACCESS='DIRECT',RECL=900) # elif defined(CERNLIB_QFILDANY)||defined(CERNLIB_QFIRDANY) CALL CFOPEN (LUNPTR(JF), 0, 900, CHCL, 0, FQNAME(JF), ISTAT) # elif 1 OPEN (LUNFZ,FILE=FQNAME(JF),STATUS=CHST,FORM=CHFM) # endif #elif 1 # if defined(CERNLIB_QFIDDANY) OPEN (LUNFZ,FILE=FQNAME(JF),STATUS=CHST,FORM=CHFM, + ACCESS='DIRECT',RECL=3600) # elif defined(CERNLIB_QFILDANY)||defined(CERNLIB_QFIRDANY) CALL CFOPEN (LUNPTR(JF), 0, 900, CHCL, 0, FQNAME(JF), ISTAT) # elif 1 OPEN (LUNFZ,FILE=FQNAME(JF),STATUS=CHST,FORM=CHFM) # endif #endif