31 INTEGER FUNCTION icbfms ( STR, LSTR )
41 parameter( zm_be =
'202020E076483742' )
45 parameter( zm_le =
'42374876E8000000' )
48 equivalence(strz,rl8z)
54 numchr = min(lstr,len(str))
64 IF ( numchr.GE.4 .AND. numchr.LE.8 )
THEN
66 strz(ii:ii) = str(ii:ii)
68 WRITE (zz,
'(Z16.16)') rl8z
71 IF ( zz(i:n).EQ.zm_be(i:n) .OR. zz(i:n).EQ.zm_le(i:n) )
THEN
82 IF (
iupm(str(i:i),8).NE.255 )
RETURN
INTEGER function icbfms(STR, LSTR)
This function provides a handy way to check whether a character string returned from a previous call ...
function iupm(CBAY, NBITS)
THIS FUNCTION UNPACKS AND RETURNS A BINARY INTEGER WORD CONTAINED WITHIN NBITS BITS OF A CHARACTER ST...