GFORTRAN_INTRINSICS
Examples of GFORTRAN Intrinsic Functions

GFORTRAN_INTRINSICS contains examples demonstrating the use and features of some of the intrinsic routines peculiar to the GFORTRAN FORTRAN compiler.

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

Related Data and Programs:

ARGS is a FORTRAN77 program which demonstrates the use of the IARGC and GETARG functions to count and access command line arguments. Versions of these functions are included with GFORTRAN.

C is a directory which includes some examples on features of the C language.

CPP is a directory which includes some examples on features of the C++ language.

F77 is a directory which includes some examples on features of the FORTRAN77 language.

F77_INTRINSICS is a directory which includes some examples of the use of intrinsic functions included with the FORTRAN77 standard language.

F90 is a directory which includes some examples on features of the FORTRAN90 language.

F90_INTRINSICS is a directory which includes some examples of the use of intrinsic functions defined as part of the FORTRAN90 standard.

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

G77_INTRINSICS is a directory which includes some examples of the use of intrinsic functions included with the G77 compiler.

G95_INTRINSICS is a directory which includes some examples of the use of "extra" intrinsic functions defined as part of the G95 compiler.

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

GFORTRAN is a directory which includes examples of the use of the GFORTRAN compiler with FORTRAN77 code.

GFORTRAN_INTRINSICS is also available in a FORTRAN90 version.

MIXED is a directory which shows some examples of writing a program partly in FORTRAN77 and partly in some other language.

MPI is a directory which shows how to set up parallel programs in FORTRAN77.

TEST_VALUES is a FORTRAN77 library which stores some sample values of various special functions.

TIMER is a FORTRAN77 program which shows how to compute elapsed CPU time.

TIMESTAMP is a FORTRAN77 library which shows how to get a timestamp in FORTRAN77.

XLF_INTRINSICS is a directory which includes some examples of the use of intrinsic functions peculiar to the IBM XLF FORTRAN compiler.

Reference:

1. The Gnu FORTRAN page, http://www.gnu.org/software/fortran/fortran.html .
2. The GFORTRAN Manual, http://gcc.gnu.org/onlinedocs/gcc-4.2.1/gfortran.pdf.

Examples and Tests:

• gfortran_intrinsics_prb.f, a single program that calls many tests; eact test is devoted to a particular GFORTRAN intrinsic function.
• gfortran_intrinsics_prb.csh, commands that compile and run the test;
• gfortran_intrinsics_prb_output.txt, the output file;

List of Routines:

• MAIN is the main program for GFORTRAN_INTRINSICS_PRB.
• TEST_ABORT demonstrates the ABORT routine.
• 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_GAMMA checks GAMMA against GAMMA_VALUES.
• TEST_RAND tests RAND.
• TEST_SECNDS tests SECNDS.
• 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 for testing.
• ERFC_VALUES returns some values of the ERFC or "complementary error" function for testing.
• GAMMA_VALUES returns some values of the Gamma function.
• GAMMA_LOG_VALUES returns some values of the Log Gamma function.
• TIMESTAMP prints out the current YMDHMS date as a timestamp.

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