!!  Copyright(C) Stichting Deltares, 2012-2014.
!!
!!  This program is free software: you can redistribute it and/or modify
!!  it under the terms of the GNU General Public License version 3,
!!  as published by the Free Software Foundation.
!!
!!  This program is distributed in the hope that it will be useful,
!!  but WITHOUT ANY WARRANTY; without even the implied warranty of
!!  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
!!  GNU General Public License for more details.
!!
!!  You should have received a copy of the GNU General Public License
!!  along with this program. If not, see <http://www.gnu.org/licenses/>.
!!
!!  contact: delft3d.support@deltares.nl
!!  Stichting Deltares
!!  P.O. Box 177
!!  2600 MH Delft, The Netherlands
!!
!!  All indications and logos of, and references to registered trademarks
!!  of Stichting Deltares remain the property of Stichting Deltares. All
!!  rights reserved.

!!  Note: The "part" engine is not yet Open Source, but still under
!!  development. This package serves as a temporary dummy interface for
!!  the references in the "waq" engine to the "part" engine.

module openfl_mod

use precision

use delete_file_mod

implicit none

contains
      subroutine openfl ( lun, finam, ftype, iopt)

      implicit none

      character(len=20)  :: ftype
      character(len=256) :: finam

      integer(ip) :: iopt, ierror
      integer(ip) :: lun

      select case ( iopt )
         case ( 1 )
            call delete_file ( finam, ierror )
            if(ftype=='unformatted') then
               open ( lun, file = finam, form = ftype, err = 99)
            elseif (ftype=='binary') then
               open ( lun, file = finam, form = ftype, err = 99)
            else
               write(*,*) ' Error when opening file with name: '
               write(*,*) finam
               write(*,*) ' of type: ', ftype
               call error(' Filetype not known by openfl ')
            endif
         case ( 0 )
            if(ftype=='unformatted') then
               open ( lun, file = finam, form = ftype, status ='old', err = 99)
            elseif (ftype=='binary') then
               open ( lun, file = finam, form = ftype, status = 'old', err = 99)
            else
               write(*,'(//a,a40)') ' Error on opening file: ',finam
               write(*,'(  a,a  )') ' Expected file type   : ',ftype
               write(*,'(  a    )') ' Please check if file exists'
               write(*,'(  a    )') ' Please check correct file type'
               call error(' filetype not known by openfl ')
            endif
         case ( 3 )
            if(ftype=='unformatted') then
               open ( lun, file = finam, form = ftype, status ='old', err = 10)
            elseif (ftype=='binary') then
               open ( lun, file = finam, form = ftype, status = 'old', err = 10)
            else
               write(*,'(//a,a40)') ' Error on opening file: ',finam
               write(*,'(  a,a  )') ' Expected file type   : ',ftype
               write(*,'(  a    )') ' Please check if file exists'
               write(*,'(  a    )') ' Please check correct file type'
               call error(' filetype not known by openfl ')
            endif
      end select

      return

   10 write(*,'(/a,a40/)') ' Warning, file does not exist: ',finam
      lun = 0
      if ( timon ) call timstop ( ithndl )
      return

 99   write(*,'(//a,a40)') ' Error on opening file: ',finam
      write(*,'(  a,a  )') ' Expected file type   : ',ftype
      write(*,'(  a    )') ' Please check if file exists'
      write(*,'(  a    )') ' Please check correct file type'
      call srstop(1)

      end subroutine
end module