!module ips_dll
!
!use ips_driver
!use gwf2ipspar
!use global, only: nlay, ncol, nrow
! contains

!##===============================================
subroutine dll_mf2005_ar( m_root, m_infile, flag )
!##===============================================
 use gwf2ipspar
 use ips_driver
 use global, only: nlay, ncol, nrow
 implicit none
 !DEC$ ATTRIBUTES DLLEXPORT :: dll_mf2005_ar

 character (len=256), intent(in) :: m_root, m_infile
 integer, intent(in) :: flag
 ipsflag = flag

 call driver_init_ips( m_root, m_infile )
 allocate( ipsbuff(nlay,nrow,ncol) )

end subroutine dll_mf2005_ar
    
!##=================================
subroutine dll_mf2005_fm( factor )
!##=================================
 use gwf2ipspar
 use ips_driver
 implicit none
 !DEC$ ATTRIBUTES DLLEXPORT :: dll_mf2005_fm
 double precision, intent(in) :: factor
 fwell = factor
 call driver_perform_iter_ips()
 return
end subroutine dll_mf2005_fm
    
!##=================================
subroutine dll_mf2005_bd( ipsbuff_dll )
!##=================================
 use gwf2ipspar, only: ipsbuff
 use global,     only: nlay, ncol, nrow
 implicit none
 !DEC$ ATTRIBUTES DLLEXPORT :: dll_mf2005_bd
 double precision, dimension(nlay,ncol,nrow), Target :: ipsbuff_dll
 ipsbuff_dll = ipsbuff
 return
end subroutine dll_mf2005_bd
!    
!##=================================
subroutine dll_mf2005_da()
!##=================================
 use ips_driver
 implicit none
 !DEC$ ATTRIBUTES DLLEXPORT :: dll_mf2005_da
 call driver_finalise_ips()
 return
end subroutine dll_mf2005_da

 !end module
 
 
!Specifies that the external name used in cDEC$ ALIAS or cDEC$ ATTRIBUTES ALIAS 
!should have the prefix and postfix decorations performed on it that are associated 
!with the calling mechanism that is in effect. These are the same decorations 
!performed on the procedure name when ALIAS is not specified.