fix format of output

something wrong with the format, change from f8.4 to f9.3, also small bug fixed
2025-12-20 10:31:06 +08:00 · 2017-07-04 05:41:45 +08:00
parent 40f6ed622c
commit dd484c5b55
3 changed files with 5 additions and 5 deletions
--- a/src/CalSurfG.f90
+++ b/src/CalSurfG.f90
@@ -1349,8 +1349,8 @@ subroutine CalSurfG(nx,ny,nz,nparpi,vels,iw,rw,col,dsurf, &
        ! a little stupid, remember to change latter
        if (igrt(srcnum,knumi) == 1) then
        call gridder(velf0)
-        count11=count11+1
        endif
+        count11=count11+1
        CALL rpaths(x,z,fdm,rcxf(istep,srcnum,knumi),rczf(istep,srcnum,knumi),writepath)
        row(1:nparpi)=0.0
        do jj=1,nvz