C TAPEDR.DAT C C C Author: Nick Bourgeois Version: 90l06a 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 TAPEDR suite of C modules. This file must be INCLUDEd in all of the FORTRAN C source files. C C C Edit Record: C C 12-Oct-90: Original creation started. C 08-Nov-90: Original creation completed. C 27-Nov-90: Added variables for HDR1 date conversion. C 06-Dec-90: Cleaned up documentation. 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. CHARACTER*32 Answer !Response to a prompt. CHARACTER*2 DaMoC !Day of the month. CHARACTER*4 DaYrC !Day of the year. CHARACTER*9 DateSt !Date string, dd-mmm-yy. CHARACTER*17 EndMsg !Program termination message. CHARACTER*(FlbFln) FieldC !Directory data field buffer. CHARACTER*80 LBLRCD !Tape label record buffer. CHARACTER*3 LinPrn !Line printer device name. CHARACTER*4 MonthC !Month name. CHARACTER*4 MTDvNm !Mag tape device name. CHARACTER*16 OutFil !Output dev:filnam.ext. CHARACTER*15 ProgID !Progran ID and version. CHARACTER*8 TimeSt !Time string, hh:mm:ss. CHARACTER*2 YearC !Year. INTEGER*2 * BytPtr, !Byte buffer pointer. * DaMoI, !Day of the month. * DaYrI, !Day of the year. * FieldI(FlBfLn/2), !Directory data field buffer. * FldIdI, !Data field identification. * FldLnI, !Data field length. * Iret, !Function call return value. * OutLun, !Output device logical unit ! number. * Read, !Mag tape read instruction. * Rewind, !Mag tape rewind instruction. * SSrcNm, !Saveset record number. * YearI !Year. LOGICAL*2 * Error !Error flag, .TRUE. = error. COMMON /BYTES/ !Byte integer variables. * ByteBf COMMON /CHARS/ !Character variables. * Answer, * DaMoC, * DayrC, * DateSt, * EndMsg, * FieldC, * LinPrn, * MonthC, * MTDvNm, * OutFil, * ProgID, * TimeSt, * YearC COMMON /WORDS/ !Word boundary variables. * BytPtr, * DaMoI, * DaYrI, * Error, * FldIdI, * FldLnI, * Iret, * OutLun, * Read, * Rewind, * YearI EQUIVALENCE * (Answer, AnsweB), * (ByteBf, LblRcd), * (ByteBf(9), SSRcNm), * (FieldB, FieldC), * (FieldB, FieldI), * (FldIdB, FldIdI), * (FldLnB, FldLnI) DATA * EndMsg /'TAPEDR: All done'/, * Error /.FALSE./, * LinPrn /'LP:'/, * MTDvNm /'MT0:'/, * OutLun /20/, * ProgID /'TAPEDR: 90l06a'/, * Read /1/, * Rewind /7/ C End of file, TAPEDR.DAT.