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

removed duplicate print in projxyzt

Browse Source
This commit is contained in:
Lorenzo Figini 2013-04-11 14:00:26 +00:00
parent 912e9e1ec3
commit 9f445e5cd1
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/gray.f
View File

@ -5718,8 +5718,8 @@ c
c c
end do end do
c c
if(.not.(iproj.eq.0.and.j.eq.1)) c if(.not.(iproj.eq.0.and.j.eq.1))
. write(nfile,111) istep,j,k,xti,yti,zti,rti,psinv11 c . write(nfile,111) istep,j,k,xti,yti,zti,rti,psinv11
if(iproj.eq.1) write(nfile,*) ' ' if(iproj.eq.1) write(nfile,*) ' '
end do end do
c c