27 SUBROUTINE stntbia ( N, LUN, NUMB, NEMO, CELSQ )
31 CHARACTER*128 bort_str
33 CHARACTER*(*) numb, nemo, celsq
45 IF(numb(4:6).EQ.taba(n,lun)(1: 3)) goto 900
46 IF(nemo(1:8).EQ.taba(n,lun)(4:11)) goto 901
51 taba(n,lun)( 1: 3) = numb(4:6)
52 taba(n,lun)( 4:11) = nemo(1:8)
53 taba(n,lun)(13:67) = celsq(1:55)
57 IF (
digit( nemo(3:8) ) )
THEN
59 READ ( nemo,
'(2X,2I3)') mtyp, msbt
64 READ ( numb(4:6),
'(I3)') idna(n,lun,1)
74 900
WRITE(bort_str,
'("BUFRLIB: STNTBIA - TABLE A FXY VALUE (",A,") '
75 . //
'HAS ALREADY BEEN DEFINED (DUPLICATE)")') numb
77 901
WRITE(bort_str,
'("BUFRLIB: STNTBIA - TABLE A MNEMONIC (",A,") '
78 . //
'HAS ALREADY BEEN DEFINED (DUPLICATE)")') nemo
This module contains array and variable declarations used to store DX BUFR tables internally for mult...
subroutine bort(STR)
This subroutine calls subroutine errwrt() to log an error message, then calls subroutine bort_exit() ...
LOGICAL function digit(STR)
This logical function checks whether the characters in a string are all numeric.
subroutine stntbia(N, LUN, NUMB, NEMO, CELSQ)
THIS SUBROUTINE STORES A NEW ENTRY WITHIN INTERNAL BUFR TABLE A.