program nvap_listheaders	 
	 character*40  flname
	 
C--------COMMON BLOCK WHICH HOLDS THE DATA AND HEADER INFORMATION---------
C
       real nvdata(720,360), headr(4), zindef
       integer*2 headi(11)
       character label*40
       common /nvapdata/ nvdata, headr, zindef, headi, label
c
c-------------------------------------------------------------------------
c
       write(6,'(a,$)')' input filename: '
	 read(5,'(a)') flname
c
       do igrid = 1,1000                       !read all grids in file
	   call nvap_read(flname, igrid, istat)
	   if(istat .ne. 0) then
	        write(6,*)' may just be last grid in file'
	        stop 99
	   endif
	   if(igrid .eq. 1) then
           write(6,*)' FLD SOURCE PARAM    START TIME   END TIME
     >    GRID SIZE    LABEL'
         endif
C
         write(6,50)igrid,headi(1),headi(2),(headi(k),k=4,11),LABEL
 50      FORMAT(' ',I4,2X,I3,3X,I3,5X,I4,1X,I3,1X,I2,2X,I4,1X,I3,1X,I2,
     >              3x,i3,1x,i3,5X,A40)


	 enddo
      stop
	end