From 00bbd10af45fde7e6ded602ca90e554d7dc08c68 Mon Sep 17 00:00:00 2001
From: Dave Whipp <dwhipp@dal.ca>
Date: Fri, 29 Jan 2010 18:06:34 +0000
Subject: [PATCH] Increased spacing between columns to avoid overlap
---
src/VTK/post.f90 | 24 ++++++++++++------------
1 file changed, 12 insertions(+), 12 deletions(-)
diff --git a/src/VTK/post.f90 b/src/VTK/post.f90
index ba05b00e..54f28902 100644
--- a/src/VTK/post.f90
+++ b/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
--
GitLab