From e30f7409cd5f217960d13b1e0cfc17fa0ab6def3 Mon Sep 17 00:00:00 2001
From: Douglas Guptill <douglas.guptill@dal.ca>
Date: Mon, 29 Jun 2009 17:38:47 +0000
Subject: [PATCH] split long lines
---
improve_osolve.f90 | 15 ++++++++++-----
1 file changed, 10 insertions(+), 5 deletions(-)
diff --git a/improve_osolve.f90 b/improve_osolve.f90
index 0cf227c8..ca598e68 100644
--- a/improve_osolve.f90
+++ b/improve_osolve.f90
@@ -107,11 +107,16 @@ shift=' '
call show_time (total,step,inc,1,'compute ref. criterion on ov$')
-allocate (x(mpe),y(mpe),z(mpe),stat=threadinfo%err) ; call heap (threadinfo,'x/y/z','improve_osolve',size(x)+size(y)+size(z),'dp',+1)
-allocate (vx(mpe),vy(mpe),vz(mpe),stat=threadinfo%err) ; call heap (threadinfo,'vx/y/z','improve_osolve',size(vx)+size(vy)+size(vz),'dp',+1)
-allocate (dhdx(mpe),dhdy(mpe),dhdz(mpe),stat=threadinfo%err) ; call heap (threadinfo,'dhdx/y/z','improve_osolve',size(dhdx)+size(dhdy)+size(dhdz),'dp',+1)
-allocate (crit(ov%nleaves),stat=threadinfo%err) ; call heap (threadinfo,'crit','improve_osolve',size(crit),'dp',+1)
-allocate (crittemp(ov%nleaves),stat=threadinfo%err) ; call heap (threadinfo,'crittemp','improve_osolve',size(crittemp),'dp',+1)
+allocate (x(mpe),y(mpe),z(mpe),stat=threadinfo%err)
+call heap (threadinfo,'x/y/z','improve_osolve',size(x)+size(y)+size(z),'dp',+1)
+allocate (vx(mpe),vy(mpe),vz(mpe),stat=threadinfo%err)
+call heap (threadinfo,'vx/y/z','improve_osolve',size(vx)+size(vy)+size(vz),'dp',+1)
+allocate (dhdx(mpe),dhdy(mpe),dhdz(mpe),stat=threadinfo%err)
+call heap (threadinfo,'dhdx/y/z','improve_osolve',size(dhdx)+size(dhdy)+size(dhdz),'dp',+1)
+allocate (crit(ov%nleaves),stat=threadinfo%err)
+call heap (threadinfo,'crit','improve_osolve',size(crit),'dp',+1)
+allocate (crittemp(ov%nleaves),stat=threadinfo%err)
+call heap (threadinfo,'crittemp','improve_osolve',size(crittemp),'dp',+1)
crit=0.d0
crittemp=0.d0
--
GitLab