      SUBROUTINE FORMZ (LUNIT, X, Y)
      IMPLICIT NONE
C
C SYSTEM DEPENDENT ROUTINE TO PRINT WITH Z FORMAT
C
      INTEGER LUNIT
      DOUBLE PRECISION X, Y
C
C
      IF (Y.NE.0.0D0) WRITE (LUNIT, 10) X, Y
      IF (Y.EQ.0.0D0) WRITE (LUNIT, 10) X
10    FORMAT (2Z18)
C
      RETURN
      END
