My code has the following:
IF (INDEX .EQ. NTHREADS) THEN ! ALL LOADED; TRACE RAYS NOW
!$OMP PARALLEL SHARED( /MTRAYS/,/MTCOM/,/MTPTRACE/,/RAY/ ) IF (TEST) NUM_THREADS (ISFLAGS(173))
!$OMP DO SCHEDULE(STATIC,1)
DO I = 1,INDEX
CALL MTRAYTRACE(I)
ENDDO
!$OMP END DO
!$OMP END PARALLEL
GO TO 8801
ENDIF
It processess the call to MTRAYTRACE(I) and comes back just fine, but when it gets to !$OMP END DO the program hangs. What's wrong?



