F90_INTRINSICS
Examples of FORTRAN90 Intrinsic Functions

F90_INTRINSICS contains examples demonstrating 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

Related Data and Programs:

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.

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 intrinsic functions peculiar to the GNU G95 FORTRAN 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 FORTRAN90 code.

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

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

MPI shows how to set up parallel programs in FORTRAN90.

TIMER shows how to compute elapsed CPU time in FORTRAN90.

TIMESTAMP shows how to get a timestamp in FORTRAN90.

XLF_INTRINSICS is a directory 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.
3. ../../html/f90_intrinsics.html contains a list of the F90 intrinsic functions and a short description of each.

• f90_intrinsics_prb.f90, a single program that calls many tests; eact test is devoted to a particular FORTRAN90 intrinsic function.
• f90_intrinsics_prb.csh, commands that compile and run the test;
• f90_intrinsics_prb_output.txt, the output file;

List of Routines:

• F90_INTRINSICS_PRB tests FORTRAN intrinsic routines.
• 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_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_D8 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_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.
• 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.