65 COMMON /stcach/ mstr,nstr,lstr,lux(mxs,2),usr(mxs),icon(jcons,mxs)
66 COMMON /usrstr/ jcon(jcons)
67 COMMON /stords/ iord(mxs),iorx(mxs)
70 CHARACTER*128 bort_str1,bort_str2
79 IF(len(str).GT.80) goto 900
88 IF(lux(iord(n),2).EQ.ind)
THEN
94 IF(ust.EQ.usr(iorx(n)))goto1
102 jcon(j) = icon(j,iorx(n))
109 2 CALL
parusr(str,lun,i1,io)
110 lstr = max(mod(lstr+1,mstr+1),1)
111 nstr = min(nstr+1,mstr)
118 icon(j,lstr) = jcon(j)
129 100
IF(jcon(1).GT.i1) goto 901
135 900
WRITE(bort_str1,
'("BUFRLIB: STRING - INPUT STRING (",A,") HAS")')
137 WRITE(bort_str2,
'(18X,"LENGTH (",I4,"), > LIMIT OF 80 CHAR.")')
139 CALL
bort2(bort_str1,bort_str2)
140 901
WRITE(bort_str1,
'("BUFRLIB: STRING - INPUT STRING (",A,")")') str
141 WRITE(bort_str2,
'(18X,"HAS",I5," STORE NODES (MNEMONICS) - THE '//
142 .
'LIMIT (THIRD INPUT ARGUMENT) IS",I5)') jcon(1),i1
143 CALL
bort2(bort_str1,bort_str2)
subroutine bort2(STR1, STR2)
This subroutine calls subroutine errwrt() to log two error messages, then calls subroutine bort_exit(...
subroutine parusr(STR, LUN, I1, IO)
THIS SUBROUTINE INITATES THE PROCESS TO PARSE OUT MNEMONICS (NODES) FROM A USER-SPECIFIED CHARACTER S...
This module declares and initializes the MXS variable.
subroutine string(STR, LUN, I1, IO)
THIS SUBROUTINE CHECKS TO SEE IF A USER-SPECIFIED CHARACTER STRING IS IN THE STRING CACHE (ARRAYS IN ...