istp/gray
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

changed lines exceeding 72 char length

Browse Source
This commit is contained in:
Lorenzo Figini 2012-11-28 09:45:21 +00:00
parent f224e65579
commit cd249d8afa
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/gray.f
View File

@ -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)