Changeset 4069 for LMDZ6/trunk/libf/misc


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

Fix in strings_mod ; parser routines taken from version 9 of ​https://svn.lmd.jussieu.fr/tracers-parser

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/misc/strings_mod.F90

    r4068 r4069  
    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.