CHARACTER PROFILE*22,LAT*6,LONG*6,ELEV*5,HOLDRIGE*1,OLSON*2,
     1  PARENT*4
      INTEGER SOURCE                        
      REAL CARBON,NITROGEN               
      OPEN(UNIT=5,FILE='ndp018.dat')
      OPEN(UNIT=6)
  1   CONTINUE                                                            
      READ(5,10,END=99) PROFILE,CARBON,NITROGEN,LAT,LONG,ELEV, 
     1 SOURCE,HOLDRIGE,OLSON,PARENT                                        
 10   FORMAT(A22,F7.1,1X,F8.0,2X,A6,3X,A6,1X,A5,1X,I6,         
     1 3X,A1,1X,A2,A4)                                             
      WRITE(6,20) PROFILE,CARBON,NITROGEN,LAT,LONG,ELEV,SOURCE,       
     1 HOLDRIGE,OLSON,PARENT                                          
 20   FORMAT(A22,F7.1,1X,F8.0,2X,A6,3X,A6,1X,A5,1X,I6,         
     1 3X,A1,1X,A2,A4)                                               
      GO TO 1                                                         
 99   CONTINUE 
      CLOSE(UNIT=5)
      CLOSE(UNIT=6)                                                               
      STOP                                                            
      END