G95_QUADMATH is a FORTRAN90 program which illustrates the use of quadruple real precision arithmetic with the G95 compiler for FORTRAN.
Every FORTRAN compiler offers a default real datatype as well as a double precision real data type.
Starting with FORTRAN90, it become possible to describe these types in terms of a KIND parameter. The actual values of the KIND parameter corresponding to particular types was left up to the compiler writer. For G95, real and double precision variables can be declared with KIND values of 4 and 8 respectively:
REAL ( KIND = 4 ) W
REAL ( KIND = 8 ) X
On some systems, the G95 compiler provides a real data type stored in 80 bytes, specified by a KIND value of 10, and on some systems, a data type stored in 128 bytes, with a KIND of 128. Variable declarations would be
REAL ( KIND = 10 ) Y
REAL ( KIND = 16 ) Z
The Macintosh OSX system I have access to seems to have the KIND = 10 and KIND = 16 options for the G95 compiler.
The computer code and data files described and made available on this web page are distributed under the GNU LGPL license.
G95_QUADMATH is available in a FORTRAN90 version
G95_INTRINSICS, a FORTRAN90 program which illustrates the use of intrinsic functions provided by the G95 compiler for FORTRAN.
GFORTRAN_QUADMATH, a FORTRAN90 program which illustrates the use of quadruple precision real arithmetic provided by the Gnu GFORTRAN compiler for FORTRAN90.
REAL_PRECISION, FORTRAN90 programs which investigate the somewhat awkward methods for requesting a real data type with given precision. This is the preferred method for requesting double or quadruple precision arithmetic;
You can go up one level to the FORTRAN90 source codes.