F90_INTRINSICS
Examples of FORTRAN90 Intrinsic Functions

F90_INTRINSICS is a FORTRAN90 program which demonstrates the use and features of the many FORTRAN90 intrinsic functions and subroutines.

These functions may be broadly divided into groups of

• arithmetic functions
• vector and matrix functions
• logic and bit manipulation
• character manipulation
• data type conversion
• arithmetic model inquiry
• data type inquiry

Licensing:

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

Languages:

F90_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, a FORTRAN77 program which illustrates the use of intrinsic functions included with the FORTRAN77 language.

F90_RETURN, FORTRAN90 programs which illustrates how a FORTRAN90 program can return a program status value to the calling environment.

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 GNU G95 FORTRAN compiler.

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

Reference:

1. Jeanne Adams, Walter Brainerd, Jeanne Martin, Brian Smith, Jerrold Wagener,
   Fortran90 Handbook,
   Complete ANSI/ISO Reference,
   McGraw Hill, 1992,
   ISBN: 0-07-000406-4.
2. Miles Ellis, Ivor Philips, Thomas Lahey,
   Fortran90 Programming,
   Addison-Wesley, 1994,
   LC: QA76.73.F25E435,
   ISBN: 0-201-54446-6.

Examples and Tests:

• f90_intrinsics.f90, a single program that calls many tests; eact test is devoted to a particular FORTRAN90 intrinsic function.
• f90_intrinsics.txt, the output file;

List of Routines:

• MAIN is the main program for F90_INTRINSICS.
• TEST_ABS tests ABS.
• TEST_ACHAR tests ACHAR
• TEST_ACOS tests ACOS.
• TEST_ADJUSTL tests ADJUSTL.
• TEST_ADJUSTR tests ADJUSTR.
• TEST_AIMAG tests AIMAG.
• TEST_AINT tests AINT.
• TEST_ALL tests ALL
• TEST_ALLOCATED tests ALLOCATED
• TEST_ANINT tests ANINT.
• TEST_ANY tests ANY
• TEST_ASIN tests ASIN.
• TEST_ASSOCIATED tests ASSOCIATED
• TEST_ATAN tests ATAN.
• TEST_ATAN2 tests ATAN2.
• TEST_BIT_SIZE tests BIT_SIZE.
• TEST_BTEST tests BTEST.
• TEST_CEILING tests CEILING.
• TEST_CHAR tests CHAR
• TEST_CMPLX tests CMPLX.
• TEST_CONJG tests CONJG.
• TEST_COS_C4 tests COS on complex ( kind = 4 ) arguments.
• TEST_COS_R8 tests COS on real ( kind = 8 ) arguments.
• TEST_COSH tests COSH.
• TEST_COUNT tests COUNT
• TEST_CSHIFT tests CSHIFT.
• TEST_DATE_AND_TIME tests DATE_AND_TIME.
• TEST_DBLE tests DBLE.
• TEST_DIGITS tests DIGITS.
• TEST_DIM tests DIM
• TEST_DOT_PRODUCT tests DOT_PRODUCT.
• TEST_DPROD tests DPROD
• TEST_EOSHIFT tests EOSHIFT.
• TEST_EPSILON tests EPSILON.
• TEST_EXP tests EXP.
• TEST_EXPONENT tests EXPONENT.
• TEST_FLOOR tests FLOOR.
• TEST_FRACTION tests FRACTION.
• TEST_HUGE tests HUGE.
• TEST_IACHAR tests IACHAR
• TEST_IAND_I4 tests IAND on integer ( kind = 4 ) arguments.
• TEST_IAND_I8 tests IAND on integer ( kind = 8 ) arguments.
• TEST_IBCLR tests IBCLR.
• TEST_IBITS tests IBITS.
• TEST_IBSET tests IBSET.
• TEST_ICHAR tests ICHAR
• TEST_IEOR_I4 tests IEOR on integer ( kind = 4 ) arguments.
• TEST_IEOR_I8 tests IEOR on integer ( kind = 8 ) arguments.
• TEST_INDEX tests INDEX.
• TEST_INT tests INT.
• TEST_IOR_I4 tests IOR on integer ( kind = 4 ) arguments.
• TEST_IOR_I8 tests IOR on integer ( kind = 8 ) arguments.
• TEST_ISHFT tests ISHFT.
• TEST_ISHFTC tests ISHFTC.
• TEST_KIND tests KIND.
• TEST_LBOUND tests LBOUND.
• 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_LOGICAL tests LOGICAL.
• TEST_MATMUL tests MATMUL.
• TEST_MAX tests MAX.
• TEST_MAX_VECTOR tests MAX applied to a vector.
• TEST_MAXEXPONENT tests MAXEXPONENT.
• TEST_MAXLOC tests MAXLOC.
• TEST_MAXVAL tests MAXVAL.
• TEST_MERGE tests MERGE.
• TEST_MIN tests MIN.
• TEST_MINEXPONENT tests MINEXPONENT.
• TEST_MINLOC tests MINLOC.
• TEST_MINVAL tests MINVAL.
• TEST_MOD_I4 tests MOD on integers.
• TEST_MOD_R4 tests MOD on reals.
• TEST_MODULO_I4 tests MODULO on integers.
• TEST_MODULO_R4 tests MODULO on reals.
• TEST_MVBITS tests MVBITS.
• TEST_NEAREST tests NEAREST.
• TEST_NINT tests NINT.
• TEST_NOT_I4 tests NOT on integer ( kind = 4 ) arguments.
• TEST_NOT_I8 tests NOT on integer ( kind = 8 ) arguments.
• TEST_PACK tests PACK.
• TEST_PRECISION tests PRECISION.
• TEST_PRESENT tests PRESENT.
• TEST_PRODUCT tests PRODUCT.
• TEST_RADIX tests RADIX.
• TEST_RANDOM_NUMBER tests RANDOM_NUMBER.
• TEST_RANDOM_SEED tests RANDOM_SEED.
• TEST_RANGE tests RANGE.
• TEST_REAL_C4 tests REAL as applied to complex numbers.
• TEST_REPEAT tests REPEAT.
• TEST_RESHAPE tests RESHAPE.
• TEST_RRSPACING tests RRSPACING.
• TEST_SCAN tests SCAN.
• TEST_SET_EXPONENT tests SET_EXPONENT.
• TEST_SCALE tests SCALE.
• TEST_SELECTED_INT_KIND tests SELECTED_INT_KIND.
• TEST_SELECTED_REAL_KIND tests SELECTED_REAL_KIND.
• TEST_SHAPE tests SHAPE.
• TEST_SIGN tests SIGN.
• TEST_SIN_R8 tests SIN on real ( kind = 8 ) arguments.
• TEST_SINH tests SINH.
• TEST_SIZE tests SIZE.
• TEST_SPACING tests SPACING.
• TEST_SPREAD tests SPREAD.
• TEST_SQRT tests SQRT.
• TEST_SUM tests SUM.
• TEST_SUM_DIM tests SUM specifying a dimension.
• TEST_SYSTEM_CLOCK tests SYSTEM_CLOCK.
• TEST_TAN tests TAN.
• TEST_TANH tests TANH.
• TEST_TINY tests TINY.
• TEST_TRANSFER tests TRANSFER.
• TEST_TRANSPOSE tests TRANSPOSE.
• TEST_TRIM tests TRIM.
• TEST_UBOUND tests UBOUND.
• TEST_UNPACK tests UNPACK.
• TEST_VERIFY tests VERIFY.
• C4_UNIFORM_01 returns a unit complex pseudorandom number.
• CH_IS_PRINTABLE is TRUE if C is printable.
• I4_UNIFORM returns a pseudorandom integer of KIND = 4.
• I4VEC_UNIFORM returns a scaled pseudorandom I4VEC.
• I8_UNIFORM returns a pseudorandom integer of KIND = 8.
• R4_UNIFORM returns a scaled real ( kind = 4 ) pseudorandom number.
• R4_UNIFORM_01 returns a unit real ( kind = 4 ) pseudorandom number.
• R8_UNIFORM returns a scaled real ( kind = 8 ) pseudorandom number.
• R8_UNIFORM_01 returns a unit real ( kind = 8 ) pseudorandom number.
• TIMESTAMP prints the current YMDHMS date as a time stamp.

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