CTITLESATLGF - WRITE A VECTOR TO A TELAGRAF OUTPUT FILE
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
C
CA    AUTHOR                 H. W. SWAN
CA    DESIGNER               H. W. SWAN
CA    SYSTEM                 IBM/CRAY
CA    LANGUAGE               VS FORTRAN VERSION 2.2
CA    WRITTEN                12-03-87
C     REVISED      05-23-91  JJC - CHANGED IMPLICIT TO (A-Z).
C     REVISED      12-17-91  JJC - MODIFIED TO MEET SPARC STANDARDS.
CA
CA    CALLING SEQUENCE:
CA        CALL SATLGF(IUNIT,TEXT,Y,N,SCALE)
CA
CA  IN/OUT  ARGUMENT  TYPE  DESCRIPTION
CA  ------  --------  ----  -----------
CA
CA   IN       IUNIT    I4   THE FORTRAN UNIT NUMBER ON WHICH TO
CA                          WRITE THE TELAGRAF OUTPUT FILE.
CA   IN       TEXT    C*(*) THE LEGEND LABEL FOR THIS PLOT
CA   IN        Y      (R4)  THE DATA TO PLOT
CA   IN        N       I4   THE NUMBER OF POINTS TO PLOT
CA   IN       SCALE    R4   A SCALE FACTOR TO BE APPLIED TO THE DATA
CA
CA   PURPOSE:
CA
CA     THIS SUBROUTINE GENERATES A DATA FILE ON UNIT 'IUNIT',
CA     WHICH IS IN SUITABLE FORM FOR 'TELAGRAF'.
CA
CA
CA   SUBROUTINES CALLED: NONE
CA
CA
CA
CA SUBROUTINE SATLND
CA
CA     CALL THIS SUBROUTINE TO TERMINATE ONE COMPLETE GRAPH.
CA
CA
       SUBROUTINE SATLGF(IUNIT,TEXT,Y,N,SCALE)
C
CJJ    IMPLICIT NONE
       IMPLICIT INTEGER (A-Z)
C
       INTEGER IUNIT, N, NCHAR, NC, ISTAT, I
       REAL Y, SCALE
       CHARACTER*(*) TEXT
       CHARACTER*80 FORM
       DIMENSION Y(N)
       DATA ISTAT/0/
C
C  REMOVE TRAILING BLANKS FROM TEXT
C
       NCHAR = LEN( TEXT )
       NC    = MAX0( NCHAR, 1 )
C
  10   IF(         NC  .LE.  1  ) GOTO                                30
       IF( TEXT(NC:NC) .NE. ' ' ) GOTO                                30
       NC = NC - 1
       GOTO                                                           10
C
  30   IF( ISTAT .NE. 0 ) GOTO                                       100
       WRITE( IUNIT, 37 )
  37   FORMAT(' SEQUENCE DATA.')
       ISTAT = 1
C
 100   WRITE( FORM, 107 )
 107   FORMAT(' (1X,1H",A,1H"/5(G13.6,1X))')
       WRITE( IUNIT, FORM ) TEXT(1:NC), (SCALE*Y(I),I=1,N)
       RETURN
C======================================================================
C
       ENTRY SATLND
       IF( ISTAT .NE. 0 ) THEN
          ISTAT = 0
          WRITE( IUNIT, 147 )
          ENDIF
       RETURN
C
 147   FORMAT(' EOD.'/' GO.'/' **FILE**')
       END