G95_INTRINSICS
Examples of G95 Intrinsic Functions

G95_INTRINSICS is a FORTRAN90 program which demonstrates the use and features of some of the intrinsic routines peculiar to the G95 FORTRAN compiler.

These functions are not listed in the FORTRAN standard; they are in some cases commonly available in C or C++ compilers.

Licensing:

The computer code and data files described and made available on this web page are distributed under the GNU LGPL license.

Languages:

G95_INTRINSICS is available in a FORTRAN90 version

Related Data and Programs:

C_INTRINSICS, a C program which illustrates the use of intrinsic functions supplied by the C language.

CPP_INTRINSICS, a C++ program which illustrates the use of intrinsic functions supplied by the C++ language.

F77_INTRINSICS, FORTRAN77 programs which include some examples of the use of intrinsic functions included with the FORTRAN77 standard language.

F90_INTRINSICS, FORTRAN90 programs which include some examples of the use of intrinsic functions defined as part of the FORTRAN90 standard.

G++_INTRINSICS, a C++ program which demonstrates some of the intrinsic functions provided by the G++ compiler.

G77_INTRINSICS, FORTRAN77 programs which include some examples of the use of intrinsic functions included with the G77 compiler.

G95_QUADMATH, a FORTRAN90 program which illustrates the use of quadruple precision real arithmetic provided on some systems by the G95 compiler for FORTRAN.

GCC_INTRINSICS, a C program which tests or demonstrates intrinsic routines provided by the GCC compiler.

GFORTRAN_INTRINSICS, a FORTRAN90 program which demonstrates the use of some of the intrinsic functions included with the GFORTRAN compiler.

MATH_INTRINSICS, a JAVA program which illustrates the use of the intrinsic functions in the Java Math package.

XLF_INTRINSICS, FORTRAN90 programs which include some examples of the use of intrinsic functions peculiar to the IBM XLF FORTRAN compiler.

Reference:

1. G95 Manual, http://ftp.g95.org/G95Manual.pdf.

Examples and Tests:

• g95_intrinsics.f90, a single program that calls many tests; each test is devoted to a particular G95 intrinsic function.
• g95_intrinsics.sh, commands that compile and run the test;
• g95_intrinsics.txt, the output file;

List of Routines:

• MAIN is the main program for G95_INTRINSICS.
• TEST_ALGAMA checks ALGAMA against GAMMA_LOG_VALUES.
• TEST_BESJ0 checks BESJ0 against BESSEL_J0_VALUES.
• TEST_BESJ1 checks BESJ1 against BESSEL_J1_VALUES.
• TEST_BESJN checks BESJN against BESSEL_JN_VALUES.
• TEST_BESY0 checks BESY0 against BESSEL_Y0_VALUES.
• TEST_BESY1 checks BESY1 against BESSEL_Y1_VALUES.
• TEST_BESYN checks BESYN against BESSEL_YN_VALUES.
• TEST_DBESJ0 checks DBESJ0 against BESSEL_J0_VALUES.
• TEST_DBESJ1 checks DBESJ1 against BESSEL_J1_VALUES.
• TEST_DBESJN checks DBESJN against BESSEL_JN_VALUES.
• TEST_DBESY0 checks DBESY0 against BESSEL_Y0_VALUES.
• TEST_DBESY1 checks DBESY1 against BESSEL_Y1_VALUES.
• TEST_DBESYN checks DBESYN against BESSEL_YN_VALUES.
• TEST_DERF checks DERF against ERF_VALUES.
• TEST_DERFC checks DERFC against ERFC_VALUES.
• TEST_DGAMMA checks DGAMMA against GAMMA_VALUES.
• TEST_DLGAMA checks DLGAMA against GAMMA_LOG_VALUES.
• TEST_ERF checks ERF against ERF_VALUES.
• TEST_ERFC checks ERFC against ERFC_VALUES.
• TEST_ETIME tests ETIME.
• TEST_FDATE tests FDATE.
• TEST_GAMMA checks GAMMA against GAMMA_VALUES.
• TEST_HOSTNM tests HOSTNM.
• TEST_RAND tests RAND.
• TEST_SECNDS tests SECNDS.
• TEST_SIZEOF tests SIZEOF.
• TEST_SLEEP tests SLEEP.
• TEST_SRAND tests SRAND.
• TEST_SYSTEM tests SYSTEM.
• TEST_TIME tests TIME.
• BESSEL_J0_VALUES returns some values of the J0 Bessel function.
• BESSEL_J1_VALUES returns some values of the J1 Bessel function.
• BESSEL_JN_VALUES returns some values of the Jn Bessel function.
• BESSEL_Y0_VALUES returns some values of the Y0 Bessel function.
• BESSEL_Y1_VALUES returns some values of the Y1 Bessel function.
• BESSEL_YN_VALUES returns some values of the Yn Bessel function.
• ERF_VALUES returns some values of the ERF or "error" function.
• ERFC_VALUES returns some values of the ERFC or "complementary error" function.
• GAMMA_VALUES returns some values of the Gamma function.
• GAMMA_LOG_VALUES returns some values of the Log Gamma function.
• TIMESTAMP prints the current YMDHMS date as a time stamp.

You can go up one level to the FORTRAN90 source codes.