2
c $Id: extrct_real.f 19707 2010-10-29 17:59:36Z d3y133 $
5
SUBROUTINE ex_1real(n,ist,irecord,buf,ierr)
9
integer i,j,n,ifact2,ifact,ist,nstart
10
integer ierr,limit,iexft,irec_len
14
character*1 irecord,cchar,itemp
16
parameter(irec_len=100)
18
dimension irecord(irec_len),cchar(19)
20
data cchar/'0','1','2','3','4','5','6','7','8','9','+','&','/',
21
$ '-','.','D','E','d','e'/
32
if(cchar(j).eq.irecord(nstart))goto 180
36
180 if(j.lt.11)goto 200
52
200 buf=buf+(dfloat(j-1)*fact)
56
220 buf=(0.1d0**(ifact2-iexft))*buf