Subroutine:   ANYOUT

Purpose:      General character output routine for GIPSY programs.

Category:     USER-INTERFACE 

File:         srvreq.c

Author:       J.P. Terlouw

Use:          CALL ANYOUT( LDEV,        Input      integer
                           TEXT )       Output     character

              LDEV   Device to which output is directed.
                     The following devices are possible:
                      0  use default [set by HERMES to 3
                         but can be changed by user]
                      1  terminal
                      2  LOG file (=line printer)
                      8  terminal, suppressed in "experienced mode"
                     16  terminal, only when in "test mode"
                     These devices can be combined by adding the codes.
                     For terminal device the max. line length is 80
                     characters, for LOG file the max. is 130 characters.
              TEXT   This character string contains the text which
                     will be sent to the output device.
                     The first character in the string is used for
                     printer(terminal) control in the normal way
                     (eg 1 for a new page)

Examples:     - Put text on terminal
                CALL ANYOUT( 1, ' THIS IS TEXT' )
              - Both to terminal and LOG FILE
                CALL ANYOUT( 3, ' TWO FILES OUTPUT' )
              - Put text on default device and start a new page
                CALL ANYOUT( 0, '1THIS IS A NEW PAGE')
              - Prepare the array TEXT before calling
                CHARACTER*40 TEXT
                      .
                      .
                      .
                WRITE( TEXT, '('' Values for I and J are:'',2I3)') I, J
                CALL ANYOUT( 0, LINE )

Updates:      ~1979: original document
              Mar  6, 1989: KGB, New document.
              Feb 15, 1990: JPT, Portable version, rewritten in ANSI C.