Changeset 192 for XMLIO_SERVER/trunk/src/IOSERVER/mod_event_server.f90

Timestamp:

05/13/11 14:00:14 (13 years ago)

Author:

ymipsl

Message:

Correction : utilisation des noms d'intrinseques fortran pack/unpack
pack => pack_data
unpack => unpack_data

YM

File:

• XMLIO_SERVER/trunk/src/IOSERVER/mod_event_server.f90 (modified) (32 diffs)

XMLIO_SERVER/trunk/src/IOSERVER/mod_event_server.f90

@@ -1 +1 @@
 MODULE mod_event_server
-  USE mod_pack, ONLY : unpack, unpack_field
+  USE mod_pack, ONLY : unpack_data, unpack_field
   USE mod_event_parameters
   USE iomanager
@@ -16 +16 @@
     is_terminated=.FALSE.
     
-    CALL unpack(event_id)
+    CALL unpack_data(event_id)
     
     SELECT CASE (event_id)
@@ -87 +87 @@
     INTEGER :: id_size
    
-    CALL unpack(id_size)
+    CALL unpack_data(id_size)
     CALL sub_internal(id_size)
      
@@ -96 +96 @@
       CHARACTER(LEN=id_size) :: id     
      
-       CALL unpack(id)
+       CALL unpack_data(id)
      
        CALL iom__swap_context(id)
@@ -109 +109 @@
     INTEGER :: name_size
    
-    CALL unpack(name_size)
+    CALL unpack_data(name_size)
     CALL sub_internal(name_size)
      
@@ -118 +118 @@
       CHARACTER(LEN=name_size) :: filename     
      
-       CALL unpack(filename)
+       CALL unpack_data(filename)
      
        CALL iom__parse_xml_file(filename)
@@ -132 +132 @@
     INTEGER :: nj_glo
    
-    CALL unpack(name_size)
+    CALL unpack_data(name_size)
     CALL sub_internal(name_size)
      
@@ -141 +141 @@
       CHARACTER(LEN=name_size) :: name     
      
-       CALL unpack(name)
-       CALL unpack(ni_glo)
-       CALL unpack(nj_glo)
+       CALL unpack_data(name)
+       CALL unpack_data(ni_glo)
+       CALL unpack_data(nj_glo)
      
        CALL iom__set_grid_dimension(name,ni_glo,nj_glo)
@@ -161 +161 @@
     REAL,ALLOCATABLE :: lat(:,:)
 
-    CALL unpack(name_size)
+    CALL unpack_data(name_size)
     CALL sub_internal(name_size)
      
@@ -170 +170 @@
       CHARACTER(LEN=name_size) :: name     
      
-       CALL unpack(name)
-    
-       CALL unpack(ni)
-       CALL unpack(nj)
-       CALL unpack(ibegin)
-       CALL unpack(jbegin)
+       CALL unpack_data(name)
+    
+       CALL unpack_data(ni)
+       CALL unpack_data(nj)
+       CALL unpack_data(ibegin)
+       CALL unpack_data(jbegin)
     
        ALLOCATE(lon(ni,nj))
        ALLOCATE(lat(ni,nj))
-       CALL unpack(lon)
-       CALL unpack(lat)
+       CALL unpack_data(lon)
+       CALL unpack_data(lat)
     
        CALL iom__set_grid_domain(name,ni,nj,ibegin,jbegin,lon,lat)
@@ -193 +193 @@
     INTEGER :: name_size
 
-    CALL unpack(name_size)
+    CALL unpack_data(name_size)
     CALL sub_internal(name_size)
      
@@ -202 +202 @@
       CHARACTER(LEN=name_size) :: name     
      
-       CALL unpack(name)
+       CALL unpack_data(name)
        CALL iom__set_grid_type_nemo(name)
 
@@ -213 +213 @@
     INTEGER :: name_size
 
-    CALL unpack(name_size)
+    CALL unpack_data(name_size)
     CALL sub_internal(name_size)
      
@@ -224 +224 @@
       INTEGER                  :: offset
       
-       CALL unpack(name)
-       CALL unpack(nbp)
-       CALL unpack(offset)
+       CALL unpack_data(name)
+       CALL unpack_data(nbp)
+       CALL unpack_data(offset)
        CALL iom__set_grid_type_lmdz(name,nbp,offset)
 
@@ -239 +239 @@
     REAL,ALLOCATABLE :: vert_value(:)
     
-    CALL unpack(name_size)
+    CALL unpack_data(name_size)
     CALL sub_internal(name_size)
 
@@ -248 +248 @@
       CHARACTER(LEN=name_size) :: name
     
-      CALL unpack(name)
-      CALL unpack(vert_size)
+      CALL unpack_data(name)
+      CALL unpack_data(vert_size)
       ALLOCATE(vert_value(vert_size))
-      CALL unpack(vert_value) 
+      CALL unpack_data(vert_value) 
       
       CALL iom__set_vert_axis(name,vert_value)
@@ -264 +264 @@
     REAL      :: zdt
       
-    CALL unpack(itau0)
-    CALL unpack(zjulian)
-    CALL unpack(zdt)
+    CALL unpack_data(itau0)
+    CALL unpack_data(zjulian)
+    CALL unpack_data(zdt)
     
     CALL iom__set_time_parameters(itau0,zjulian,zdt)
@@ -277 +277 @@
     INTEGER :: lenc
       
-    CALL unpack(lenc)
+    CALL unpack_data(lenc)
     CALL sub_internal(lenc)
   
@@ -286 +286 @@
       CHARACTER(len=lenc) :: varname
       
-      CALL unpack(varname)
+      CALL unpack_data(varname)
       
       CALL iom__enable_field(varname)
@@ -298 +298 @@
     INTEGER :: lenc
       
-    CALL unpack(lenc)
+    CALL unpack_data(lenc)
     CALL sub_internal(lenc)
   
@@ -307 +307 @@
       CHARACTER(len=lenc) :: varname
       
-      CALL unpack(varname)
+      CALL unpack_data(varname)
       
       CALL iom__disable_field(varname)
@@ -321 +321 @@
     INTEGER :: dim1
       
-    CALL unpack(lenc)
-    CALL unpack(dim1)
+    CALL unpack_data(lenc)
+    CALL unpack_data(dim1)
     CALL sub_internal(lenc,dim1)
   
@@ -333 +333 @@
       REAL                :: var(dim1)
       
-      CALL unpack(varname)
+      CALL unpack_data(varname)
       CALL unpack_field(var)
       
@@ -347 +347 @@
     INTEGER :: dim2
       
-    CALL unpack(lenc)
-    CALL unpack(dim1)
-    CALL unpack(dim2)
+    CALL unpack_data(lenc)
+    CALL unpack_data(dim1)
+    CALL unpack_data(dim2)
     CALL sub_internal(lenc,dim1,dim2)
   
@@ -361 +361 @@
       REAL                :: var(dim1,dim2)
       
-      CALL unpack(varname)
+      CALL unpack_data(varname)
       CALL unpack_field(var)
       
@@ -377 +377 @@
     INTEGER :: dim3
     
-    CALL unpack(lenc)
-    CALL unpack(dim1)
-    CALL unpack(dim2)
-    CALL unpack(dim3)
+    CALL unpack_data(lenc)
+    CALL unpack_data(dim1)
+    CALL unpack_data(dim2)
+    CALL unpack_data(dim3)
     CALL sub_internal(lenc,dim1,dim2,dim3)
  
@@ -395 +395 @@
       REAL                :: var(dim1,dim2,dim3)
         
-      CALL unpack(varname)
+      CALL unpack_data(varname)
       CALL unpack_field(var)
        
@@ -409 +409 @@
     INTEGER :: timestep
      
-    CALL unpack(timestep)
+    CALL unpack_data(timestep)
     CALL iom__set_timestep(timestep)
     
@@ -419 +419 @@
     INTEGER :: lenc
       
-    CALL unpack(lenc)
+    CALL unpack_data(lenc)
     CALL sub_internal(lenc)
   
@@ -428 +428 @@
       CHARACTER(len=lenc) :: str_calendar
       
-      CALL unpack(str_calendar)
+      CALL unpack_data(str_calendar)
       
       CALL iom__set_calendar(str_calendar)
@@ -449 +449 @@
      INTEGER        :: len_id
      
-     CALL unpack(len_id)
+     CALL unpack_data(len_id)
      CALL sub_internal
    CONTAINS
@@ -456 +456 @@
        CHARACTER(LEN=len_id) :: id
        
-       CALL unpack(id)
-       CALL unpack(attrib)
+       CALL unpack_data(id)
+       CALL unpack_data(attrib)
        CALL iom__set_attribut(id,attrib)
        CALL attr_deallocate(attrib)