get Subroutine

public subroutine get(key, valout1, valout2, valout3)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: key
integer :: valout1
integer :: valout2
integer :: valout3

Contents

Variables

Source Code

get

Variables

Type Visibility Attributes Name Initial
integer, public :: place

Source Code

subroutine get(key,valout1,valout2,valout3)
character(len=*),intent(in)   :: key
integer                       :: valout1, valout2, valout3
integer                       :: place
! find where string is or should be
   call locate(keywords,key,place)
   if(place.lt.1)then
      valout1=-99999
      valout2=-99999
      valout3=-99999
   else
      valout1=rows(place)
      valout2=cols(place)
      valout3=locs(place)
   endif
end subroutine get