From 8e0556fe3e8cdd0fdb685b88c017e65ec32592c0 Mon Sep 17 00:00:00 2001
From: Martin Diehl <m.diehl@mpie.de>
Date: Fri, 1 Feb 2019 12:43:14 +0100
Subject: [PATCH] [skip ci] nicer reporting

---
 src/element.f90   | 28 ++++++++++------------------
 src/mesh_base.f90 |  7 ++++++-
 2 files changed, 16 insertions(+), 19 deletions(-)

diff --git a/src/element.f90 b/src/element.f90
index 4c0f1e810..473d9c73c 100644
--- a/src/element.f90
+++ b/src/element.f90
@@ -904,26 +904,18 @@ contains
    
    self%nIPneighbors = size(self%IPneighbor,1)
    
-   write(6,*) 'tElement_init'
-   
-   write(6,*)'elemType                 ',self%elemType
-   write(6,*)'geomType                 ',self%geomType
-   write(6,*)'cellType                 ',self%cellType
-   write(6,*)'Nnodes                   ',self%Nnodes
-   write(6,*)'Ncellnodes               ',self%Ncellnodes
-   write(6,*)'NcellnodesPerCell        ',self%NcellnodesPerCell
-   write(6,*)'nIPs                     ',self%nIPs
-   write(6,*)'nIPneighbors             ',self%nIPneighbors
-   write(6,*)'maxNnodeAtIP             ',self%maxNnodeAtIP
-   write(6,*)'Cell                     ',self%Cell
-   write(6,*)'NnodeAtIP                ',self%NnodeAtIP
-   write(6,*)'IPneighbor               ',self%IPneighbor
-   write(6,*)'cellFace                 ',self%cellFace
-   write(6,*)'cellNodeParentNodeWeights',self%cellNodeParentNodeWeights
+   write(6,'(/,a)')   ' <<<+-  element_init  -+>>>'
    
+   write(6,*)' element type        ',self%elemType
+   write(6,*)'   geom type         ',self%geomType
+   write(6,*)'   cell type         ',self%cellType
+   write(6,*)'   # node            ',self%Nnodes
+   write(6,*)'   # IP              ',self%nIPs
+   write(6,*)'   # cellnode        ',self%Ncellnodes
+   write(6,*)'   # cellnode/cell   ',self%NcellnodesPerCell
+   write(6,*)'   # IP neighbor     ',self%nIPneighbors
+   write(6,*)'   max # node at IP  ',self%maxNnodeAtIP
    
  end subroutine tElement_init
 
-
-
 end module element
diff --git a/src/mesh_base.f90 b/src/mesh_base.f90
index f9a076f03..e0ca78c03 100644
--- a/src/mesh_base.f90
+++ b/src/mesh_base.f90
@@ -57,10 +57,15 @@ subroutine tMesh_base_init(self,meshType,elemType,nodes)
  integer(pInt), intent(in) :: elemType
  real(pReal), dimension(:,:), intent(in) :: nodes
  
+ write(6,'(/,a)')   ' <<<+-  mesh_base_init  -+>>>'
+ 
+ write(6,*)' mesh type ',meshType
+ write(6,*)' # node    ',size(nodes,2)
+
  self%type = meshType
  call self%elem%init(elemType)
  self%node0 = nodes
- 
+
 end subroutine tMesh_base_init
 
 end module mesh_base