Increased spacing between columns to avoid overlap

src/VTK/post.f90

@@ -640,48 +640,48 @@ write(iunit,'(a11,i10)')'POINT_DATA ', np
 write(iunit,'(a)')'VECTORS sigma1head+ float'
 do i=1,ov%nleaves
    if (do_it(i)) & 
-   write(iunit,'(3e11.4)') n1(1:3,i)*s(1,i)
+   write(iunit,'(3e15.4)') n1(1:3,i)*s(1,i)
 enddo
 write(iunit,'(a)')'VECTORS sigma1head- float'
 do i=1,ov%nleaves
    if (do_it(i)) & 
-   write(iunit,'(3e11.4)') -n1(1:3,i)*s(1,i)
+   write(iunit,'(3e15.4)') -n1(1:3,i)*s(1,i)
 enddo
 
 write(iunit,'(a)')'VECTORS sigma3tail+ float'
 do i=1,ov%nleaves
    if (do_it(i)) & 
-   write(iunit,'(3e11.4)') n2(1:3,i)*s(2,i)
+   write(iunit,'(3e15.4)') n2(1:3,i)*s(2,i)
 enddo
 
 write(iunit,'(a)')'VECTORS sigma3tail- float'
 do i=1,ov%nleaves
    if (do_it(i)) & 
-   write(iunit,'(3e11.4)') -n2(1:3,i)*s(2,i)
+   write(iunit,'(3e15.4)') -n2(1:3,i)*s(2,i)
 enddo
 
 write(iunit,'(a)')'VECTORS sigma2head+ float'
 do i=1,ov%nleaves
    if (do_it(i)) & 
-   write(iunit,'(3e11.4)') n3(1:3,i)*min(0.d0,s(3,i))
+   write(iunit,'(3e15.4)') n3(1:3,i)*min(0.d0,s(3,i))
 enddo
 
 write(iunit,'(a)')'VECTORS sigma2head- float'
 do i=1,ov%nleaves
    if (do_it(i)) & 
-   write(iunit,'(3e11.4)') -n3(1:3,i)*min(0.d0,s(3,i))
+   write(iunit,'(3e15.4)') -n3(1:3,i)*min(0.d0,s(3,i))
 enddo
 
 write(iunit,'(a)')'VECTORS sigma2tail+ float'
 do i=1,ov%nleaves
    if (do_it(i)) & 
-   write(iunit,'(3e11.4)') n3(1:3,i)*max(0.d0,s(3,i))
+   write(iunit,'(3e15.4)') n3(1:3,i)*max(0.d0,s(3,i))
 enddo
 
 write(iunit,'(a)')'VECTORS sigma2tail- float'
 do i=1,ov%nleaves
    if (do_it(i)) & 
-   write(iunit,'(3e11.4)') -n3(1:3,i)*max(0.d0,s(3,i))
+   write(iunit,'(3e15.4)') -n3(1:3,i)*max(0.d0,s(3,i))
 enddo
 
 close (iunit)
@@ -849,14 +849,14 @@ end if
 if(output_velo_vect==1) then 
    write(iunit,'(a)')'VECTORS velo float' 
    do i=1,nnn 
-      write(iunit,'(3e11.4)')ov%u(rtf(i)),ov%v(rtf(i)),ov%w(rtf(i)) 
+      write(iunit,'(3e15.4)')ov%u(rtf(i)),ov%v(rtf(i)),ov%w(rtf(i)) 
    enddo 
 endif 
 
 if(output_preiso_velo_vect==1) then 
    write(iunit,'(a)')'VECTORS preiso-velo float' 
    do i=1,nnn 
-      write(iunit,'(3e11.4)')ov%u(rtf(i)),ov%v(rtf(i)),ov%wpreiso(rtf(i)) 
+      write(iunit,'(3e15.4)')ov%u(rtf(i)),ov%v(rtf(i)),ov%wpreiso(rtf(i)) 
    enddo 
 endif
 
@@ -1167,7 +1167,7 @@ dip3=dip3*con
       write(30,'(a11,i10)')'POINT_DATA ',(2**levmax+1)*(2**levmax+1)*nz
       write(30,'(a)')'VECTORS Velocity float'
         do i=1,(2**levmax+1)*(2**levmax+1)*nz
-        write(30,'(3e12.4)') ui(i),vi(i),wi(i)
+        write(30,'(3e15.4)') ui(i),vi(i),wi(i)
         enddo
       write(30,'(a)')'SCALARS Strain float 1'
       write(30,'(a)')'LOOKUP_TABLE default'
@@ -1217,4 +1217,4 @@ endif
 
 write(*,*) '**************************************************************************'
 
-end
\ No newline at end of file
+end