F77_INTRINSICS
Examples of FORTRAN77 Intrinsic Functions

F77_INTRINSICS, FORTRAN77 programs which demonstrate the use and features of the many FORTRAN77 intrinsic functions and subroutines.

These functions may be broadly divided into groups of

• arithmetic functions
• logic and bit manipulation
• character manipulation
• data type conversion

Licensing:

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

Languages:

f77_intrinsics is available in a C version and a C++ version and a FORTRAN90 version and a Python 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_RETURN, FORTRAN77 programs which illustrates how a FORTRAN77 program can return a program status value to the calling environment.

F90_INTRINSICS, FORTRAN90 programs which includes some examples of the use of intrinsic functions included with the FORTRAN90 standard language.

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

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

G95_INTRINSICS, FORTRAN90 programs which includes some examples of the use of intrinsic functions peculiar to the G95 FORTRAN compiler.

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

GFORTRAN_INTRINSICS, a FORTRAN77 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 includes some examples of the use of intrinsic functions peculiar to the IBM XLF FORTRAN compiler.

Examples and Tests:

• f77_intrinsics.f, a single program that calls many tests; eact test is devoted to a particular FORTRAN77 intrinsic function.
• f77_intrinsics.sh, commands that compile and run the test;
• f77_intrinsics_output.txt, the output file;

List of Routines:

• MAIN is the main program for F77_INTRINSICS.
• TEST_ABS tests ABS.
• TEST_ACOS tests ACOS.
• TEST_AIMAG tests AIMAG.
• TEST_AINT tests AINT.
• TEST_ANINT tests ANINT.
• TEST_ASIN tests ASIN.
• TEST_ATAN tests ATAN.
• TEST_ATAN2 tests ATAN2.
• TEST_BTEST tests BTEST.
• TEST_CHAR tests CHAR
• TEST_CMPLX tests CMPLX.
• TEST_CONJG tests CONJG.
• TEST_COS_C4 tests COS on complex arguments.
• TEST_COS_R8 tests COS on double precision arguments.
• TEST_COSH tests COSH.
• TEST_DBLE tests DBLE.
• TEST_DIM tests DIM
• TEST_DPROD tests DPROD
• TEST_EXP tests EXP.
• TEST_IAND_I4 tests IAND on integer arguments.
• TEST_IBCLR tests IBCLR.
• TEST_IBITS tests IBITS.
• TEST_IBSET tests IBSET.
• TEST_ICHAR tests ICHAR
• TEST_IEOR_I4 tests IEOR on integer arguments.
• TEST_INDEX tests INDEX.
• TEST_INT tests INT.
• TEST_IOR_I4 tests IOR on integer arguments.
• TEST_ISHFT tests ISHFT.
• TEST_ISHFTC tests ISHFTC.
• TEST_LEN tests LEN.
• TEST_LEN_TRIM tests LEN_TRIM.
• TEST_LGE tests LGE.
• TEST_LGT tests LGT.
• TEST_LLE tests LLE.
• TEST_LLT tests LLT.
• TEST_LOG tests LOG.
• TEST_LOG10 tests LOG10.
• TEST_MAX tests MAX.
• TEST_MIN tests MIN.
• TEST_MOD_I4 tests MOD on integers.
• TEST_MOD_R4 tests MOD on reals.
• TEST_MVBITS tests MVBITS.
• TEST_NINT tests NINT.
• TEST_NOT_I4 tests NOT on integer arguments.
• TEST_REAL_C4 tests REAL as applied to complex numbers.
• TEST_SIGN tests SIGN.
• TEST_SIN_R8 tests SIN on double precision arguments.
• TEST_SINH tests SINH.
• TEST_SQRT tests SQRT.
• TEST_TAN tests TAN.
• TEST_TANH tests TANH.
• C4_UNIFORM_01 returns a unit pseudorandom C4.
• CH_IS_PRINTABLE is TRUE if C is printable.
• I4_HUGE returns a "huge" I4.
• I4_UNIFORM returns a scaled pseudorandom I4.
• R4_UNIFORM returns a scaled pseudorandom R4.
• R4_UNIFORM_01 returns a unit pseudorandom R4.
• R8_UNIFORM returns a scaled pseudorandom R8.
• R8_UNIFORM_01 returns a unit pseudorandom R8.
• TIMESTAMP prints out the current YMDHMS date as a timestamp.

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