Skip to content
Snippets Groups Projects
Commit 377ccee1 authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 06/06/2018: GETDIMCDF: minor bug correction

parent 4da688f6
Branches
Tags
No related merge requests found
...@@ -938,7 +938,7 @@ ELSE ...@@ -938,7 +938,7 @@ ELSE
COUNT = 1 COUNT = 1
TMP => PIOCDF%DIMLIST TMP => PIOCDF%DIMLIST
DO WHILE(ASSOCIATED(TMP)) DO WHILE(ASSOCIATED(TMP))
IF (TMP%LEN == KLEN .AND. TMP%NAME /= 'STRLEN') EXIT IF (TMP%LEN == KLEN .AND. TMP%NAME(1:4) /= 'char') EXIT
TMP=>TMP%NEXT TMP=>TMP%NEXT
COUNT = COUNT+1 COUNT = COUNT+1
END DO END DO
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment