Skip to content

Adjust more float formats (previously: version number bump as well) #15

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
qianglbl merged 1 commit into from
Mar 13, 2025
Merged

Adjust more float formats (previously: version number bump as well) #15

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
32 changes: 16 additions & 16 deletions src/Contrl/Output.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -362,9 +362,9 @@ subroutine diagnostic1_Output(z,this,nchrg,nptlist)
call flush(32)
endif

99 format(8(1x,g0))
100 format(7(1x,g0))
101 format(1x,g0,3I10)
99 format(8(g0,1x))
100 format(7(g0,1x))
101 format(g0,1x,3I10)

t_diag = t_diag + elapsedtime_Timer(t0)

Expand Down Expand Up @@ -1082,10 +1082,10 @@ subroutine diagnostic2_Output(this,z,nchrg,nptlist)
! glmax(5),glmax(6)
endif

99 format(6(1x,g0))
100 format(10(1x,g0))
101 format(1x,g0,3I13)
102 format(7(1x,g0))
99 format(6(g0,1x))
100 format(10(g0,1x))
101 format(g0,1x,3I13)
102 format(7(g0,1x))

t_diag = t_diag + elapsedtime_Timer(t0)

Expand Down Expand Up @@ -1360,9 +1360,9 @@ subroutine diagnosticT_Output(z,this)
call flush(40)
endif

99 format(6(1x,g0))
100 format(7(1x,g0))
101 format(1x,g0,3I10)
99 format(6(g0,1x))
100 format(7(g0,1x))
101 format(g0,1x,3I10)

t_diag = t_diag + elapsedtime_Timer(t0)

Expand Down Expand Up @@ -1724,7 +1724,7 @@ subroutine phaseout_Output(nfile,this)
write(9)ptout(1:9,1:this%Nptlocal)

close(9)
100 format(9(1x,e14.7))
100 format(9(g0,1x))

deallocate(ptout)

Expand Down Expand Up @@ -2014,7 +2014,7 @@ subroutine dens3d_Output(nstep,nfile,this,totnptcls,xmni,xmxi,ymni,&
call MPI_WAIT(req,status,ierr)
endif

100 format(4(1x,e14.7))
100 format(4(g0,1x))

deallocate(nptlist)

Expand Down Expand Up @@ -2550,7 +2550,7 @@ subroutine dens2d_Output(nstep,nfile,this,totnptcls,xmnin,xmxin,&

deallocate(nptlist)

100 format(3(1x,e14.7))
100 format(3(g0,1x))

end subroutine dens2d_Output

Expand Down Expand Up @@ -2770,7 +2770,7 @@ subroutine accdens1d_Output(nstep,nfile,this,nptot,rmxi,xmni,xmxi,&
call MPI_WAIT(req,status,ierr)
endif

100 format(2(1x,e14.7))
100 format(2(g0,1x))

deallocate(nptlist)

Expand Down Expand Up @@ -2963,7 +2963,7 @@ subroutine dens1d_Output(nstep,nfile,this,nptot,rmxi,xmni,xmxi,&
call MPI_WAIT(req,status,ierr)
endif

100 format(2(1x,e14.7))
100 format(2(g0,1x))

deallocate(nptlist)

Expand Down Expand Up @@ -3210,7 +3210,7 @@ subroutine sliceprocdep_Output(pts,innp,npt,nslice,qchg,pmass,nfile,&

call flush(nfile)

777 format(11(1x,e15.7))
777 format(11(g0,1x))

end subroutine sliceprocdep_Output

Expand Down
Loading