Changeset 966 for XIOS/trunk/src/interface/fortran_attr/icontext_attr.F90
- Timestamp:
- 10/10/16 16:01:11 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/icontext_attr.F90
r581 r966 19 19 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir 20 20 21 CALL xios(get_context_handle)(context_id,context_hdl) 21 CALL xios(get_context_handle) & 22 (context_id,context_hdl) 22 23 CALL xios(set_context_attr_hdl_) & 23 24 ( context_hdl, output_dir ) … … 45 46 46 47 IF (PRESENT(output_dir_)) THEN 47 CALL cxios_set_context_output_dir(context_hdl%daddr, output_dir_, len(output_dir_)) 48 CALL cxios_set_context_output_dir & 49 (context_hdl%daddr, output_dir_, len(output_dir_)) 48 50 ENDIF 49 51 … … 58 60 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir 59 61 60 CALL xios(get_context_handle)(context_id,context_hdl) 62 CALL xios(get_context_handle) & 63 (context_id,context_hdl) 61 64 CALL xios(get_context_attr_hdl_) & 62 65 ( context_hdl, output_dir ) … … 84 87 85 88 IF (PRESENT(output_dir_)) THEN 86 CALL cxios_get_context_output_dir(context_hdl%daddr, output_dir_, len(output_dir_)) 89 CALL cxios_get_context_output_dir & 90 (context_hdl%daddr, output_dir_, len(output_dir_)) 87 91 ENDIF 88 92 … … 98 102 LOGICAL(KIND=C_BOOL) :: output_dir_tmp 99 103 100 CALL xios(get_context_handle)(context_id,context_hdl) 104 CALL xios(get_context_handle) & 105 (context_id,context_hdl) 101 106 CALL xios(is_defined_context_attr_hdl_) & 102 107 ( context_hdl, output_dir ) … … 126 131 127 132 IF (PRESENT(output_dir_)) THEN 128 output_dir__tmp = cxios_is_defined_context_output_dir(context_hdl%daddr) 133 output_dir__tmp = cxios_is_defined_context_output_dir & 134 (context_hdl%daddr) 129 135 output_dir_ = output_dir__tmp 130 136 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.