Description * Copyright (C) 1996 Leif Laaksonen, Dage Sundholm * Copyright (C) 1996-2010 Jacek Kobus* * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2 as * published by the Free Software Foundation. * * ### setPrecision ### Calculates floating-point precision and integer/real variable lengths
Source file: setPrecision.f
Intrinsic Functions Called GENERIC*8 ATAN
Local Variables (+ indicates altered content) INTEGER +I, +I4TMP1, +I8TMP1, +I8TMP2 REAL*8 +O
Referenced Common Block Variables (+ indicates altered content) CONSFP REAL*8 FOUR, ONE CONSFP REAL*8 +PII, +PRECIS CONSFP REAL*8 TWO IOCHAN INTEGER +LENGTHFP, +LENGTHINT