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