Changeset 1814 for trunk/LMDZ.TITAN/libf/muphytitan/strings.F90

Timestamp:

Oct 30, 2017, 11:04:45 AM (7 years ago)

Author:

jvatant

Message:

Correct string management within muphy for ifort
JVO

File:

• trunk/LMDZ.TITAN/libf/muphytitan/strings.F90 (modified) (5 diffs)

trunk/LMDZ.TITAN/libf/muphytitan/strings.F90

@@ -219 +219 @@
     !!
     !! @warning 
-    !! It is always limited to strings::st_slen characters.
+    !! It is always limited to [[strings(module):st_slen(variable)]] characters.
     CHARACTER(len=st_slen)        :: value = ''
 #endif
@@ -849 +849 @@
     !!
     !! The method attempts to convert the list of words in a vector of strings.
-    !! If _this_ list of words is empty the output vector is allocated with 0 elements and the method returns
-    !! .false.. Otherwise it returns .true.
+    !! If _this_ list of words is empty, the output vector is allocated with 0 elements and the method returns
+    !! .false., otherwise it returns .true.
     !! @note
-    !! If the size of the output string vector (i.e. the character length of the string elements within the
-    !! vector) is too small, words can be truncated.
+    !! If elements in __this__ words object are wider than [[strings(module):st_slen(variable)]], output 
+    !! values will be truncated.
     OBJECT(words), INTENT(in)                                      :: this
       !! A words object reference
@@ -1041 +1041 @@
     !! Quotes are removed only if they are the first and last non blank
     !! characters. Either double and single quotes are stripped without distinction.
-    !! The output string is trimmed from leading and trailing blank spaces
+    !! The output string is trimmed from leading and trailing blank spaces (after quotes removal !)
     CHARACTER(len=*), INTENT(in)  :: str  !! A string to check
     CHARACTER(len=:), ALLOCATABLE :: ostr !! A string without external quotes (if any).  
@@ -1053 +1053 @@
     IF (i /= 1) i = 0
     IF (j /= LEN(ostr)) j = LEN(ostr)+1
-    ostr = ostr(i+1:j-1)
+    ostr = TRIM(ostr(i+1:j-1))
     RETURN
   END FUNCTION remove_quotes
@@ -1624 +1624 @@
     !! The function removes list of csi (ANSI escape sequences) from the given 
     !! string and returns a copy of it.
-    !! @note
-    !! This method does not update @lerror.
     CHARACTER(len=*), INTENT(in)      :: string
       !! Input string