| David Frank 2004-03-29, 9:46 am |
|
"David Frank" <dave_frank@hotmail.com> wrote in message
news:hpV9c.367767$jH.5093585@twister.tampabay.rr.com...
>
> "Ron Shepard" <ron-shepard@NOSPAM.comcast.net> wrote in message
> news:ron-shepard-8602E9.13481027032004@comcast.ash.giganews.com...
> .
>
> But my code handles your case AS IS classifying your logicals as
> "not integer or real"
> Adding a couple statements would allow classifying them as "logicals"
>
> ERR= has been around for about 40 yrs ( Fortran IV ?? )
>
>
I shud have stated my code handles AS IS .TRUE. FALSE. as "not integer
or real"
A test would need to be inserted ahead of my posted code shown to intercept
weird cases before attempting the READ (value, ERR= syntax.
select case (values(n)(1:1))
case ('T','F','t','f')
classified as logicals
case ( any other tests desired ahead of conversion reads)
classified as ????
case default
posted code to classify as integer or real
end select
|