29 IF (len(nemo).LT.6)
THEN
31 ELSE IF ( lge(nemo(1:3),
'201') .AND. lle(nemo(1:3),
'208') )
THEN
33 ELSE IF ( nemo(1:3).EQ.
'221')
THEN
35 ELSE IF ( ( ( nemo(4:6).EQ.
'000' ) .OR. ( nemo(4:6).EQ.
'255' ) )
37 + ( ( nemo(1:3).EQ.
'237' ) .OR. ( nemo(1:3).EQ.
'241' ) .OR.
38 + ( nemo(1:3).EQ.
'242' ) .OR. ( nemo(1:3).EQ.
'243' ) ) )
41 ELSE IF ( ( nemo(4:6).EQ.
'000' )
43 + ( ( nemo(1:3).EQ.
'222' ) .OR. ( nemo(1:3).EQ.
'223' ) .OR.
44 + ( nemo(1:3).EQ.
'224' ) .OR. ( nemo(1:3).EQ.
'225' ) .OR.
45 + ( nemo(1:3).EQ.
'232' ) .OR. ( nemo(1:3).EQ.
'235' ) .OR.
46 + ( nemo(1:3).EQ.
'236' ) ) )
INTEGER function imrkopr(NEMO)
This function determines whether a specified mnemonic is a Table C marker operator.
INTEGER function iokoper(NEMO)
This function determines whether a specified mnemonic is a Table C operator supported by the BUFRLIB ...