!  test_ips.f90 
!  test_ips - Entry point of console application.
program test_ips
 implicit none
 !DEC$ ATTRIBUTES DLLIMPORT :: dll_mf2005_ar
 !DEC$ ATTRIBUTES DLLIMPORT :: dll_mf2005_fm
 !DEC$ ATTRIBUTES DLLIMPORT :: dll_mf2005_bd
 !DEC$ ATTRIBUTES DLLIMPORT :: dll_mf2005_da
 double precision, dimension(2,100,100) :: buff
 character (len=256) :: runfile, m_root, m_infile
 integer             :: ii
 double precision    :: factor(5)
 
 Interface  
  Subroutine dll_mf2005_bd( ipsbuff )
   Implicit None
   double precision, dimension(2,100,100), Target :: ipsbuff
  End Subroutine dll_mf2005_bd
 End Interface
 
 runfile  = 'd:\rakotoni\projects\imodflow_all_daniel.run'
 m_root   = runfile(:index(m_infile,'\',.true.)-1)
 m_infile = runfile(index(m_infile,'\',.true.)+1:)
 call dll_mf2005_ar( m_root, m_infile,  1 )
 do ii = 1, 5
  factor(ii) = real(ii)
  call dll_mf2005_fm( factor(ii) )
  call dll_mf2005_bd( buff )
 end do
 call dll_mf2005_da()
 
 end program test_ips