ecx_version.f90 Source File


Files dependent on this one

sourcefile~~ecx_version.f90~~AfferentGraph sourcefile~ecx_version.f90 ecx_version.f90 sourcefile~capi_version.f90 capi_version.f90 sourcefile~capi_version.f90->sourcefile~ecx_version.f90 sourcefile~ecx.f90 ecx.f90 sourcefile~ecx.f90->sourcefile~ecx_version.f90 sourcefile~capi.f90 capi.f90 sourcefile~ecx.f90->sourcefile~capi.f90 sourcefile~capi.f90->sourcefile~capi_version.f90

Source Code

module ecx__version
    !! Version
    implicit none
    private

    character(len=*), parameter :: version = "0.1.0"
    character(len=:), allocatable, target :: version_f

    public :: get_version

contains

function get_version()result(fptr)
    !! Get the version. 
    implicit none

    !! Returns
    character(len=:), pointer :: fptr
        !! Pointer to the version string.

    if(allocated(version_f))then
        deallocate(version_f)
    endif
    allocate(character(len=len(version)) :: version_f)
    version_f = version
    fptr => version_f    
end function


end module ecx__version