Changeset 9


Ignore:
Timestamp:
Jan 30, 2022, 6:44:15 PM (3 years ago)
Author:
dcugnet
Message:

Small fix in strReduce_1

File:
1 edited

Legend:

Unmodified
Added
Removed

  • strings_mod.F90

    r8 r9  
    355355  IF(n==0) RETURN
    356356  str(1) = s1(1)
    357   n=1; DO k=1,n1; IF(ANY(s1(1:k-1)==s1(k))) CYCLE; n=n+1; str(n)=s1(k); END DO
     357  n=1; DO k=2,n1; IF(ANY(s1(1:k-1)==s1(k))) CYCLE; n=n+1; str(n)=s1(k); END DO
    358358  IF(PRESENT(nb)) nb=n
    359359END SUBROUTINE strReduce_1
Note: See TracChangeset for help on using the changeset viewer.