37 parameter( lstr2 = 120 )
38 CHARACTER*(LSTR2) str2
46 IF ( lstr .LT. 6 )
RETURN
50 IF ( lstr .GT. lstr2 )
THEN
51 str2(1:lstr2) = str(1:lstr2)
55 str2 = adjustl( str2 )
56 IF ( str2 .EQ.
' ' )
RETURN
60 IF ( index( str2,
'-' ) .NE. 0 )
THEN
function numbck(NUMB)
THIS FUNCTION CHECKS THE INPUT CHARACTER STRING TO DETERMINE WHETHER IT CONTAINS A VALID FXY (DESCRIP...
function igetfxy(STR, CFXY)
THIS FUNCTION LOOKS FOR AND RETURNS A VALID FXY NUMBER FROM WITHIN THE GIVEN INPUT STRING...