The following is typical code sequence using USI_TEXT. The array 'TEXT' is declared as TEXT(MAXLINES)*(string length). Note that not all lines need contain a parameter reference.
TEXT(1) = 'Input data {INP}' TEXT(2) = 'Weights data {WEIGHTS}' TEXT(3) = 'Errors assumed Poissonian' NLINES = MAXLINES CALL USI_TEXT (3, TEXT, NLINES, STATUS) CALL HIST_PTXT (OLOC, NLINES, TEXT, STATUS)