subroutine get_value_from_string(string,match,value,default,found)
use precision_def
implicit none
character*(*)string,match
real(rp) value, default
logical found
integer ix

value =default
ix = index(string,'=')
if(ix/=0)then
  read(string(ix+1:),*)value
  found = .true.
endif
return
end subroutine