Fixed reading in Ip and rot arrays

MintonGroup · Aug 5, 2021 · 68142e2 · 68142e2
1 parent 46caf9e
commit 68142e2
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/io/io.f90 b/src/io/io.f90
@@ -803,8 +803,8 @@ module subroutine io_read_body_in(self, param)
                select type (self)
                class is (swiftest_pl)
                   if (param%lrotation) then
-                     read(iu, iostat=ierr, err=100) self%Ip(:, i)
-                     read(iu, iostat=ierr, err=100) self%rot(:, i)
+                     read(iu, iostat=ierr, err=100) self%Ip(1, i), self%Ip(2, i), self%Ip(3, i)
+                     read(iu, iostat=ierr, err=100) self%rot(1, i), self%rot(2, i), self%rot(3, i)
                   end if
                   if (param%ltides) then
                      read(iu, iostat=ierr, err=100) self%k2(i)