c***********************************************************************
c     main program
c***********************************************************************
      implicit none
      external funobj
      character*80 strdat 
      integer*4 nolin,iestat
      
      strdat= 'ltest.dat'
      nolin= 0
      iestat= 0
      call pprn1(nolin,strdat,iestat)
      write(*,*) 'exit=',iestat
      end 
      
c***********************************************************************
c     dummy routine
c***********************************************************************
      subroutine funobj
      end
      



