NCEPLIBS-bufr  11.7.0
 All Data Structures Files Functions Variables Pages
invcon.f File Reference

Go to the source code of this file.

Functions/Subroutines

function invcon (NC, LUN, INV1, INV2)
 THIS FUNCTION SEARCHES A "WINDOW" (SEE BELOW REMARKS) FOR AN ELEMENT IDENTIFIED IN THE USER STRING AS A CONDITIONAL NODE (I.E. More...
 

Detailed Description

Author
WOOLLEN
Date
1994-01-06

Definition in file invcon.f.

Function/Subroutine Documentation

function invcon (   NC,
  LUN,
  INV1,
  INV2 
)

THIS FUNCTION SEARCHES A "WINDOW" (SEE BELOW REMARKS) FOR AN ELEMENT IDENTIFIED IN THE USER STRING AS A CONDITIONAL NODE (I.E.

AN ELEMENT WHICH MUST MEET A CONDITION IN ORDER TO BE READ FROM OR WRITTEN TO A DATA SUBSET). IF A CONDITIONAL ELEMENT IS FOUND AND IT CONFORMS TO THE CONDITION, THEN THE INDEX OF THE ELEMENT WITHIN THE WINDOW IS RETURNED. OTHERWISE A VALUE OF ZERO IS RETURNED.

PROGRAM HISTORY LOG: 1994-01-06 J. WOOLLEN – ORIGINAL AUTHOR 1998-07-08 J. WOOLLEN – IMPROVED MACHINE PORTABILITY 1999-11-18 J. WOOLLEN – THE NUMBER OF BUFR FILES WHICH CAN BE OPENED AT ONE TIME INCREASED FROM 10 TO 32 (NECESSARY IN ORDER TO PROCESS MULTIPLE BUFR FILES UNDER THE MPI) 2003-11-04 S. BENDER – ADDED REMARKS/BUFRLIB ROUTINE INTERDEPENDENCIES 2003-11-04 D. KEYSER – MAXJL (MAXIMUM NUMBER OF JUMP/LINK ENTRIES) INCREASED FROM 15000 TO 16000 (WAS IN VERIFICATION VERSION); UNIFIED/PORTABLE FOR WRF; ADDED DOCUMENTATION (INCLUDING HISTORY) (INCOMPLETE); OUTPUTS MORE COMPLETE DIAGNOSTIC INFO WHEN UNUSUAL THINGS HAPPEN 2009-04-21 J. ATOR – USE ERRWRT 2010-04-27 J. WOOLLEN – ADD DOCUMENTATION 2014-12-10 J. ATOR – USE MODULES INSTEAD OF COMMON BLOCKS

USAGE: INVCON (NC, LUN, INV1, INV2) INPUT ARGUMENT LIST: NC - INTEGER: CONDITION CODE: 1 = '=' (EQUAL) 2 = '!' (NOT EQUAL) 3 = '<' (LESS THAN) 4 = '>' (GREATER THAN) LUN - INTEGER: I/O STREAM INDEX INTO INTERNAL MEMORY ARRAYS INV1 - INTEGER: FIRST INDEX OF WINDOW TO SEARCH INV2 - INTEGER: LAST INDEX OF WINDOW TO SEARCH

OUTPUT ARGUMENT LIST: INVCON - INTEGER: INDEX WITHIN WINDOW OF CONDITIONAL NODE CONFORMING TO SPECIFIED CONDITION 0 = NONE FOUND

REMARKS:

SEE THE DOCBLOCK IN BUFR ARCHIVE LIBRARY SUBROUTINE GETWIN FOR AN EXPLANATION OF "WINDOWS" WITHIN THE CONTEXT OF A BUFR DATA SUBSET.

THIS ROUTINE CALLS: ERRWRT THIS ROUTINE IS CALLED BY: CONWIN Normally not called by any application programs.

Definition at line 57 of file invcon.f.

References errwrt().

Referenced by conwin().