代码如下
!$OMP DO
do i=1,ix
   do j=1,iy
      do k=1,iz
         call subroutine()
      enddo
   enddo
enddo

ix,iy,iz是输入文件中赋初值。如果ix 很大，当然没问题；当ix=1时，程序变成单线程的。
我想如何能做 让程序可以判断，当ix=1时，能够并行j=1,iy内层循环。