C CVRCDS.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 CVRCDS suite of C modules. This file must be INCLUDEd in all of the FORTRAN C source files. C C C Edit Record: C C 24-Apr-91: Original creation started. C 04-Jun-91: Original creation completed. C C*********************************************************************** IMPLICIT COMPLEX*8 (A-Z) !This is used for the lack of an ! IMPLICIT NONE statement. ! BYTE * AnsweB(32), !Same as Answer. * CrRtB, !Carriage return character. * InBufB(512), !Input data buffer. * LnFdB, !Line feed character. * OtBufB(512), !Output data buffer. * RcdLnB(2) !Same as RcdLen. ! CHARACTER*32 Answer !Response to a prompt. CHARACTER*1 Colon !ASCII colon character. CHARACTER*17 EndMsg !Program termination message. CHARACTER*16 FilNam !Input and output file names. CHARACTER*1 Period !ASCII period character. CHARACTER*15 ProgID !Progran ID and version. ! INTEGER*2 * BytPtr, !Byte pointer for ASCII records. * ColPos, !Position of colon character. * FlNmLn, !I/O file name length. * IBfPtr, !Input data buffer pointer. * InLun, !Input logical unit number. * IRcdNm, !Input file record number. * OBfPtr, !Output data buffer pointer. * ORcdNm, !Output file record number. * OutLun, !Output logical unit number. * PerPos, !Position of period character. * RcdLen !ASCII data record length. ! LOGICAL*2 * EOFFlg, !End of file flag, .TRUE. = EOF. * Error !Error flag, .TRUE. = error. ! COMMON /BYTES/ !Byte variables. * CrRtB, * InBufB, * LnFdB, * OtBufB ! COMMON /CHARS/ !Character variables. * Answer, * Colon, * EndMsg, * FilNam, * Period, * ProgID ! COMMON /WORDS/ !Word boundary variables. * BytPtr, * ColPos, * EOFFlg, * Error, * FilSiz, * FlNmLn, * FlNmR5, * IBfPtr, * InLun, * IRcdNm, * Iret, * OBfPtr, * ORcdNm, * OutLun, * PerPos, * RcdLen ! EQUIVALENCE * (Answer, AnsweB), * (RcdLen, RcdLnB) ! DATA * Colon /':'/, * CrRtB /13/, * EndMsg /'CVRCDS: All done'/, * EOFFlg /.FALSE./, * Error /.FALSE./, * InLun /10/, * LnFdB /10/, * OutLun /20/, * Period /'.'/, * ProgID /'CVRCDS: 91f04a'/ ! C End of file, CVRCDS.DAT.