anchor.diff:                    IF (.NOT.BTEST(iBC(i),5)) sV(3,j) = 1D0
                  END IF
               END DO
  +            CALL svLS_LHS_CREATE(svLS_lhs, communicator, gnNo, nNo,
  +     2         nnz_tot, gNodes, colm, rowp, svLS_nFaces)
               CALL svLS_BC_CREATE(svLS_lhs, faIn, facenNo, 
        2         nsd, BC_TYPE_Dir, gNodes, sV)
               DEALLOCATE(gNodes)
  
positive.code:       endif
        return
        end subroutine
        subroutine seticomputevort
          include "common.h"
              icomputevort = 0
  
negative.code: 
           CALL svLS_COMMU_CREATE(communicator_S(isolsc), MPI_COMM_WORLD)
   
                faIn = 1
                facenNo = 0
                ib=5+isolsc
  