C
C
C-----------------------------------------------------
      SUBROUTINE TTYPTF (LINE, FVAL, POS, DEC, ERRCOD)
C
      CHARACTER*(*) LINE
      REAL          FVAL
      INTEGER       POS, DEC, ERRCOD
C
C LINE    (In) line to output
C FVAL    (In) fix real value to output
C POS     (In) number of positions to use for fix real value
C DEC     (In) number of decimals to output
C ERRCOD  (Out) error code
C     0 = no error
C     1 = fix real value position overflow
C
      CHARACTER*14 FMTLIN
      SAVE FMTLIN
      DATA FMTLIN /'('' '',A,F  .  )'/
C
      WRITE (FMTLIN (9:10), 10, ERR=90) POS
10    FORMAT (I2)
      WRITE (FMTLIN (12:13), 10, ERR=90) DEC
      WRITE (6, FMTLIN, ERR=90) LINE, FVAL
      ERRCOD = 0
      RETURN
C
90    ERRCOD = 1
      RETURN
      END