Ignore:
Timestamp:
11/13/15 11:45:12 (8 years ago)
Author:
mhnguyen
Message:

Changing name of attributes of zoom

Test
+) test_client and test_complete are correct

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS/trunk/src/interface/fortran_attr/izoom_axis_attr.F90

    r784 r787  
    1212 
    1313  SUBROUTINE xios(set_zoom_axis_attr)  & 
    14     ( zoom_axis_id, zoom_begin, zoom_end, zoom_size ) 
     14    ( zoom_axis_id, begin, n ) 
    1515 
    1616    IMPLICIT NONE 
    1717      TYPE(txios(zoom_axis))  :: zoom_axis_hdl 
    1818      CHARACTER(LEN=*), INTENT(IN) ::zoom_axis_id 
    19       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_begin 
    20       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_end 
    21       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_size 
     19      INTEGER  , OPTIONAL, INTENT(IN) :: begin 
     20      INTEGER  , OPTIONAL, INTENT(IN) :: n 
    2221 
    2322      CALL xios(get_zoom_axis_handle)(zoom_axis_id,zoom_axis_hdl) 
    2423      CALL xios(set_zoom_axis_attr_hdl_)   & 
    25       ( zoom_axis_hdl, zoom_begin, zoom_end, zoom_size ) 
     24      ( zoom_axis_hdl, begin, n ) 
    2625 
    2726  END SUBROUTINE xios(set_zoom_axis_attr) 
    2827 
    2928  SUBROUTINE xios(set_zoom_axis_attr_hdl)  & 
    30     ( zoom_axis_hdl, zoom_begin, zoom_end, zoom_size ) 
     29    ( zoom_axis_hdl, begin, n ) 
    3130 
    3231    IMPLICIT NONE 
    3332      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl 
    34       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_begin 
    35       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_end 
    36       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_size 
     33      INTEGER  , OPTIONAL, INTENT(IN) :: begin 
     34      INTEGER  , OPTIONAL, INTENT(IN) :: n 
    3735 
    3836      CALL xios(set_zoom_axis_attr_hdl_)  & 
    39       ( zoom_axis_hdl, zoom_begin, zoom_end, zoom_size ) 
     37      ( zoom_axis_hdl, begin, n ) 
    4038 
    4139  END SUBROUTINE xios(set_zoom_axis_attr_hdl) 
    4240 
    4341  SUBROUTINE xios(set_zoom_axis_attr_hdl_)   & 
    44     ( zoom_axis_hdl, zoom_begin_, zoom_end_, zoom_size_ ) 
     42    ( zoom_axis_hdl, begin_, n_ ) 
    4543 
    4644    IMPLICIT NONE 
    4745      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl 
    48       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_begin_ 
    49       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_end_ 
    50       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_size_ 
     46      INTEGER  , OPTIONAL, INTENT(IN) :: begin_ 
     47      INTEGER  , OPTIONAL, INTENT(IN) :: n_ 
    5148 
    52       IF (PRESENT(zoom_begin_)) THEN 
    53         CALL cxios_set_zoom_axis_zoom_begin(zoom_axis_hdl%daddr, zoom_begin_) 
     49      IF (PRESENT(begin_)) THEN 
     50        CALL cxios_set_zoom_axis_begin(zoom_axis_hdl%daddr, begin_) 
    5451      ENDIF 
    5552 
    56       IF (PRESENT(zoom_end_)) THEN 
    57         CALL cxios_set_zoom_axis_zoom_end(zoom_axis_hdl%daddr, zoom_end_) 
    58       ENDIF 
    59  
    60       IF (PRESENT(zoom_size_)) THEN 
    61         CALL cxios_set_zoom_axis_zoom_size(zoom_axis_hdl%daddr, zoom_size_) 
     53      IF (PRESENT(n_)) THEN 
     54        CALL cxios_set_zoom_axis_n(zoom_axis_hdl%daddr, n_) 
    6255      ENDIF 
    6356 
    … …  
    6558 
    6659  SUBROUTINE xios(get_zoom_axis_attr)  & 
    67     ( zoom_axis_id, zoom_begin, zoom_end, zoom_size ) 
     60    ( zoom_axis_id, begin, n ) 
    6861 
    6962    IMPLICIT NONE 
    7063      TYPE(txios(zoom_axis))  :: zoom_axis_hdl 
    7164      CHARACTER(LEN=*), INTENT(IN) ::zoom_axis_id 
    72       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_begin 
    73       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_end 
    74       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_size 
     65      INTEGER  , OPTIONAL, INTENT(OUT) :: begin 
     66      INTEGER  , OPTIONAL, INTENT(OUT) :: n 
    7567 
    7668      CALL xios(get_zoom_axis_handle)(zoom_axis_id,zoom_axis_hdl) 
    7769      CALL xios(get_zoom_axis_attr_hdl_)   & 
    78       ( zoom_axis_hdl, zoom_begin, zoom_end, zoom_size ) 
     70      ( zoom_axis_hdl, begin, n ) 
    7971 
    8072  END SUBROUTINE xios(get_zoom_axis_attr) 
    8173 
    8274  SUBROUTINE xios(get_zoom_axis_attr_hdl)  & 
    83     ( zoom_axis_hdl, zoom_begin, zoom_end, zoom_size ) 
     75    ( zoom_axis_hdl, begin, n ) 
    8476 
    8577    IMPLICIT NONE 
    8678      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl 
    87       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_begin 
    88       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_end 
    89       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_size 
     79      INTEGER  , OPTIONAL, INTENT(OUT) :: begin 
     80      INTEGER  , OPTIONAL, INTENT(OUT) :: n 
    9081 
    9182      CALL xios(get_zoom_axis_attr_hdl_)  & 
    92       ( zoom_axis_hdl, zoom_begin, zoom_end, zoom_size ) 
     83      ( zoom_axis_hdl, begin, n ) 
    9384 
    9485  END SUBROUTINE xios(get_zoom_axis_attr_hdl) 
    9586 
    9687  SUBROUTINE xios(get_zoom_axis_attr_hdl_)   & 
    97     ( zoom_axis_hdl, zoom_begin_, zoom_end_, zoom_size_ ) 
     88    ( zoom_axis_hdl, begin_, n_ ) 
    9889 
    9990    IMPLICIT NONE 
    10091      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl 
    101       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_begin_ 
    102       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_end_ 
    103       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_size_ 
     92      INTEGER  , OPTIONAL, INTENT(OUT) :: begin_ 
     93      INTEGER  , OPTIONAL, INTENT(OUT) :: n_ 
    10494 
    105       IF (PRESENT(zoom_begin_)) THEN 
    106         CALL cxios_get_zoom_axis_zoom_begin(zoom_axis_hdl%daddr, zoom_begin_) 
     95      IF (PRESENT(begin_)) THEN 
     96        CALL cxios_get_zoom_axis_begin(zoom_axis_hdl%daddr, begin_) 
    10797      ENDIF 
    10898 
    109       IF (PRESENT(zoom_end_)) THEN 
    110         CALL cxios_get_zoom_axis_zoom_end(zoom_axis_hdl%daddr, zoom_end_) 
    111       ENDIF 
    112  
    113       IF (PRESENT(zoom_size_)) THEN 
    114         CALL cxios_get_zoom_axis_zoom_size(zoom_axis_hdl%daddr, zoom_size_) 
     99      IF (PRESENT(n_)) THEN 
     100        CALL cxios_get_zoom_axis_n(zoom_axis_hdl%daddr, n_) 
    115101      ENDIF 
    116102 
    … …  
    118104 
    119105  SUBROUTINE xios(is_defined_zoom_axis_attr)  & 
    120     ( zoom_axis_id, zoom_begin, zoom_end, zoom_size ) 
     106    ( zoom_axis_id, begin, n ) 
    121107 
    122108    IMPLICIT NONE 
    123109      TYPE(txios(zoom_axis))  :: zoom_axis_hdl 
    124110      CHARACTER(LEN=*), INTENT(IN) ::zoom_axis_id 
    125       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin 
    126       LOGICAL(KIND=C_BOOL) :: zoom_begin_tmp 
    127       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end 
    128       LOGICAL(KIND=C_BOOL) :: zoom_end_tmp 
    129       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size 
    130       LOGICAL(KIND=C_BOOL) :: zoom_size_tmp 
     111      LOGICAL, OPTIONAL, INTENT(OUT) :: begin 
     112      LOGICAL(KIND=C_BOOL) :: begin_tmp 
     113      LOGICAL, OPTIONAL, INTENT(OUT) :: n 
     114      LOGICAL(KIND=C_BOOL) :: n_tmp 
    131115 
    132116      CALL xios(get_zoom_axis_handle)(zoom_axis_id,zoom_axis_hdl) 
    133117      CALL xios(is_defined_zoom_axis_attr_hdl_)   & 
    134       ( zoom_axis_hdl, zoom_begin, zoom_end, zoom_size ) 
     118      ( zoom_axis_hdl, begin, n ) 
    135119 
    136120  END SUBROUTINE xios(is_defined_zoom_axis_attr) 
    137121 
    138122  SUBROUTINE xios(is_defined_zoom_axis_attr_hdl)  & 
    139     ( zoom_axis_hdl, zoom_begin, zoom_end, zoom_size ) 
     123    ( zoom_axis_hdl, begin, n ) 
    140124 
    141125    IMPLICIT NONE 
    142126      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl 
    143       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin 
    144       LOGICAL(KIND=C_BOOL) :: zoom_begin_tmp 
    145       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end 
    146       LOGICAL(KIND=C_BOOL) :: zoom_end_tmp 
    147       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size 
    148       LOGICAL(KIND=C_BOOL) :: zoom_size_tmp 
     127      LOGICAL, OPTIONAL, INTENT(OUT) :: begin 
     128      LOGICAL(KIND=C_BOOL) :: begin_tmp 
     129      LOGICAL, OPTIONAL, INTENT(OUT) :: n 
     130      LOGICAL(KIND=C_BOOL) :: n_tmp 
    149131 
    150132      CALL xios(is_defined_zoom_axis_attr_hdl_)  & 
    151       ( zoom_axis_hdl, zoom_begin, zoom_end, zoom_size ) 
     133      ( zoom_axis_hdl, begin, n ) 
    152134 
    153135  END SUBROUTINE xios(is_defined_zoom_axis_attr_hdl) 
    154136 
    155137  SUBROUTINE xios(is_defined_zoom_axis_attr_hdl_)   & 
    156     ( zoom_axis_hdl, zoom_begin_, zoom_end_, zoom_size_ ) 
     138    ( zoom_axis_hdl, begin_, n_ ) 
    157139 
    158140    IMPLICIT NONE 
    159141      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl 
    160       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin_ 
    161       LOGICAL(KIND=C_BOOL) :: zoom_begin__tmp 
    162       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end_ 
    163       LOGICAL(KIND=C_BOOL) :: zoom_end__tmp 
    164       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size_ 
    165       LOGICAL(KIND=C_BOOL) :: zoom_size__tmp 
     142      LOGICAL, OPTIONAL, INTENT(OUT) :: begin_ 
     143      LOGICAL(KIND=C_BOOL) :: begin__tmp 
     144      LOGICAL, OPTIONAL, INTENT(OUT) :: n_ 
     145      LOGICAL(KIND=C_BOOL) :: n__tmp 
    166146 
    167       IF (PRESENT(zoom_begin_)) THEN 
    168         zoom_begin__tmp = cxios_is_defined_zoom_axis_zoom_begin(zoom_axis_hdl%daddr) 
    169         zoom_begin_ = zoom_begin__tmp 
     147      IF (PRESENT(begin_)) THEN 
     148        begin__tmp = cxios_is_defined_zoom_axis_begin(zoom_axis_hdl%daddr) 
     149        begin_ = begin__tmp 
    170150      ENDIF 
    171151 
    172       IF (PRESENT(zoom_end_)) THEN 
    173         zoom_end__tmp = cxios_is_defined_zoom_axis_zoom_end(zoom_axis_hdl%daddr) 
    174         zoom_end_ = zoom_end__tmp 
    175       ENDIF 
    176  
    177       IF (PRESENT(zoom_size_)) THEN 
    178         zoom_size__tmp = cxios_is_defined_zoom_axis_zoom_size(zoom_axis_hdl%daddr) 
    179         zoom_size_ = zoom_size__tmp 
     152      IF (PRESENT(n_)) THEN 
     153        n__tmp = cxios_is_defined_zoom_axis_n(zoom_axis_hdl%daddr) 
     154        n_ = n__tmp 
    180155      ENDIF 
    181156 
Note: See TracChangeset for help on using the changeset viewer.