anchor.diff:    function findQuadNorm(this)
       class(typeQuad),intent(in)::this
       double precision findQuadNorm(3)
  -    call find3PNorm(Node(this%NodeInd(1))%Pos(:),Node(this%NodeInd(2))%Pos(:),&
  -    &               Node(this%NodeInd(3))%Pos(:),findQuadNorm)
  +    findQuadNorm(:)=find3PNorm(Node(this%NodeInd(1))%Pos(:),Node(this%NodeInd(2))%Pos(:),&
  +    &                          Node(this%NodeInd(3))%Pos(:))
     end function
     
     !-------------------------------------
  
positive.code:   function findTriNorm(this)
      class(typeTri),intent(in)::this
      double precision findTriNorm(3)
      call find3PNorm(Node(this%NodeInd(1))%Pos(:),Node(this%NodeInd(2))%Pos(:),&
      &               Node(this%NodeInd(3))%Pos(:),findTriNorm)
    end function
    
    !---------------------------------------
  
negative.code: !*****************************************
  module moduleGrid
    private
    
    interface
      function find3PNorm(P1,P2,P3)
        double precision,intent(in)::P1(3),P2(3),P3(3)
        double precision find3PNorm(3)
      end function
    end interface
    
    !----------
    ! typeNode
  