SUBROUTINE GRDLNF(N,FHOUR,IDATE,DPHI,DLAM,GZ,Q,TE,DI,ZE,RQ,SL,SI)
CJPB
      CHARACTER*4 LAB
CJPB  COMPLEX*8
      COMPLEX
     1 GZ( 289 ),
     2 Q( 289 ),
     3 TE( 289   , 7 ),DI( 289   , 7 ),ZE( 289   , 7 ),
     4 RQ( 289   , 6 )
      DIMENSION IDATE(4),SI( 8 ),SL( 7 )
      DIMENSION DPHI( 8 ),DLAM( 7 )
      COMMON /LAB8/LAB(8),/LAB9/KDATE(4),IFINAL
C     SPECTRAL DATA FILE FORMAT
C     HOUR,IDATE(4),SI( 8 ),SL( 7 )
C***  COMPLEX ZLN Q TE DI ZE
      READ(N)LAB
      WRITE(6,3000)KDATE,LAB
CJPB3000  FORMAT(1H0,'GRDLNF KDATE ',4I4,2X,2A4,2X,3A4,2X,3A4)
3000  FORMAT(1H0,'GRDLNF KDATE ',4I4,2X,2A4,2X,3A4,2X,3A4)
      READ(N)FHOUR,IDATE,(DPHI(K),K=1, 8 ),(DLAM(K),K=1, 7 )
      READ (N) GZ
      READ (N) Q
      DO 400 K=1, 7
      READ(N)(TE(I,K),I=1, 289   )
400   CONTINUE
      DO 401 K=1, 7
      READ(N)(DI(I,K),I=1, 289   )
      READ(N)(ZE(I,K),I=1, 289   )
401   CONTINUE
       XRH =0.9
      K=1
      READ (N) (RQ(I,K),I=1, 289   )
      DO 190 I=1, 289
      RQ(I,K)=CMPLX(XRH*REAL(RQ(I,K)),XRH*AIMAG(RQ(I,K)))
190   CONTINUE
      DO 200 K=2, 6
      READ (N) (RQ(I,K),I=1, 289   )
200   CONTINUE
      DO 3 K=1, 7
3     DLAM(K)=DLAM(K)-SL(K)
      WRITE(6,100)(DLAM(K),K=1, 7 )
      DO 4 K=1, 8
4     DPHI(K)=DPHI(K)-SI(K)
      WRITE(6,100)(DPHI(K),K=1, 8 )
100   FORMAT(1H0, 8 (E9.3))
      WRITE(6,101)N,FHOUR,IDATE
101   FORMAT (1H0, 'IF ABOVE TWO ROWS NOT ZERO, ',
     1 'INCONSISTENCY IN SIGMA DEFINITION ON N=',I2,2X,F6.1,2X,4(I4))
      RETURN
      END