aselimov/CACmb
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix to inf*val format for positions

Browse Source
This commit is contained in:
Alex Selimov 2020-01-27 21:06:22 -05:00
parent 4e592fb4aa
commit 69ab46b6e3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/subroutines.f90
View File

@ -201,7 +201,7 @@ module subroutines
end if end if
else if ((index(pos_string,'*') > 0).and.(index(pos_string,'inf')>0)) then else if ((index(pos_string,'*') > 0).and.(index(pos_string,'inf')>0)) then
!Now extract the number we are reducing from infinity !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 read(pos_string(index(pos_string,'*')+1:), *, iostat=iospara) pos
else else
read(pos_string(1:index(pos_string,'*')-1), *, iostat=iospara) pos read(pos_string(1:index(pos_string,'*')-1), *, iostat=iospara) pos