Changeset 51 for XMLIO_SERVER


Ignore:
Timestamp:
11/19/09 07:11:17 (14 years ago)
Author:
ymipsl
Message:
 
File:
1 edited

Legend:

Unmodified
Added
Removed
  • XMLIO_SERVER/trunk/src/XMLIO/mod_file.f90

    r46 r51  
    181181    SELECT CASE(attrib%name) 
    182182      CASE (file__name) 
    183         IF (attrib%type==string0) CALL  file__set(pt_file,name=attrib%string0_ptr) ; RETURN 
     183        IF (attrib%type==string0) CALL  file__set(pt_file,name=attrib%string0_ptr(1:attrib%string_len)) ; RETURN 
    184184      CASE (file__name_suffix) 
    185         IF (attrib%type==string0) CALL  file__set(pt_file,name_suffix=attrib%string0_ptr) ; RETURN 
     185        IF (attrib%type==string0) CALL  file__set(pt_file,name_suffix=attrib%string0_ptr(1:attrib%string_len)) ; RETURN 
    186186      CASE (file__description) 
    187         IF (attrib%type==string0) CALL  file__set(pt_file,description=attrib%string0_ptr) ; RETURN 
     187        IF (attrib%type==string0) CALL  file__set(pt_file,description=attrib%string0_ptr(1:attrib%string_len)) ; RETURN 
    188188      CASE (file__output_freq) 
    189189        IF (attrib%type==integer0) CALL  file__set(pt_file,output_freq=attrib%integer0_ptr) ; RETURN 
Note: See TracChangeset for help on using the changeset viewer.