c *** fortran retrieval code to read and print the HCN/D station                
c *** inventory file (file 8 on the magnetic tape)                              
c                                                                               
      integer byear,latdeg,latmin,londeg,lonmin                                 
      character*2  stcode,state,bmon                                            
      character*4  cni                                                          
      character*23 stname                                                       
      character*5  tobs                                                         
c                                                                               
c initialize a record counter                                                   
      nrec=0                                                                    
c                                                                               
    1 continue                                                                  
      read(5,100,end=99) stcode,cni,state,stname,bmon,byear,tobs,               
     +                   latdeg,latmin,londeg,lonmin                            
  100 format(1x,a2,2x,a4,2x,a2,2x,a23,2x,a2,2x,i4,2x,a5,                        
     +       2x,i2,2x,i2,2x,i3,2x,i2)                                           
c                                                                               
c write out a header on each page of the listing.                               
c                                                                               
      if (mod(nrec,58).eq.0) write(6,200)                                       
  200 format('1',' ST','  CNI ','  ST','  STATION NAME',13x,'MO  YEAR',         
     +       '  TOBS ',' DEG MIN  DEG MIN',/)                                   
c                                                                               
      write(6,100) stcode,cni,state,stname,bmon,byear,tobs,                     
     +             latdeg,latmin,londeg,lonmin                                  
c                                                                               
      nrec=nrec+1                                                               
c                                                                               
      go to 1                                                                   
   99 continue                                                                  
      stop                                                                      
      end