Can someone field this please? Looks like a feature to me.
Date: Sat, 18 Dec 2004 14:02:58 -0800
From: Alan Penny <[log in to unmask]>
To: Quick Programming Service <[log in to unmask]>
Subject: chr_ctor and double precision number
Hi Malcolm,
I'm having a problem with a Starlink character s/r.
If 'chr_ctor'is fed a doble precision number, it seems to return an OK
status (bad), but doesnt seem to handle the double precision number. (to
be expected) See example below:
Any ideas?
Alan
--------------------
subroutine test_1 ( ierradam )
integer ierradam
character*80 text
real rv
integer istat
double precision dv
text = "-0.15732190062648830795+164"
istat = 0
rv = 0.0
print*, text
call chr_ctor ( text, rv, istat )
print*, istat, ' x ', rv
call chr_ctod ( text, dv, istat )
print*, istat, ' x ', dv
end
--------------------------------------
Running the above s/w gets this output:
Fujis03> test_1
-0.15732190062648830795+164
0 x -INF
0 x -1.57321901E+163
-----------------------------------
|