definedmacros Module Reference

Functions/Subroutines
integer(i4b) function, public	get_os ()
	Get operating system. More...
logical(lgp) function, public	is_extended ()
	Determine if this is the extended version. More...
logical(lgp) function, public	using_petsc ()
	Determine if using petsc. More...
logical(lgp) function, public	using_netcdf ()
	Determine if using netcdf. More...

Function/Subroutine Documentation

get_os()

integer(i4b) function, public definedmacros::get_os

Function to get the integer operating system enum value.

Returns

ios operating system enum

operating system

Definition at line 16 of file defmacro.F90.

    ! -- local variables
    integer(I4B) :: ios !< operating system
    !
    ! -- initialize ios
    ios = osundef
    !
    ! -- set operating system variables
#ifdef __GFORTRAN__
# ifdef __linux__
    ios = oslinux
# endif
# ifdef __APPLE__
    ios = osmac
# endif
# ifdef _WIN32
    ios = oswin
# endif
#endif
#ifdef __INTEL_COMPILER
# ifdef __linux__
    ios = oslinux
# endif
# ifdef __APPLE__
    ios = osmac
# endif
# ifdef _WIN32
    ios = oswin
# endif
#endif
    !
    ! return
    return

Here is the caller graph for this function:

is_extended()

logical(lgp) function, public definedmacros::is_extended

Function to get a logical indicating if this is the extended version of MODFLOW.

Returns

isextended extended version logical

extended version logical

Definition at line 58 of file defmacro.F90.

    ! -- return variables
    logical(LGP) :: isextended !< extended version logical
    ! -- local variables
    logical(LGP) :: ispetsc
    logical(LGP) :: isnetcdf
    !
    ! -- initialize isextended
    isextended = .false.
    !
    ! -- check if using petsc
    ispetsc = using_petsc()
    !
    ! -- check if using netcf
    isnetcdf = using_netcdf()
    !
    !
    if (ispetsc .EQV. .true. .OR. isnetcdf .EQV. .true.) then
      isextended = .true.
    end if
    !
    ! return
    return

Here is the call graph for this function:

Here is the caller graph for this function:

using_netcdf()

logical(lgp) function, public definedmacros::using_netcdf

Function to get a logical indicating if netcdf is being used.

Returns

netcdfused netcdf used logical

netcdf used logical

Definition at line 113 of file defmacro.F90.

    ! -- return variable
    logical(LGP) :: netcdfused !< netcdf used logical
    !
    ! -- initialize petscavail
    netcdfused = .false.
    !
    ! -- set operating system variables
#ifdef __WITH_NETCDF__
    netcdfused = .true.
#endif
    !
    ! return
    return

Here is the caller graph for this function:

using_petsc()

logical(lgp) function, public definedmacros::using_petsc

Function to get a logical indicating if petsc is being used.

Returns

petscused petsc used logical

petsc used logical

Definition at line 90 of file defmacro.F90.

    ! -- return variable
    logical(LGP) :: petscused !< petsc used logical
    !
    ! -- initialize petscavail
    petscused = .false.
    !
    ! -- set operating system variables
#ifdef __WITH_PETSC__
    petscused = .true.
#endif
    !
    ! return
    return

Here is the caller graph for this function: