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