anchor.diff:  !sequential equivalent statements for comparison 
          BB=BB+1
          scalar02=scalar02+1
  -       scalar12=scalar12+1
  -       scalar22=scalar22+1
  -       scalar32=scalar32+1
  +! laksono: increase by 2
  +       scalar12=scalar12+2
  +       scalar22=scalar22+2
  +!       scalar32=scalar32+2
   
   !      write (1,*) "ck:sum of AA is",SUM(AA)," sum of BB is ",sum(BB)
          if (SUM(AA)/=SUM(BB)) then
  
positive.code: !$OMP END CRITICAL
  
  ! test if PARALLEL is treated as a single unit of work
  !$OMP PARALLEL
          scalar3=scalar3+1
  !$OMP END PARALLEL
  
          WHERE ( CC .ne. 0 ) DD = 1.0/CC
  
  
negative.code: !$OMP END CRITICAL
  
  ! test if PARALLEL is treated as a single unit of work
  ! laksono: replace paralell with single directive
  !!$OMP MASTER
  !        scalar3=scalar3+1
  !!$OMP END MASTER
  
          WHERE ( CC .ne. 0 ) DD = 1.0/CC
  
  