Ignore:
Timestamp:
03/19/24 14:23:16 (4 months ago)
Author:
jderouillat
Message:

Add XIOS3 fortran interfaces (resources management, chunking, compression)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS3/trunk/src/interface/fortran_attr/icontext_attr.F90

    r1941 r2616  
    1212 
    1313  SUBROUTINE xios(set_context_attr)  & 
    14     ( context_id, attached_mode, output_dir ) 
     14    ( context_id, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader  & 
     15    , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir ) 
    1516 
    1617    IMPLICIT NONE 
    … …  
    1920      LOGICAL  , OPTIONAL, INTENT(IN) :: attached_mode 
    2021      LOGICAL (KIND=C_BOOL) :: attached_mode_tmp 
     22      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_gatherer 
     23      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool 
     24      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool_gatherer 
     25      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool_reader 
     26      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool_writer 
     27      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_reader 
     28      LOGICAL  , OPTIONAL, INTENT(IN) :: default_using_server2 
     29      LOGICAL (KIND=C_BOOL) :: default_using_server2_tmp 
     30      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_writer 
    2131      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir 
    2232 
    … …  
    2434      (context_id,context_hdl) 
    2535      CALL xios(set_context_attr_hdl_)   & 
    26       ( context_hdl, attached_mode, output_dir ) 
     36      ( context_hdl, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader  & 
     37      , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir ) 
    2738 
    2839  END SUBROUTINE xios(set_context_attr) 
    2940 
    3041  SUBROUTINE xios(set_context_attr_hdl)  & 
    31     ( context_hdl, attached_mode, output_dir ) 
     42    ( context_hdl, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader  & 
     43    , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir ) 
    3244 
    3345    IMPLICIT NONE 
    … …  
    3547      LOGICAL  , OPTIONAL, INTENT(IN) :: attached_mode 
    3648      LOGICAL (KIND=C_BOOL) :: attached_mode_tmp 
     49      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_gatherer 
     50      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool 
     51      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool_gatherer 
     52      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool_reader 
     53      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool_writer 
     54      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_reader 
     55      LOGICAL  , OPTIONAL, INTENT(IN) :: default_using_server2 
     56      LOGICAL (KIND=C_BOOL) :: default_using_server2_tmp 
     57      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_writer 
    3758      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir 
    3859 
    3960      CALL xios(set_context_attr_hdl_)  & 
    40       ( context_hdl, attached_mode, output_dir ) 
     61      ( context_hdl, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader  & 
     62      , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir ) 
    4163 
    4264  END SUBROUTINE xios(set_context_attr_hdl) 
    4365 
    4466  SUBROUTINE xios(set_context_attr_hdl_)   & 
    45     ( context_hdl, attached_mode_, output_dir_ ) 
     67    ( context_hdl, attached_mode_, default_gatherer_, default_pool_, default_pool_gatherer_, default_pool_reader_  & 
     68    , default_pool_writer_, default_reader_, default_using_server2_, default_writer_, output_dir_  & 
     69     ) 
    4670 
    4771    IMPLICIT NONE 
    … …  
    4973      LOGICAL  , OPTIONAL, INTENT(IN) :: attached_mode_ 
    5074      LOGICAL (KIND=C_BOOL) :: attached_mode__tmp 
     75      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_gatherer_ 
     76      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool_ 
     77      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool_gatherer_ 
     78      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool_reader_ 
     79      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool_writer_ 
     80      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_reader_ 
     81      LOGICAL  , OPTIONAL, INTENT(IN) :: default_using_server2_ 
     82      LOGICAL (KIND=C_BOOL) :: default_using_server2__tmp 
     83      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_writer_ 
    5184      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir_ 
    5285 
    … …  
    5790      ENDIF 
    5891 
     92      IF (PRESENT(default_gatherer_)) THEN 
     93        CALL cxios_set_context_default_gatherer & 
     94      (context_hdl%daddr, default_gatherer_, len(default_gatherer_)) 
     95      ENDIF 
     96 
     97      IF (PRESENT(default_pool_)) THEN 
     98        CALL cxios_set_context_default_pool & 
     99      (context_hdl%daddr, default_pool_, len(default_pool_)) 
     100      ENDIF 
     101 
     102      IF (PRESENT(default_pool_gatherer_)) THEN 
     103        CALL cxios_set_context_default_pool_gatherer & 
     104      (context_hdl%daddr, default_pool_gatherer_, len(default_pool_gatherer_)) 
     105      ENDIF 
     106 
     107      IF (PRESENT(default_pool_reader_)) THEN 
     108        CALL cxios_set_context_default_pool_reader & 
     109      (context_hdl%daddr, default_pool_reader_, len(default_pool_reader_)) 
     110      ENDIF 
     111 
     112      IF (PRESENT(default_pool_writer_)) THEN 
     113        CALL cxios_set_context_default_pool_writer & 
     114      (context_hdl%daddr, default_pool_writer_, len(default_pool_writer_)) 
     115      ENDIF 
     116 
     117      IF (PRESENT(default_reader_)) THEN 
     118        CALL cxios_set_context_default_reader & 
     119      (context_hdl%daddr, default_reader_, len(default_reader_)) 
     120      ENDIF 
     121 
     122      IF (PRESENT(default_using_server2_)) THEN 
     123        default_using_server2__tmp = default_using_server2_ 
     124        CALL cxios_set_context_default_using_server2 & 
     125      (context_hdl%daddr, default_using_server2__tmp) 
     126      ENDIF 
     127 
     128      IF (PRESENT(default_writer_)) THEN 
     129        CALL cxios_set_context_default_writer & 
     130      (context_hdl%daddr, default_writer_, len(default_writer_)) 
     131      ENDIF 
     132 
    59133      IF (PRESENT(output_dir_)) THEN 
    60134        CALL cxios_set_context_output_dir & 
    … …  
    65139 
    66140  SUBROUTINE xios(get_context_attr)  & 
    67     ( context_id, attached_mode, output_dir ) 
     141    ( context_id, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader  & 
     142    , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir ) 
    68143 
    69144    IMPLICIT NONE 
    … …  
    72147      LOGICAL  , OPTIONAL, INTENT(OUT) :: attached_mode 
    73148      LOGICAL (KIND=C_BOOL) :: attached_mode_tmp 
     149      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_gatherer 
     150      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool 
     151      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool_gatherer 
     152      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool_reader 
     153      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool_writer 
     154      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_reader 
     155      LOGICAL  , OPTIONAL, INTENT(OUT) :: default_using_server2 
     156      LOGICAL (KIND=C_BOOL) :: default_using_server2_tmp 
     157      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_writer 
    74158      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir 
    75159 
    … …  
    77161      (context_id,context_hdl) 
    78162      CALL xios(get_context_attr_hdl_)   & 
    79       ( context_hdl, attached_mode, output_dir ) 
     163      ( context_hdl, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader  & 
     164      , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir ) 
    80165 
    81166  END SUBROUTINE xios(get_context_attr) 
    82167 
    83168  SUBROUTINE xios(get_context_attr_hdl)  & 
    84     ( context_hdl, attached_mode, output_dir ) 
     169    ( context_hdl, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader  & 
     170    , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir ) 
    85171 
    86172    IMPLICIT NONE 
    … …  
    88174      LOGICAL  , OPTIONAL, INTENT(OUT) :: attached_mode 
    89175      LOGICAL (KIND=C_BOOL) :: attached_mode_tmp 
     176      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_gatherer 
     177      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool 
     178      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool_gatherer 
     179      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool_reader 
     180      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool_writer 
     181      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_reader 
     182      LOGICAL  , OPTIONAL, INTENT(OUT) :: default_using_server2 
     183      LOGICAL (KIND=C_BOOL) :: default_using_server2_tmp 
     184      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_writer 
    90185      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir 
    91186 
    92187      CALL xios(get_context_attr_hdl_)  & 
    93       ( context_hdl, attached_mode, output_dir ) 
     188      ( context_hdl, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader  & 
     189      , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir ) 
    94190 
    95191  END SUBROUTINE xios(get_context_attr_hdl) 
    96192 
    97193  SUBROUTINE xios(get_context_attr_hdl_)   & 
    98     ( context_hdl, attached_mode_, output_dir_ ) 
     194    ( context_hdl, attached_mode_, default_gatherer_, default_pool_, default_pool_gatherer_, default_pool_reader_  & 
     195    , default_pool_writer_, default_reader_, default_using_server2_, default_writer_, output_dir_  & 
     196     ) 
    99197 
    100198    IMPLICIT NONE 
    … …  
    102200      LOGICAL  , OPTIONAL, INTENT(OUT) :: attached_mode_ 
    103201      LOGICAL (KIND=C_BOOL) :: attached_mode__tmp 
     202      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_gatherer_ 
     203      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool_ 
     204      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool_gatherer_ 
     205      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool_reader_ 
     206      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool_writer_ 
     207      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_reader_ 
     208      LOGICAL  , OPTIONAL, INTENT(OUT) :: default_using_server2_ 
     209      LOGICAL (KIND=C_BOOL) :: default_using_server2__tmp 
     210      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_writer_ 
    104211      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir_ 
    105212 
    … …  
    110217      ENDIF 
    111218 
     219      IF (PRESENT(default_gatherer_)) THEN 
     220        CALL cxios_get_context_default_gatherer & 
     221      (context_hdl%daddr, default_gatherer_, len(default_gatherer_)) 
     222      ENDIF 
     223 
     224      IF (PRESENT(default_pool_)) THEN 
     225        CALL cxios_get_context_default_pool & 
     226      (context_hdl%daddr, default_pool_, len(default_pool_)) 
     227      ENDIF 
     228 
     229      IF (PRESENT(default_pool_gatherer_)) THEN 
     230        CALL cxios_get_context_default_pool_gatherer & 
     231      (context_hdl%daddr, default_pool_gatherer_, len(default_pool_gatherer_)) 
     232      ENDIF 
     233 
     234      IF (PRESENT(default_pool_reader_)) THEN 
     235        CALL cxios_get_context_default_pool_reader & 
     236      (context_hdl%daddr, default_pool_reader_, len(default_pool_reader_)) 
     237      ENDIF 
     238 
     239      IF (PRESENT(default_pool_writer_)) THEN 
     240        CALL cxios_get_context_default_pool_writer & 
     241      (context_hdl%daddr, default_pool_writer_, len(default_pool_writer_)) 
     242      ENDIF 
     243 
     244      IF (PRESENT(default_reader_)) THEN 
     245        CALL cxios_get_context_default_reader & 
     246      (context_hdl%daddr, default_reader_, len(default_reader_)) 
     247      ENDIF 
     248 
     249      IF (PRESENT(default_using_server2_)) THEN 
     250        CALL cxios_get_context_default_using_server2 & 
     251      (context_hdl%daddr, default_using_server2__tmp) 
     252        default_using_server2_ = default_using_server2__tmp 
     253      ENDIF 
     254 
     255      IF (PRESENT(default_writer_)) THEN 
     256        CALL cxios_get_context_default_writer & 
     257      (context_hdl%daddr, default_writer_, len(default_writer_)) 
     258      ENDIF 
     259 
    112260      IF (PRESENT(output_dir_)) THEN 
    113261        CALL cxios_get_context_output_dir & 
    … …  
    118266 
    119267  SUBROUTINE xios(is_defined_context_attr)  & 
    120     ( context_id, attached_mode, output_dir ) 
     268    ( context_id, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader  & 
     269    , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir ) 
    121270 
    122271    IMPLICIT NONE 
    … …  
    125274      LOGICAL, OPTIONAL, INTENT(OUT) :: attached_mode 
    126275      LOGICAL(KIND=C_BOOL) :: attached_mode_tmp 
     276      LOGICAL, OPTIONAL, INTENT(OUT) :: default_gatherer 
     277      LOGICAL(KIND=C_BOOL) :: default_gatherer_tmp 
     278      LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool 
     279      LOGICAL(KIND=C_BOOL) :: default_pool_tmp 
     280      LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool_gatherer 
     281      LOGICAL(KIND=C_BOOL) :: default_pool_gatherer_tmp 
     282      LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool_reader 
     283      LOGICAL(KIND=C_BOOL) :: default_pool_reader_tmp 
     284      LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool_writer 
     285      LOGICAL(KIND=C_BOOL) :: default_pool_writer_tmp 
     286      LOGICAL, OPTIONAL, INTENT(OUT) :: default_reader 
     287      LOGICAL(KIND=C_BOOL) :: default_reader_tmp 
     288      LOGICAL, OPTIONAL, INTENT(OUT) :: default_using_server2 
     289      LOGICAL(KIND=C_BOOL) :: default_using_server2_tmp 
     290      LOGICAL, OPTIONAL, INTENT(OUT) :: default_writer 
     291      LOGICAL(KIND=C_BOOL) :: default_writer_tmp 
    127292      LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir 
    128293      LOGICAL(KIND=C_BOOL) :: output_dir_tmp 
    … …  
    131296      (context_id,context_hdl) 
    132297      CALL xios(is_defined_context_attr_hdl_)   & 
    133       ( context_hdl, attached_mode, output_dir ) 
     298      ( context_hdl, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader  & 
     299      , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir ) 
    134300 
    135301  END SUBROUTINE xios(is_defined_context_attr) 
    136302 
    137303  SUBROUTINE xios(is_defined_context_attr_hdl)  & 
    138     ( context_hdl, attached_mode, output_dir ) 
     304    ( context_hdl, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader  & 
     305    , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir ) 
    139306 
    140307    IMPLICIT NONE 
    … …  
    142309      LOGICAL, OPTIONAL, INTENT(OUT) :: attached_mode 
    143310      LOGICAL(KIND=C_BOOL) :: attached_mode_tmp 
     311      LOGICAL, OPTIONAL, INTENT(OUT) :: default_gatherer 
     312      LOGICAL(KIND=C_BOOL) :: default_gatherer_tmp 
     313      LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool 
     314      LOGICAL(KIND=C_BOOL) :: default_pool_tmp 
     315      LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool_gatherer 
     316      LOGICAL(KIND=C_BOOL) :: default_pool_gatherer_tmp 
     317      LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool_reader 
     318      LOGICAL(KIND=C_BOOL) :: default_pool_reader_tmp 
     319      LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool_writer 
     320      LOGICAL(KIND=C_BOOL) :: default_pool_writer_tmp 
     321      LOGICAL, OPTIONAL, INTENT(OUT) :: default_reader 
     322      LOGICAL(KIND=C_BOOL) :: default_reader_tmp 
     323      LOGICAL, OPTIONAL, INTENT(OUT) :: default_using_server2 
     324      LOGICAL(KIND=C_BOOL) :: default_using_server2_tmp 
     325      LOGICAL, OPTIONAL, INTENT(OUT) :: default_writer 
     326      LOGICAL(KIND=C_BOOL) :: default_writer_tmp 
    144327      LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir 
    145328      LOGICAL(KIND=C_BOOL) :: output_dir_tmp 
    146329 
    147330      CALL xios(is_defined_context_attr_hdl_)  & 
    148       ( context_hdl, attached_mode, output_dir ) 
     331      ( context_hdl, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader  & 
     332      , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir ) 
    149333 
    150334  END SUBROUTINE xios(is_defined_context_attr_hdl) 
    151335 
    152336  SUBROUTINE xios(is_defined_context_attr_hdl_)   & 
    153     ( context_hdl, attached_mode_, output_dir_ ) 
     337    ( context_hdl, attached_mode_, default_gatherer_, default_pool_, default_pool_gatherer_, default_pool_reader_  & 
     338    , default_pool_writer_, default_reader_, default_using_server2_, default_writer_, output_dir_  & 
     339     ) 
    154340 
    155341    IMPLICIT NONE 
    … …  
    157343      LOGICAL, OPTIONAL, INTENT(OUT) :: attached_mode_ 
    158344      LOGICAL(KIND=C_BOOL) :: attached_mode__tmp 
     345      LOGICAL, OPTIONAL, INTENT(OUT) :: default_gatherer_ 
     346      LOGICAL(KIND=C_BOOL) :: default_gatherer__tmp 
     347      LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool_ 
     348      LOGICAL(KIND=C_BOOL) :: default_pool__tmp 
     349      LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool_gatherer_ 
     350      LOGICAL(KIND=C_BOOL) :: default_pool_gatherer__tmp 
     351      LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool_reader_ 
     352      LOGICAL(KIND=C_BOOL) :: default_pool_reader__tmp 
     353      LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool_writer_ 
     354      LOGICAL(KIND=C_BOOL) :: default_pool_writer__tmp 
     355      LOGICAL, OPTIONAL, INTENT(OUT) :: default_reader_ 
     356      LOGICAL(KIND=C_BOOL) :: default_reader__tmp 
     357      LOGICAL, OPTIONAL, INTENT(OUT) :: default_using_server2_ 
     358      LOGICAL(KIND=C_BOOL) :: default_using_server2__tmp 
     359      LOGICAL, OPTIONAL, INTENT(OUT) :: default_writer_ 
     360      LOGICAL(KIND=C_BOOL) :: default_writer__tmp 
    159361      LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir_ 
    160362      LOGICAL(KIND=C_BOOL) :: output_dir__tmp 
    … …  
    166368      ENDIF 
    167369 
     370      IF (PRESENT(default_gatherer_)) THEN 
     371        default_gatherer__tmp = cxios_is_defined_context_default_gatherer & 
     372      (context_hdl%daddr) 
     373        default_gatherer_ = default_gatherer__tmp 
     374      ENDIF 
     375 
     376      IF (PRESENT(default_pool_)) THEN 
     377        default_pool__tmp = cxios_is_defined_context_default_pool & 
     378      (context_hdl%daddr) 
     379        default_pool_ = default_pool__tmp 
     380      ENDIF 
     381 
     382      IF (PRESENT(default_pool_gatherer_)) THEN 
     383        default_pool_gatherer__tmp = cxios_is_defined_context_default_pool_gatherer & 
     384      (context_hdl%daddr) 
     385        default_pool_gatherer_ = default_pool_gatherer__tmp 
     386      ENDIF 
     387 
     388      IF (PRESENT(default_pool_reader_)) THEN 
     389        default_pool_reader__tmp = cxios_is_defined_context_default_pool_reader & 
     390      (context_hdl%daddr) 
     391        default_pool_reader_ = default_pool_reader__tmp 
     392      ENDIF 
     393 
     394      IF (PRESENT(default_pool_writer_)) THEN 
     395        default_pool_writer__tmp = cxios_is_defined_context_default_pool_writer & 
     396      (context_hdl%daddr) 
     397        default_pool_writer_ = default_pool_writer__tmp 
     398      ENDIF 
     399 
     400      IF (PRESENT(default_reader_)) THEN 
     401        default_reader__tmp = cxios_is_defined_context_default_reader & 
     402      (context_hdl%daddr) 
     403        default_reader_ = default_reader__tmp 
     404      ENDIF 
     405 
     406      IF (PRESENT(default_using_server2_)) THEN 
     407        default_using_server2__tmp = cxios_is_defined_context_default_using_server2 & 
     408      (context_hdl%daddr) 
     409        default_using_server2_ = default_using_server2__tmp 
     410      ENDIF 
     411 
     412      IF (PRESENT(default_writer_)) THEN 
     413        default_writer__tmp = cxios_is_defined_context_default_writer & 
     414      (context_hdl%daddr) 
     415        default_writer_ = default_writer__tmp 
     416      ENDIF 
     417 
    168418      IF (PRESENT(output_dir_)) THEN 
    169419        output_dir__tmp = cxios_is_defined_context_output_dir & 
Note: See TracChangeset for help on using the changeset viewer.