compilerversion Module Reference

Functions/Subroutines
subroutine, public	get_compiler (txt)
	@ brief Get compiler information More...
subroutine, public	get_compile_date (txt)
	@ brief Get compilation date More...
subroutine, public	get_compile_options (txt)
	@ brief Get compilation options More...

Variables
character(len=10)	c_compiler
	compiler string More...
character(len=10)	c_version
	compiler version string More...
character(len=20)	c_date
	compilation date More...
integer(i4b)	icompiler = CUNKNOWN
	compiler enum More...

Function/Subroutine Documentation

get_compile_date()

subroutine, public compilerversion::get_compile_date

(

character(len=20), intent(inout)

txt

)

Subroutine returns a string with compilation date

Parameters

[in,out]

txt

compilation date

Definition at line 61 of file compilerversion.F90.

    ! -- dummy variables
    character(len=20), intent(inout) :: txt !< compilation date
    ! -- set variables
#ifdef __GFORTRAN__
    c_date = __date__//' '//__time__
#endif
#ifdef __INTEL_COMPILER
    c_date = __date__//' '//__time__
#endif
#ifdef _CRAYFTN
    c_date = __date__//' '//__time__
#endif
    !
    ! -- write compilation date string
    write (txt, '(a)') trim(adjustl(c_date))
    !
    ! -- return
    return

Here is the caller graph for this function:

get_compile_options()

subroutine, public compilerversion::get_compile_options

(

character(len=lenbigline), intent(inout)

txt

)

Subroutine returns a string with compilation options

Parameters

[in,out]

txt

compilation options

Definition at line 87 of file compilerversion.F90.

    ! -- dummy variables
    character(len=LENBIGLINE), intent(inout) :: txt !< compilation options
    ! -- set variables
    !
    ! -- set txt string
    write (txt, '(a)') &
      'MODFLOW 6 compiler options:'//' '//trim(adjustl(compiler_options()))
    !
    ! -- return
    return

Here is the caller graph for this function:

get_compiler()

subroutine, public compilerversion::get_compiler

(

character(len=lenbigline), intent(inout)

txt

)

Subroutine returns a string with compilation date and compiler.

Parameters

[in,out]

txt

compiler information

Definition at line 22 of file compilerversion.F90.

    ! -- dummy variables
    character(len=LENBIGLINE), intent(inout) :: txt !< compiler information
    !
    ! -- set variables
#ifdef __GFORTRAN__
    icompiler = cgfortran
    c_date = __date__//' '//__time__
#endif
#ifdef __INTEL_COMPILER
    icompiler = cintel
    c_date = __date__//' '//__time__
#endif
#ifdef _CRAYFTN
    icompiler = ccrayftn
    c_date = __date__//' '//__time__
#endif
    !
    ! -- set compiler strings
    if (icompiler == cunknown) then
      c_compiler = 'UNKNOWN'
      c_version = '??.??'
      c_date = '??? ?? ???? ??:??:??'
    end if
    !
    ! -- write string with compiler information
    write (txt, '(a,3(1x,a))') &
      'MODFLOW 6 compiled', trim(adjustl(c_date)), &
      'with', trim(adjustl(compiler_version()))
    !
    ! -- return
    return

Here is the caller graph for this function:

Variable Documentation

c_compiler

character(len=10) compilerversion::c_compiler

private

Definition at line 10 of file compilerversion.F90.

  character(len=10) :: c_compiler !< compiler string

c_date

character(len=20) compilerversion::c_date

private

Definition at line 12 of file compilerversion.F90.

  character(len=20) :: c_date !< compilation date

c_version

character(len=10) compilerversion::c_version

private

Definition at line 11 of file compilerversion.F90.

  character(len=10) :: c_version !< compiler version string

icompiler

integer(i4b) compilerversion::icompiler = CUNKNOWN

private

Definition at line 13 of file compilerversion.F90.

  integer(I4B) :: icompiler = cunknown !< compiler enum