From 67dd3aa040e3f39187ba90b68687d72db359988b Mon Sep 17 00:00:00 2001 From: David A Minton Date: Thu, 5 Aug 2021 12:33:30 -0400 Subject: [PATCH] Fixed reading in Ip and rot arrays for cb --- src/io/io.f90 | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/io/io.f90 b/src/io/io.f90 index 63251d013..e7c1c4a68 100644 --- a/src/io/io.f90 +++ b/src/io/io.f90 @@ -803,12 +803,12 @@ 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(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) + 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) - read(iu, iostat=ierr, err=100) self%Q(i) + read(iu, *, iostat=ierr, err=100) self%k2(i) + read(iu, *, iostat=ierr, err=100) self%Q(i) end if end select self%status(i) = ACTIVE @@ -870,8 +870,8 @@ module subroutine io_read_cb_in(self, param) read(iu, *, iostat = ierr) self%j2rp2 read(iu, *, iostat = ierr) self%j4rp4 if (param%lrotation) then - read(iu, *, iostat = ierr) self%Ip - read(iu, *, iostat = ierr) self%rot + read(iu, *, iostat = ierr) self%Ip(1), self%Ip(2), self%Ip(3) + read(iu, *, iostat = ierr) self%rot(1), self%rot(2), self%rot(3) end if else open(unit = iu, file = param%incbfile, status = 'old', form = 'UNFORMATTED', iostat = ierr)