NCEPLIBS-bufr  11.6.0
 All Data Structures Files Functions Variables Pages
posapx.f File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine posapx (LUNXX)
 THIS SUBROUTINE READS TO THE END OF THE FILE POINTED TO BY ABS(LUNXX) AND POSITIONS IT FOR APPENDING. More...
 

Detailed Description

Author
WOOLLEN
Date
1994-01-06

Definition in file posapx.f.

Function/Subroutine Documentation

subroutine posapx (   LUNXX)

THIS SUBROUTINE READS TO THE END OF THE FILE POINTED TO BY ABS(LUNXX) AND POSITIONS IT FOR APPENDING.

THE FILE MUST HAVE ALREADY BEEN OPENED FOR OUTPUT OPERATIONS. IF LUNXX > 0, THE FILE IS BACKSPACED BEFORE BEING POSITIONED FOR APPEND.

PROGRAM HISTORY LOG: 1994-01-06 J. WOOLLEN – ORIGINAL AUTHOR 1998-07-08 J. WOOLLEN – REPLACED CALL TO CRAY LIBRARY ROUTINE "ABORT" WITH CALL TO NEW INTERNAL BUFRLIB ROUTINE "BORT" 2000-09-19 J. WOOLLEN – MAXIMUM MESSAGE LENGTH INCREASED FROM 10,000 TO 20,000 BYTES 2003-11-04 S. BENDER – ADDED REMARKS/BUFRLIB ROUTINE INTERDEPENDENCIES 2003-11-04 D. KEYSER – UNIFIED/PORTABLE FOR WRF; ADDED DOCUMENTATION (INCLUDING HISTORY); OUTPUTS MORE COMPLETE DIAGNOSTIC INFO WHEN ROUTINE TERMINATES ABNORMALLY 2004-08-09 J. ATOR – MAXIMUM MESSAGE LENGTH INCREASED FROM 20,000 TO 50,000 BYTES 2009-03-23 J. ATOR – MODIFIED TO HANDLE EMBEDDED BUFR TABLE (DICTIONARY) MESSAGES; ADDED LUNXX < 0 OPTION TO SIMULATE POSAPN 2010-05-11 J. ATOR – SET ISCODES TO -1 IF UNSUCCESSFUL 2012-09-15 J. WOOLLEN – MODIFIED FOR C/I/O/BUFR INTERFACE; REPLACE FORTRAN BACKSPACE WITH C BACKBUFR REMOVE UNECESSARY ERROR CHECKING LOGIC 2014-12-10 J. ATOR – USE MODULES INSTEAD OF COMMON BLOCKS

USAGE: CALL POSAPX (LUNXX) INPUT ARGUMENT LIST: LUNXX - INTEGER: ABSOLUTE VALUE IS FORTRAN LOGICAL UNIT NUMBER FOR BUFR FILE (IF LUNXX < 0, THEN THE FILE IS NOT BACKSPACED BEFORE POSITIONING FOR APPEND)

INPUT FILES: UNIT "LUNIT" - BUFR FILE

REMARKS: THIS ROUTINE CALLS: BORT IDXMSG RDBFDX RDMSGW STATUS BACKBUFR THIS ROUTINE IS CALLED BY: OPENBF Normally not called by any application programs.

Definition at line 49 of file posapx.f.

References backbufr(), bort(), idxmsg(), rdbfdx(), rdmsgw(), and status().

Referenced by openbf().