diff options
author | allen <allen@c78560ca-4b45-4335-b268-5f3340f3cb52> | 1999-04-04 00:12:10 +0000 |
---|---|---|
committer | allen <allen@c78560ca-4b45-4335-b268-5f3340f3cb52> | 1999-04-04 00:12:10 +0000 |
commit | 744d1329a229f4ea12a86acf36148dffe582a9ef (patch) | |
tree | 514bb13e4ebff7ac3c5b7b4a9de65e81ddf13539 /src | |
parent | 1d0928ad88d0801ebd254e11b66ef04e4b503ff6 (diff) |
Added formatting to the output statements so that it looks nice
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/CartGrid3D/trunk@22 c78560ca-4b45-4335-b268-5f3340f3cb52
Diffstat (limited to 'src')
-rw-r--r-- | src/CartGrid3D.F | 21 |
1 files changed, 12 insertions, 9 deletions
diff --git a/src/CartGrid3D.F b/src/CartGrid3D.F index 70395eb..1807265 100644 --- a/src/CartGrid3D.F +++ b/src/CartGrid3D.F @@ -224,19 +224,22 @@ c ----------------------- write(*,*) write(*,*) " CartGrid3D" write(*,*) " ----------" - write(*,*) " Dx, Dy, Dz on coarse grid = ", - & coarse_dx,coarse_dy,coarse_dz - write(*,*) " Dx, Dy, Dz on this grid = ",delta_space(1), - & delta_space(2),delta_space(3) + write(*,100) coarse_dx,coarse_dy,coarse_dz + 100 format(2X,"Dx,Dy,Dz on coarse grid ",f6.3,f6.3,f6.3) + write(*,101) delta_space(1),delta_space(2),delta_space(3) + 101 format(2X,"Dx,Dy,Dz on this grid ",f6.3,f6.3,f6.3) write(*,*) " Convergence level = ",convlevel write(*,*) " Grid level = ",levfac - write(*,*) " Minimum Global Coords = ",x0,y0,z0 - write(*,*) " Maximum Global Coords = ",x0+this_dx*(global_sh(1)-1), + write(*,102) x0,y0,z0 + 102 format(2X,"Minimum global coords ",f6.3,f6.3,f6.3) + write(*,103) x0+this_dx*(global_sh(1)-1), & y0+this_dy*(global_sh(2)-1),z0+this_dz*(global_sh(3)-1) - write(*,*) " Minimum Local Coords = ",x(1,1,1), - & y(1,1,1),z(1,1,1) - write(*,*) " Maximum Local Coords = ",x(sh(1),sh(2),sh(3)), + 103 format(2X,"Maximum global coords ",f6.3,f6.3,f6.3) + write(*,104) x(1,1,1),y(1,1,1),z(1,1,1) + 104 format(2X,"Minimum local coords ",f6.3,f6.3,f6.3) + write(*,105) x(sh(1),sh(2),sh(3)), & y(sh(1),sh(2),sh(3)),z(sh(1),sh(2),sh(3)) + 105 format(2X,"Maximum local coords ",f6.3,f6.3,f6.3) #endif end subroutine CartGrid3D |