Changeset 2765 for vendors/XMLIO_SERVER/current/src/IOSERVER/mod_pack.f90

Timestamp:

2011-05-13T16:45:07+02:00 (13 years ago)

Author:

smasson

Message:

Load working_directory into vendors/XMLIO_SERVER/current.

File:

• vendors/XMLIO_SERVER/current/src/IOSERVER/mod_pack.f90 (modified) (10 diffs)

vendors/XMLIO_SERVER/current/src/IOSERVER/mod_pack.f90

@@ -5 +5 @@
     INTEGER,SAVE      :: pack_pos
     
-    INTERFACE pack
+    INTERFACE pack_data
       MODULE PROCEDURE pack_r,pack_r1,pack_r2,pack_r3,pack_r4,                 &
                        pack_i,pack_i1,pack_i2,pack_i3,pack_i4,                 &
@@ -11 +11 @@
                        pack_c,pack_c1,pack_c2,pack_c3,pack_c4,                 &
                        pack_attr
-    END INTERFACE pack
-
-    INTERFACE unpack
+    END INTERFACE pack_data
+
+    INTERFACE unpack_data
       MODULE PROCEDURE unpack_r,unpack_r1,unpack_r2,unpack_r3,unpack_r4,       &
                        unpack_i,unpack_i1,unpack_i2,unpack_i3,unpack_i4,       &
@@ -19 +19 @@
                        unpack_c,unpack_c1,unpack_c2,unpack_c3,unpack_c4,       &
                        unpack_attr
-    END INTERFACE unpack
+    END INTERFACE unpack_data
 
     INTERFACE pack_field
@@ -474 +474 @@
        TYPE(attribut) :: attrib
 
-       CALL pack(attrib%object)
-       CALL pack(attrib%name)
-       CALL pack(attrib%type)
-       CALL pack(attrib%dim)
-       CALL pack(attrib%ndim)
-       CALL pack(attrib%string_len)
+       CALL pack_data(attrib%object)
+       CALL pack_data(attrib%name)
+       CALL pack_data(attrib%type)
+       CALL pack_data(attrib%dim)
+       CALL pack_data(attrib%ndim)
+       CALL pack_data(attrib%string_len)
               
        SELECT CASE(attrib%type)
          CASE (integer0)
-           CALL pack(attrib%integer0_ptr)
+           CALL pack_data(attrib%integer0_ptr)
          CASE (integer1)
-           CALL pack(attrib%integer1_ptr)
+           CALL pack_data(attrib%integer1_ptr)
          CASE (integer2)
-           CALL pack(attrib%integer2_ptr)
+           CALL pack_data(attrib%integer2_ptr)
          CASE (real0)
-           CALL pack(attrib%real0_ptr)
+           CALL pack_data(attrib%real0_ptr)
          CASE (real1)
-           CALL pack(attrib%real1_ptr)
+           CALL pack_data(attrib%real1_ptr)
          CASE (real2)
-           CALL pack(attrib%real2_ptr)
+           CALL pack_data(attrib%real2_ptr)
          CASE (logical0)
-           CALL pack(attrib%logical0_ptr)
+           CALL pack_data(attrib%logical0_ptr)
          CASE (logical1)
-           CALL pack(attrib%logical1_ptr)
+           CALL pack_data(attrib%logical1_ptr)
          CASE (logical2)
-           CALL pack(attrib%logical2_ptr)
+           CALL pack_data(attrib%logical2_ptr)
          CASE (string0)
            CALL pack_string0(attrib%string0_ptr)
@@ -505 +505 @@
            CALL pack_string1(attrib%string1_ptr)
          CASE (string2)
-           CALL pack(attrib%string2_ptr)
+           CALL pack_data(attrib%string2_ptr)
        END SELECT
 
@@ -512 +512 @@
        SUBROUTINE pack_string0(str)
          CHARACTER(LEN=attrib%string_len) ::str
-           CALL pack(str)
+           CALL pack_data(str)
        END SUBROUTINE
 
        SUBROUTINE pack_string1(str)
          CHARACTER(LEN=attrib%string_len) ::str(:)
-           CALL pack(str)
+           CALL pack_data(str)
        END SUBROUTINE
        
        SUBROUTINE pack_string2(str)
          CHARACTER(LEN=attrib%string_len) ::str(:,:)
-           CALL pack(str)
+           CALL pack_data(str)
        END SUBROUTINE
 
@@ -533 +533 @@
        TYPE(attribut) :: attrib
 
-       CALL unpack(attrib%object)
-       CALL unpack(attrib%name)
-       CALL unpack(attrib%type)
-       CALL unpack(attrib%dim)
-       CALL unpack(attrib%ndim)
-       CALL unpack(attrib%string_len)
+       CALL unpack_data(attrib%object)
+       CALL unpack_data(attrib%name)
+       CALL unpack_data(attrib%type)
+       CALL unpack_data(attrib%dim)
+       CALL unpack_data(attrib%ndim)
+       CALL unpack_data(attrib%string_len)
               
        SELECT CASE(attrib%type)
          CASE (integer0)
            ALLOCATE(attrib%integer0_ptr)
-           CALL unpack(attrib%integer0_ptr)
+           CALL unpack_data(attrib%integer0_ptr)
          CASE (integer1)
            ALLOCATE(attrib%integer1_ptr(attrib%dim(1)))
-           CALL unpack(attrib%integer1_ptr)
+           CALL unpack_data(attrib%integer1_ptr)
          CASE (integer2)
            ALLOCATE(attrib%integer2_ptr(attrib%dim(1),attrib%dim(2)))
-           CALL unpack(attrib%integer2_ptr)
+           CALL unpack_data(attrib%integer2_ptr)
          CASE (real0)
            ALLOCATE(attrib%real0_ptr)
-           CALL unpack(attrib%real0_ptr)
+           CALL unpack_data(attrib%real0_ptr)
          CASE (real1)
            ALLOCATE(attrib%real1_ptr(attrib%dim(1)))
-           CALL unpack(attrib%real1_ptr)
+           CALL unpack_data(attrib%real1_ptr)
          CASE (real2)
            ALLOCATE(attrib%real2_ptr(attrib%dim(1),attrib%dim(2)))
          CASE (logical0)
            ALLOCATE(attrib%logical0_ptr)
-           CALL unpack(attrib%logical0_ptr)
+           CALL unpack_data(attrib%logical0_ptr)
          CASE (logical1)
            ALLOCATE(attrib%logical1_ptr(attrib%dim(1)))
-           CALL unpack(attrib%logical1_ptr)
+           CALL unpack_data(attrib%logical1_ptr)
          CASE (logical2)
            ALLOCATE(attrib%logical2_ptr(attrib%dim(1),attrib%dim(2)))
-           CALL unpack(attrib%logical2_ptr)
+           CALL unpack_data(attrib%logical2_ptr)
          CASE (string0)
            ALLOCATE(attrib%string0_ptr)
@@ -582 +582 @@
        SUBROUTINE unpack_string0
          CHARACTER(LEN=attrib%string_len) ::str
-           CALL unpack(str)
+           CALL unpack_data(str)
            attrib%string0_ptr=str
        END SUBROUTINE
@@ -588 +588 @@
        SUBROUTINE unpack_string1
          CHARACTER(LEN=attrib%string_len) ::str(attrib%dim(1))
-           CALL unpack(str)
+           CALL unpack_data(str)
            attrib%string1_ptr=str
        END SUBROUTINE
@@ -594 +594 @@
        SUBROUTINE unpack_string2
          CHARACTER(LEN=attrib%string_len) ::str(attrib%dim(1),attrib%dim(2))
-           CALL unpack(str)
+           CALL unpack_data(str)
            attrib%string2_ptr=str
        END SUBROUTINE