release_runtime_info Function

private function release_runtime_info()

Returns the release number

Type Bound

runtime_info_type

Arguments

None

Return Value character(len=30)


Contents

Source Code

release_runtime_info

Source Code

  function release_runtime_info()
    implicit none
    character(len=30) :: release_runtime_info
#ifdef RELEASE
    release_runtime_info = RELEASE
#else
    release_runtime_info = 'no known release'
#endif
  end function release_runtime_info