Forall Statement

FORALL statement is in Fortran 95, syntax:

 
FORALL(   forall-triplet-list   [,   scalar-mask   ])&

				    assignment-stmt    

• expressive and concise parallel assignment,
• can be masked (cf. WHERE statement),
• can invoke PURE functions.

For example,

  
    FORALL (i=1:n,j=1:m,A(i,j).NE.0) &
           A(i,j) = 1/A(i,j)

The stated assignment is performed in parallel for all specified values of i and j for which the mask expression is .TRUE..

For more information, click here

Now try this question