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

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

! 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
        real(8) :: d1mach
    end function
    function r1mach(i)
        integer :: i
        real(4) :: r1mach
    end function
end interface

end module fvn_common