module fvn_common
! This module contains routines that are used by more than one fvn submodule

use Kind_Definition
implicit none
! We define pi and i for the module
real(kind=dp_kind),parameter :: fvn_pi = 3.141592653589793_dp_kind
complex(kind=dp_kind),parameter :: fvn_i = (0._dp_kind,1._dp_kind)

! an integer variable that can be used to store the return status of different fvn subroutines
integer :: fvn_status

interface
    function d1mach(i)
        integer :: i
        double precision :: d1mach
    end function
    function r1mach(i)
        integer :: i
        real :: r1mach
    end function
end interface

end module fvn_common