C+ C NAME: C bStr2Dbl C CALLING SEQUENCE: logical function bStr2Dbl(cStr,N,R) C PROCEDURE: C bStr2Dbl is a special case of a Str2Dbl call. C SEE ALSO: C Str2Dbl C MODIFICATION HISTORY: C DEC-1992, Paul Hick (UCSD/CASS; pphick@ucsd.edu) C- character cStr*(*) character cL1(1)*20 double precision R(N) M = N L1 = 0 call Str2Flt_Exp(.TRUE.) call Str2Dbl(cStr,M,R) call Str2Flt_Crumbs(L,L1,cL1) !------- ! Exactly N numbers in cStr with no leftover characters. ! (If M = -N there are more then N numbers in cStr) bStr2Dbl = N .eq. M .and. L .eq. 0 return end