Subversion Repositories openrisc

@ignore

@ignore

Copyright (C) 2005, 2006, 2007, 2008, 2009, 2010

Copyright (C) 2005, 2006, 2007, 2008, 2009, 2010

Free Software Foundation, Inc.

Free Software Foundation, Inc.

This is part of the GNU Fortran manual.

This is part of the GNU Fortran manual.

For copying conditions, see the file gfortran.texi.

For copying conditions, see the file gfortran.texi.

Permission is granted to copy, distribute and/or modify this document

Permission is granted to copy, distribute and/or modify this document

under the terms of the GNU Free Documentation License, Version 1.2 or

under the terms of the GNU Free Documentation License, Version 1.2 or

any later version published by the Free Software Foundation; with the

any later version published by the Free Software Foundation; with the

Invariant Sections being ``Funding Free Software'', the Front-Cover

Invariant Sections being ``Funding Free Software'', the Front-Cover

Texts being (a) (see below), and with the Back-Cover Texts being (b)

Texts being (a) (see below), and with the Back-Cover Texts being (b)

(see below).  A copy of the license is included in the gfdl(7) man page.

(see below).  A copy of the license is included in the gfdl(7) man page.

Some basic guidelines for editing this document:

Some basic guidelines for editing this document:

  (1) The intrinsic procedures are to be listed in alphabetical order.

  (1) The intrinsic procedures are to be listed in alphabetical order.

  (2) The generic name is to be used.

  (2) The generic name is to be used.

  (3) The specific names are included in the function index and in a

  (3) The specific names are included in the function index and in a

      table at the end of the node (See ABS entry).

      table at the end of the node (See ABS entry).

  (4) Try to maintain the same style for each entry.

  (4) Try to maintain the same style for each entry.

@end ignore

@end ignore

@tex

@tex

\gdef\acos{\mathop{\rm acos}\nolimits}

\gdef\acos{\mathop{\rm acos}\nolimits}

\gdef\asin{\mathop{\rm asin}\nolimits}

\gdef\asin{\mathop{\rm asin}\nolimits}

\gdef\atan{\mathop{\rm atan}\nolimits}

\gdef\atan{\mathop{\rm atan}\nolimits}

\gdef\acosh{\mathop{\rm acosh}\nolimits}

\gdef\acosh{\mathop{\rm acosh}\nolimits}

\gdef\asinh{\mathop{\rm asinh}\nolimits}

\gdef\asinh{\mathop{\rm asinh}\nolimits}

\gdef\atanh{\mathop{\rm atanh}\nolimits}

\gdef\atanh{\mathop{\rm atanh}\nolimits}

@end tex

@end tex

@node Intrinsic Procedures

@node Intrinsic Procedures

@chapter Intrinsic Procedures

@chapter Intrinsic Procedures

@cindex intrinsic procedures

@cindex intrinsic procedures

@menu

@menu

* Introduction:         Introduction to Intrinsics

* Introduction:         Introduction to Intrinsics

* @code{ABORT}:         ABORT,     Abort the program

* @code{ABORT}:         ABORT,     Abort the program

* @code{ABS}:           ABS,       Absolute value

* @code{ABS}:           ABS,       Absolute value

* @code{ACCESS}:        ACCESS,    Checks file access modes

* @code{ACCESS}:        ACCESS,    Checks file access modes

* @code{ACHAR}:         ACHAR,     Character in @acronym{ASCII} collating sequence

* @code{ACHAR}:         ACHAR,     Character in @acronym{ASCII} collating sequence

* @code{ACOS}:          ACOS,      Arccosine function

* @code{ACOS}:          ACOS,      Arccosine function

* @code{ACOSH}:         ACOSH,     Inverse hyperbolic cosine function

* @code{ACOSH}:         ACOSH,     Inverse hyperbolic cosine function

* @code{ADJUSTL}:       ADJUSTL,   Left adjust a string

* @code{ADJUSTL}:       ADJUSTL,   Left adjust a string

* @code{ADJUSTR}:       ADJUSTR,   Right adjust a string

* @code{ADJUSTR}:       ADJUSTR,   Right adjust a string

* @code{AIMAG}:         AIMAG,     Imaginary part of complex number

* @code{AIMAG}:         AIMAG,     Imaginary part of complex number

* @code{AINT}:          AINT,      Truncate to a whole number

* @code{AINT}:          AINT,      Truncate to a whole number

* @code{ALARM}:         ALARM,     Set an alarm clock

* @code{ALARM}:         ALARM,     Set an alarm clock

* @code{ALL}:           ALL,       Determine if all values are true

* @code{ALL}:           ALL,       Determine if all values are true

* @code{ALLOCATED}:     ALLOCATED, Status of allocatable entity

* @code{ALLOCATED}:     ALLOCATED, Status of allocatable entity

* @code{AND}:           AND,       Bitwise logical AND

* @code{AND}:           AND,       Bitwise logical AND

* @code{ANINT}:         ANINT,     Nearest whole number

* @code{ANINT}:         ANINT,     Nearest whole number

* @code{ANY}:           ANY,       Determine if any values are true

* @code{ANY}:           ANY,       Determine if any values are true

* @code{ASIN}:          ASIN,      Arcsine function

* @code{ASIN}:          ASIN,      Arcsine function

* @code{ASINH}:         ASINH,     Inverse hyperbolic sine function

* @code{ASINH}:         ASINH,     Inverse hyperbolic sine function

* @code{ASSOCIATED}:    ASSOCIATED, Status of a pointer or pointer/target pair

* @code{ASSOCIATED}:    ASSOCIATED, Status of a pointer or pointer/target pair

* @code{ATAN}:          ATAN,      Arctangent function

* @code{ATAN}:          ATAN,      Arctangent function

* @code{ATAN2}:         ATAN2,     Arctangent function

* @code{ATAN2}:         ATAN2,     Arctangent function

* @code{ATANH}:         ATANH,     Inverse hyperbolic tangent function

* @code{ATANH}:         ATANH,     Inverse hyperbolic tangent function

* @code{BESSEL_J0}:     BESSEL_J0, Bessel function of the first kind of order 0

* @code{BESSEL_J0}:     BESSEL_J0, Bessel function of the first kind of order 0

* @code{BESSEL_J1}:     BESSEL_J1, Bessel function of the first kind of order 1

* @code{BESSEL_J1}:     BESSEL_J1, Bessel function of the first kind of order 1

* @code{BESSEL_JN}:     BESSEL_JN, Bessel function of the first kind

* @code{BESSEL_JN}:     BESSEL_JN, Bessel function of the first kind

* @code{BESSEL_Y0}:     BESSEL_Y0, Bessel function of the second kind of order 0

* @code{BESSEL_Y0}:     BESSEL_Y0, Bessel function of the second kind of order 0

* @code{BESSEL_Y1}:     BESSEL_Y1, Bessel function of the second kind of order 1

* @code{BESSEL_Y1}:     BESSEL_Y1, Bessel function of the second kind of order 1

* @code{BESSEL_YN}:     BESSEL_YN, Bessel function of the second kind

* @code{BESSEL_YN}:     BESSEL_YN, Bessel function of the second kind

* @code{BIT_SIZE}:      BIT_SIZE,  Bit size inquiry function

* @code{BIT_SIZE}:      BIT_SIZE,  Bit size inquiry function

* @code{BTEST}:         BTEST,     Bit test function

* @code{BTEST}:         BTEST,     Bit test function

* @code{C_ASSOCIATED}:  C_ASSOCIATED, Status of a C pointer

* @code{C_ASSOCIATED}:  C_ASSOCIATED, Status of a C pointer

* @code{C_F_POINTER}:   C_F_POINTER, Convert C into Fortran pointer

* @code{C_F_POINTER}:   C_F_POINTER, Convert C into Fortran pointer

* @code{C_F_PROCPOINTER}: C_F_PROCPOINTER, Convert C into Fortran procedure pointer

* @code{C_F_PROCPOINTER}: C_F_PROCPOINTER, Convert C into Fortran procedure pointer

* @code{C_FUNLOC}:      C_FUNLOC,  Obtain the C address of a procedure

* @code{C_FUNLOC}:      C_FUNLOC,  Obtain the C address of a procedure

* @code{C_LOC}:         C_LOC,     Obtain the C address of an object

* @code{C_LOC}:         C_LOC,     Obtain the C address of an object

* @code{C_SIZEOF}:      C_SIZEOF,  Size in bytes of an expression

* @code{C_SIZEOF}:      C_SIZEOF,  Size in bytes of an expression

* @code{CEILING}:       CEILING,   Integer ceiling function

* @code{CEILING}:       CEILING,   Integer ceiling function

* @code{CHAR}:          CHAR,      Integer-to-character conversion function

* @code{CHAR}:          CHAR,      Integer-to-character conversion function

* @code{CHDIR}:         CHDIR,     Change working directory

* @code{CHDIR}:         CHDIR,     Change working directory

* @code{CHMOD}:         CHMOD,     Change access permissions of files

* @code{CHMOD}:         CHMOD,     Change access permissions of files

* @code{CMPLX}:         CMPLX,     Complex conversion function

* @code{CMPLX}:         CMPLX,     Complex conversion function

* @code{COMMAND_ARGUMENT_COUNT}: COMMAND_ARGUMENT_COUNT, Get number of command line arguments

* @code{COMMAND_ARGUMENT_COUNT}: COMMAND_ARGUMENT_COUNT, Get number of command line arguments

* @code{COMPLEX}:       COMPLEX,   Complex conversion function

* @code{COMPLEX}:       COMPLEX,   Complex conversion function

* @code{CONJG}:         CONJG,     Complex conjugate function

* @code{CONJG}:         CONJG,     Complex conjugate function

* @code{COS}:           COS,       Cosine function

* @code{COS}:           COS,       Cosine function

* @code{COSH}:          COSH,      Hyperbolic cosine function

* @code{COSH}:          COSH,      Hyperbolic cosine function

* @code{COUNT}:         COUNT,     Count occurrences of TRUE in an array

* @code{COUNT}:         COUNT,     Count occurrences of TRUE in an array

* @code{CPU_TIME}:      CPU_TIME,  CPU time subroutine

* @code{CPU_TIME}:      CPU_TIME,  CPU time subroutine

* @code{CSHIFT}:        CSHIFT,    Circular shift elements of an array

* @code{CSHIFT}:        CSHIFT,    Circular shift elements of an array

* @code{CTIME}:         CTIME,     Subroutine (or function) to convert a time into a string

* @code{CTIME}:         CTIME,     Subroutine (or function) to convert a time into a string

* @code{DATE_AND_TIME}: DATE_AND_TIME, Date and time subroutine

* @code{DATE_AND_TIME}: DATE_AND_TIME, Date and time subroutine

* @code{DBLE}:          DBLE,      Double precision conversion function

* @code{DBLE}:          DBLE,      Double precision conversion function

* @code{DCMPLX}:        DCMPLX,    Double complex conversion function

* @code{DCMPLX}:        DCMPLX,    Double complex conversion function

* @code{DFLOAT}:        DFLOAT,    Double precision conversion function

* @code{DFLOAT}:        DFLOAT,    Double precision conversion function

* @code{DIGITS}:        DIGITS,    Significant digits function

* @code{DIGITS}:        DIGITS,    Significant digits function

* @code{DIM}:           DIM,       Positive difference

* @code{DIM}:           DIM,       Positive difference

* @code{DOT_PRODUCT}:   DOT_PRODUCT, Dot product function

* @code{DOT_PRODUCT}:   DOT_PRODUCT, Dot product function

* @code{DPROD}:         DPROD,     Double product function

* @code{DPROD}:         DPROD,     Double product function

* @code{DREAL}:         DREAL,     Double real part function

* @code{DREAL}:         DREAL,     Double real part function

* @code{DTIME}:         DTIME,     Execution time subroutine (or function)

* @code{DTIME}:         DTIME,     Execution time subroutine (or function)

* @code{EOSHIFT}:       EOSHIFT,   End-off shift elements of an array

* @code{EOSHIFT}:       EOSHIFT,   End-off shift elements of an array

* @code{EPSILON}:       EPSILON,   Epsilon function

* @code{EPSILON}:       EPSILON,   Epsilon function

* @code{ERF}:           ERF,       Error function

* @code{ERF}:           ERF,       Error function

* @code{ERFC}:          ERFC,      Complementary error function

* @code{ERFC}:          ERFC,      Complementary error function

* @code{ERFC_SCALED}:   ERFC_SCALED, Exponentially-scaled complementary error function

* @code{ERFC_SCALED}:   ERFC_SCALED, Exponentially-scaled complementary error function

* @code{ETIME}:         ETIME,     Execution time subroutine (or function)

* @code{ETIME}:         ETIME,     Execution time subroutine (or function)

* @code{EXIT}:          EXIT,      Exit the program with status.

* @code{EXIT}:          EXIT,      Exit the program with status.

* @code{EXP}:           EXP,       Exponential function

* @code{EXP}:           EXP,       Exponential function

* @code{EXPONENT}:      EXPONENT,  Exponent function

* @code{EXPONENT}:      EXPONENT,  Exponent function

* @code{FDATE}:         FDATE,     Subroutine (or function) to get the current time as a string

* @code{FDATE}:         FDATE,     Subroutine (or function) to get the current time as a string

* @code{FGET}:          FGET,      Read a single character in stream mode from stdin

* @code{FGET}:          FGET,      Read a single character in stream mode from stdin

* @code{FGETC}:         FGETC,     Read a single character in stream mode

* @code{FGETC}:         FGETC,     Read a single character in stream mode

* @code{FLOAT}:         FLOAT,     Convert integer to default real

* @code{FLOAT}:         FLOAT,     Convert integer to default real

* @code{FLOOR}:         FLOOR,     Integer floor function

* @code{FLOOR}:         FLOOR,     Integer floor function

* @code{FLUSH}:         FLUSH,     Flush I/O unit(s)

* @code{FLUSH}:         FLUSH,     Flush I/O unit(s)

* @code{FNUM}:          FNUM,      File number function

* @code{FNUM}:          FNUM,      File number function

* @code{FPUT}:          FPUT,      Write a single character in stream mode to stdout

* @code{FPUT}:          FPUT,      Write a single character in stream mode to stdout

* @code{FPUTC}:         FPUTC,     Write a single character in stream mode

* @code{FPUTC}:         FPUTC,     Write a single character in stream mode

* @code{FRACTION}:      FRACTION,  Fractional part of the model representation

* @code{FRACTION}:      FRACTION,  Fractional part of the model representation

* @code{FREE}:          FREE,      Memory de-allocation subroutine

* @code{FREE}:          FREE,      Memory de-allocation subroutine

* @code{FSEEK}:         FSEEK,     Low level file positioning subroutine

* @code{FSEEK}:         FSEEK,     Low level file positioning subroutine

* @code{FSTAT}:         FSTAT,     Get file status

* @code{FSTAT}:         FSTAT,     Get file status

* @code{FTELL}:         FTELL,     Current stream position

* @code{FTELL}:         FTELL,     Current stream position

* @code{GAMMA}:         GAMMA,     Gamma function

* @code{GAMMA}:         GAMMA,     Gamma function

* @code{GERROR}:        GERROR,    Get last system error message

* @code{GERROR}:        GERROR,    Get last system error message

* @code{GETARG}:        GETARG,    Get command line arguments

* @code{GETARG}:        GETARG,    Get command line arguments

* @code{GET_COMMAND}:   GET_COMMAND, Get the entire command line

* @code{GET_COMMAND}:   GET_COMMAND, Get the entire command line

* @code{GET_COMMAND_ARGUMENT}: GET_COMMAND_ARGUMENT, Get command line arguments

* @code{GET_COMMAND_ARGUMENT}: GET_COMMAND_ARGUMENT, Get command line arguments

* @code{GETCWD}:        GETCWD,    Get current working directory

* @code{GETCWD}:        GETCWD,    Get current working directory

* @code{GETENV}:        GETENV,    Get an environmental variable

* @code{GETENV}:        GETENV,    Get an environmental variable

* @code{GET_ENVIRONMENT_VARIABLE}: GET_ENVIRONMENT_VARIABLE, Get an environmental variable

* @code{GET_ENVIRONMENT_VARIABLE}: GET_ENVIRONMENT_VARIABLE, Get an environmental variable

* @code{GETGID}:        GETGID,    Group ID function

* @code{GETGID}:        GETGID,    Group ID function

* @code{GETLOG}:        GETLOG,    Get login name

* @code{GETLOG}:        GETLOG,    Get login name

* @code{GETPID}:        GETPID,    Process ID function

* @code{GETPID}:        GETPID,    Process ID function

* @code{GETUID}:        GETUID,    User ID function

* @code{GETUID}:        GETUID,    User ID function

* @code{GMTIME}:        GMTIME,    Convert time to GMT info

* @code{GMTIME}:        GMTIME,    Convert time to GMT info

* @code{HOSTNM}:        HOSTNM,    Get system host name

* @code{HOSTNM}:        HOSTNM,    Get system host name

* @code{HUGE}:          HUGE,      Largest number of a kind

* @code{HUGE}:          HUGE,      Largest number of a kind

* @code{HYPOT}:         HYPOT,     Euclidian distance function

* @code{HYPOT}:         HYPOT,     Euclidian distance function

* @code{IACHAR}:        IACHAR,    Code in @acronym{ASCII} collating sequence

* @code{IACHAR}:        IACHAR,    Code in @acronym{ASCII} collating sequence

* @code{IAND}:          IAND,      Bitwise logical and

* @code{IAND}:          IAND,      Bitwise logical and

* @code{IARGC}:         IARGC,     Get the number of command line arguments

* @code{IARGC}:         IARGC,     Get the number of command line arguments

* @code{IBCLR}:         IBCLR,     Clear bit

* @code{IBCLR}:         IBCLR,     Clear bit

* @code{IBITS}:         IBITS,     Bit extraction

* @code{IBITS}:         IBITS,     Bit extraction

* @code{IBSET}:         IBSET,     Set bit

* @code{IBSET}:         IBSET,     Set bit

* @code{ICHAR}:         ICHAR,     Character-to-integer conversion function

* @code{ICHAR}:         ICHAR,     Character-to-integer conversion function

* @code{IDATE}:         IDATE,     Current local time (day/month/year)

* @code{IDATE}:         IDATE,     Current local time (day/month/year)

* @code{IEOR}:          IEOR,      Bitwise logical exclusive or

* @code{IEOR}:          IEOR,      Bitwise logical exclusive or

* @code{IERRNO}:        IERRNO,    Function to get the last system error number

* @code{IERRNO}:        IERRNO,    Function to get the last system error number

* @code{INDEX}:         INDEX intrinsic, Position of a substring within a string

* @code{INDEX}:         INDEX intrinsic, Position of a substring within a string

* @code{INT}:           INT,       Convert to integer type

* @code{INT}:           INT,       Convert to integer type

* @code{INT2}:          INT2,      Convert to 16-bit integer type

* @code{INT2}:          INT2,      Convert to 16-bit integer type

* @code{INT8}:          INT8,      Convert to 64-bit integer type

* @code{INT8}:          INT8,      Convert to 64-bit integer type

* @code{IOR}:           IOR,       Bitwise logical or

* @code{IOR}:           IOR,       Bitwise logical or

* @code{IRAND}:         IRAND,     Integer pseudo-random number

* @code{IRAND}:         IRAND,     Integer pseudo-random number

* @code{IS_IOSTAT_END}:  IS_IOSTAT_END, Test for end-of-file value

* @code{IS_IOSTAT_END}:  IS_IOSTAT_END, Test for end-of-file value

* @code{IS_IOSTAT_EOR}:  IS_IOSTAT_EOR, Test for end-of-record value

* @code{IS_IOSTAT_EOR}:  IS_IOSTAT_EOR, Test for end-of-record value

* @code{ISATTY}:        ISATTY,    Whether a unit is a terminal device

* @code{ISATTY}:        ISATTY,    Whether a unit is a terminal device

* @code{ISHFT}:         ISHFT,     Shift bits

* @code{ISHFT}:         ISHFT,     Shift bits

* @code{ISHFTC}:        ISHFTC,    Shift bits circularly

* @code{ISHFTC}:        ISHFTC,    Shift bits circularly

* @code{ISNAN}:         ISNAN,     Tests for a NaN

* @code{ISNAN}:         ISNAN,     Tests for a NaN

* @code{ITIME}:         ITIME,     Current local time (hour/minutes/seconds)

* @code{ITIME}:         ITIME,     Current local time (hour/minutes/seconds)

* @code{KILL}:          KILL,      Send a signal to a process

* @code{KILL}:          KILL,      Send a signal to a process

* @code{KIND}:          KIND,      Kind of an entity

* @code{KIND}:          KIND,      Kind of an entity

* @code{LBOUND}:        LBOUND,    Lower dimension bounds of an array

* @code{LBOUND}:        LBOUND,    Lower dimension bounds of an array

* @code{LEADZ}:         LEADZ,     Number of leading zero bits of an integer

* @code{LEADZ}:         LEADZ,     Number of leading zero bits of an integer

* @code{LEN}:           LEN,       Length of a character entity

* @code{LEN}:           LEN,       Length of a character entity

* @code{LEN_TRIM}:      LEN_TRIM,  Length of a character entity without trailing blank characters

* @code{LEN_TRIM}:      LEN_TRIM,  Length of a character entity without trailing blank characters

* @code{LGE}:           LGE,       Lexical greater than or equal

* @code{LGE}:           LGE,       Lexical greater than or equal

* @code{LGT}:           LGT,       Lexical greater than

* @code{LGT}:           LGT,       Lexical greater than

* @code{LINK}:          LINK,      Create a hard link

* @code{LINK}:          LINK,      Create a hard link

* @code{LLE}:           LLE,       Lexical less than or equal

* @code{LLE}:           LLE,       Lexical less than or equal

* @code{LLT}:           LLT,       Lexical less than

* @code{LLT}:           LLT,       Lexical less than

* @code{LNBLNK}:        LNBLNK,    Index of the last non-blank character in a string

* @code{LNBLNK}:        LNBLNK,    Index of the last non-blank character in a string

* @code{LOC}:           LOC,       Returns the address of a variable

* @code{LOC}:           LOC,       Returns the address of a variable

* @code{LOG}:           LOG,       Logarithm function

* @code{LOG}:           LOG,       Logarithm function

* @code{LOG10}:         LOG10,     Base 10 logarithm function

* @code{LOG10}:         LOG10,     Base 10 logarithm function

* @code{LOG_GAMMA}:     LOG_GAMMA, Logarithm of the Gamma function

* @code{LOG_GAMMA}:     LOG_GAMMA, Logarithm of the Gamma function

* @code{LOGICAL}:       LOGICAL,   Convert to logical type

* @code{LOGICAL}:       LOGICAL,   Convert to logical type

* @code{LONG}:          LONG,      Convert to integer type

* @code{LONG}:          LONG,      Convert to integer type

* @code{LSHIFT}:        LSHIFT,    Left shift bits

* @code{LSHIFT}:        LSHIFT,    Left shift bits

* @code{LSTAT}:         LSTAT,     Get file status

* @code{LSTAT}:         LSTAT,     Get file status

* @code{LTIME}:         LTIME,     Convert time to local time info

* @code{LTIME}:         LTIME,     Convert time to local time info

* @code{MALLOC}:        MALLOC,    Dynamic memory allocation function

* @code{MALLOC}:        MALLOC,    Dynamic memory allocation function

* @code{MATMUL}:        MATMUL,    matrix multiplication

* @code{MATMUL}:        MATMUL,    matrix multiplication

* @code{MAX}:           MAX,       Maximum value of an argument list

* @code{MAX}:           MAX,       Maximum value of an argument list

* @code{MAXEXPONENT}:   MAXEXPONENT, Maximum exponent of a real kind

* @code{MAXEXPONENT}:   MAXEXPONENT, Maximum exponent of a real kind

* @code{MAXLOC}:        MAXLOC,    Location of the maximum value within an array

* @code{MAXLOC}:        MAXLOC,    Location of the maximum value within an array

* @code{MAXVAL}:        MAXVAL,    Maximum value of an array

* @code{MAXVAL}:        MAXVAL,    Maximum value of an array

* @code{MCLOCK}:        MCLOCK,    Time function

* @code{MCLOCK}:        MCLOCK,    Time function

* @code{MCLOCK8}:       MCLOCK8,   Time function (64-bit)

* @code{MCLOCK8}:       MCLOCK8,   Time function (64-bit)

* @code{MERGE}:         MERGE,     Merge arrays

* @code{MERGE}:         MERGE,     Merge arrays

* @code{MIN}:           MIN,       Minimum value of an argument list

* @code{MIN}:           MIN,       Minimum value of an argument list

* @code{MINEXPONENT}:   MINEXPONENT, Minimum exponent of a real kind

* @code{MINEXPONENT}:   MINEXPONENT, Minimum exponent of a real kind

* @code{MINLOC}:        MINLOC,    Location of the minimum value within an array

* @code{MINLOC}:        MINLOC,    Location of the minimum value within an array

* @code{MINVAL}:        MINVAL,    Minimum value of an array

* @code{MINVAL}:        MINVAL,    Minimum value of an array

* @code{MOD}:           MOD,       Remainder function

* @code{MOD}:           MOD,       Remainder function

* @code{MODULO}:        MODULO,    Modulo function

* @code{MODULO}:        MODULO,    Modulo function

* @code{MOVE_ALLOC}:    MOVE_ALLOC, Move allocation from one object to another

* @code{MOVE_ALLOC}:    MOVE_ALLOC, Move allocation from one object to another

* @code{MVBITS}:        MVBITS,    Move bits from one integer to another

* @code{MVBITS}:        MVBITS,    Move bits from one integer to another

* @code{NEAREST}:       NEAREST,   Nearest representable number

* @code{NEAREST}:       NEAREST,   Nearest representable number

* @code{NEW_LINE}:      NEW_LINE,  New line character

* @code{NEW_LINE}:      NEW_LINE,  New line character

* @code{NINT}:          NINT,      Nearest whole number

* @code{NINT}:          NINT,      Nearest whole number

* @code{NOT}:           NOT,       Logical negation

* @code{NOT}:           NOT,       Logical negation

* @code{NULL}:          NULL,      Function that returns an disassociated pointer

* @code{NULL}:          NULL,      Function that returns an disassociated pointer

* @code{OR}:            OR,        Bitwise logical OR

* @code{OR}:            OR,        Bitwise logical OR

* @code{PACK}:          PACK,      Pack an array into an array of rank one

* @code{PACK}:          PACK,      Pack an array into an array of rank one

* @code{PERROR}:        PERROR,    Print system error message

* @code{PERROR}:        PERROR,    Print system error message

* @code{PRECISION}:     PRECISION, Decimal precision of a real kind

* @code{PRECISION}:     PRECISION, Decimal precision of a real kind

* @code{PRESENT}:       PRESENT,   Determine whether an optional dummy argument is specified

* @code{PRESENT}:       PRESENT,   Determine whether an optional dummy argument is specified

* @code{PRODUCT}:       PRODUCT,   Product of array elements

* @code{PRODUCT}:       PRODUCT,   Product of array elements

* @code{RADIX}:         RADIX,     Base of a data model

* @code{RADIX}:         RADIX,     Base of a data model

* @code{RANDOM_NUMBER}: RANDOM_NUMBER, Pseudo-random number

* @code{RANDOM_NUMBER}: RANDOM_NUMBER, Pseudo-random number

* @code{RANDOM_SEED}:   RANDOM_SEED, Initialize a pseudo-random number sequence

* @code{RANDOM_SEED}:   RANDOM_SEED, Initialize a pseudo-random number sequence

* @code{RAND}:          RAND,      Real pseudo-random number

* @code{RAND}:          RAND,      Real pseudo-random number

* @code{RANGE}:         RANGE,     Decimal exponent range

* @code{RANGE}:         RANGE,     Decimal exponent range

* @code{RAN}:           RAN,       Real pseudo-random number

* @code{RAN}:           RAN,       Real pseudo-random number

* @code{REAL}:          REAL,      Convert to real type

* @code{REAL}:          REAL,      Convert to real type

* @code{RENAME}:        RENAME,    Rename a file

* @code{RENAME}:        RENAME,    Rename a file

* @code{REPEAT}:        REPEAT,    Repeated string concatenation

* @code{REPEAT}:        REPEAT,    Repeated string concatenation

* @code{RESHAPE}:       RESHAPE,   Function to reshape an array

* @code{RESHAPE}:       RESHAPE,   Function to reshape an array

* @code{RRSPACING}:     RRSPACING, Reciprocal of the relative spacing

* @code{RRSPACING}:     RRSPACING, Reciprocal of the relative spacing

* @code{RSHIFT}:        RSHIFT,    Right shift bits

* @code{RSHIFT}:        RSHIFT,    Right shift bits

* @code{SCALE}:         SCALE,     Scale a real value

* @code{SCALE}:         SCALE,     Scale a real value

* @code{SCAN}:          SCAN,      Scan a string for the presence of a set of characters

* @code{SCAN}:          SCAN,      Scan a string for the presence of a set of characters

* @code{SECNDS}:        SECNDS,    Time function

* @code{SECNDS}:        SECNDS,    Time function

* @code{SECOND}:        SECOND,    CPU time function

* @code{SECOND}:        SECOND,    CPU time function

* @code{SELECTED_CHAR_KIND}: SELECTED_CHAR_KIND,  Choose character kind

* @code{SELECTED_CHAR_KIND}: SELECTED_CHAR_KIND,  Choose character kind

* @code{SELECTED_INT_KIND}: SELECTED_INT_KIND,  Choose integer kind

* @code{SELECTED_INT_KIND}: SELECTED_INT_KIND,  Choose integer kind

* @code{SELECTED_REAL_KIND}: SELECTED_REAL_KIND,  Choose real kind

* @code{SELECTED_REAL_KIND}: SELECTED_REAL_KIND,  Choose real kind

* @code{SET_EXPONENT}:  SET_EXPONENT, Set the exponent of the model

* @code{SET_EXPONENT}:  SET_EXPONENT, Set the exponent of the model

* @code{SHAPE}:         SHAPE,     Determine the shape of an array

* @code{SHAPE}:         SHAPE,     Determine the shape of an array

* @code{SIGN}:          SIGN,      Sign copying function

* @code{SIGN}:          SIGN,      Sign copying function

* @code{SIGNAL}:        SIGNAL,    Signal handling subroutine (or function)

* @code{SIGNAL}:        SIGNAL,    Signal handling subroutine (or function)

* @code{SIN}:           SIN,       Sine function

* @code{SIN}:           SIN,       Sine function

* @code{SINH}:          SINH,      Hyperbolic sine function

* @code{SINH}:          SINH,      Hyperbolic sine function

* @code{SIZE}:          SIZE,      Function to determine the size of an array

* @code{SIZE}:          SIZE,      Function to determine the size of an array

* @code{SIZEOF}:        SIZEOF,    Determine the size in bytes of an expression

* @code{SIZEOF}:        SIZEOF,    Determine the size in bytes of an expression

* @code{SLEEP}:         SLEEP,     Sleep for the specified number of seconds

* @code{SLEEP}:         SLEEP,     Sleep for the specified number of seconds

* @code{SNGL}:          SNGL,      Convert double precision real to default real

* @code{SNGL}:          SNGL,      Convert double precision real to default real

* @code{SPACING}:       SPACING,   Smallest distance between two numbers of a given type

* @code{SPACING}:       SPACING,   Smallest distance between two numbers of a given type

* @code{SPREAD}:        SPREAD,    Add a dimension to an array

* @code{SPREAD}:        SPREAD,    Add a dimension to an array

* @code{SQRT}:          SQRT,      Square-root function

* @code{SQRT}:          SQRT,      Square-root function

* @code{SRAND}:         SRAND,     Reinitialize the random number generator

* @code{SRAND}:         SRAND,     Reinitialize the random number generator

* @code{STAT}:          STAT,      Get file status

* @code{STAT}:          STAT,      Get file status

* @code{SUM}:           SUM,       Sum of array elements

* @code{SUM}:           SUM,       Sum of array elements

* @code{SYMLNK}:        SYMLNK,    Create a symbolic link

* @code{SYMLNK}:        SYMLNK,    Create a symbolic link

* @code{SYSTEM}:        SYSTEM,    Execute a shell command

* @code{SYSTEM}:        SYSTEM,    Execute a shell command

* @code{SYSTEM_CLOCK}:  SYSTEM_CLOCK, Time function

* @code{SYSTEM_CLOCK}:  SYSTEM_CLOCK, Time function

* @code{TAN}:           TAN,       Tangent function

* @code{TAN}:           TAN,       Tangent function

* @code{TANH}:          TANH,      Hyperbolic tangent function

* @code{TANH}:          TANH,      Hyperbolic tangent function

* @code{TIME}:          TIME,      Time function

* @code{TIME}:          TIME,      Time function

* @code{TIME8}:         TIME8,     Time function (64-bit)

* @code{TIME8}:         TIME8,     Time function (64-bit)

* @code{TINY}:          TINY,      Smallest positive number of a real kind

* @code{TINY}:          TINY,      Smallest positive number of a real kind

* @code{TRAILZ}:        TRAILZ,    Number of trailing zero bits of an integer

* @code{TRAILZ}:        TRAILZ,    Number of trailing zero bits of an integer

* @code{TRANSFER}:      TRANSFER,  Transfer bit patterns

* @code{TRANSFER}:      TRANSFER,  Transfer bit patterns

* @code{TRANSPOSE}:     TRANSPOSE, Transpose an array of rank two

* @code{TRANSPOSE}:     TRANSPOSE, Transpose an array of rank two

* @code{TRIM}:          TRIM,      Remove trailing blank characters of a string

* @code{TRIM}:          TRIM,      Remove trailing blank characters of a string

* @code{TTYNAM}:        TTYNAM,    Get the name of a terminal device.

* @code{TTYNAM}:        TTYNAM,    Get the name of a terminal device.

* @code{UBOUND}:        UBOUND,    Upper dimension bounds of an array

* @code{UBOUND}:        UBOUND,    Upper dimension bounds of an array

* @code{UMASK}:         UMASK,     Set the file creation mask

* @code{UMASK}:         UMASK,     Set the file creation mask

* @code{UNLINK}:        UNLINK,    Remove a file from the file system

* @code{UNLINK}:        UNLINK,    Remove a file from the file system

* @code{UNPACK}:        UNPACK,    Unpack an array of rank one into an array

* @code{UNPACK}:        UNPACK,    Unpack an array of rank one into an array

* @code{VERIFY}:        VERIFY,    Scan a string for the absence of a set of characters

* @code{VERIFY}:        VERIFY,    Scan a string for the absence of a set of characters

* @code{XOR}:           XOR,       Bitwise logical exclusive or

* @code{XOR}:           XOR,       Bitwise logical exclusive or

@end menu

@end menu

@node Introduction to Intrinsics

@node Introduction to Intrinsics

@section Introduction to intrinsic procedures

@section Introduction to intrinsic procedures

The intrinsic procedures provided by GNU Fortran include all of the

The intrinsic procedures provided by GNU Fortran include all of the

intrinsic procedures required by the Fortran 95 standard, a set of

intrinsic procedures required by the Fortran 95 standard, a set of

intrinsic procedures for backwards compatibility with G77, and a

intrinsic procedures for backwards compatibility with G77, and a

selection of intrinsic procedures from the Fortran 2003 and Fortran 2008

selection of intrinsic procedures from the Fortran 2003 and Fortran 2008

standards.  Any conflict between a description here and a description in

standards.  Any conflict between a description here and a description in

either the Fortran 95 standard, the Fortran 2003 standard or the Fortran

either the Fortran 95 standard, the Fortran 2003 standard or the Fortran

2008 standard is unintentional, and the standard(s) should be considered

2008 standard is unintentional, and the standard(s) should be considered

authoritative.

authoritative.

The enumeration of the @code{KIND} type parameter is processor defined in

The enumeration of the @code{KIND} type parameter is processor defined in

the Fortran 95 standard.  GNU Fortran defines the default integer type and

the Fortran 95 standard.  GNU Fortran defines the default integer type and

default real type by @code{INTEGER(KIND=4)} and @code{REAL(KIND=4)},

default real type by @code{INTEGER(KIND=4)} and @code{REAL(KIND=4)},

respectively.  The standard mandates that both data types shall have

respectively.  The standard mandates that both data types shall have

another kind, which have more precision.  On typical target architectures

another kind, which have more precision.  On typical target architectures

supported by @command{gfortran}, this kind type parameter is @code{KIND=8}.

supported by @command{gfortran}, this kind type parameter is @code{KIND=8}.

Hence, @code{REAL(KIND=8)} and @code{DOUBLE PRECISION} are equivalent.

Hence, @code{REAL(KIND=8)} and @code{DOUBLE PRECISION} are equivalent.

In the description of generic intrinsic procedures, the kind type parameter

In the description of generic intrinsic procedures, the kind type parameter

will be specified by @code{KIND=*}, and in the description of specific

will be specified by @code{KIND=*}, and in the description of specific

names for an intrinsic procedure the kind type parameter will be explicitly

names for an intrinsic procedure the kind type parameter will be explicitly

given (e.g., @code{REAL(KIND=4)} or @code{REAL(KIND=8)}).  Finally, for

given (e.g., @code{REAL(KIND=4)} or @code{REAL(KIND=8)}).  Finally, for

brevity the optional @code{KIND=} syntax will be omitted.

brevity the optional @code{KIND=} syntax will be omitted.

Many of the intrinsic procedures take one or more optional arguments.

Many of the intrinsic procedures take one or more optional arguments.

This document follows the convention used in the Fortran 95 standard,

This document follows the convention used in the Fortran 95 standard,

and denotes such arguments by square brackets.

and denotes such arguments by square brackets.

GNU Fortran offers the @option{-std=f95} and @option{-std=gnu} options,

GNU Fortran offers the @option{-std=f95} and @option{-std=gnu} options,

which can be used to restrict the set of intrinsic procedures to a

which can be used to restrict the set of intrinsic procedures to a

given standard.  By default, @command{gfortran} sets the @option{-std=gnu}

given standard.  By default, @command{gfortran} sets the @option{-std=gnu}

option, and so all intrinsic procedures described here are accepted.  There

option, and so all intrinsic procedures described here are accepted.  There

is one caveat.  For a select group of intrinsic procedures, @command{g77}

is one caveat.  For a select group of intrinsic procedures, @command{g77}

implemented both a function and a subroutine.  Both classes

implemented both a function and a subroutine.  Both classes

have been implemented in @command{gfortran} for backwards compatibility

have been implemented in @command{gfortran} for backwards compatibility

with @command{g77}.  It is noted here that these functions and subroutines

with @command{g77}.  It is noted here that these functions and subroutines

cannot be intermixed in a given subprogram.  In the descriptions that follow,

cannot be intermixed in a given subprogram.  In the descriptions that follow,

the applicable standard for each intrinsic procedure is noted.

the applicable standard for each intrinsic procedure is noted.

@node ABORT

@node ABORT

@section @code{ABORT} --- Abort the program

@section @code{ABORT} --- Abort the program

@fnindex ABORT

@fnindex ABORT

@cindex program termination, with core dump

@cindex program termination, with core dump

@cindex terminate program, with core dump

@cindex terminate program, with core dump

@cindex core, dump

@cindex core, dump

@table @asis

@table @asis

@item @emph{Description}:

@item @emph{Description}:

@code{ABORT} causes immediate termination of the program.  On operating

@code{ABORT} causes immediate termination of the program.  On operating

systems that support a core dump, @code{ABORT} will produce a core dump even if

systems that support a core dump, @code{ABORT} will produce a core dump even if

the option @option{-fno-dump-core} is in effect, which is suitable for debugging

the option @option{-fno-dump-core} is in effect, which is suitable for debugging

purposes.

purposes.

@c TODO: Check if this (with -fno-dump-core) is correct.

@c TODO: Check if this (with -fno-dump-core) is correct.

@item @emph{Standard}:

@item @emph{Standard}:

GNU extension

GNU extension

@item @emph{Class}:

@item @emph{Class}:

Subroutine

Subroutine

@item @emph{Syntax}:

@item @emph{Syntax}:

@code{CALL ABORT}

@code{CALL ABORT}

@item @emph{Return value}:

@item @emph{Return value}:

Does not return.

Does not return.

@item @emph{Example}:

@item @emph{Example}:

@smallexample

@smallexample

program test_abort

program test_abort

  integer :: i = 1, j = 2

  integer :: i = 1, j = 2

  if (i /= j) call abort

  if (i /= j) call abort

end program test_abort

end program test_abort

@end smallexample

@end smallexample

@item @emph{See also}:

@item @emph{See also}:

@ref{EXIT}, @ref{KILL}

@ref{EXIT}, @ref{KILL}

@end table

@end table

@node ABS

@node ABS

@section @code{ABS} --- Absolute value

@section @code{ABS} --- Absolute value

@fnindex ABS

@fnindex ABS

@fnindex CABS

@fnindex CABS

@fnindex DABS

@fnindex DABS

@fnindex IABS

@fnindex IABS

@fnindex ZABS

@fnindex ZABS

@fnindex CDABS

@fnindex CDABS

@cindex absolute value

@cindex absolute value

@table @asis

@table @asis

@item @emph{Description}:

@item @emph{Description}:

@code{ABS(A)} computes the absolute value of @code{A}.

@code{ABS(A)} computes the absolute value of @code{A}.

@item @emph{Standard}:

@item @emph{Standard}:

Fortran 77 and later, has overloads that are GNU extensions

Fortran 77 and later, has overloads that are GNU extensions

@item @emph{Class}:

@item @emph{Class}:

Elemental function

Elemental function

@item @emph{Syntax}:

@item @emph{Syntax}:

@code{RESULT = ABS(A)}

@code{RESULT = ABS(A)}

@item @emph{Arguments}:

@item @emph{Arguments}:

@multitable @columnfractions .15 .70

@multitable @columnfractions .15 .70

@item @var{A} @tab The type of the argument shall be an @code{INTEGER},

@item @var{A} @tab The type of the argument shall be an @code{INTEGER},

@code{REAL}, or @code{COMPLEX}.

@code{REAL}, or @code{COMPLEX}.

@end multitable

@end multitable

@item @emph{Return value}:

@item @emph{Return value}:

The return value is of the same type and

The return value is of the same type and

kind as the argument except the return value is @code{REAL} for a

kind as the argument except the return value is @code{REAL} for a

@code{COMPLEX} argument.

@code{COMPLEX} argument.

@item @emph{Example}:

@item @emph{Example}:

@smallexample

@smallexample

program test_abs

program test_abs

  integer :: i = -1

  integer :: i = -1

  real :: x = -1.e0

  real :: x = -1.e0

  complex :: z = (-1.e0,0.e0)

  complex :: z = (-1.e0,0.e0)

  i = abs(i)

  i = abs(i)

  x = abs(x)

  x = abs(x)

  x = abs(z)

  x = abs(z)

end program test_abs

end program test_abs

@end smallexample

@end smallexample

@item @emph{Specific names}:

@item @emph{Specific names}:

@multitable @columnfractions .20 .20 .20 .25

@multitable @columnfractions .20 .20 .20 .25

@item Name            @tab Argument            @tab Return type       @tab Standard

@item Name            @tab Argument            @tab Return type       @tab Standard

@item @code{CABS(A)}  @tab @code{COMPLEX(4) Z} @tab @code{REAL(4)}    @tab Fortran 77 and later

@item @code{CABS(A)}  @tab @code{COMPLEX(4) Z} @tab @code{REAL(4)}    @tab Fortran 77 and later

@item @code{DABS(A)}  @tab @code{REAL(8)    X} @tab @code{REAL(8)}    @tab Fortran 77 and later

@item @code{DABS(A)}  @tab @code{REAL(8)    X} @tab @code{REAL(8)}    @tab Fortran 77 and later

@item @code{IABS(A)}  @tab @code{INTEGER(4) I} @tab @code{INTEGER(4)} @tab Fortran 77 and later

@item @code{IABS(A)}  @tab @code{INTEGER(4) I} @tab @code{INTEGER(4)} @tab Fortran 77 and later

@item @code{ZABS(A)}  @tab @code{COMPLEX(8) Z} @tab @code{COMPLEX(8)} @tab GNU extension

@item @code{ZABS(A)}  @tab @code{COMPLEX(8) Z} @tab @code{COMPLEX(8)} @tab GNU extension

@item @code{CDABS(A)} @tab @code{COMPLEX(8) Z} @tab @code{COMPLEX(8)} @tab GNU extension

@item @code{CDABS(A)} @tab @code{COMPLEX(8) Z} @tab @code{COMPLEX(8)} @tab GNU extension

@end multitable

@end multitable

@end table

@end table

@node ACCESS

@node ACCESS

@section @code{ACCESS} --- Checks file access modes

@section @code{ACCESS} --- Checks file access modes

@fnindex ACCESS

@fnindex ACCESS

@cindex file system, access mode

@cindex file system, access mode

@table @asis

@table @asis

@item @emph{Description}:

@item @emph{Description}:

@code{ACCESS(NAME, MODE)} checks whether the file @var{NAME}

@code{ACCESS(NAME, MODE)} checks whether the file @var{NAME}

exists, is readable, writable or executable. Except for the

exists, is readable, writable or executable. Except for the

executable check, @code{ACCESS} can be replaced by

executable check, @code{ACCESS} can be replaced by

Fortran 95's @code{INQUIRE}.

Fortran 95's @code{INQUIRE}.

@item @emph{Standard}:

@item @emph{Standard}:

GNU extension

GNU extension

@item @emph{Class}:

@item @emph{Class}:

Inquiry function

Inquiry function

@item @emph{Syntax}:

@item @emph{Syntax}:

@code{RESULT = ACCESS(NAME, MODE)}

@code{RESULT = ACCESS(NAME, MODE)}

@item @emph{Arguments}:

@item @emph{Arguments}:

@multitable @columnfractions .15 .70

@multitable @columnfractions .15 .70

@item @var{NAME} @tab Scalar @code{CHARACTER} of default kind with the

@item @var{NAME} @tab Scalar @code{CHARACTER} of default kind with the

file name. Tailing blank are ignored unless the character @code{achar(0)}

file name. Tailing blank are ignored unless the character @code{achar(0)}

is present, then all characters up to and excluding @code{achar(0)} are

is present, then all characters up to and excluding @code{achar(0)} are

used as file name.

used as file name.

@item @var{MODE} @tab Scalar @code{CHARACTER} of default kind with the

@item @var{MODE} @tab Scalar @code{CHARACTER} of default kind with the

file access mode, may be any concatenation of @code{"r"} (readable),

file access mode, may be any concatenation of @code{"r"} (readable),

@code{"w"} (writable) and @code{"x"} (executable), or @code{" "} to check

@code{"w"} (writable) and @code{"x"} (executable), or @code{" "} to check

for existence.

for existence.

@end multitable

@end multitable

@item @emph{Return value}:

@item @emph{Return value}:

Returns a scalar @code{INTEGER}, which is @code{0} if the file is

Returns a scalar @code{INTEGER}, which is @code{0} if the file is

accessible in the given mode; otherwise or if an invalid argument

accessible in the given mode; otherwise or if an invalid argument

has been given for @code{MODE} the value @code{1} is returned.

has been given for @code{MODE} the value @code{1} is returned.

@item @emph{Example}:

@item @emph{Example}:

@smallexample

@smallexample

program access_test

program access_test

  implicit none

  implicit none

  character(len=*), parameter :: file  = 'test.dat'

  character(len=*), parameter :: file  = 'test.dat'

  character(len=*), parameter :: file2 = 'test.dat  '//achar(0)

  character(len=*), parameter :: file2 = 'test.dat  '//achar(0)

  if(access(file,' ') == 0) print *, trim(file),' is exists'

  if(access(file,' ') == 0) print *, trim(file),' is exists'

  if(access(file,'r') == 0) print *, trim(file),' is readable'

  if(access(file,'r') == 0) print *, trim(file),' is readable'

  if(access(file,'w') == 0) print *, trim(file),' is writable'

  if(access(file,'w') == 0) print *, trim(file),' is writable'

  if(access(file,'x') == 0) print *, trim(file),' is executable'

  if(access(file,'x') == 0) print *, trim(file),' is executable'

  if(access(file2,'rwx') == 0) &

  if(access(file2,'rwx') == 0) &

    print *, trim(file2),' is readable, writable and executable'

    print *, trim(file2),' is readable, writable and executable'

end program access_test

end program access_test

@end smallexample

@end smallexample

@item @emph{Specific names}:

@item @emph{Specific names}:

@item @emph{See also}:

@item @emph{See also}:

@end table

@end table

@node ACHAR

@node ACHAR

@section @code{ACHAR} --- Character in @acronym{ASCII} collating sequence

@section @code{ACHAR} --- Character in @acronym{ASCII} collating sequence

@fnindex ACHAR

@fnindex ACHAR

@cindex @acronym{ASCII} collating sequence

@cindex @acronym{ASCII} collating sequence

@cindex collating sequence, @acronym{ASCII}

@cindex collating sequence, @acronym{ASCII}

@table @asis

@table @asis

@item @emph{Description}:

@item @emph{Description}:

@code{ACHAR(I)} returns the character located at position @code{I}

@code{ACHAR(I)} returns the character located at position @code{I}

in the @acronym{ASCII} collating sequence.

in the @acronym{ASCII} collating sequence.

@item @emph{Standard}:

@item @emph{Standard}:

Fortran 77 and later, with @var{KIND} argument Fortran 2003 and later

Fortran 77 and later, with @var{KIND} argument Fortran 2003 and later

@item @emph{Class}:

@item @emph{Class}:

Elemental function

Elemental function

@item @emph{Syntax}:

@item @emph{Syntax}:

@code{RESULT = ACHAR(I [, KIND])}

@code{RESULT = ACHAR(I [, KIND])}

@item @emph{Arguments}:

@item @emph{Arguments}:

@multitable @columnfractions .15 .70

@multitable @columnfractions .15 .70

@item @var{I}    @tab The type shall be @code{INTEGER}.

@item @var{I}    @tab The type shall be @code{INTEGER}.

@item @var{KIND} @tab (Optional) An @code{INTEGER} initialization

@item @var{KIND} @tab (Optional) An @code{INTEGER} initialization

expression indicating the kind parameter of the result.

expression indicating the kind parameter of the result.

@end multitable

@end multitable

@item @emph{Return value}:

@item @emph{Return value}:

The return value is of type @code{CHARACTER} with a length of one.

The return value is of type @code{CHARACTER} with a length of one.

If the @var{KIND} argument is present, the return value is of the

If the @var{KIND} argument is present, the return value is of the

specified kind and of the default kind otherwise.

specified kind and of the default kind otherwise.

@item @emph{Example}:

@item @emph{Example}:

@smallexample

@smallexample

program test_achar

program test_achar

  character c

  character c

  c = achar(32)

  c = achar(32)

end program test_achar

end program test_achar

@end smallexample

@end smallexample

@item @emph{Note}:

@item @emph{Note}:

See @ref{ICHAR} for a discussion of converting between numerical values

See @ref{ICHAR} for a discussion of converting between numerical values

and formatted string representations.

and formatted string representations.

@item @emph{See also}:

@item @emph{See also}:

@ref{CHAR}, @ref{IACHAR}, @ref{ICHAR}

@ref{CHAR}, @ref{IACHAR}, @ref{ICHAR}

@end table

@end table

@node ACOS

@node ACOS

@section @code{ACOS} --- Arccosine function

@section @code{ACOS} --- Arccosine function

@fnindex ACOS

@fnindex ACOS

@fnindex DACOS

@fnindex DACOS

@cindex trigonometric function, cosine, inverse

@cindex trigonometric function, cosine, inverse

@cindex cosine, inverse

@cindex cosine, inverse

@table @asis

@table @asis

@item @emph{Description}:

@item @emph{Description}:

@code{ACOS(X)} computes the arccosine of @var{X} (inverse of @code{COS(X)}).

@code{ACOS(X)} computes the arccosine of @var{X} (inverse of @code{COS(X)}).

@item @emph{Standard}:

@item @emph{Standard}:

Fortran 77 and later, for a complex argument Fortran 2008 or later

Fortran 77 and later, for a complex argument Fortran 2008 or later

@item @emph{Class}:

@item @emph{Class}:

Elemental function

Elemental function

@item @emph{Syntax}:

@item @emph{Syntax}:

@code{RESULT = ACOS(X)}

@code{RESULT = ACOS(X)}

@item @emph{Arguments}:

@item @emph{Arguments}:

@multitable @columnfractions .15 .70

@multitable @columnfractions .15 .70

@item @var{X} @tab The type shall either be @code{REAL} with a magnitude that is

@item @var{X} @tab The type shall either be @code{REAL} with a magnitude that is

less than or equal to one - or the type shall be @code{COMPLEX}.

less than or equal to one - or the type shall be @code{COMPLEX}.

@end multitable

@end multitable

@item @emph{Return value}:

@item @emph{Return value}:

The return value is of the same type and kind as @var{X}.

The return value is of the same type and kind as @var{X}.

The real part of the result is in radians and lies in the range

The real part of the result is in radians and lies in the range

@math{0 \leq \Re \acos(x) \leq \pi}.

@math{0 \leq \Re \acos(x) \leq \pi}.

@item @emph{Example}:

@item @emph{Example}:

@smallexample

@smallexample

program test_acos

program test_acos

  real(8) :: x = 0.866_8

  real(8) :: x = 0.866_8

  x = acos(x)

  x = acos(x)

end program test_acos

end program test_acos

@end smallexample

@end smallexample

@item @emph{Specific names}:

@item @emph{Specific names}:

@multitable @columnfractions .20 .20 .20 .25

@multitable @columnfractions .20 .20 .20 .25

@item Name            @tab Argument          @tab Return type       @tab Standard

@item Name            @tab Argument          @tab Return type       @tab Standard

@item @code{DACOS(X)} @tab @code{REAL(8) X}  @tab @code{REAL(8)}    @tab Fortran 77 and later

@item @code{DACOS(X)} @tab @code{REAL(8) X}  @tab @code{REAL(8)}    @tab Fortran 77 and later

@end multitable

@end multitable

@item @emph{See also}:

@item @emph{See also}:

Inverse function: @ref{COS}

Inverse function: @ref{COS}

@end table

@end table

@node ACOSH

@node ACOSH

@section @code{ACOSH} --- Inverse hyperbolic cosine function

@section @code{ACOSH} --- Inverse hyperbolic cosine function

@fnindex ACOSH

@fnindex ACOSH

@fnindex DACOSH

@fnindex DACOSH

@cindex area hyperbolic cosine

@cindex area hyperbolic cosine

@cindex inverse hyperbolic cosine

@cindex inverse hyperbolic cosine

@cindex hyperbolic function, cosine, inverse

@cindex hyperbolic function, cosine, inverse

@cindex cosine, hyperbolic, inverse

@cindex cosine, hyperbolic, inverse

@table @asis

@table @asis

@item @emph{Description}:

@item @emph{Description}:

@code{ACOSH(X)} computes the inverse hyperbolic cosine of @var{X}.

@code{ACOSH(X)} computes the inverse hyperbolic cosine of @var{X}.

@item @emph{Standard}:

@item @emph{Standard}:

Fortran 2008 and later

Fortran 2008 and later

@item @emph{Class}:

@item @emph{Class}:

Elemental function

Elemental function

@item @emph{Syntax}:

@item @emph{Syntax}:

@code{RESULT = ACOSH(X)}

@code{RESULT = ACOSH(X)}

@item @emph{Arguments}:

@item @emph{Arguments}:

@multitable @columnfractions .15 .70

@multitable @columnfractions .15 .70

@item @var{X} @tab The type shall be @code{REAL} or @code{COMPLEX}.

@item @var{X} @tab The type shall be @code{REAL} or @code{COMPLEX}.

@end multitable

@end multitable

@item @emph{Return value}:

@item @emph{Return value}:

The return value has the same type and kind as @var{X}. If @var{X} is

The return value has the same type and kind as @var{X}. If @var{X} is

complex, the imaginary part of the result is in radians and lies between

complex, the imaginary part of the result is in radians and lies between

@math{ 0 \leq \Im \acosh(x) \leq \pi}.

@math{ 0 \leq \Im \acosh(x) \leq \pi}.

@item @emph{Example}:

@item @emph{Example}:

@smallexample

@smallexample

PROGRAM test_acosh

PROGRAM test_acosh

  REAL(8), DIMENSION(3) :: x = (/ 1.0, 2.0, 3.0 /)

  REAL(8), DIMENSION(3) :: x = (/ 1.0, 2.0, 3.0 /)

  WRITE (*,*) ACOSH(x)

  WRITE (*,*) ACOSH(x)

END PROGRAM

END PROGRAM

@end smallexample

@end smallexample

@item @emph{Specific names}:

@item @emph{Specific names}:

@multitable @columnfractions .20 .20 .20 .25

@multitable @columnfractions .20 .20 .20 .25

@item Name             @tab Argument          @tab Return type       @tab Standard

@item Name             @tab Argument          @tab Return type       @tab Standard

@item @code{DACOSH(X)} @tab @code{REAL(8) X}  @tab @code{REAL(8)}    @tab GNU extension

@item @code{DACOSH(X)} @tab @code{REAL(8) X}  @tab @code{REAL(8)}    @tab GNU extension

@end multitable

@end multitable

@item @emph{See also}:

@item @emph{See also}:

Inverse function: @ref{COSH}

Inverse function: @ref{COSH}

@end table

@end table

@node ADJUSTL

@node ADJUSTL

@section @code{ADJUSTL} --- Left adjust a string

@section @code{ADJUSTL} --- Left adjust a string

@fnindex ADJUSTL

@fnindex ADJUSTL

@cindex string, adjust left

@cindex string, adjust left

@cindex adjust string

@cindex adjust string

@table @asis

@table @asis

@item @emph{Description}:

@item @emph{Description}:

@code{ADJUSTL(STRING)} will left adjust a string by removing leading spaces.

@code{ADJUSTL(STRING)} will left adjust a string by removing leading spaces.

Spaces are inserted at the end of the string as needed.

Spaces are inserted at the end of the string as needed.

@item @emph{Standard}:

@item @emph{Standard}:

Fortran 90 and later

Fortran 90 and later

@item @emph{Class}:

@item @emph{Class}:

Elemental function

Elemental function

@item @emph{Syntax}:

@item @emph{Syntax}:

@code{RESULT = ADJUSTL(STRING)}

@code{RESULT = ADJUSTL(STRING)}

@item @emph{Arguments}:

@item @emph{Arguments}:

@multitable @columnfractions .15 .70

@multitable @columnfractions .15 .70

@item @var{STRING} @tab The type shall be @code{CHARACTER}.

@item @var{STRING} @tab The type shall be @code{CHARACTER}.

@end multitable

@end multitable

@item @emph{Return value}:

@item @emph{Return value}:

The return value is of type @code{CHARACTER} and of the same kind as

The return value is of type @code{CHARACTER} and of the same kind as

@var{STRING} where leading spaces are removed and the same number of

@var{STRING} where leading spaces are removed and the same number of

spaces are inserted on the end of @var{STRING}.

spaces are inserted on the end of @var{STRING}.

@item @emph{Example}:

@item @emph{Example}:

@smallexample

@smallexample

program test_adjustl

program test_adjustl

  character(len=20) :: str = '   gfortran'

  character(len=20) :: str = '   gfortran'

  str = adjustl(str)

  str = adjustl(str)

  print *, str

  print *, str

end program test_adjustl

end program test_adjustl

@end smallexample

@end smallexample

@item @emph{See also}:

@item @emph{See also}:

@ref{ADJUSTR}, @ref{TRIM}

@ref{ADJUSTR}, @ref{TRIM}

@end table

@end table

@node ADJUSTR

@node ADJUSTR

@section @code{ADJUSTR} --- Right adjust a string

@section @code{ADJUSTR} --- Right adjust a string

@fnindex ADJUSTR

@fnindex ADJUSTR

@cindex string, adjust right

@cindex string, adjust right

@cindex adjust string

@cindex adjust string

@table @asis

@table @asis

@item @emph{Description}:

@item @emph{Description}:

@code{ADJUSTR(STRING)} will right adjust a string by removing trailing spaces.

@code{ADJUSTR(STRING)} will right adjust a string by removing trailing spaces.

Spaces are inserted at the start of the string as needed.

Spaces are inserted at the start of the string as needed.

@item @emph{Standard}:

@item @emph{Standard}:

Fortran 95 and later

Fortran 95 and later

@item @emph{Class}:

@item @emph{Class}:

Elemental function

Elemental function

@item @emph{Syntax}:

@item @emph{Syntax}:

@code{RESULT = ADJUSTR(STRING)}

@code{RESULT = ADJUSTR(STRING)}

@item @emph{Arguments}:

@item @emph{Arguments}:

@multitable @columnfractions .15 .70

@multitable @columnfractions .15 .70

@item @var{STR} @tab The type shall be @code{CHARACTER}.

@item @var{STR} @tab The type shall be @code{CHARACTER}.

@end multitable

@end multitable

@item @emph{Return value}:

@item @emph{Return value}:

The return value is of type @code{CHARACTER} and of the same kind as

The return value is of type @code{CHARACTER} and of the same kind as

@var{STRING} where trailing spaces are removed and the same number of

@var{STRING} where trailing spaces are removed and the same number of

spaces are inserted at the start of @var{STRING}.

spaces are inserted at the start of @var{STRING}.

@item @emph{Example}:

@item @emph{Example}:

@smallexample

@smallexample

program test_adjustr

program test_adjustr

  character(len=20) :: str = 'gfortran'

  character(len=20) :: str = 'gfortran'

  str = adjustr(str)

  str = adjustr(str)

  print *, str

  print *, str

end program test_adjustr

end program test_adjustr

@end smallexample

@end smallexample

@item @emph{See also}:

@item @emph{See also}:

@ref{ADJUSTL}, @ref{TRIM}

@ref{ADJUSTL}, @ref{TRIM}

@end table

@end table

@node AIMAG

@node AIMAG

@section @code{AIMAG} --- Imaginary part of complex number

@section @code{AIMAG} --- Imaginary part of complex number

@fnindex AIMAG

@fnindex AIMAG

@fnindex DIMAG

@fnindex DIMAG

@fnindex IMAG

@fnindex IMAG

@fnindex IMAGPART

@fnindex IMAGPART

@cindex complex numbers, imaginary part

@cindex complex numbers, imaginary part

@table @asis

@table @asis

@item @emph{Description}:

@item @emph{Description}:

@code{AIMAG(Z)} yields the imaginary part of complex argument @code{Z}.

@code{AIMAG(Z)} yields the imaginary part of complex argument @code{Z}.

The @code{IMAG(Z)} and @code{IMAGPART(Z)} intrinsic functions are provided

The @code{IMAG(Z)} and @code{IMAGPART(Z)} intrinsic functions are provided

for compatibility with @command{g77}, and their use in new code is

for compatibility with @command{g77}, and their use in new code is

strongly discouraged.

strongly discouraged.

@item @emph{Standard}:

@item @emph{Standard}:

Fortran 77 and later, has overloads that are GNU extensions

Fortran 77 and later, has overloads that are GNU extensions

@item @emph{Class}:

@item @emph{Class}:

Elemental function

Elemental function

@item @emph{Syntax}:

@item @emph{Syntax}:

@code{RESULT = AIMAG(Z)}

@code{RESULT = AIMAG(Z)}

@item @emph{Arguments}:

@item @emph{Arguments}:

@multitable @columnfractions .15 .70

@multitable @columnfractions .15 .70

@item @var{Z} @tab The type of the argument shall be @code{COMPLEX}.

@item @var{Z} @tab The type of the argument shall be @code{COMPLEX}.

@end multitable

@end multitable

@item @emph{Return value}:

@item @emph{Return value}:

The return value is of type @code{REAL} with the

The return value is of type @code{REAL} with the

kind type parameter of the argument.

kind type parameter of the argument.

@item @emph{Example}:

@item @emph{Example}:

@smallexample

@smallexample

program test_aimag

program test_aimag

  complex(4) z4

  complex(4) z4

  complex(8) z8

  complex(8) z8

  z4 = cmplx(1.e0_4, 0.e0_4)

  z4 = cmplx(1.e0_4, 0.e0_4)

  z8 = cmplx(0.e0_8, 1.e0_8)

  z8 = cmplx(0.e0_8, 1.e0_8)

  print *, aimag(z4), dimag(z8)

  print *, aimag(z4), dimag(z8)

end program test_aimag

end program test_aimag

@end smallexample

@end smallexample

@item @emph{Specific names}:

@item @emph{Specific names}:

@multitable @columnfractions .20 .20 .20 .25

@multitable @columnfractions .20 .20 .20 .25

@item Name            @tab Argument            @tab Return type       @tab Standard

@item Name            @tab Argument            @tab Return type       @tab Standard

@item @code{DIMAG(Z)} @tab @code{COMPLEX(8) Z} @tab @code{REAL(8)}    @tab GNU extension

@item @code{DIMAG(Z)} @tab @code{COMPLEX(8) Z} @tab @code{REAL(8)}    @tab GNU extension

@item @code{IMAG(Z)}  @tab @code{COMPLEX Z} @tab @code{REAL}    @tab GNU extension

@item @code{IMAG(Z)}  @tab @code{COMPLEX Z} @tab @code{REAL}    @tab GNU extension

@item @code{IMAGPART(Z)} @tab @code{COMPLEX Z} @tab @code{REAL} @tab GNU extension

@item @code{IMAGPART(Z)} @tab @code{COMPLEX Z} @tab @code{REAL} @tab GNU extension

@end multitable

@end multitable

@end table

@end table

@node AINT

@node AINT

@section @code{AINT} --- Truncate to a whole number

@section @code{AINT} --- Truncate to a whole number

@fnindex AINT

@fnindex AINT

@fnindex DINT

@fnindex DINT

@cindex floor

@cindex floor

@cindex rounding, floor

@cindex rounding, floor

@table @asis

@table @asis

@item @emph{Description}:

@item @emph{Description}:

@code{AINT(A [, KIND])} truncates its argument to a whole number.

@code{AINT(A [, KIND])} truncates its argument to a whole number.

@item @emph{Standard}:

@item @emph{Standard}:

Fortran 77 and later

Fortran 77 and later

@item @emph{Class}:

@item @emph{Class}:

Elemental function

Elemental function

@item @emph{Syntax}:

@item @emph{Syntax}:

@code{RESULT = AINT(A [, KIND])}

@code{RESULT = AINT(A [, KIND])}

@item @emph{Arguments}:

@item @emph{Arguments}:

@multitable @columnfractions .15 .70

@multitable @columnfractions .15 .70

@item @var{A}    @tab The type of the argument shall be @code{REAL}.

@item @var{A}    @tab The type of the argument shall be @code{REAL}.

@item @var{KIND} @tab (Optional) An @code{INTEGER} initialization

@item @var{KIND} @tab (Optional) An @code{INTEGER} initialization

expression indicating the kind parameter of the result.

expression indicating the kind parameter of the result.

@end multitable

@end multitable

@item @emph{Return value}:

@item @emph{Return value}:

The return value is of type @code{REAL} with the kind type parameter of the

The return value is of type @code{REAL} with the kind type parameter of the

argument if the optional @var{KIND} is absent; otherwise, the kind

argument if the optional @var{KIND} is absent; otherwise, the kind

type parameter will be given by @var{KIND}.  If the magnitude of

type parameter will be given by @var{KIND}.  If the magnitude of

@var{X} is less than one, @code{AINT(X)} returns zero.  If the

@var{X} is less than one, @code{AINT(X)} returns zero.  If the

magnitude is equal to or greater than one then it returns the largest

magnitude is equal to or greater than one then it returns the largest

whole number that does not exceed its magnitude.  The sign is the same

whole number that does not exceed its magnitude.  The sign is the same

as the sign of @var{X}.

as the sign of @var{X}.

@item @emph{Example}:

@item @emph{Example}:

@smallexample

@smallexample

program test_aint

program test_aint

  real(4) x4

  real(4) x4

  real(8) x8

  real(8) x8

  x4 = 1.234E0_4

  x4 = 1.234E0_4

  x8 = 4.321_8

  x8 = 4.321_8

  print *, aint(x4), dint(x8)

  print *, aint(x4), dint(x8)

  x8 = aint(x4,8)

  x8 = aint(x4,8)

end program test_aint

end program test_aint

@end smallexample

@end smallexample

@item @emph{Specific names}:

@item @emph{Specific names}:

@multitable @columnfractions .20 .20 .20 .25

@multitable @columnfractions .20 .20 .20 .25

@item Name           @tab Argument         @tab Return type      @tab Standard

@item Name           @tab Argument         @tab Return type      @tab Standard

@item @code{DINT(X)} @tab @code{REAL(8) X} @tab @code{REAL(8)}   @tab Fortran 77 and later

@item @code{DINT(X)} @tab @code{REAL(8) X} @tab @code{REAL(8)}   @tab Fortran 77 and later

@end multitable

@end multitable

@end table

@end table

@node ALARM

@node ALARM

@section @code{ALARM} --- Execute a routine after a given delay

@section @code{ALARM} --- Execute a routine after a given delay

@fnindex ALARM

@fnindex ALARM

@cindex delayed execution

@cindex delayed execution

@table @asis

@table @asis

@item @emph{Description}:

@item @emph{Description}:

@code{ALARM(SECONDS, HANDLER [, STATUS])} causes external subroutine @var{HANDLER}

@code{ALARM(SECONDS, HANDLER [, STATUS])} causes external subroutine @var{HANDLER}

to be executed after a delay of @var{SECONDS} by using @code{alarm(2)} to

to be executed after a delay of @var{SECONDS} by using @code{alarm(2)} to

set up a signal and @code{signal(2)} to catch it. If @var{STATUS} is

set up a signal and @code{signal(2)} to catch it. If @var{STATUS} is

supplied, it will be returned with the number of seconds remaining until

supplied, it will be returned with the number of seconds remaining until

any previously scheduled alarm was due to be delivered, or zero if there

any previously scheduled alarm was due to be delivered, or zero if there

was no previously scheduled alarm.

was no previously scheduled alarm.

@item @emph{Standard}:

@item @emph{Standard}:

GNU extension

GNU extension

@item @emph{Class}:

@item @emph{Class}:

Subroutine

Subroutine

@item @emph{Syntax}:

@item @emph{Syntax}:

@code{CALL ALARM(SECONDS, HANDLER [, STATUS])}

@code{CALL ALARM(SECONDS, HANDLER [, STATUS])}

@item @emph{Arguments}:

@item @emph{Arguments}:

@multitable @columnfractions .15 .70

@multitable @columnfractions .15 .70

@item @var{SECONDS} @tab The type of the argument shall be a scalar

@item @var{SECONDS} @tab The type of the argument shall be a scalar

@code{INTEGER}. It is @code{INTENT(IN)}.

@code{INTEGER}. It is @code{INTENT(IN)}.

@item @var{HANDLER} @tab Signal handler (@code{INTEGER FUNCTION} or

@item @var{HANDLER} @tab Signal handler (@code{INTEGER FUNCTION} or

@code{SUBROUTINE}) or dummy/global @code{INTEGER} scalar. The scalar

@code{SUBROUTINE}) or dummy/global @code{INTEGER} scalar. The scalar

values may be either @code{SIG_IGN=1} to ignore the alarm generated

values may be either @code{SIG_IGN=1} to ignore the alarm generated

or @code{SIG_DFL=0} to set the default action. It is @code{INTENT(IN)}.

or @code{SIG_DFL=0} to set the default action. It is @code{INTENT(IN)}.

@item @var{STATUS}  @tab (Optional) @var{STATUS} shall be a scalar

@item @var{STATUS}  @tab (Optional) @var{STATUS} shall be a scalar

variable of the default @code{INTEGER} kind. It is @code{INTENT(OUT)}.

variable of the default @code{INTEGER} kind. It is @code{INTENT(OUT)}.

@end multitable

@end multitable

@item @emph{Example}:

@item @emph{Example}:

@smallexample

@smallexample

program test_alarm

program test_alarm

  external handler_print

  external handler_print

  integer i

  integer i

  call alarm (3, handler_print, i)

  call alarm (3, handler_print, i)

  print *, i

  print *, i

  call sleep(10)

  call sleep(10)

end program test_alarm

end program test_alarm

@end smallexample

@end smallexample

This will cause the external routine @var{handler_print} to be called

This will cause the external routine @var{handler_print} to be called

after 3 seconds.

after 3 seconds.

@end table

@end table

@node ALL

@node ALL

@section @code{ALL} --- All values in @var{MASK} along @var{DIM} are true

@section @code{ALL} --- All values in @var{MASK} along @var{DIM} are true

@fnindex ALL

@fnindex ALL

@cindex array, apply condition

@cindex array, apply condition

@cindex array, condition testing

@cindex array, condition testing

@table @asis

@table @asis

@item @emph{Description}:

@item @emph{Description}:

@code{ALL(MASK [, DIM])} determines if all the values are true in @var{MASK}

@code{ALL(MASK [, DIM])} determines if all the values are true in @var{MASK}

in the array along dimension @var{DIM}.

in the array along dimension @var{DIM}.

@item @emph{Standard}:

@item @emph{Standard}:

Fortran 95 and later

Fortran 95 and later

@item @emph{Class}:

@item @emph{Class}:

Transformational function

Transformational function

@item @emph{Syntax}:

@item @emph{Syntax}:

@code{RESULT = ALL(MASK [, DIM])}

@code{RESULT = ALL(MASK [, DIM])}

@item @emph{Arguments}:

@item @emph{Arguments}:

@multitable @columnfractions .15 .70

@multitable @columnfractions .15 .70

@item @var{MASK} @tab The type of the argument shall be @code{LOGICAL} and

@item @var{MASK} @tab The type of the argument shall be @code{LOGICAL} and

it shall not be scalar.

it shall not be scalar.

@item @var{DIM}  @tab (Optional) @var{DIM} shall be a scalar integer

@item @var{DIM}  @tab (Optional) @var{DIM} shall be a scalar integer

with a value that lies between one and the rank of @var{MASK}.

with a value that lies between one and the rank of @var{MASK}.

@end multitable

@end multitable

@item @emph{Return value}:

@item @emph{Return value}:

@code{ALL(MASK)} returns a scalar value of type @code{LOGICAL} where

@code{ALL(MASK)} returns a scalar value of type @code{LOGICAL} where

the kind type parameter is the same as the kind type parameter of

the kind type parameter is the same as the kind type parameter of

@var{MASK}.  If @var{DIM} is present, then @code{ALL(MASK, DIM)} returns

@var{MASK}.  If @var{DIM} is present, then @code{ALL(MASK, DIM)} returns

an array with the rank of @var{MASK} minus 1.  The shape is determined from

an array with the rank of @var{MASK} minus 1.  The shape is determined from

the shape of @var{MASK} where the @var{DIM} dimension is elided.

the shape of @var{MASK} where the @var{DIM} dimension is elided.

@table @asis

@table @asis

@item (A)

@item (A)

@code{ALL(MASK)} is true if all elements of @var{MASK} are true.

@code{ALL(MASK)} is true if all elements of @var{MASK} are true.

It also is true if @var{MASK} has zero size; otherwise, it is false.

It also is true if @var{MASK} has zero size; otherwise, it is false.

@item (B)

@item (B)

If the rank of @var{MASK} is one, then @code{ALL(MASK,DIM)} is equivalent

If the rank of @var{MASK} is one, then @code{ALL(MASK,DIM)} is equivalent

to @code{ALL(MASK)}.  If the rank is greater than one, then @code{ALL(MASK,DIM)}

to @code{ALL(MASK)}.  If the rank is greater than one, then @code{ALL(MASK,DIM)}

is determined by applying @code{ALL} to the array sections.

is determined by applying @code{ALL} to the array sections.

@end table

@end table

@item @emph{Example}:

@item @emph{Example}:

@smallexample

@smallexample

program test_all

program test_all

  logical l

  logical l

  l = all((/.true., .true., .true./))

  l = all((/.true., .true., .true./))

  print *, l

  print *, l

  call section

  call section

  contains

  contains

    subroutine section

    subroutine section

      integer a(2,3), b(2,3)

      integer a(2,3), b(2,3)

      a = 1

      a = 1

      b = 1

      b = 1

      b(2,2) = 2

      b(2,2) = 2

      print *, all(a .eq. b, 1)

      print *, all(a .eq. b, 1)

      print *, all(a .eq. b, 2)

      print *, all(a .eq. b, 2)

    end subroutine section

    end subroutine section

end program test_all

end program test_all