C:/repositories/XBeach/trunk/src/xbeachlibrary/libxbeach_dynamic.F90

Go to the documentation of this file.

module libxbeach_dynamic

   use libxbeach_module
   use iso_c_binding
   use logging_module

   implicit none
   save

contains

   integer(c_int) function xbeach_init() bind(C, name="init")
      !DEC$ ATTRIBUTES DLLEXPORT::xbeach_init

      xbeach_init = init()

   end function xbeach_init

   integer(c_int) function xbeach_outputext() bind(C, name="outputext")
      !DEC$ ATTRIBUTES DLLEXPORT::xbeach_outputext

      xbeach_outputext = outputext()

   end function xbeach_outputext

   integer(c_int) function xbeach_executestep() bind(C, name="executestep")
      !DEC$ ATTRIBUTES DLLEXPORT::xbeach_executestep

      xbeach_executestep = executestep()

   end function xbeach_executestep

   integer(c_int) function xbeach_finalize() bind(C, name="finalize")
      !DEC$ ATTRIBUTES DLLEXPORT::xbeach_finalize

      xbeach_finalize = final()

   end function xbeach_finalize

   !   subroutine assignlogdelegate(fPtr) bind(C,name="assignlogdelegate")
   !      !DEC$ ATTRIBUTES DLLEXPORT::assignlogdelegate
   !      use logging_module
   !      type(c_funptr), VALUE :: fPtr
   !
   !      call assignlogdelegate_internal(fPtr)
   !
   !   end subroutine assignlogdelegate
   !
   !   integer(c_int) function writetolog()  bind(C, name="writetolog")
   !      !DEC$ ATTRIBUTES DLLEXPORT::writetolog
   !      use logging_module
   !
   !      integer :: i, tmp
   !
   !      writetolog = -1
   !
   !      do i = 1, 10
   !         tmp = i
   !         call distributelog(tmp,"test iets anders",16)
   !      end do
   !
   !      writetolog = 0
   !   end function writetolog

end module libxbeach_dynamic