next up previous
Next: CSHIFT(array,shift,[dim])/EOSHIFT(array,shift,[bound],[dim]) Up: 函数/FORTRAN表現早見表 Previous: 函数/FORTRAN表現早見表

ANY/ALL([dim],mask)

anyは、論理型配列の要素のうち、1つでも真なら真。
allは、論理型配列の要素のうち、全てが真のときのみ真。


\begin{lstlisting}[caption=any]
logical(4) :: T = .true.; F = .false.
print *,...
...mask=(/ T, F /)) !! T
print *, any(dim=1,mask=(/ F, F /)) !! F
\end{lstlisting}


\begin{lstlisting}[caption=all]
logical(4) :: T = .true.; F = .false.
print *,...
...mask=(/ T, F /)) !! F
print *, any(dim=1,mask=(/ F, F /)) !! F
\end{lstlisting}

anyに等価なFortran77表記。
\begin{lstlisting}[caption=any]
logical(4) :: T = .true.; F = .false., any, l(1:n)
any = T
do i = 1, n
any = any .or. l(i)
end do
\end{lstlisting}

allに等価なFortran77表記。
\begin{lstlisting}[caption=all]
logical(4) :: T = .true.; F = .false., all, l(1:n)
all = T
do i = 1, n
all = all .and. l(i)
end do
\end{lstlisting}



Masaru Inatsu
平成18年3月17日