Changeset 51 for XMLIO_SERVER

Timestamp:

11/19/09 07:11:17 (15 years ago)

Author:

ymipsl

Message:

 

File:

• XMLIO_SERVER/trunk/src/XMLIO/mod_file.f90 (modified) (1 diff)

XMLIO_SERVER/trunk/src/XMLIO/mod_file.f90

@@ -181 +181 @@
     SELECT CASE(attrib%name)
       CASE (file__name)
-        IF (attrib%type==string0) CALL  file__set(pt_file,name=attrib%string0_ptr) ; RETURN
+        IF (attrib%type==string0) CALL  file__set(pt_file,name=attrib%string0_ptr(1:attrib%string_len)) ; RETURN
       CASE (file__name_suffix)
-        IF (attrib%type==string0) CALL  file__set(pt_file,name_suffix=attrib%string0_ptr) ; RETURN
+        IF (attrib%type==string0) CALL  file__set(pt_file,name_suffix=attrib%string0_ptr(1:attrib%string_len)) ; RETURN
       CASE (file__description)
-        IF (attrib%type==string0) CALL  file__set(pt_file,description=attrib%string0_ptr) ; RETURN
+        IF (attrib%type==string0) CALL  file__set(pt_file,description=attrib%string0_ptr(1:attrib%string_len)) ; RETURN
       CASE (file__output_freq)
         IF (attrib%type==integer0) CALL  file__set(pt_file,output_freq=attrib%integer0_ptr) ; RETURN