From b7e9966907434c6f58efa1307b2118a470c63d2b Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Wed, 6 May 2020 15:56:17 -0400 Subject: Back functionality now works --- history.f90 | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'history.f90') diff --git a/history.f90 b/history.f90 index d8193f8..e915855 100644 --- a/history.f90 +++ b/history.f90 @@ -67,16 +67,20 @@ contains last => last_location(first_location) if(associated(last)) then - url = last%url if(.not. associated(last, first_location)) then new_last => first_location do while(.not. associated(new_last%next, last)) new_last => new_last%next end do - new_last%next => null() deallocate(last) + else + new_last => first_location end if + + new_last%next => null() + url = new_last%url + end if end subroutine back_location -- cgit v1.2.3