get Function

function get(key) result(valout)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: key

Return Value character(len=:), allocatable


Contents

Variables

Source Code

get

Variables

Type Visibility Attributes Name Initial
integer, public :: place

Source Code

      function get(key) result(valout)
      character(len=*),intent(in)   :: key
      character(len=:),allocatable  :: valout
      integer                       :: place
         ! find where string is or should be
         call locate(keywords,key,place)
         if(place.lt.1)then
            valout=''
         else
            valout=values(place)(:counts(place))
         endif
      end function get