.NONUMBER
.TITLE COMMA - TO INSERT COMMAS INTO REAL NUMBER
.PAGE
.INDENT 50
COMMA
.SKIP 1
.CENTER
COMMA - TO INSERT COMMAS INTO REAL NUMBER
.LEFT MARGIN 10
.SKIP 1
.INDENT -10
^^ROUTINE NAME: COMMA\\
.SKIP 1
.INDENT -10
^^PURPOSE:\\ ^^COMMA\\ TAKES A SINGLE OR DOUBLE PRECISION FLOATING
POINT NUMBER AND RETURNS AN ^^ASCII\\ STRING (RIGHT
JUSTIFIED WITH LEADING BLANKS) REPRESENTATION
OF THE ^^F.P.\\ NUMBER WITH A COMMA EVERY 3RD DIGIT.
^THE NUMBER IS ROUNDED AND RETURNED AS A WHOLE NUMBER.
.SKIP 1
.INDENT -10
^^CALLABLE:\\ FROM ^^FORTRAN--CALL COMMA (FLOTR,STR,LEN)
.SKIP 1
.INDENT -10
^^PARAMETERS:\\
.SKIP;.INDENT -9
^^FLOATR---T\\HE REAL NUMBER TO ENCODE INTO ^^ASCII.
.SKIP;.INDENT -9
^^STR------T\\HE ^^BYTE\\ ARRAY THAT WILL ACCEPT THE
^^ASCII\\ STRING.  ^SHOULD BE DIMENSIONED TO AT LEAST
^^LEN BYTES.\\
.SKIP;.INDENT -9
^^LEN------T\\HE LENGTH OF THE ARRAY RECIEVING THE STRING OF 
NUMERALS.  ^^LEN\\ SHOULD BE SOMEWHAT GENEREOUS TO TAKE INTO ACCOUNT
THE INSERTION OF COMMAS INTO ^^STR.\\
.SKIP 1
.INDENT -10
^^ROUTINES USED:\\ ^^INPL
.SKIP 1
.INDENT -10
^^EXAMPLE:\\ OPEN
.SKIP 1
.INDENT -10
^^FEATURES:\\ NONE
.SKIP 1
.INDENT -10
^^AUTHOR:\\ ^JACK ^MARTINELLI
.SKIP 1
.INDENT -10
^^WRITTEN:\\ ^SEPTEMBER 1978
.SKIP 1
.INDENT -10
^^SOURCE LANGUAGE:\\ ^^FORTRAN
.SKIP 1
.INDENT -10
^^OBJECT MODULE NAME:\\ ^^COMMA
.SKIP 1
.INDENT -10
^^LIBRARY:\\ ^^DP:[60.60]CETUS
.SKIP 1
.INDENT -10
^^LAST MODIFICATION:\\ NONE
.SKIP 1
.INDENT -10
^^MAINTENANCE:\\ SEE ^JACK ^MARTINELLI OR ^MIKE ^HIGGINS
.SKIP 1
.INDENT -10