ar_interface.f90 Source File

module ar_interface
   !-| Generic interfaces to an ArModel compatible with legacy codes, using
   !   pointers.
   use yaeos__constants, only: pr, R
   use iso_fortran_env, only: error_unit

   implicit none

   procedure(Ares), pointer :: ar_fun
   procedure(initial_volume), pointer :: vinit

   abstract interface
      subroutine Ares(z, v, t, Ar, ArV, ArTV, ArV2, Arn, ArVn, ArTn, Arn2)
         !| Residual Helmholtz model interface
         import pr
         real(pr), intent(in) :: z(:)
         real(pr), intent(in) :: v, t
         real(pr), intent(out) :: Ar, ArV, ArTV, ArV2
         real(pr), dimension(size(z)), intent(out) :: Arn, ArVn, ArTn
         real(pr), intent(out) :: Arn2(size(z), size(z))
      end subroutine

      function initial_volume(z, p, t)
         import pr
         real(pr) :: z(:)
         real(pr) :: p
         real(pr) :: t
         real(pr) :: initial_volume
      end function
   end interface
end module