On Thu, 6 Mar 2003, Michael Metcalf wrote:
> If you want an optional mask, and you don't have too many FORALL statements,
> then you can always use a structure like:
>
> SUBROUTINE S(........, MASK,...)
> LOGICAL, OPTIONAL, DIMENSION(:) :: MASK
> :
> IF(PRESENT(MASK)) THEN
> FORALL(..., MASK) ....
> ELSE
> FORALL(...) ...
> END IF
That's exactly what I'm doing. When first writing down this I stumbled
across the points in question. My interest was mainly academic.
Regards,
Roland
+----------------------------------------------------------------------+
| Roland Schilling Home-Office: +49(89)32929-670 |
| Max-Planck-Institut für Gravitationsphysik Phone: +49(89)32905-265 |
| -- Albert-Einsten-Institut -- Fax: +49(89)32905-200 |
| D-85748 Garching E-mail: [log in to unmask] |
| Germany http://www.geo600.uni-hannover.de |
+----------------------------------------------------------------------+
|