Extrinsic instead of INDEPENDENT

The INDEPENDENT directive is currently not implemented by most compilers. Assuming the loop implies no communication an EXTRINSIC can be used to achieve the same functionality:

 !HPF$ DISTRIBUTE A(*,CYCLIC)
....
 !HPF$ INDEPENDENT, NEW(i)
 DO j = 1, n
  DO i = 1, m
   ! ... stuff missing
   A(i,j) =
   ! ... stuff missing
  END DO
 END DO
....

the loop can be replaced by a call to the EXTRINSIC Ext_Loop:

....
 CALL Ext_Loop(A,...)
....

The EXTRINSIC contains the loop with n and m modified.

For more information, click here

Now try this question