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

Go to the source code of this file.

Functions/Subroutines

subroutine seqsdx (CARD, LUN)
 THIS SUBROUTINE DECODES THE TABLE D SEQUENCE INFORMATION FROM A MNEMONIC DEFINITION CARD THAT WAS PREVIOUSLY READ FROM A USER-SUPPLIED BUFR DICTIONARY TABLE IN CHARACTER FORMAT BY BUFR ARCHIVE LIBRARY SUBROUTINE RDUSDX. More...
 

Detailed Description

Author
WOOLLEN
Date
1994-01-06

Definition in file seqsdx.f.

Function/Subroutine Documentation

subroutine seqsdx ( character*80  CARD,
  LUN 
)

THIS SUBROUTINE DECODES THE TABLE D SEQUENCE INFORMATION FROM A MNEMONIC DEFINITION CARD THAT WAS PREVIOUSLY READ FROM A USER-SUPPLIED BUFR DICTIONARY TABLE IN CHARACTER FORMAT BY BUFR ARCHIVE LIBRARY SUBROUTINE RDUSDX.

THESE ARE THEN ADDED TO THE ALREADY-EXISTING ENTRY FOR THAT MNEMONIC (BUILT IN RDUSDX) WITHIN THE INTERNAL BUFR TABLE D ARRAY TABD(*,LUN) IN MODULE TABABD.

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" 2003-11-04 J. ATOR – ADDED DOCUMENTATION 2003-11-04 S. BENDER – ADDED REMARKS/BUFRLIB ROUTINE INTERDEPENDENCIES 2003-11-04 D. KEYSER – UNIFIED/PORTABLE FOR WRF; ADDED HISTORY DOCUMENTATION; OUTPUTS MORE COMPLETE DIAGNOSTIC INFO WHEN ROUTINE TERMINATES ABNORMALLY; CHANGED CALL FROM BORT TO BORT2 2007-01-19 J. ATOR – REPLACED CALL TO PARSEQ WITH CALL TO PARSTR

USAGE: CALL SEQSDX (CARD, LUN) INPUT ARGUMENT LIST: CARD - CHARACTER*80: MNEMONIC DEFINITION CARD THAT WAS READ FROM A USER-SUPPLIED BUFR DICTIONARY TABLE LUN - INTEGER: I/O STREAM INDEX INTO INTERNAL MEMORY ARRAYS

REMARKS: THIS ROUTINE CALLS: ADN30 BORT2 NEMOCK NEMTAB NUMTAB PARSTR PKTDD RSVFVM STRNUM THIS ROUTINE IS CALLED BY: RDUSDX Normally not called by any application programs.

Definition at line 39 of file seqsdx.f.

References adn30(), bort2(), nemock(), nemtab(), numtab(), parstr(), pktdd(), rsvfvm(), and strnum().

Referenced by rdusdx().