C SVSTDR.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 SVSTDR suite of C modules. This file must be INCLUDEd in all of the FORTRAN C source files. C C C Edit Record: C C 13-Nov-90: Original creation started. C 06-Dec-90: Original creation completed. 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*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 MTDvNm !Mag tape device name. CHARACTER*16 OutFil !Output dev:filnam.ext. CHARACTER*15 ProgID !Progran ID and version. CHARACTER*16 SSName !Saveset name. CHARACTER*8 TimeSt !Time string, hh:mm:ss. INTEGER*2 * BytPtr, !Byte buffer pointer. * FieldI(FlBfLn/2), !Directory data field buffer. * FldIdI, !Data field identification. * FldLnI, !Data field length. * 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. COMMON /BYTES/ !Byte integer variables. * ByteBf COMMON /CHARS/ !Character variables. * Answer, * DateSt, * EndMsg, * FieldC, * LinPrn, * MTDvNm, * OutFil, * ProgID, * SSName, * TimeSt COMMON /WORDS/ !Word boundary variables. * BytPtr, * Error, * FldIdI, * FldLnI, * Iret, * OutLun, * Read, * Rewind, * SSNmLn, * SSRcLn, * XORFct EQUIVALENCE * (Answer, AnsweB), * (ByteBf, LblRcd), * (ByteBf(7), LRFlg), * (ByteBf(9), SSRcNm), * (FieldB, FieldC), * (FieldB, FieldI), * (FldIdB, FldIdI), * (FldLnB, FldLnI) DATA * EndMsg /'SVSTDR: All done'/, * Error /.FALSE./, * LinPrn /'LP:'/, * MTDvNm /'MT0:'/, * OutLun /20/, * ProgID /'SVSTDR: 90l06a'/, * Read /1/, * Rewind /7/, * SSNmLn /16/ C End of file, SVSTDR.DAT.