SUBROUTINE WTRCD 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 Write a buffer of converted ASCII records to the output file. C Reset the output buffer byte pointer. C C If a write error occurs, set the error flag, display an error C message, and exit this subroutine. C C C Edit Record: C C 07-May-91: Original creation started. C 04-Jun-91: Original creation completed. C C C Calling sequence: C C FilNam = C ORcdNm = C OtBufB() = C OutLun = C CALL WTRCD C C C Returns: C C Error C OBfPtr C ORcdNm C C C Called By: C C CRWORK C C*********************************************************************** INCLUDE 'CVRCDS.DAT' !Common & variables declarations WRITE (UNIT=OutLun,REC=ORcdNm,ERR=800) OtBufB OBfPtr = 1 GOTO 900 800 CONTINUE Error = .TRUE. TYPE *, 'WTRCD: Write error on output file, ',FilNam TYPE * 900 CONTINUE RETURN END !WTRCD.FOR.