C8LIB
Elementary functions for double precision complex variables

C8LIB is a FORTRAN77 library which implements certain elementary functions for double precision complex variables.

The symbol "C8" is used to suggest a double precision complex variable. Here the 8 indicates that the underlying pair of real numbers each use 8 bytes of storage.

C8LIB contains routines that operate on scalars, vectors or doubly dimensioned arrays of C8's. A vector of C8's is denoted a C8VEC, and a doubly dimensioned array is a C8MAT.

Licensing:

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

Related Data and Programs:

BLAS1_Z is a FORTRAN77 library which contains basic linear algebra routines for vector-vector operations, using double precision complex arithmetic.

C4LIB is a FORTRAN77 library which implements certain elementary functions for single precision complex variables.

C8LIB is available in a C version and a FORTRAN77 version and a FORTRAN90 version.

LINPACK_Z is a FORTRAN77 library which solves linear systems using double precision complex arithmetic;

Source Code:

• c8lib.f, the source code.
• c8lib.csh, commands to compile the source code.

Examples and Tests:

• c8lib_prb.f, a sample calling program.
• c8lib_prb.csh, commands to compile and run the sample program.
• c8lib_prb_output.txt, the output file.

List of Routines:

• C8_ABS evaluates the absolute value of a C8.
• C8_ACOS evaluates the inverse cosine of a C8.
• C8_ACOSH evaluates the inverse hyperbolic cosine of a C8.
• C8_ADD adds two C8's.
• C8_ARG returns the argument of a C8.
• C8_ASIN evaluates the inverse sine of a C8.
• C8_ASINH evaluates the inverse hyperbolic sine of a C8.
• C8_ATAN evaluates the inverse tangent of a C8.
• C8_ATANH evaluates the inverse hyperbolic tangent of a C8.
• C8_CONJ evaluates the conjugate of a C8.
• C8_COPY copies a C8.
• C8_COS evaluates the cosine of a C8.
• C8_COSH evaluates the hyperbolic cosine of a C8.
• C8_CUBE_ROOT returns the principal cube root of a C8.
• C8_DIV divides two C8's.
• C8_DIV_R8 divides a C8 by an R8.
• C8_EXP evaluates the exponential of a C8.
• C8_I returns the the imaginary unit, i as a C8.
• C8_IMAG evaluates the imaginary part of a C8.
• C8_INV evaluates the inverse of a C8.
• C8_LE_L1 := X <= Y for C8 values, and the L1 norm.
• C8_LE_L2 := X <= Y for complex values, and the L2 norm.
• C8_LE_LI := X <= Y for C8 values, and the L Infinity norm.
• C8_LOG evaluates the logarithm of a C8.
• C8_MAG returns the magnitude of a C8.
• C8_MUL multiplies two C8's.
• C8_NEG returns the negative of a C8.
• C8_NORM_L1 evaluates the L1 norm of a C8.
• C8_NORM_L2 evaluates the L2 norm of a C8.
• C8_NORM_LI evaluates the L-infinity norm of a C8.
• C8_NORMAL_01 returns a unit pseudonormal C8.
• C8_ONE returns the value of 1 as a C8.
• C8_PRINT prints a C8.
• C8_REAL evaluates the real part of a C8.
• C8_SIN evaluates the sine of a C8.
• C8_SINH evaluates the hyperbolic sine of a C8.
• C8_SQRT returns the principal square root of a C8.
• C8_SUB subtracts two C8's.
• C8_SWAP swaps two C8's.
• C8_TAN evaluates the tangent of a C8.
• C8_TANH evaluates the hyperbolic tangent of a C8.
• C8_TO_CARTESIAN converts a C8 to Cartesian form.
• C8_TO_POLAR converts a C8 to polar form.
• C8_UNIFORM_01 returns a unit pseudorandom C8.
• C8_ZERO returns the value of 0 as a C8.
• C8MAT_IDENTITY sets a C8MAT to the identity.
• C8MAT_INDICATOR returns the C8MAT indicator matrix.
• C8MAT_NINT rounds the entries of a C8MAT.
• C8MAT_PRINT prints a C8MAT.
• C8MAT_PRINT_SOME prints some of a C8MAT.
• C8MAT_UNIFORM_01 returns a unit pseudorandom C8MAT.
• C8VEC_INDICATOR sets a C8VEC to the indicator vector.
• C8VEC_NINT rounds the entries of a C8VEC.
• C8VEC_NORM_L2 returns the L2 norm of a C8VEC.
• C8VEC_PRINT prints a C8VEC, with an optional title.
• C8VEC_PRINT_SOME prints some of a C8VEC.
• C8VEC_SORT_A_L1 ascending sorts a C8VEC by L1 norm.
• C8VEC_SORT_A_L2 ascending sorts a C8VEC by L2 norm.
• C8VEC_SORT_A_LI ascending sorts a C8VEC by L-infinity norm.
• C8VEC_SPIRAL returns N points on a spiral between C1 and C2.
• C8VEC_UNIFORM_01 returns a unit pseudorandom C8VEC.
• C8VEC_UNITY returns the N roots of unity.
• CARTESIAN_TO_C8 converts a Cartesian form to a C8.
• POLAR_TO_C8 converts a polar form to a C8.
• R8_UNIFORM_01 returns a unit pseudorandom R8.
• SORT_HEAP_EXTERNAL externally sorts a list of items into ascending order.
• TIMESTAMP prints out the current YMDHMS date as a timestamp.

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