C+ C NAME: C ForeignR8Arg C PURPOSE: C Extract single real*8 value from keyword/value pair C CALLING SEQUENCE: subroutine ForeignR8Arg(cStr,cName,Def,Val) C INPUTS: C cStr character*(*) string with keywords C cName character*(*) name of keyword C Def double precision value assigned if keyword not present C OUTPUTS: C Val double precision value of keyword C CALLS: C ForeignR8ArgN C MODIFICATION HISTORY: C NOV-2004, Paul Hick (UCSD/CASS) C JUN-2006, Paul Hick (UCSD/CASS; pphick@ucsd.edu) C Old ForeignR8Arg was used to make ForeignR8ArgN. C New ForeignR8Arg is one-line interface to ForeignR8ArgN C- character cStr *(*) character cName*(*) double precision Def double precision Val nVal = 1 call ForeignR8ArgN(cStr,cName,Def,nVal,Val) return end