Rely on CRITICAL inside G2L_INS implementation

base/tools/psb_cspins.F90

@@ -144,14 +144,8 @@ subroutine psb_cspins(nz,ia,ja,val,a,desc_a,info,rebuild,local)
       !$omp parallel private(ila,jla,nrow,ncol)
 #endif
       call desc_a%indxmap%g2l(ia(1:nz),ila(1:nz),info,owned=.true.)
-#if defined(OPENMP)
-      !$omp critical(cspins)
-#endif
       if (info == 0) call desc_a%indxmap%g2l_ins(ja(1:nz),jla(1:nz),info,&
            & mask=(ila(1:nz)>0))
-#if defined(OPENMP)
-      !$omp end critical(cspins)
-#endif
       
       if (info /= psb_success_) then
         call psb_errpush(psb_err_from_subroutine_ai_,name,&

base/tools/psb_dspins.F90

@@ -144,14 +144,8 @@ subroutine psb_dspins(nz,ia,ja,val,a,desc_a,info,rebuild,local)
       !$omp parallel private(ila,jla,nrow,ncol)
 #endif
       call desc_a%indxmap%g2l(ia(1:nz),ila(1:nz),info,owned=.true.)
-#if defined(OPENMP)
-      !$omp critical(dspins)
-#endif
       if (info == 0) call desc_a%indxmap%g2l_ins(ja(1:nz),jla(1:nz),info,&
            & mask=(ila(1:nz)>0))
-#if defined(OPENMP)
-      !$omp end critical(dspins)
-#endif
       
       if (info /= psb_success_) then
         call psb_errpush(psb_err_from_subroutine_ai_,name,&

base/tools/psb_sspins.F90

@@ -144,14 +144,8 @@ subroutine psb_sspins(nz,ia,ja,val,a,desc_a,info,rebuild,local)
       !$omp parallel private(ila,jla,nrow,ncol)
 #endif
       call desc_a%indxmap%g2l(ia(1:nz),ila(1:nz),info,owned=.true.)
-#if defined(OPENMP)
-      !$omp critical(sspins)
-#endif
       if (info == 0) call desc_a%indxmap%g2l_ins(ja(1:nz),jla(1:nz),info,&
            & mask=(ila(1:nz)>0))
-#if defined(OPENMP)
-      !$omp end critical(sspins)
-#endif
       
       if (info /= psb_success_) then
         call psb_errpush(psb_err_from_subroutine_ai_,name,&

base/tools/psb_zspins.F90

@@ -144,14 +144,8 @@ subroutine psb_zspins(nz,ia,ja,val,a,desc_a,info,rebuild,local)
       !$omp parallel private(ila,jla,nrow,ncol)
 #endif
       call desc_a%indxmap%g2l(ia(1:nz),ila(1:nz),info,owned=.true.)
-#if defined(OPENMP)
-      !$omp critical(zspins)
-#endif
       if (info == 0) call desc_a%indxmap%g2l_ins(ja(1:nz),jla(1:nz),info,&
            & mask=(ila(1:nz)>0))
-#if defined(OPENMP)
-      !$omp end critical(zspins)
-#endif
       
       if (info /= psb_success_) then
         call psb_errpush(psb_err_from_subroutine_ai_,name,&

test/omp/psb_tomp.F90

@@ -731,7 +731,7 @@ program psb_d_pde3d
   if(psb_errstatus_fatal()) goto 9999
   name='pde3d90'
   call psb_set_errverbosity(itwo)
-  call psb_cd_set_large_threshold(2000_psb_ipk_)
+  call psb_cd_set_large_threshold(125000_psb_ipk_)
   !
   ! Hello world
   !