only input xyzmh_ptmass_in of size 1:nstar

danieljprice · Dec 16, 2024 · e0c95b6 · e0c95b6
1 parent 74cf84e
commit e0c95b6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/setup/setup_grtde.f90 b/src/setup/setup_grtde.f90
@@ -323,7 +323,7 @@ subroutine setpart(id,npart,npartoftype,xyzh,massoftype,vxyzu,polyk,gamma,hfact,
     enddo
  endif
 
- call shift_stars(nstar,star,xyzmh_ptmass_in(1:3,:),vxyz_ptmass_in(1:3,:),&
+ call shift_stars(nstar,star,xyzmh_ptmass_in(1:3,1:nstar),vxyz_ptmass_in(1:3,1:nstar),&
                   xyzh,vxyzu,xyzmh_ptmass,vxyz_ptmass,npart,&
                   npartoftype,nptmass)