C EXTFLS.DAT C C C Author: Nick Bourgeois Version: 91f04a C 9605 Giddings Ave. NE C Albuquerque, NM 87109 C (505) 828-9566 C C C Description: C C COMMON and variables declarations for the EXTFLS suite of C modules. This file must be INCLUDEd in all of the FORTRAN C source files. C C C Edit Record: C C 16-Jan-91: Original creation started. C 21-Mar-91: Original creation completed. C 04-Jun-91: Deleted some unused variables. C C*********************************************************************** IMPLICIT COMPLEX*8 (A-Z) !This is used for the lack of an ! IMPLICIT NONE statement. INTEGER*2 BtBfLn !Byte buffer length. PARAMETER (BtBfLn = 16384) INTEGER*2 FlBfLn !Data field buffer length. PARAMETER (FlBfLn = 64) BYTE * AnsweB(32), !Same as Answer. * ByteBf(BtBfLn), !Tape record data buffer. * FieldB(FlBfLn), !Directory data field buffer. * FldIdB(2), !Data field identification. * FldLnB(2), !Data field length. * OutBfB(16) !Output data buffer. CHARACTER*32 Answer !Response to a prompt. CHARACTER*18 EndMsg !Program termination message. CHARACTER*(FlBfLn) FieldC !Directory data field buffer. CHARACTER*16 FilNam !Name of output file. CHARACTER*80 LBLRCD !Tape label record buffer. CHARACTER*4 MTDvNm !Mag tape device name. CHARACTER*16 OutBfC !Output data buffer. CHARACTER*15 ProgID !Progran ID and version. CHARACTER*16 SSName !Saveset name. INTEGER*2 * BytPtr, !Byte buffer pointer. * FieldI(FlBfLn/2), !Directory data field buffer. * FldIdI, !Data field identification. * FldLnI, !Data field length. * FlNmLn, !Length of the file name. * Iret, !Function call return value. * LRFlg, !Last saveset data record flag. * OutLun, !Output device logical unit ! number. * Read, !Mag tape read instruction. * Rewind, !Mag tape rewind instruction. * SSNmLn, !Saveset name length. * SSRcLn, !Saveset record length. * SSRcNm, !Saveset record number. * XORFct !XOR grouping factor. LOGICAL*2 * Error, !Error flag, .TRUE. = error. * SelFlg !Select flag, .TRUE. = select. COMMON /BYTES/ !Byte integer variables. * ByteBf COMMON /CHARS/ !Character variables. * Answer, * EndMsg, * FieldC, * FilNam, * MTDvNm, * OutBfC, * ProgID, * SSName COMMON /WORDS/ !Word boundary variables. * BytPtr, * Error, * FldIdI, * FldLnI, * FlNmLn, * Iret, * OutLun, * Read, * Rewind, * SelFlg, * SSNmLn, * SSRcLn, * XORFct EQUIVALENCE * (Answer, AnsweB), * (ByteBf, LblRcd), * (ByteBf(7), LRFlg), * (ByteBf(9), SSRcNm), * (FieldB, FieldC), * (FieldB, FieldI), * (FldIdB, FldIdI), * (FldLnB, FldLnI), * (OutBfB, OutBfC) DATA * EndMsg /'EXTFLS: All done '/, * Error /.FALSE./, * MTDvNm /'MT0:'/, * OutLun /20/, * ProgID /'EXTFLS: 91f04a'/, * Read /1/, * Rewind /7/, * SelFlg /.FALSE./ C End of file, EXTFLS.DAT.