[Info-vax] LIB$ equivalent of DCL f$type() ?

FrankS sapienza at noesys.com
Mon Dec 21 12:23:28 EST 2009


On Dec 21, 10:59 am, DTL <didier.mora... at gmail.com> wrote:
> What is the RTL equivalent for the DCL f$type() lexical function
> please ?  I need to know within a Fortran program if a given ascii field
> contains a number or not.

I don't remember which binary floating point representation is default
in Fortran, but you should use the appropriate OTS$CVT_T_x function.
For example, if you are using IEEE S-floating binary values then you
would use OTS$CVT_T_S.

See the online or printed help for all the arguments and flags.  There
are options which may be useful in your particular application.
http://h71000.www7.hp.com/doc/82final/5933/5933pro.html

The return value from that routine will tell you if the conversion
failed, which would suggest a non-numeric value in the text string.

www.noesys.com




More information about the Info-vax mailing list