SetNormal

This subroutine sets the normal vector.

  MODULE PURE SUBROUTINE setNormal(obj)
    CLASS(ElemshapeData_), INTENT(INOUT) :: obj
  END SUBROUTINE setNormal