6.3.2 C*$* beginblock <directive block> C*$* endblock

Use the C*$* beginblock and C*$* endblock directives to enclose a segment of source code, called a directive block, where you can declare KAP directives. Place directives immediately following the C*$* beginblock directive. Directives in a directive block remain active until the end of the block and override directives used outside the block.

Directive blocks allow you to use loop directives with Fortran arrays. In the following directive block, KAP first transforms the three arrays into Fortran DO loops. Next, KAP applies the C*$* minconcurrent ( 999999 ) directive to the loops. The code is as follows:

 C*$*  BEGINBLOCK
 C*$* MINCONCURRENT ( 999999 )
      ddx(2:I-1,1:J) = array(3:I,1:J)-array(1:I-2,1:J)
      ddx(1,1:J) = 2*(array(2,1:J)-array(  1,1:J))
      ddx(I,1:J) = 2*(array(I,1:J)-array(I-1,1:J))
 C*$*  ENDBLOCK

Do not nest directive blocks.


Previous Page | Next Page | Contents | Index |
Command-Line Qualifiers

Copyright © Digital Equipment Corporation. 1999. All Rights Reserved.