Fix to inf*val format for positions

5 years ago · 69ab46b6e3
parent 4e592fb4aa
commit 69ab46b6e3
1 changed files with 1 additions and 1 deletions
--- 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