TABLE 2-3 Intrinsic Functions From Cray CF90 and Other Compilers Function Arguments Description CLOC ([C=]c) Obtains the address of a character object COMPL ([I=]i) Bit-by-bit complement of a word. Return value:The return value is of type REAL, of the same kind as X and lies in the range -1 \leq erf (x) \leq 1 . allocate in "pure" functions for F95 6. LEN returns default INTEGER*4 data. Check This Out
The procedures defined in the module are Function Description C_LOC(X) Returns the C address of the argument C_ASSOCIATED(C_PTR_1 [, C_PTR_2]) Indicates the association status of C_PTR_1 or indicates whether C_PTR_1 and An intrinsic that takes INTEGER arguments accepts INTEGER*2, INTEGER*4, or INTEGER*8. If so the thread title can be edited. –Fortranner Apr 2 '14 at 13:36 add a comment| 1 Answer 1 active oldest votes up vote 1 down vote There is at If A is type complex or double complex, then QREAL(A) is as much precision of the significant part of the real part of A as a REAL*16 datum can contain.
int epbase epprec -- size of the value returned is the size of default INTEGER. William Cody, Henry Thacher, Chebyshev Approximations for the Exponential Integral Ei(x), Mathematics of Computation, Volume 23, Number 106, April 1969, pages 289-303. INTEGER: ! If A is type complex, then REAL(A) is the real part of A.
IEEE_IS_NAN(X) Determine if value is IEEE Not-a-Number IEEE_IS_NORMAL(X) Determine if a value is normal. So you could have, PRIVATE ! Removing elements from an array that are in another array Is intelligence the "natural" product of evolution? Option:gnu Class:elemental function Syntax:X = ERF(X) Arguments: X The type shall be REAL(*), and it shall be scalar.
Periodic updates must have added in the ERF and DERF intrinsics which at some point ended up replacing my own functions - resulting in a mamoth bug hunt. Malcolm Pike, David Hill, Algorithm 266: Pseudo-Random Numbers, Communications of the ACM, Volume 8, Number 10, October 1965, page 605. MALLOC is a library function and not an intrinsic in FORTRAN 77. EI evaluates the exponential integral Ei(X).
If A1 and A2 are type integer, real, or double precision, then DCMPLX(A1,A2) is DBLE(A1) + DBLE(A2)*i. Conversion to character Conversion to integer See also: TABLE 3-2. 1 1 CHAR ACHAR ICHAR IACHAR INTEGER CHARACTER CHARACTER INTEGER Index of a substring Location of substring a2 module members are private by default PUBLIC :: BMatScal ! TABLE 3-7 Fortran 77 Environmental Inquiry Functions Definition No.
SPECFUN_PRB2 compares computed results to tables of values extracted from the program library TEST_VALUES. Return value The return value is of type real, of the same kind as x and lies in the range −1≤erf(x)≤1-1 \leq erf (x) \leq 1 . Error Function In Fortran 90 Specific Names Argument Type Function Type Conversion See Note (5). Complementary Error Function MACHAR, a FORTRAN90 library which is used to compute machine arithmetic parameters.
IEEE_SUPPORT_ROUNDING(VAL[,X]) Inquire whether the processor supports a particular rounding mode. his comment is here See also Chapter 3 for a list of VMS Fortran 77 intrinsics. 2.3.4 Other Extensions The Fortran 95 compiler recognizes the following additional intrinsic functions: 188.8.131.52 MPI_SIZEOF MPI_SIZEOF( x, size, error) For example, with -dbl in effect, a call to ZCOS with a DOUBLE COMPLEX argument will automatically become a call to CQCOS because the argument has been promoted to COMPLEX*32. John Hart, Ward Cheney, Charles Lawson, Hans Maehly, Charles Mesztenyi, John Rice, Henry Thatcher, Christoph Witzgall, Computer Approximations, Wiley, 1968, LC: QA297.C64. Erfc
EONE evaluates the exponential integral E1(X). That is, it is the starting position within character string X of the first occurrence of character string Y. Rob. this contact form TABLE 2-2 BLAS Intrinsics Function Description CAXPY DAXPY SAXPY ZAXPY Product of a scalar and a vector plus a vector CCOPY DCOPY SCOPY ZCOPY Copy a vector CDOTC CDOTU DDOT SDOT
IEEE_SUPPORT_HALTING(FLAG) Inquire whether the processor supports control of halting after an exception. abs ishft lshift rshift lrshft ibset btest ivclr ishftc ibits -- size of the value returned is the size of the first argument. Stay logged in Physics Forums - The Fusion of Science and Community Forums > Other Sciences > Programming and Computer Science > Menu Forums Featured Threads Recent Posts Unanswered Threads Videos
Thanks ... LGT( X, Y ) is true if X follows Y in the collating sequence; otherwise, it is false. BESY1 evaluates the Bessel Y1(X) function. TABLE 3-8 Fortran 77 Memory Functions Intrinsic Function Definition No.
tanh(a) 1 TANH TANH DTANH QTANH REAL DOUBLE REAL*16 REAL DOUBLE REAL*16 3.1.4 Other Mathematical Functions TABLE 3-4 Other Fortran 77 Mathematical Functions Intrinsic Function Definition No. arctan(a) 1 ATAND ATAND DATAND QATAND REAL DOUBLE REAL*16 REAL DOUBLE REAL*16 arctan (a1/a2) 2 ATAN2D ATAN2D DATAN2D QATAN2D REAL DOUBLE REAL*16 REAL DOUBLE REAL*16 Hyperbolic Sine See Note (7). temperature) FUNCTION BMatScal(JacobiInv, ShapeFuncDeriv) REAL, INTENT(IN) :: JacobiInv(:,:), ShapeFuncDeriv(:,:) [COLOR="Red"]REAL[/COLOR] :: BMatScal(SIZE(JacobiInv,1),SIZE(ShapeFuncDeriv,2)) navigate here a**(1/3) 1 CBRT CBRT DCBRT QCBRT CCBRT ZCBRT CDCBRT CQCBRT REAL DOUBLE REAL*16 COMPLEX DOUBLE COMPLEX DOUBLE COMPLEX COMPLEX*32 REAL DOUBLE REAL*16 COMPLEX DOUBLE COMPLEX DOUBLE COMPLEX COMPLEX*32 Exponential e**a 1
specfun_prb1.f90, a sample calling program. Browse other questions tagged function compiler-errors fortran fortran95 or ask your own question. Draft saved Draft deleted Blaming Government for Teacher and Scientist Failures in Integrity Introduction to Astrophotography Interview with a Physicist: David J. of Args.
IEEE_SUPPORT_DIVIDE([X]) Inquire whether the processor supports divide with the accuracy specified by the IEEE standard. The module IEEE_ARITHMETIC contains the following inquiry functions. Posted: Wed Apr 27, 2011 11:30 am Post subject: Hi Rob, The problem is that you haven't declared derf or erf_stegun so they are being implicitly typed as REAL. Examples and Tests: SPECFUN_PRB1 makes some sophisticated accuracy checks.
IEEE_SET_ROUNDING_MODE(ROUND_VAL) Set the current IEEE rounding mode. 2.2.2 C Binding Module The Fortran 2000 draft standard provides a means of referencing C language procedures. The draft standard defines a set of inquiry functions, elemental functions, kind functions, elemental subroutines, and nonelemental subroutines. As a practical matter, if you have everything in one file, place the module before the main program. Irene A.
CALCK1 computes various K1 Bessel functions. a_potato, Jan 19, 2014 Jan 19, 2014 #3 a_potato Ah I see you have. ai 1 IMAG AIMAG DIMAG QIMAG COMPLEX DOUBLE COMPLEX COMPLEX*32 REAL DOUBLE REAL*16 Conjugate of a complex number See Note (6). (ar, -ai) 1 CONJG CONJG DCONJG QCONJG COMPLEX DOUBLE COMPLEX If A is type COMPLEX*16 or COMPLEX*32, then QREAL(A) is the real part of A. (4) CMPLX If A is type complex, then CMPLX(A) is A.
Allday, Feb 3, 2014 Feb 4, 2014 #6 ted_kingdom Allday, yes, you're right. Sun f95 Error 1135: unexpected FORM specifier 7. These are obsolete and their use should be avoided. The actual value of the argument is of no importance.
To fix, declare these functions as REAL*8 or compile with "-r8" to change the default kind.