NOFUSION

!DIR$ NOFUSION

The NOFUSION directive lets you fine tune your program on a loop-by-loop basis.

This directive should be placed immediately before the DO statement of the loop that should not be fused.

例

Consider the following example that demonstrates use of the NOFUSION directive:

     subroutine sub (b,a,n)

     real a(n), b(n) 

     do i=1,n

       a(i) = a(i) + b(i)

     enddo

!DIR$ NOFUSION

     do i=1,n

       a(i) = a(i) + 1 

     enddo

     end

The following shows the same example, but it uses Standard Fortran array assignments, which allow implicit arrays:

     subroutine sub (b,a,n)

     real a(n), b(n) 

     a = a + b

!DIR$ NOFUSION

     a = a + 1

     end