anchor.diff:           enddo
           enddo
          enddo
  +!$omp end parallel do
         else ! l.eq.1
  +!$omp  parallel do private(j1,j2,j3,j4,iax,ibx,ia,ib,id) shared(s,u)
  +!$omp& firstprivate(a,b,c,d,i,j,k,l,f,jd)
          do j2 = 1,b
           do j3 = 1,c
            do j4 = 1,d
  
positive.code:          enddo
          enddo
         enddo
        else ! l.eq.1
         do j2 = 1,b
          do j3 = 1,c
           do j4 = 1,d
  
negative.code:          enddo
          enddo
         enddo
  !$omp end parallel do
        else if (l.eq.2) then
  !$omp  parallel do private(j1,j2,j3,j4,iax,ibx,ia,ib,id) shared(s,u)
  !$omp& firstprivate(a,b,c,d,i,j,k,l,f,jd)
         do j1 = 1,a
          do j3 = 1,c
           do j4 = 1,d
  