mirror of git://gcc.gnu.org/git/gcc.git
Steven G. Kargl
Steven G. Kargl
parent
7a17ef5e63
commit
6b32f9fc29
|
|
@ -1,3 +1,7 @@
|
||||||
|
2005-03-27 Steven G. Kargl <kargls@comcast.net>
|
||||||
|
|
||||||
|
* intrinsic.texi: Document AIMAG, AINT, ALL
|
||||||
|
|
||||||
2005-03-26 Steven G. Kargl <kargls@comcast.net>
|
2005-03-26 Steven G. Kargl <kargls@comcast.net>
|
||||||
|
|
||||||
* arith.c (check_result): Fix illogical logic.
|
* arith.c (check_result): Fix illogical logic.
|
||||||
|
|
|
||||||
|
|
@ -39,6 +39,9 @@ and editing. All contributions and corrections are strongly encouraged.
|
||||||
* @code{ACOS}: ACOS, Arccosine function
|
* @code{ACOS}: ACOS, Arccosine 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{AINT}: AINT, Truncate to a whole number
|
||||||
|
* @code{ALL}: ALL, Determine all values are true
|
||||||
@end menu
|
@end menu
|
||||||
|
|
||||||
@node Introduction
|
@node Introduction
|
||||||
|
|
@ -339,15 +342,174 @@ end program test_adjustr
|
||||||
@end table
|
@end table
|
||||||
|
|
||||||
|
|
||||||
|
@node AIMAG
|
||||||
|
@section @code{AIMAG} --- Imaginary part of complex number
|
||||||
|
@findex @code{AIMAG} intrinsic
|
||||||
|
@findex @code{DIMAG} intrinsic
|
||||||
|
@cindex Imaginary part
|
||||||
|
|
||||||
|
@table @asis
|
||||||
|
@item @emph{Description}:
|
||||||
|
@code{AIMAG(Z)} yields the imaginary part of complex argument @code{Z}.
|
||||||
|
|
||||||
|
@item @emph{Option}:
|
||||||
|
f95, gnu
|
||||||
|
|
||||||
|
@item @emph{Type}:
|
||||||
|
elemental function
|
||||||
|
|
||||||
|
@item @emph{Syntax}:
|
||||||
|
@code{X = AIMAG(Z)}
|
||||||
|
|
||||||
|
@item @emph{Arguments}:
|
||||||
|
@multitable @columnfractions .15 .80
|
||||||
|
@item @var{Z} @tab The type of the argument shall be @code{COMPLEX(*)}.
|
||||||
|
@end multitable
|
||||||
|
|
||||||
|
@item @emph{Return value}:
|
||||||
|
The return value is of type real with the
|
||||||
|
kind type parameter of the argument.
|
||||||
|
|
||||||
|
@item @emph{Example}:
|
||||||
|
@smallexample
|
||||||
|
program test_aimag
|
||||||
|
complex(4) z4
|
||||||
|
complex(8) z8
|
||||||
|
z4 = cmplx(1.e0_4, 0.e0_4)
|
||||||
|
z8 = cmplx(0.e0_8, 1.e0_8)
|
||||||
|
print *, aimag(z4), dimag(z8)
|
||||||
|
end program test_aimag
|
||||||
|
@end smallexample
|
||||||
|
|
||||||
|
@item @emph{Specific names}:
|
||||||
|
@multitable @columnfractions .24 .24 .24 .24
|
||||||
|
@item Name @tab Argument @tab Return type @tab Option
|
||||||
|
@item @code{DIMAG(Z)} @tab @code{COMPLEX(8) Z} @tab @code{REAL(8)} @tab f95, gnu
|
||||||
|
@end multitable
|
||||||
|
@end table
|
||||||
|
|
||||||
|
|
||||||
|
@node AINT
|
||||||
|
@section @code{AINT} --- Imaginary part of complex number
|
||||||
|
@findex @code{AINT} intrinsic
|
||||||
|
@findex @code{DINT} intrinsic
|
||||||
|
@cindex whole number
|
||||||
|
|
||||||
|
@table @asis
|
||||||
|
@item @emph{Description}:
|
||||||
|
@code{AINT(X [, KIND])} truncates its argument to a whole number.
|
||||||
|
|
||||||
|
@item @emph{Option}:
|
||||||
|
f95, gnu
|
||||||
|
|
||||||
|
@item @emph{Type}:
|
||||||
|
elemental function
|
||||||
|
|
||||||
|
@item @emph{Syntax}:
|
||||||
|
@code{X = AINT(X)} @*
|
||||||
|
@code{X = AINT(X, KIND)}
|
||||||
|
|
||||||
|
@item @emph{Arguments}:
|
||||||
|
@multitable @columnfractions .15 .80
|
||||||
|
@item @var{X} @tab The type of the argument shall be @code{REAL(*)}.
|
||||||
|
@item @var{KIND} @tab (Optional) @var{KIND} shall be a scalar integer
|
||||||
|
initialization expression.
|
||||||
|
@end multitable
|
||||||
|
|
||||||
|
@item @emph{Return value}:
|
||||||
|
The return value is of type real with the kind type parameter of the
|
||||||
|
argument if the optional @var{KIND} is absence; otherwise, the kind
|
||||||
|
type parameter will be given by @var{KIND}. If the magnitude of
|
||||||
|
@var{X} is less than one, then @code{AINT(X)} returns zero. If the
|
||||||
|
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
|
||||||
|
as the sign of @var{X}.
|
||||||
|
|
||||||
|
@item @emph{Example}:
|
||||||
|
@smallexample
|
||||||
|
program test_aint
|
||||||
|
real(4) x4
|
||||||
|
real(8) x8
|
||||||
|
x4 = 1.234E0_4
|
||||||
|
x8 = 4.321_8
|
||||||
|
print *, aint(x4), dint(x8)
|
||||||
|
x8 = aint(x4,8)
|
||||||
|
end program test_aint
|
||||||
|
@end smallexample
|
||||||
|
|
||||||
|
@item @emph{Specific names}:
|
||||||
|
@multitable @columnfractions .24 .24 .24 .24
|
||||||
|
@item Name @tab Argument @tab Return type @tab Option
|
||||||
|
@item @code{DINT(X)} @tab @code{REAL(8) X} @tab @code{REAL(8)} @tab f95, gnu
|
||||||
|
@end multitable
|
||||||
|
@end table
|
||||||
|
|
||||||
|
|
||||||
|
@node ALL
|
||||||
|
@section @code{ALL} --- All values in @var{MASK} along @var{DIM} are true
|
||||||
|
@findex @code{ALL} intrinsic
|
||||||
|
@cindex true values
|
||||||
|
|
||||||
|
@table @asis
|
||||||
|
@item @emph{Description}:
|
||||||
|
@code{ALL(MASK [, DIM])} determines if all the values are true in @var{MASK}
|
||||||
|
in the array along dimension @var{DIM}.
|
||||||
|
|
||||||
|
@item @emph{Option}:
|
||||||
|
f95, gnu
|
||||||
|
|
||||||
|
@item @emph{Type}:
|
||||||
|
transformational function
|
||||||
|
|
||||||
|
@item @emph{Syntax}:
|
||||||
|
@code{L = ALL(MASK)} @*
|
||||||
|
@code{L = ALL(MASK, DIM)}
|
||||||
|
|
||||||
|
@item @emph{Arguments}:
|
||||||
|
@multitable @columnfractions .15 .80
|
||||||
|
@item @var{MASK} @tab The type of the argument shall be @code{LOGICAL(*)} and
|
||||||
|
it shall not be scalar.
|
||||||
|
@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}.
|
||||||
|
@end multitable
|
||||||
|
|
||||||
|
@item @emph{Return value}:
|
||||||
|
@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
|
||||||
|
@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
|
||||||
|
the shape of @var{MASK} where the @var{DIM} dimension is elided.
|
||||||
|
|
||||||
|
@table @asis
|
||||||
|
@item (A)
|
||||||
|
@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.
|
||||||
|
@item (B)
|
||||||
|
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)}
|
||||||
|
is determined by applying @code{ALL} to the array sections.
|
||||||
|
@end table
|
||||||
|
|
||||||
|
@item @emph{Example}:
|
||||||
|
@smallexample
|
||||||
|
program test_all
|
||||||
|
logical l
|
||||||
|
l = all((/.true., .true., .true./))
|
||||||
|
print *, l
|
||||||
|
call section
|
||||||
|
contains
|
||||||
|
subroutine section
|
||||||
|
integer a(2,3), b(2,3)
|
||||||
|
a = 1
|
||||||
|
b = 1
|
||||||
|
b(2,2) = 2
|
||||||
|
print *, all(a .eq. b, 1)
|
||||||
|
print *, all(a .eq. b, 2)
|
||||||
|
end subroutine section
|
||||||
|
end program test_all
|
||||||
|
@end smallexample
|
||||||
|
@end table
|
||||||
|
|
||||||
@comment gen aimag
|
|
||||||
@comment dimag
|
|
||||||
@comment
|
|
||||||
@comment gen aint
|
|
||||||
@comment dint
|
|
||||||
@comment
|
|
||||||
@comment gen all
|
|
||||||
@comment
|
|
||||||
@comment gen allocated
|
@comment gen allocated
|
||||||
@comment
|
@comment
|
||||||
@comment gen anint
|
@comment gen anint
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue