home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d4xx / d499 / matlab.lha / Matlab / matlab.lzh / Source / MatLab / FORMZ.FOR < prev    next >
Encoding:
Text File  |  1991-04-13  |  295 b   |  16 lines
  1.       SUBROUTINE FORMZ (LUNIT, X, Y)
  2.       IMPLICIT NONE
  3. C
  4. C SYSTEM DEPENDENT ROUTINE TO PRINT WITH Z FORMAT
  5. C
  6.       INTEGER LUNIT
  7.       DOUBLE PRECISION X, Y
  8. C
  9. C
  10.       IF (Y.NE.0.0D0) WRITE (LUNIT, 10) X, Y
  11.       IF (Y.EQ.0.0D0) WRITE (LUNIT, 10) X
  12. 10    FORMAT (2Z18)
  13. C
  14.       RETURN
  15.       END
  16.