C***********************************************************************
C     THIS SUBROUTINE WRITES OUT THE APPROPRIATE DATA FOR ONE OBSER-
C     VATION BASED ON THE STATUS.
C***********************************************************************
      SUBROUTINE LINE (STATUS,ID,X)
C***********************************************************************
C     DECLARATIONS
C***********************************************************************
      INTEGER STATUS
      CHARACTER*25 ID
      REAL X(5)
C***********************************************************************
C     STATUS 1
C***********************************************************************
      IF (STATUS.EQ.1) THEN
         WRITE (6,70) ID,X(1),X(2),X(4),X(5)
C**********************************************************************
C     STATUS 2
C**********************************************************************
      ELSE IF (STATUS.EQ.2) THEN
         WRITE (6,80) ID,X(2)
C***********************************************************************
C     STATUS 3
C***********************************************************************
      ELSE IF (STATUS.EQ.3) THEN
         WRITE (6,90) ID,X(1)
C***********************************************************************
C     STATUS 4
C***********************************************************************
      ELSE IF (STATUS.EQ.4) THEN
         WRITE (6,100) ID,(X(J),J=1,5)
C***********************************************************************
C     STATUS 5
C***********************************************************************
      ELSE IF (STATUS.EQ.5) THEN
         WRITE (6,110) ID,X(1),X(2),X(3),X(5)
C***********************************************************************
C     STATUS 6
C***********************************************************************
      ELSE IF (STATUS.EQ.6) THEN
         WRITE (6,120) ID,X(1),X(3),X(5)
C***********************************************************************
C     STATUS 7
C***********************************************************************
      ELSE IF (STATUS.EQ.7) THEN
         WRITE (6,130) ID,X(3),X(5)
      ENDIF
      RETURN
C
   70 FORMAT (1X,A25,2X,2(1X,G11.4),7X,F10.2,F10.3)
   80 FORMAT (1X,A25,25X,G11.4)
   90 FORMAT (1X,A25,3X,G11.4)
  100 FORMAT (1X,A25,2X,2(1X,G11.4),F7.2,F10.2,F10.3)
  110 FORMAT (1X,A25,2X,2(1X,G11.4),F7.2,10X,F10.3)
  120 FORMAT (1X,A25,3X,G11.4,12X,F7.2,10X,F10.3)
  130 FORMAT (1X,A25,26X,F7.2,10X,F10.3)
      END