Changeset 2765 for vendors/XMLIO_SERVER/current/src/IOSERVER/main.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/main.f90 (modified) (2 diffs)

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

@@ -1 +1 @@
 PROGRAM ioslave
-USE mod_pack, ONLY : set_pack_buffer,pack,unpack
+USE mod_pack, ONLY : set_pack_buffer,pack_data,unpack_data
 USE mod_wait
 IMPLICIT NONE
@@ -28 +28 @@
   f(3)="COUCOU3"
   
-  CALL pack(b)
-  CALL pack(f)
-  CALL pack(a)
-  CALL pack(d)
-  CALL pack(e)
-  CALL pack(c)
+  CALL pack_data(b)
+  CALL pack_data(f)
+  CALL pack_data(a)
+  CALL pack_data(d)
+  CALL pack_data(e)
+  CALL pack_data(c)
   
   CALL set_pack_buffer(buffer,1)
-  CALL unpack(bout)
-  CALL unpack(fout)
-  CALL unpack(aout)
-  CALL unpack(dout)
-  CALL unpack(eout)
-  CALL unpack(cout)
+  CALL unpack_data(bout)
+  CALL unpack_data(fout)
+  CALL unpack_data(aout)
+  CALL unpack_data(dout)
+  CALL unpack_data(eout)
+  CALL unpack_data(cout)
   
   PRINT *,a,b,c,d,e,"  ",f