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