Added read of cloud ematnump

src/VTK/post.f90

@@ -25,7 +25,7 @@ MODULE definitions
    type cloud
       double precision,dimension(:),pointer :: x,y,z,x0,y0,z0,strain,lsf0,temp
       double precision,dimension(:),pointer :: press,e2dp
-      integer,dimension(:),pointer::tag,matnum
+      integer,dimension(:),pointer::tag,matnum,ematnump
    end type cloud
 
 END MODULE definitions
@@ -344,7 +344,7 @@ allocate(ov%icon(8,ov%nleaves))
 allocate(ov%octree(ov%noctree))
 allocate(cl%x(npcl),cl%y(npcl),cl%z(npcl),cl%x0(npcl),cl%y0(npcl),cl%z0(npcl))
 allocate(cl%strain(npcl),cl%lsf0(npcl),cl%temp(npcl),cl%press(npcl))
-allocate(cl%e2dp(npcl),cl%tag(npcl),cl%matnum(npcl))
+allocate(cl%e2dp(npcl),cl%tag(npcl),cl%matnum(npcl),cl%ematnump(npcl))
 
 !========================
 !=====[nodal values]=====
@@ -478,19 +478,20 @@ end do
 !            dumpi,     &
 !            i=1,npcl)
 
-read (7) (cl%x(i),      &
-          cl%y(i),      &
-          cl%z(i),      &
-          cl%x0(i),     &
-          cl%y0(i),     &
-          cl%z0(i),     &
-          cl%strain(i), &
-          cl%lsf0(i),   &
-          cl%temp(i),   &
-          cl%press(i),  &
-          cl%e2dp(i),   &
-          cl%tag(i),    &
-          cl%matnum(i), &
+read (7) (cl%x(i),       &
+          cl%y(i),       &
+          cl%z(i),       &
+          cl%x0(i),      &
+          cl%y0(i),      &
+          cl%z0(i),      &
+          cl%strain(i),  &
+          cl%lsf0(i),    &
+          cl%temp(i),    &
+          cl%press(i),   &
+          cl%e2dp(i),    &
+          cl%tag(i),     &
+          cl%matnum(i),  &
+          cl%ematnump(i),&
           i=1,npcl)