You are currently viewing How To Solve Function Error In Fortran 77 Problems

How To Solve Function Error In Fortran 77 Problems

This tutorial will describe some of the possible causes that can cause the error function in Fortran 77, and then I will suggest some possible fixes that you can try to resolve the issue.

Imaginary part of a complex number

See Note (6).

and

1

IMAG IMAG DIMAG @ QIMAG @ COMPLEX DOUBLE COMPLEX COMPLEX * 32 PRESENT DOUBLE VALID * 16

Conjugate proprietary number

See note (6).

(ar, -ai)

error function in fortran 77

1

CONJG CONJG DCONJG @ QCONJG @ COMPLEX DOUBLE COMPLEX COMPLEX * 32 COMPLEX DOUBLE COMPLEX COMPLEX * 32

square root

** (1/2)

1

SQRT SQRT DSQRT QSQRT @ CSQRT ZSQRT @ CDSQRT @ CQSQRT @ REAL DOUBLE VALID * 16 COMPLEX DOUBLE COMPLEX DOUBLE COMPLEX COMPLEX * 32 PRESENT DOUBLE VALID * 16 COMPLEX DOUBLE COMPLEX DOUBLE COMPLEX COMPLEX * 32

Cubic root

See note (8 ‘) .

** (1/3)

1

CBRT CBRT @ DCBRT @ QCBRT @ CCBRT @ ZCBRT @ CDCBRT @ CQCBRT @ REAL DOUBLE VALID * 16 COMPLEX DOUBLE COMPLEX COMPLEX * 32 PRESENT DOUBLE VALID * 16 COMPLEX DOUBLE complex double COMPLEX DOUBLE COMPLEX COMPLEX * 32

Exponential

and **

1

EXPERIENCE EXPERIENCE DEXP QEXP @ CEXP ZEXP @ CDEXP @ CQEXP @ REAL DOUBLE VALID * 16 COMPLEX DOUBLE COMPLEX COMPLEX * 32 PRESENT DOUBLE VALID * 16 COMPLEX DOUBLE complex double COMPLEX DOUBLE COMPLEX COMPLEX * 32

Natural logarithm

log (s)

1

LOG ALOGUE DLOGUE QLOG @ COLLECT ZLOG @ CDLOG @ CQLOG @ REAL DOUBLE VALID * 16 COMPLEX DOUBLE COMPLEX COMPLEX * 32 PRESENT DOUBLE VALID * 16 COMPLEX DOUBLE complex double COMPLEX DOUBLE COMPLEX COMPLEX * 32

Decimal logarithm

log10 (a)

1

LOG10 ALOG10 DLOG10 QLOG10 @ REAL DOUBLE REEL * 16 REEL DOUBLE VALID * 16

error function (see map below)

uh (a)

1

ERF ERF @ DERF @ VALID DOUBLE TRUE DOUBLE

Error function

error function in fortran 77

1.0 – @ DERFC erf (a)

1

ERFC ERFC @ REAL DOUBLE TRUE DOUBLE

Function return value

Required Arguments

X – a quarrel duringwhat value of the function is desired. (input)

FORTRAN 90 Interface

FORTRAN 77 Interface

Description

Example

exit

Function value

Required Arguments

X is an argument forwhat functional benefit is desired. (Enter)

FORTRAN interface three months

FORTRAN 77 Interface

Description name = “D2HBdouble_preci66″>

The x argument should not be as large as your result.subverts. Near x must end with

where ‘s = AMACH (1)(see each reference material in the section-specific manual) smallestA convenient floating point number that can be represented ь.

Comments

Example

Output of

The following functional description defines the behavior of the library when errors are encountered at runtime.

Use

The following examples, which can certainly be found in the library’s source code experiments directory, show a common typical use of these group functions.

In the Fortran 77/90/95 example, the Spanish language is f77error.f .

The following example shows exactly how to stop execution on this particular error.

 program error f77    play did not play    Offer "f90calceph.h"   Whole * 8 Peph.   Full resolution    ! Configure the error trainer to stop when it occurserrors.     Call f90calceph_seterrorhandler (2, 0)    ! open this ephemeris file    ers = f90calceph_open (peph, "example1.dat") ... -. .! ....Stopend

The following example shows how to precisely define a custom error handler function.

! ----------------------------------------- --------- --- ------------------------------------------ ! custom error in grade manager ! ------------------------------------------------- ---------------         Myhandler Routine (msg)            nobody acted            Symbol (length = *) :: msg           write (*, *) "Text message calceph or call myhandler function"            write (*, *) "Principles contain", len (msg), "characters"            write (*, *) "Error text:"            write (*, *) "----------------------"            to write a message           write (*, *) "----------------------"            write (*, *) "Error handler returned"         end ! ------------------------------------------------- --------------- ! Main program ! ------------------------------------------------- --------------- Solution to error f77    play did not play    Include "f90calceph.h"    full resolution   Whole * 8 Peph.    my visible manager     ! ? ! ! set sig drejer error to use my own callback     callov f90calceph_seterrorhandler (3, my handler)    ! open our ephemeris file    ers = f90calceph_open (peph, "example1.dat") ... :. .! ....Stopend

F90calceph_seterrorhandler¶

Routine f90calceph_seterrorhandler (typehandler, userfunc) ¶
options

  • Handler type [INTEGER, Intent (in)] :: Handler type

  • Custom Function [EXTERNAL, Intent (in)] :: Custom Function

  • This function defines the behavior of the library whenever an error occurs while the function library is running. For this reason, all other functions in the library must (optionally) be called recently. The behavior depends on the value of the type handler.

    Possible values ​​versus handler type:

    value

    Value

    1