Computational Chemistry -- fpppp #2d

Finish parallel do --
- Nowait if each thread can proceed

Sum privates into shared in parallel region with critical

Write out results after region

. . . <about 1000 lines of code> . . .

1001 CONTINUE

!$omp end do nowait

!$omp critical

VEE = VEE + VEE_LOCAL

IFMT = IFMT + IFMT_LOCAL

!$omp end critical

!$omp end parallel

DO 9987 I=1,NATOMS

9987 WRITE(IOUT,9986) (FXYZ(3*I-3+J),J=1,3)

RETURN

END

Previous slide Next slide Back to first slide View graphic version