      SUBROUTINE GTSL(NT,IEOF)                                          
C==================================================================     
      REAL Z1(801 ,5  ),Y(5  ,3)                                        
      REAL Z2(801 ,5  )                                                 
      REAL Z3(801 ,5  )                                                 
      INTEGER NG(5  )                                                   
      COMPLEX W1(801 ,5  )                                              
      COMPLEX W2(801 ,5  )                                              
      COMPLEX W3(801 ,5  )                                              
      COMMON/HDa/ NG,Y                                                  
      COMMON/HDb/ Z1,Z2,Z3                                              
      COMMON/HDc/ W1,W2,W3                                              
      IF(IEOF.NE.0)RETURN
      write(*,*)' gtsl - nt,former y:',nt,y(nt,3)
      K=NG(NT)                                                          
      IU=NT+11                                                          
      READ (IU,END=3)Y(NT,3),(Z3(I,NT),W3(I,NT),I=1,K)                  
      GOTO 7                                                            
3     IEOF=1                                                            
      RETURN                                                            
7     Y(NT,1)=Y(NT,2)                                                   
      Y(NT,2)=Y(NT,3)                                                   
      IT=NG(NT)                                                         
      DO 11 I=1,IT                                                      
         Z1(I,NT)=Z2(I,NT)                                              
         Z2(I,NT)=Z3(I,NT)                                              
         W1(I,NT)=W2(I,NT)                                              
         W2(I,NT)=W3(I,NT)                                              
11    CONTINUE                                                          
      write(*,*)' gtsl - nt, new y:',nt,y(nt,3)
      RETURN                                                            
      END                                                               