C********************************************************* 
C* FORTRAN PROGRAM TO READ AND PRINT ECPOINT.ASC (FILE 9)* 
C********************************************************* 
        INTEGER NLIN                                       
        INTEGER ID, TRID, SLYR                             
        REAL    SLLONG, SLLAT, SLR, SLG, SLC, SLS         
        REAL    TRLONG, TRLAT, TRAVG, TRMAX, TRLVL         
        CHARACTER SLNAME*38, TRNAME*45                     
C********************************************************* 
C* INITIALIZE A COUNTER AND OPEN FILES FOR INPUT/OUTPUT  * 
C********************************************************* 
        NLIN=0                                             
        OPEN(UNIT=5,FILE='ecpoint.asc') 
        OPEN(UNIT=6)            
C*********************************************************                     
C*READ AND PRINT POINT ID, SEA-LEVEL, AND TIDE VARIABLES *                     
C*********************************************************                     
  10    READ (5,100,END=999) ID, SLLONG, SLLAT, SLR, SLG,                        
     1   SLC, SLS, SLYR, SLNAME                                                
        READ (5,110) TRLONG, TRLAT, TRAVG, TRMAX, TRLVL,                         
     1   TRID, TRNAME 
        IF (NLIN.GT.32) NLIN=0                                                   
        IF (NLIN.EQ.0) WRITE(6,120)                                              
        IF (NLIN.EQ.0) WRITE(6,130)                                             
        NLIN=NLIN+1                                                              
        WRITE(6,140) ID, SLLONG, SLLAT, SLR, SLG, SLC, SLS,                      
     1   SLYR, SLNAME                                                
        WRITE(6,150) TRLONG, TRLAT, TRAVG, TRMAX, TRLVL,                         
     1   TRID, TRNAME                                           
  20    CONTINUE                                                                 
        GO TO 10                                                                 
C                                                       
 100    FORMAT(I5,6F8.2,I4,A38)                                                  
 110    FORMAT(5F8.2,I5,A45)                                                    
 120    FORMAT(1X,3X,'ID',2X,'SLLONG',3X,'SLLAT',5X,'SLR',                       
     1   5X,'SLG',5X,'SLC',5X,'SLS',1X,'SLYR',15X,'SLNAME')            
 130    FORMAT(1X,2X,'TRLONG',3X,'TRLAT',3X,'TRAVG',3X,                          
     1   'TRMAX',3X,'TRLVL',' TRID',15X,'TRNAME')               
 140    FORMAT(1X,I5,6F8.2,I4,A38)                                               
 150    FORMAT(1X,5F8.2,I5,A45)                                                  
C********************************************************   
C*          CLOSE FILES AND EXIT GRACEFULLY             *        
C********************************************************           
 999    CLOSE(UNIT=5)                                                  
        CLOSE(UNIT=6)                                                            
        STOP                                                                     
        END