anchor.diff:          include "common.h"
   #ifdef HAVE_SVLS        
           include "svLS.h"
  +
  +        TYPE(svLS_lhsType) svLS_lhs
  +        TYPE(svLS_lsType) svLS_ls
  +        TYPE(svLS_commuType) communicator
  +        TYPE(svLS_lsType) svLS_ls_S(4)
  +        TYPE(svLS_lhsType) svLS_lhs_S(4)
  +        TYPE(svLS_commuType) communicator_S(4)
  +        INTEGER svLS_nFaces, gnNo, nNo, faIn, facenNo
   #endif
           integer, allocatable :: gNodes(:)
           real*8, allocatable :: sV(:,:)
  
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
  