Changeset 192


Ignore:
Timestamp:
05/13/11 14:00:14 (14 years ago)
Author:
ymipsl
Message:

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

YM

Location:
XMLIO_SERVER/trunk/src/IOSERVER
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • XMLIO_SERVER/trunk/src/IOSERVER/main.f90

    r8 r192  
    11PROGRAM ioslave 
    2 USE mod_pack, ONLY : set_pack_buffer,pack,unpack 
     2USE mod_pack, ONLY : set_pack_buffer,pack_data,unpack_data 
    33USE mod_wait 
    44IMPLICIT NONE 
    … …  
    2828  f(3)="COUCOU3" 
    2929   
    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) 
    3636   
    3737  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) 
    4444   
    4545  PRINT *,a,b,c,d,e,"  ",f 

  • XMLIO_SERVER/trunk/src/IOSERVER/mod_event_client.f90

    r50 r192  
    11MODULE mod_event_client 
    2   USE mod_pack, ONLY : pack, pack_field 
     2  USE mod_pack, ONLY : pack_data, pack_field 
    33  USE mod_mpi_buffer_client, ONLY : create_request, finalize_request,is_last_request 
    44  USE mod_event_parameters  
    … …  
    1414    IF (using_server) THEN 
    1515      CALL create_request(event_id_swap_context) 
    16       CALL pack(LEN(TRIM(id))) 
    17       CALL pack(TRIM(id)) 
     16      CALL pack_data(LEN(TRIM(id))) 
     17      CALL pack_data(TRIM(id)) 
    1818      CALL Finalize_request 
    1919    ELSE 
    … …  
    3131    IF (using_server) THEN 
    3232      CALL create_request(event_id_parse_xml_file) 
    33       CALL pack(LEN(TRIM(filename))) 
    34       CALL pack(TRIM(filename)) 
     33      CALL pack_data(LEN(TRIM(filename))) 
     34      CALL pack_data(TRIM(filename)) 
    3535      CALL Finalize_request 
    3636    ELSE 
    … …  
    4949    IF (using_server) THEN 
    5050      CALL create_request(event_id_set_vert_axis) 
    51       CALL pack(LEN(TRIM(vert_name))) 
    52       CALL pack(TRIM(vert_name)) 
    53       CALL pack(SIZE(vert_value)) 
    54       CALL pack(vert_value) 
     51      CALL pack_data(LEN(TRIM(vert_name))) 
     52      CALL pack_data(TRIM(vert_name)) 
     53      CALL pack_data(SIZE(vert_value)) 
     54      CALL pack_data(vert_value) 
    5555      CALL Finalize_request 
    5656    ELSE 
    … …  
    6969    IF (using_server) THEN 
    7070      CALL create_request(event_id_set_grid_dimension) 
    71       CALL pack(LEN(TRIM(name))) 
    72       CALL pack(TRIM(name)) 
    73       CALL pack(ni_glo) 
    74       CALL pack(nj_glo) 
     71      CALL pack_data(LEN(TRIM(name))) 
     72      CALL pack_data(TRIM(name)) 
     73      CALL pack_data(ni_glo) 
     74      CALL pack_data(nj_glo) 
    7575      CALL Finalize_request 
    7676    ELSE 
    … …  
    9494    IF (using_server) THEN 
    9595      CALL create_request(event_id_set_grid_domain) 
    96       CALL pack(LEN(TRIM(name))) 
    97       CALL pack(TRIM(name)) 
    98       CALL pack(ni) 
    99       CALL pack(nj) 
    100       CALL pack(ibegin) 
    101       CALL pack(jbegin) 
    102       CALL pack(lon) 
    103       CALL pack(lat) 
     96      CALL pack_data(LEN(TRIM(name))) 
     97      CALL pack_data(TRIM(name)) 
     98      CALL pack_data(ni) 
     99      CALL pack_data(nj) 
     100      CALL pack_data(ibegin) 
     101      CALL pack_data(jbegin) 
     102      CALL pack_data(lon) 
     103      CALL pack_data(lat) 
    104104      CALL Finalize_request 
    105105    ELSE 
    … …  
    116116    IF (using_server) THEN 
    117117      CALL create_request(event_id_set_grid_type_nemo) 
    118       CALL pack(LEN(TRIM(name))) 
    119       CALL pack(TRIM(name)) 
     118      CALL pack_data(LEN(TRIM(name))) 
     119      CALL pack_data(TRIM(name)) 
    120120      CALL Finalize_request 
    121121    ELSE 
    … …  
    134134    IF (using_server) THEN 
    135135      CALL create_request(event_id_set_grid_type_lmdz) 
    136       CALL pack(LEN(TRIM(name))) 
    137       CALL pack(TRIM(name)) 
    138       CALL pack(nbp) 
    139       CALL pack(offset) 
     136      CALL pack_data(LEN(TRIM(name))) 
     137      CALL pack_data(TRIM(name)) 
     138      CALL pack_data(nbp) 
     139      CALL pack_data(offset) 
    140140      CALL Finalize_request 
    141141    ELSE 
    … …  
    154154    IF (using_server) THEN 
    155155      CALL create_request(event_id_set_time_parameters) 
    156       CALL pack(itau0) 
    157       CALL pack(zjulian) 
    158       CALL pack(zdt) 
     156      CALL pack_data(itau0) 
     157      CALL pack_data(zjulian) 
     158      CALL pack_data(zdt) 
    159159      CALL Finalize_request 
    160160    ELSE 
    … …  
    172172    IF (using_server) THEN 
    173173      CALL create_request(event_id_set_calendar) 
    174       CALL pack(LEN(TRIM(str_calendar))) 
    175       CALL pack(TRIM(str_calendar)) 
     174      CALL pack_data(LEN(TRIM(str_calendar))) 
     175      CALL pack_data(TRIM(str_calendar)) 
    176176      CALL Finalize_request 
    177177    ELSE 
    … …  
    189189    IF (using_server) THEN 
    190190      CALL create_request(event_id_enable_field) 
    191       CALL pack(len(varname)) 
    192       CALL pack(varname) 
     191      CALL pack_data(len(varname)) 
     192      CALL pack_data(varname) 
    193193      CALL Finalize_request  
    194194    ELSE 
    … …  
    205205    IF (using_server) THEN 
    206206      CALL create_request(event_id_disable_field) 
    207       CALL pack(len(varname)) 
    208       CALL pack(varname) 
     207      CALL pack_data(len(varname)) 
     208      CALL pack_data(varname) 
    209209      CALL Finalize_request  
    210210    ELSE 
    … …  
    222222    IF (using_server) THEN 
    223223      CALL create_request(event_id_write_field1d) 
    224       CALL pack(len(varname)) 
    225       CALL pack(size(var,1)) 
    226       CALL pack(varname) 
     224      CALL pack_data(len(varname)) 
     225      CALL pack_data(size(var,1)) 
     226      CALL pack_data(varname) 
    227227      CALL pack_field(var) 
    228228      CALL Finalize_request  
    … …  
    241241    IF (using_server) THEN 
    242242      CALL create_request(event_id_write_field2d) 
    243       CALL pack(len(varname)) 
    244       CALL pack(size(var,1)) 
    245       CALL pack(size(var,2)) 
    246       CALL pack(varname) 
     243      CALL pack_data(len(varname)) 
     244      CALL pack_data(size(var,1)) 
     245      CALL pack_data(size(var,2)) 
     246      CALL pack_data(varname) 
    247247      CALL pack_field(var) 
    248248      CALL Finalize_request  
    … …  
    261261    IF (using_server) THEN 
    262262      CALL create_request(event_id_write_field3d) 
    263       CALL pack(len(varname)) 
    264       CALL pack(size(var,1)) 
    265       CALL pack(size(var,2)) 
    266       CALL pack(size(var,3)) 
    267       CALL pack(varname) 
     263      CALL pack_data(len(varname)) 
     264      CALL pack_data(size(var,1)) 
     265      CALL pack_data(size(var,2)) 
     266      CALL pack_data(size(var,3)) 
     267      CALL pack_data(varname) 
    268268      CALL pack_field(var) 
    269269      CALL Finalize_request  
    … …  
    281281    IF (using_server) THEN 
    282282      CALL create_request(event_id_set_timestep) 
    283       CALL pack(timestep) 
     283      CALL pack_data(timestep) 
    284284      CALL Finalize_request 
    285285    ELSE 
    … …  
    313313    IF (using_server) THEN 
    314314      CALL create_request(event_id_set_attribut) 
    315       CALL pack(len(id)) 
    316       CALL pack(id) 
    317       CALL pack(attrib) 
     315      CALL pack_data(len(id)) 
     316      CALL pack_data(id) 
     317      CALL pack_data(attrib) 
    318318      CALL Finalize_request 
    319319    ELSE 

  • XMLIO_SERVER/trunk/src/IOSERVER/mod_event_server.f90

    r50 r192  
    11MODULE mod_event_server 
    2   USE mod_pack, ONLY : unpack, unpack_field 
     2  USE mod_pack, ONLY : unpack_data, unpack_field 
    33  USE mod_event_parameters 
    44  USE iomanager 
    … …  
    1616    is_terminated=.FALSE. 
    1717     
    18     CALL unpack(event_id) 
     18    CALL unpack_data(event_id) 
    1919     
    2020    SELECT CASE (event_id) 
    … …  
    8787    INTEGER :: id_size 
    8888    
    89     CALL unpack(id_size) 
     89    CALL unpack_data(id_size) 
    9090    CALL sub_internal(id_size) 
    9191      
    … …  
    9696      CHARACTER(LEN=id_size) :: id      
    9797      
    98        CALL unpack(id) 
     98       CALL unpack_data(id) 
    9999      
    100100       CALL iom__swap_context(id) 
    … …  
    109109    INTEGER :: name_size 
    110110    
    111     CALL unpack(name_size) 
     111    CALL unpack_data(name_size) 
    112112    CALL sub_internal(name_size) 
    113113      
    … …  
    118118      CHARACTER(LEN=name_size) :: filename      
    119119      
    120        CALL unpack(filename) 
     120       CALL unpack_data(filename) 
    121121      
    122122       CALL iom__parse_xml_file(filename) 
    … …  
    132132    INTEGER :: nj_glo 
    133133    
    134     CALL unpack(name_size) 
     134    CALL unpack_data(name_size) 
    135135    CALL sub_internal(name_size) 
    136136      
    … …  
    141141      CHARACTER(LEN=name_size) :: name      
    142142      
    143        CALL unpack(name) 
    144        CALL unpack(ni_glo) 
    145        CALL unpack(nj_glo) 
     143       CALL unpack_data(name) 
     144       CALL unpack_data(ni_glo) 
     145       CALL unpack_data(nj_glo) 
    146146      
    147147       CALL iom__set_grid_dimension(name,ni_glo,nj_glo) 
    … …  
    161161    REAL,ALLOCATABLE :: lat(:,:) 
    162162 
    163     CALL unpack(name_size) 
     163    CALL unpack_data(name_size) 
    164164    CALL sub_internal(name_size) 
    165165      
    … …  
    170170      CHARACTER(LEN=name_size) :: name      
    171171      
    172        CALL unpack(name) 
    173      
    174        CALL unpack(ni) 
    175        CALL unpack(nj) 
    176        CALL unpack(ibegin) 
    177        CALL unpack(jbegin) 
     172       CALL unpack_data(name) 
     173     
     174       CALL unpack_data(ni) 
     175       CALL unpack_data(nj) 
     176       CALL unpack_data(ibegin) 
     177       CALL unpack_data(jbegin) 
    178178     
    179179       ALLOCATE(lon(ni,nj)) 
    180180       ALLOCATE(lat(ni,nj)) 
    181        CALL unpack(lon) 
    182        CALL unpack(lat) 
     181       CALL unpack_data(lon) 
     182       CALL unpack_data(lat) 
    183183     
    184184       CALL iom__set_grid_domain(name,ni,nj,ibegin,jbegin,lon,lat) 
    … …  
    193193    INTEGER :: name_size 
    194194 
    195     CALL unpack(name_size) 
     195    CALL unpack_data(name_size) 
    196196    CALL sub_internal(name_size) 
    197197      
    … …  
    202202      CHARACTER(LEN=name_size) :: name      
    203203      
    204        CALL unpack(name) 
     204       CALL unpack_data(name) 
    205205       CALL iom__set_grid_type_nemo(name) 
    206206 
    … …  
    213213    INTEGER :: name_size 
    214214 
    215     CALL unpack(name_size) 
     215    CALL unpack_data(name_size) 
    216216    CALL sub_internal(name_size) 
    217217      
    … …  
    224224      INTEGER                  :: offset 
    225225       
    226        CALL unpack(name) 
    227        CALL unpack(nbp) 
    228        CALL unpack(offset) 
     226       CALL unpack_data(name) 
     227       CALL unpack_data(nbp) 
     228       CALL unpack_data(offset) 
    229229       CALL iom__set_grid_type_lmdz(name,nbp,offset) 
    230230 
    … …  
    239239    REAL,ALLOCATABLE :: vert_value(:) 
    240240     
    241     CALL unpack(name_size) 
     241    CALL unpack_data(name_size) 
    242242    CALL sub_internal(name_size) 
    243243 
    … …  
    248248      CHARACTER(LEN=name_size) :: name 
    249249     
    250       CALL unpack(name) 
    251       CALL unpack(vert_size) 
     250      CALL unpack_data(name) 
     251      CALL unpack_data(vert_size) 
    252252      ALLOCATE(vert_value(vert_size)) 
    253       CALL unpack(vert_value)  
     253      CALL unpack_data(vert_value)  
    254254       
    255255      CALL iom__set_vert_axis(name,vert_value) 
    … …  
    264264    REAL      :: zdt 
    265265       
    266     CALL unpack(itau0) 
    267     CALL unpack(zjulian) 
    268     CALL unpack(zdt) 
     266    CALL unpack_data(itau0) 
     267    CALL unpack_data(zjulian) 
     268    CALL unpack_data(zdt) 
    269269     
    270270    CALL iom__set_time_parameters(itau0,zjulian,zdt) 
    … …  
    277277    INTEGER :: lenc 
    278278       
    279     CALL unpack(lenc) 
     279    CALL unpack_data(lenc) 
    280280    CALL sub_internal(lenc) 
    281281   
    … …  
    286286      CHARACTER(len=lenc) :: varname 
    287287       
    288       CALL unpack(varname) 
     288      CALL unpack_data(varname) 
    289289       
    290290      CALL iom__enable_field(varname) 
    … …  
    298298    INTEGER :: lenc 
    299299       
    300     CALL unpack(lenc) 
     300    CALL unpack_data(lenc) 
    301301    CALL sub_internal(lenc) 
    302302   
    … …  
    307307      CHARACTER(len=lenc) :: varname 
    308308       
    309       CALL unpack(varname) 
     309      CALL unpack_data(varname) 
    310310       
    311311      CALL iom__disable_field(varname) 
    … …  
    321321    INTEGER :: dim1 
    322322       
    323     CALL unpack(lenc) 
    324     CALL unpack(dim1) 
     323    CALL unpack_data(lenc) 
     324    CALL unpack_data(dim1) 
    325325    CALL sub_internal(lenc,dim1) 
    326326   
    … …  
    333333      REAL                :: var(dim1) 
    334334       
    335       CALL unpack(varname) 
     335      CALL unpack_data(varname) 
    336336      CALL unpack_field(var) 
    337337       
    … …  
    347347    INTEGER :: dim2 
    348348       
    349     CALL unpack(lenc) 
    350     CALL unpack(dim1) 
    351     CALL unpack(dim2) 
     349    CALL unpack_data(lenc) 
     350    CALL unpack_data(dim1) 
     351    CALL unpack_data(dim2) 
    352352    CALL sub_internal(lenc,dim1,dim2) 
    353353   
    … …  
    361361      REAL                :: var(dim1,dim2) 
    362362       
    363       CALL unpack(varname) 
     363      CALL unpack_data(varname) 
    364364      CALL unpack_field(var) 
    365365       
    … …  
    377377    INTEGER :: dim3 
    378378     
    379     CALL unpack(lenc) 
    380     CALL unpack(dim1) 
    381     CALL unpack(dim2) 
    382     CALL unpack(dim3) 
     379    CALL unpack_data(lenc) 
     380    CALL unpack_data(dim1) 
     381    CALL unpack_data(dim2) 
     382    CALL unpack_data(dim3) 
    383383    CALL sub_internal(lenc,dim1,dim2,dim3) 
    384384  
    … …  
    395395      REAL                :: var(dim1,dim2,dim3) 
    396396         
    397       CALL unpack(varname) 
     397      CALL unpack_data(varname) 
    398398      CALL unpack_field(var) 
    399399        
    … …  
    409409    INTEGER :: timestep 
    410410      
    411     CALL unpack(timestep) 
     411    CALL unpack_data(timestep) 
    412412    CALL iom__set_timestep(timestep) 
    413413     
    … …  
    419419    INTEGER :: lenc 
    420420       
    421     CALL unpack(lenc) 
     421    CALL unpack_data(lenc) 
    422422    CALL sub_internal(lenc) 
    423423   
    … …  
    428428      CHARACTER(len=lenc) :: str_calendar 
    429429       
    430       CALL unpack(str_calendar) 
     430      CALL unpack_data(str_calendar) 
    431431       
    432432      CALL iom__set_calendar(str_calendar) 
    … …  
    449449     INTEGER        :: len_id 
    450450      
    451      CALL unpack(len_id) 
     451     CALL unpack_data(len_id) 
    452452     CALL sub_internal 
    453453   CONTAINS 
    … …  
    456456       CHARACTER(LEN=len_id) :: id 
    457457        
    458        CALL unpack(id) 
    459        CALL unpack(attrib) 
     458       CALL unpack_data(id) 
     459       CALL unpack_data(attrib) 
    460460       CALL iom__set_attribut(id,attrib) 
    461461       CALL attr_deallocate(attrib) 

  • XMLIO_SERVER/trunk/src/IOSERVER/mod_mpi_buffer_client.f90

    r46 r192  
    6969    pack_pos=pack_pos+1 
    7070!    PRINT *,"Pos in Buffer",Pending_request(Request_pos)%Pos,"pack_pos",pack_pos 
    71     CALL pack(request_id) 
     71    CALL pack_data(request_id) 
    7272  END SUBROUTINE create_request 
    7373   

  • XMLIO_SERVER/trunk/src/IOSERVER/mod_pack.f90

    r40 r192  
    55    INTEGER,SAVE      :: pack_pos 
    66     
    7     INTERFACE pack 
     7    INTERFACE pack_data 
    88      MODULE PROCEDURE pack_r,pack_r1,pack_r2,pack_r3,pack_r4,                 & 
    99                       pack_i,pack_i1,pack_i2,pack_i3,pack_i4,                 & 
    … …  
    1111                       pack_c,pack_c1,pack_c2,pack_c3,pack_c4,                 & 
    1212                       pack_attr 
    13     END INTERFACE pack 
    14  
    15     INTERFACE unpack 
     13    END INTERFACE pack_data 
     14 
     15    INTERFACE unpack_data 
    1616      MODULE PROCEDURE unpack_r,unpack_r1,unpack_r2,unpack_r3,unpack_r4,       & 
    1717                       unpack_i,unpack_i1,unpack_i2,unpack_i3,unpack_i4,       & 
    … …  
    1919                       unpack_c,unpack_c1,unpack_c2,unpack_c3,unpack_c4,       & 
    2020                       unpack_attr 
    21     END INTERFACE unpack 
     21    END INTERFACE unpack_data 
    2222 
    2323    INTERFACE pack_field 
    … …  
    474474       TYPE(attribut) :: attrib 
    475475 
    476        CALL pack(attrib%object) 
    477        CALL pack(attrib%name) 
    478        CALL pack(attrib%type) 
    479        CALL pack(attrib%dim) 
    480        CALL pack(attrib%ndim) 
    481        CALL pack(attrib%string_len) 
     476       CALL pack_data(attrib%object) 
     477       CALL pack_data(attrib%name) 
     478       CALL pack_data(attrib%type) 
     479       CALL pack_data(attrib%dim) 
     480       CALL pack_data(attrib%ndim) 
     481       CALL pack_data(attrib%string_len) 
    482482               
    483483       SELECT CASE(attrib%type) 
    484484         CASE (integer0) 
    485            CALL pack(attrib%integer0_ptr) 
     485           CALL pack_data(attrib%integer0_ptr) 
    486486         CASE (integer1) 
    487            CALL pack(attrib%integer1_ptr) 
     487           CALL pack_data(attrib%integer1_ptr) 
    488488         CASE (integer2) 
    489            CALL pack(attrib%integer2_ptr) 
     489           CALL pack_data(attrib%integer2_ptr) 
    490490         CASE (real0) 
    491            CALL pack(attrib%real0_ptr) 
     491           CALL pack_data(attrib%real0_ptr) 
    492492         CASE (real1) 
    493            CALL pack(attrib%real1_ptr) 
     493           CALL pack_data(attrib%real1_ptr) 
    494494         CASE (real2) 
    495            CALL pack(attrib%real2_ptr) 
     495           CALL pack_data(attrib%real2_ptr) 
    496496         CASE (logical0) 
    497            CALL pack(attrib%logical0_ptr) 
     497           CALL pack_data(attrib%logical0_ptr) 
    498498         CASE (logical1) 
    499            CALL pack(attrib%logical1_ptr) 
     499           CALL pack_data(attrib%logical1_ptr) 
    500500         CASE (logical2) 
    501            CALL pack(attrib%logical2_ptr) 
     501           CALL pack_data(attrib%logical2_ptr) 
    502502         CASE (string0) 
    503503           CALL pack_string0(attrib%string0_ptr) 
    … …  
    505505           CALL pack_string1(attrib%string1_ptr) 
    506506         CASE (string2) 
    507            CALL pack(attrib%string2_ptr) 
     507           CALL pack_data(attrib%string2_ptr) 
    508508       END SELECT 
    509509 
    … …  
    512512       SUBROUTINE pack_string0(str) 
    513513         CHARACTER(LEN=attrib%string_len) ::str 
    514            CALL pack(str) 
     514           CALL pack_data(str) 
    515515       END SUBROUTINE 
    516516 
    517517       SUBROUTINE pack_string1(str) 
    518518         CHARACTER(LEN=attrib%string_len) ::str(:) 
    519            CALL pack(str) 
     519           CALL pack_data(str) 
    520520       END SUBROUTINE 
    521521        
    522522       SUBROUTINE pack_string2(str) 
    523523         CHARACTER(LEN=attrib%string_len) ::str(:,:) 
    524            CALL pack(str) 
     524           CALL pack_data(str) 
    525525       END SUBROUTINE 
    526526 
    … …  
    533533       TYPE(attribut) :: attrib 
    534534 
    535        CALL unpack(attrib%object) 
    536        CALL unpack(attrib%name) 
    537        CALL unpack(attrib%type) 
    538        CALL unpack(attrib%dim) 
    539        CALL unpack(attrib%ndim) 
    540        CALL unpack(attrib%string_len) 
     535       CALL unpack_data(attrib%object) 
     536       CALL unpack_data(attrib%name) 
     537       CALL unpack_data(attrib%type) 
     538       CALL unpack_data(attrib%dim) 
     539       CALL unpack_data(attrib%ndim) 
     540       CALL unpack_data(attrib%string_len) 
    541541               
    542542       SELECT CASE(attrib%type) 
    543543         CASE (integer0) 
    544544           ALLOCATE(attrib%integer0_ptr) 
    545            CALL unpack(attrib%integer0_ptr) 
     545           CALL unpack_data(attrib%integer0_ptr) 
    546546         CASE (integer1) 
    547547           ALLOCATE(attrib%integer1_ptr(attrib%dim(1))) 
    548            CALL unpack(attrib%integer1_ptr) 
     548           CALL unpack_data(attrib%integer1_ptr) 
    549549         CASE (integer2) 
    550550           ALLOCATE(attrib%integer2_ptr(attrib%dim(1),attrib%dim(2))) 
    551            CALL unpack(attrib%integer2_ptr) 
     551           CALL unpack_data(attrib%integer2_ptr) 
    552552         CASE (real0) 
    553553           ALLOCATE(attrib%real0_ptr) 
    554            CALL unpack(attrib%real0_ptr) 
     554           CALL unpack_data(attrib%real0_ptr) 
    555555         CASE (real1) 
    556556           ALLOCATE(attrib%real1_ptr(attrib%dim(1))) 
    557            CALL unpack(attrib%real1_ptr) 
     557           CALL unpack_data(attrib%real1_ptr) 
    558558         CASE (real2) 
    559559           ALLOCATE(attrib%real2_ptr(attrib%dim(1),attrib%dim(2))) 
    560560         CASE (logical0) 
    561561           ALLOCATE(attrib%logical0_ptr) 
    562            CALL unpack(attrib%logical0_ptr) 
     562           CALL unpack_data(attrib%logical0_ptr) 
    563563         CASE (logical1) 
    564564           ALLOCATE(attrib%logical1_ptr(attrib%dim(1))) 
    565            CALL unpack(attrib%logical1_ptr) 
     565           CALL unpack_data(attrib%logical1_ptr) 
    566566         CASE (logical2) 
    567567           ALLOCATE(attrib%logical2_ptr(attrib%dim(1),attrib%dim(2))) 
    568            CALL unpack(attrib%logical2_ptr) 
     568           CALL unpack_data(attrib%logical2_ptr) 
    569569         CASE (string0) 
    570570           ALLOCATE(attrib%string0_ptr) 
    … …  
    582582       SUBROUTINE unpack_string0 
    583583         CHARACTER(LEN=attrib%string_len) ::str 
    584            CALL unpack(str) 
     584           CALL unpack_data(str) 
    585585           attrib%string0_ptr=str 
    586586       END SUBROUTINE 
    … …  
    588588       SUBROUTINE unpack_string1 
    589589         CHARACTER(LEN=attrib%string_len) ::str(attrib%dim(1)) 
    590            CALL unpack(str) 
     590           CALL unpack_data(str) 
    591591           attrib%string1_ptr=str 
    592592       END SUBROUTINE 
    … …  
    594594       SUBROUTINE unpack_string2 
    595595         CHARACTER(LEN=attrib%string_len) ::str(attrib%dim(1),attrib%dim(2)) 
    596            CALL unpack(str) 
     596           CALL unpack_data(str) 
    597597           attrib%string2_ptr=str 
    598598       END SUBROUTINE 
Note: See TracChangeset for help on using the changeset viewer.