anchor.diff:      module procedure::itplNode2BlockScal
     end interface
     public itplNode2Block
  +  
  +  !> interpolate from node to facet
  +  interface itplNode2Facet
  +    module procedure::itplNode2FacetVect
  +    module procedure::itplNode2FacetScal
  +  end interface
  +  public itplNode2Facet
     
     !> interpolate from node to edge
     interface itplNode2Edge
  
positive.code:     itplNode2BlockScal(:)=vrst(1,:)
    end function
    
    !> interpolate vector v within grid from node to edge
    function itplNode2EdgeVect(v,grid)
      use moduleGrid
  
negative.code:     module procedure::itplBlock2NodeScal
    end interface
    public itplBlock2Node
    
    !> interpolate from block to facet
    interface itplBlock2Facet
      module procedure::itplBlock2FacetVect
      module procedure::itplBlock2FacetScal
    end interface
    public itplBlock2Facet
    
    !> interpolate from block to interface
    interface itplBlock2Intf
  