aboutsummaryrefslogtreecommitdiff
path: root/history.f90
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2020-05-06 15:56:17 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2020-05-06 15:56:17 -0400
commitb7e9966907434c6f58efa1307b2118a470c63d2b (patch)
tree42b496444cb1e08607867410f8c57e07d66cc0f9 /history.f90
parentb32558e3fb7021bb7fe2af311aaa535c79fc5637 (diff)
downloadLR-87-b7e9966907434c6f58efa1307b2118a470c63d2b.zip
LR-87-b7e9966907434c6f58efa1307b2118a470c63d2b.tar.gz
Back functionality now works
Diffstat (limited to 'history.f90')
-rw-r--r--history.f908
1 files changed, 6 insertions, 2 deletions
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