> Additionally, to what has already been written:
> I didn't test it, but you use the function REAL, which accepts a
> second parameter, the kind to produce). So instead of REAL(1999) you
> should write REAL(1999, rt).
Further to Richard's points, the simplest way to handle it is to delete
the reference to REAL altogether. The compiler will provide the
approriate type promotion following the rules of mixed-mode arithmetic.
Regards,
Mike Metcalf
|