mirror of https://gitlab.com/QEF/q-e.git
Merge branch 'foxagain' into 'develop'
[skip-CI] FoX replacement not so smart See merge request QEF/q-e!1911
This commit is contained in:
commit
e401677307
|
@ -661,7 +661,7 @@ scan: do i=la-l0+1,la
|
||||||
if ( i1 > 0 ) then
|
if ( i1 > 0 ) then
|
||||||
! token found
|
! token found
|
||||||
cvec(i)=root%data(i0:i0+i1-2)
|
cvec(i)=root%data(i0:i0+i1-2)
|
||||||
i0=i0+i1
|
i0=i0+i1-1
|
||||||
else if ( i1 == 0 .and. i0 < len_trim(root%data) ) then
|
else if ( i1 == 0 .and. i0 < len_trim(root%data) ) then
|
||||||
! last token found
|
! last token found
|
||||||
cvec(i)=root%data(i0:)
|
cvec(i)=root%data(i0:)
|
||||||
|
|
Loading…
Reference in New Issue