61 COMMON /usrstr/ nnod,ncon,nods(20),nodc(10),ivls(10),kons(10)
70 IF(inv1.LE.0 .OR. inv1.GT.nval(lun)) goto 99
71 IF(inv2.LE.0 .OR. inv2.GT.nval(lun)) goto 99
77 IF(inv(
invcon,lun).EQ.nodc(nc))
THEN
78 IF(kons(nc).EQ.1 .AND. val(
invcon,lun).EQ.ivls(nc)) goto 100
79 IF(kons(nc).EQ.2 .AND. val(
invcon,lun).NE.ivls(nc)) goto 100
80 IF(kons(nc).EQ.3 .AND. val(
invcon,lun).LT.ivls(nc)) goto 100
81 IF(kons(nc).EQ.4 .AND. val(
invcon,lun).GT.ivls(nc)) goto 100
87 CALL
errwrt(
'++++++++++++++BUFR ARCHIVE LIBRARY+++++++++++++++++')
88 CALL
errwrt(
'BUFRLIB: INVCON - RETURNING WITH A VALUE OF 0')
89 CALL
errwrt(
'++++++++++++++BUFR ARCHIVE LIBRARY+++++++++++++++++')
function invcon(NC, LUN, INV1, INV2)
THIS FUNCTION SEARCHES A "WINDOW" (SEE BELOW REMARKS) FOR AN ELEMENT IDENTIFIED IN THE USER STRING AS...
subroutine errwrt(STR)
This subroutine allows the user to specify a custom location for the logging of error and diagnostic ...