module assign_values
    !use a module from FoX
    use fox_m_fsys_parse_input, only: rts
    implicit none
    private

    public assign

    interface assign
        module procedure assignLogical
        module procedure assignInteger
        module procedure assignReal
        module procedure assignString
    end interface
contains

    
    subroutine assignLogical(value, variable)
        character(len = *), intent(in) :: value
        logical :: variable

        call rts(value, variable)
    end subroutine
    
    subroutine assignInteger(value, variable)
        character(len = *), intent(in) :: value
        integer :: variable

        call rts(value, variable)
    end subroutine
    
    subroutine assignReal(value, variable)
        character(len = *), intent(in) :: value
        real :: variable

        call rts(value, variable)
    end subroutine
    
     subroutine assignString(value, variable)
        character(len = *), intent(in) :: value
        character(len = *) :: variable

        variable = value
    end subroutine
end module