52 CHARACTER*128 bort_str
62 IF(numb.EQ.tabb(n,lun)(1: 6)) goto 900
63 IF(nemo.EQ.tabb(n,lun)(7:14)) goto 901
67 IF(numb.EQ.tabd(n,lun)(1: 6)) goto 902
68 IF(nemo.EQ.tabd(n,lun)(7:14)) goto 903
75 900
WRITE(bort_str,
'("BUFRLIB: NENUBD - TABLE B FXY VALUE (",A,") '//
76 .
'HAS ALREADY BEEN DEFINED (DUPLICATE)")') numb
78 901
WRITE(bort_str,
'("BUFRLIB: NENUBD - TABLE B MNEMONIC (",A,") '//
79 .
'HAS ALREADY BEEN DEFINED (DUPLICATE)")') nemo
81 902
WRITE(bort_str,
'("BUFRLIB: NENUBD - TABLE D FXY VALUE (",A,") '//
82 .
'HAS ALREADY BEEN DEFINED (DUPLICATE)")') numb
84 903
WRITE(bort_str,
'("BUFRLIB: NENUBD - TABLE D MNEMONIC (",A,") '//
85 .
'HAS ALREADY BEEN DEFINED (DUPLICATE)")') nemo
This module contains array and variable declarations used to store DX BUFR tables internally for mult...
subroutine nenubd(NEMO, NUMB, LUN)
THIS SUBROUTINE CHECKS A MNEMONIC AND FXY VALUE PAIR THAT WERE READ FROM A USER-SUPPLIED BUFR DICTION...
subroutine bort(STR)
This subroutine calls subroutine errwrt() to log an error message, then calls subroutine bort_exit() ...