From 68142e25cc359908ef5b5a033c5ab87d5fd03c7c Mon Sep 17 00:00:00 2001 From: David A Minton Date: Thu, 5 Aug 2021 12:29:48 -0400 Subject: [PATCH] Fixed reading in Ip and rot arrays --- src/io/io.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/io/io.f90 b/src/io/io.f90 index a7d278b2b..63251d013 100644 --- 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)