Corrected sink read in moddump_sphNG2phantom_disc.f90

alisonkyoung1 · Feb 21, 2024 · 1313236 · 1313236
1 parent 4f90475
commit 1313236
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/utils/moddump_sphNG2phantom_disc.f90 b/src/utils/moddump_sphNG2phantom_disc.f90
@@ -82,9 +82,9 @@ subroutine modify_dump(npart,npartoftype,massoftype,xyzh,vxyzu)
     nptmass = nptmass + npt
     do i=1,npt
        read (iunit,*) junk
-       read (iunit,'(10E15.6)') (xyzmh_ptmass(j,nptmass),j=1,10)
+       read (iunit,'(10E15.6)') (xyzmh_ptmass(j,i),j=1,10)
        read (iunit,*) junk
-       read (iunit,'(3E15.6)') (vxyz_ptmass(j,nptmass),j=1,3)
+       read (iunit,'(3E15.6)') (vxyz_ptmass(j,i),j=1,3)
     enddo
     close(iunit)
  endif