From 69ab46b6e36ac374f4cc82d449193883d70e699e Mon Sep 17 00:00:00 2001 From: Alex Selimov Date: Mon, 27 Jan 2020 21:06:22 -0500 Subject: [PATCH] Fix to inf*val format for positions --- src/subroutines.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/subroutines.f90 b/src/subroutines.f90 index e8c365b..ae15a65 100644 --- a/src/subroutines.f90 +++ b/src/subroutines.f90 @@ -201,7 +201,7 @@ module subroutines end if else if ((index(pos_string,'*') > 0).and.(index(pos_string,'inf')>0)) then !Now extract the number we are reducing from infinity - if(index(pos_string,'inf') < index(pos_string,'-')) then + if(index(pos_string,'inf') < index(pos_string,'*')) then read(pos_string(index(pos_string,'*')+1:), *, iostat=iospara) pos else read(pos_string(1:index(pos_string,'*')-1), *, iostat=iospara) pos