Author: Herman D. Knoble
Date: Apr 4, 2008 04:26
...(30,1000) -|integer, parameter :: qp = (1+sign(1,qp_preferred))/2*qp_preferred+ & -| (1-sign(... of range, permitted KINDs are 1, 2, or 3 -|error 636 - KIND parameter...compiled with Silverfrost latest Version 5.2, with all debug options turned on...gives results; pi = 3.14159265359 qp = 2 Other compiler results are shown in t he comments. Skip ...
|