From 22410a675dc235c67cc9d68af635a9b9443bcbe4 Mon Sep 17 00:00:00 2001
From: Douglas Guptill <douglas.guptill@dal.ca>
Date: Mon, 29 Jun 2009 17:01:59 +0000
Subject: [PATCH] split long lines
---
compute_divergence.f90 | 15 ++++++++++-----
1 file changed, 10 insertions(+), 5 deletions(-)
diff --git a/compute_divergence.f90 b/compute_divergence.f90
index 4fe9affe..af55c12b 100644
--- a/compute_divergence.f90
+++ b/compute_divergence.f90
@@ -62,11 +62,16 @@ nint=8
mpe=params%mpe
-allocate (divergence(osolve%nleaves),stat=err) ; if (err.ne.0) call stop_run ('Error alloc divergence in compute_divergence$')
-allocate (divergencetemp(osolve%nleaves),stat=err) ; if (err.ne.0) call stop_run ('Error alloc divergencetemp in compute_divergence$')
-allocate (x(mpe),y(mpe),z(mpe),stat=err) ; if (err.ne.0) call stop_run ('Error alloc x,y,z in compute_divergence$')
-allocate (vx(mpe),vy(mpe),vz(mpe),stat=err) ; if (err.ne.0) call stop_run ('Error alloc vx,vy,vz in compute_divergence$')
-allocate (dhdx(mpe),dhdy(mpe),dhdz(mpe),stat=err) ; if (err.ne.0) call stop_run ('Error alloc dhdx,dhdy,dhdz in compute_divergence$')
+allocate (divergence(osolve%nleaves),stat=err)
+if (err.ne.0) call stop_run ('Error alloc divergence in compute_divergence$')
+allocate (divergencetemp(osolve%nleaves),stat=err)
+if (err.ne.0) call stop_run ('Error alloc divergencetemp in compute_divergence$')
+allocate (x(mpe),y(mpe),z(mpe),stat=err)
+if (err.ne.0) call stop_run ('Error alloc x,y,z in compute_divergence$')
+allocate (vx(mpe),vy(mpe),vz(mpe),stat=err)
+if (err.ne.0) call stop_run ('Error alloc vx,vy,vz in compute_divergence$')
+allocate (dhdx(mpe),dhdy(mpe),dhdz(mpe),stat=err)
+if (err.ne.0) call stop_run ('Error alloc dhdx,dhdy,dhdz in compute_divergence$')
divergence=0.d0
--
GitLab