Changeset 192 for XMLIO_SERVER/trunk/src/IOSERVER/main.f90
- Timestamp:
- 05/13/11 14:00:14 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XMLIO_SERVER/trunk/src/IOSERVER/main.f90
r8 r192 1 1 PROGRAM ioslave 2 USE mod_pack, ONLY : set_pack_buffer,pack ,unpack2 USE mod_pack, ONLY : set_pack_buffer,pack_data,unpack_data 3 3 USE mod_wait 4 4 IMPLICIT NONE … … 28 28 f(3)="COUCOU3" 29 29 30 CALL pack (b)31 CALL pack (f)32 CALL pack (a)33 CALL pack (d)34 CALL pack (e)35 CALL pack (c)30 CALL pack_data(b) 31 CALL pack_data(f) 32 CALL pack_data(a) 33 CALL pack_data(d) 34 CALL pack_data(e) 35 CALL pack_data(c) 36 36 37 37 CALL set_pack_buffer(buffer,1) 38 CALL unpack (bout)39 CALL unpack (fout)40 CALL unpack (aout)41 CALL unpack (dout)42 CALL unpack (eout)43 CALL unpack (cout)38 CALL unpack_data(bout) 39 CALL unpack_data(fout) 40 CALL unpack_data(aout) 41 CALL unpack_data(dout) 42 CALL unpack_data(eout) 43 CALL unpack_data(cout) 44 44 45 45 PRINT *,a,b,c,d,e," ",f
Note: See TracChangeset
for help on using the changeset viewer.