From cd249d8afa90b3fe4dced4a335ef431a5c9e5198 Mon Sep 17 00:00:00 2001 From: Lorenzo Figini Date: Wed, 28 Nov 2012 09:45:21 +0000 Subject: [PATCH] changed lines exceeding 72 char length --- src/gray.f | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/gray.f b/src/gray.f index 37c38a5..d2e3729 100644 --- a/src/gray.f +++ b/src/gray.f @@ -324,7 +324,8 @@ c print*,' ' if(iwarm.gt.0.and.taumn.lt.1d+30.and.taumn.gt.taucr) istop=1 psimin=psjki(1,1,i) - if(nrayr.gt.1) psimin=min(psimin,minval(psjki(2:nrayr,1:nrayth,i))) + if(nrayr.gt.1) + . psimin=min(psimin,minval(psjki(2:nrayr,1:nrayth,i))) if(psimin.gt.1.0d0.and.rrm11.gt.rcen.and.index_rt.gt.1) . istop=1 @@ -868,7 +869,7 @@ c versus psi, rhop, rhot 905 format('# EQUILIBRIUM file : ',a24) 906 format('# fact_B fact_T fact_n iscal : ',(3(1x,es12.5),i5)) 907 format('# PROFILES file : ',a24) -908 format('# alpha0 beta0 launching angles (deg) CYL : ',2(1x,es12.5)) +908 format('# alpha0 beta0 launch angles (deg) CYL : ',2(1x,es12.5)) 909 format('# LAUNCHER file : ',a24) 910 format('# sspl psdbnd nd ipec ipsinorm : ',2(1x,es12.5),3i5) 911 format('# fghz P0 IOX : ',2(1x,es12.5),i5)