Fix to inf*val format for positions

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