.SD;.FL CAPITALIZE
.TITLE <FINP - ^^ASCII TO REAL NUMBER CONVERSION ROUTINE
.PAGE
.INDENT 50
<FINP
.SKIP 1
.CENTER
<FINP - ^^ASCII TO REAL NUMBER CONVERSION ROUTINE
.LEFT MARGIN 10
.SKIP 1
.INDENT -10
^^ROUTINE NAME: <FINP\\
.SKIP 1
.INDENT -10
^^PURPOSE:\\ ^TO CONVERT A STRING OF <ASCII CHARACTERS INTO A FLOATING POINT REAL NUMBER.
.SKIP 1
.INDENT -10
^^CALLABLE:\\ 
.SKIP
^FROM ^^FORTRAN - REAL=FINP(ARRAY,INDEX,MAXL)
.SKIP 1
.INDENT -10
^^PARAMETERS:\\ 
.SKIP
.INDENT -9
^^ARRAY\\----^LOGICAL*1 ARRAY THAT CONTAINS THE STRING TO BE CONVERTED.
NUMBERS CAN BE IN ALMOST ANY FORM, FROM "12   " (CONVERTS TO 12.0,
NOTE LEFT JUSTIFICATION, CAN BE RIGHT ALSO) TO "-12.34E-3" (CONVERTS TO 0.01234)
OR JUST ABOUT ANYWHERE IN BETWEEN.  ^DECIMALS ARE ONLY NECESSARY WHERE
THEY MAKE SENSE.
.SK;.INDENT -9
^^INDEX\\----^AN INTEGER INDEX INTO <ARRAY.  ^THIS SHOULD POINT TO THE FIRST
CHARACTER THAT IS EXPECTED TO BE CONVERTED.  ^UPON RETURN INDEX WILL BE
UPDEATED TO POINT TO THE LAST CHARACTER PROCESSED.
^IF THE NUMBER IN THE LOGICAL*1 ARRAY WAS LEFT JUSTIFIED, INDEX WILL POINT
TO THE FIRST SPACE AFTER THE NUMBER.  ^IF THE NUMBER WAS RIGHT JUSTIFIED
IN THE ARRAY, INDEX WILL POINT TO A CHARACTER AFTER THE LAST ONE,
EVEN IF THIS MIGHT CAUSE INDEX TO GO OUT OF BOUNDS IN YOUR
MAIN PROGRAM.  ^IF THE NUMBER INT THE <LOGICAL*1 ARRAY WAS TERMINATED
BY A COMMA INDEX WILL BE RETURNED POINTENG TO THAT COMMA.  ^IF THERE WAS AN
ILLEGAL CHARACTER (AND CETUS HAS A LOT OF STRANGE CHARACTERS, YOU MUST ADMIT)
 IN THE STRING, INDEX WILL BE RETURNED POINTING TO THE OFFENDING CHARACTER.
.SK;.INDENT -9
^^MAXL\\-----^THIS INTEGER VARIABLE OF VALUE TELLS <FINP THE MAXIMUM NUMBER OF
CHARACTERS TO SCAN WHEN CONVERTING A NUMBER.  ^THIS PARAMETER IS 
ABSOULTELY NECESSARY.  ^WHEN YOU ARE READING RIGHT JUSTIFIED OR FIXED
FORMAT DATA WITH <FINP, BUT WHEN YOU ARE READING NUMBERS THAT ARE
TERMINATED BY SPACES OR A COMMA, YOU CAN JUST STICK ANY NUMBER LARGE ENOUGH
IN <MAXL TO GUARANTEE THAT THE DELIMITING CHARACTER IS FOUND.
.SKIP 1
.INDENT -10
^^EXAMPLE:\\ 
.SKIP
.LM 1
.NOFILL
^^L1=LEN(STR2,32)#####!SEE THE WRITE-UP FOR THE LEN ROUTINE.
L2=LEN(STR1,32)
X=1
Y=1
RESULT=FINP(STR1,X,L1)-FINP(STR2,Y,L2)
.FILL
.LM 10
.SKIP
.SKIP 1
.INDENT -10
^^AUTHOR:\\ ^MIKE ^HIGGINS
.SKIP 1
.INDENT -10
^^WRITTEN:\\ LONG LONG AGO
.SKIP 1
.INDENT -10
^^SOURCE LANGUAGE:\\ <FORTRAN
.SKIP 1
.INDENT -10
^^OBJECT MODULE NAME:\\ <FINP
.SKIP 1
.INDENT -10
^^LIBRARY:\\ <DP:[60,60]CETUS
.SKIP 1
.INDENT -10