Ignore:
Timestamp:
10/10/16 16:01:11 (8 years ago)
Author:
mhnguyen
Message:

Reducing length of line of auto-generate Fortran interface

+) Break line into smaller ones to make sure each line is not longer than 132 character

Test
+) Local with gcc4.8
+) Compilation passed

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r674 r966  
    2929      INTEGER  , OPTIONAL, INTENT(IN) :: year_length 
    3030 
    31       CALL xios(get_calendar_wrapper_handle)(calendar_wrapper_id,calendar_wrapper_hdl) 
     31      CALL xios(get_calendar_wrapper_handle) & 
     32      (calendar_wrapper_id,calendar_wrapper_hdl) 
    3233      CALL xios(set_calendar_wrapper_attr_hdl_)   & 
    3334      ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month  & 
    … …  
    7778 
    7879      IF (PRESENT(day_length_)) THEN 
    79         CALL cxios_set_calendar_wrapper_day_length(calendar_wrapper_hdl%daddr, day_length_) 
     80        CALL cxios_set_calendar_wrapper_day_length & 
     81      (calendar_wrapper_hdl%daddr, day_length_) 
    8082      ENDIF 
    8183 
    8284      IF (PRESENT(leap_year_drift_)) THEN 
    83         CALL cxios_set_calendar_wrapper_leap_year_drift(calendar_wrapper_hdl%daddr, leap_year_drift_) 
     85        CALL cxios_set_calendar_wrapper_leap_year_drift & 
     86      (calendar_wrapper_hdl%daddr, leap_year_drift_) 
    8487      ENDIF 
    8588 
    8689      IF (PRESENT(leap_year_drift_offset_)) THEN 
    87         CALL cxios_set_calendar_wrapper_leap_year_drift_offset(calendar_wrapper_hdl%daddr, leap_year_drift_offset_) 
     90        CALL cxios_set_calendar_wrapper_leap_year_drift_offset & 
     91      (calendar_wrapper_hdl%daddr, leap_year_drift_offset_) 
    8892      ENDIF 
    8993 
    9094      IF (PRESENT(leap_year_month_)) THEN 
    91         CALL cxios_set_calendar_wrapper_leap_year_month(calendar_wrapper_hdl%daddr, leap_year_month_) 
     95        CALL cxios_set_calendar_wrapper_leap_year_month & 
     96      (calendar_wrapper_hdl%daddr, leap_year_month_) 
    9297      ENDIF 
    9398 
    9499      IF (PRESENT(month_lengths_)) THEN 
    95         CALL cxios_set_calendar_wrapper_month_lengths(calendar_wrapper_hdl%daddr, month_lengths_, SHAPE(month_lengths_)) 
     100        CALL cxios_set_calendar_wrapper_month_lengths & 
     101      (calendar_wrapper_hdl%daddr, month_lengths_, SHAPE(month_lengths_)) 
    96102      ENDIF 
    97103 
    98104      IF (PRESENT(start_date_)) THEN 
    99         CALL cxios_set_calendar_wrapper_start_date(calendar_wrapper_hdl%daddr, start_date_, len(start_date_)) 
     105        CALL cxios_set_calendar_wrapper_start_date & 
     106      (calendar_wrapper_hdl%daddr, start_date_, len(start_date_)) 
    100107      ENDIF 
    101108 
    102109      IF (PRESENT(time_origin_)) THEN 
    103         CALL cxios_set_calendar_wrapper_time_origin(calendar_wrapper_hdl%daddr, time_origin_, len(time_origin_)) 
     110        CALL cxios_set_calendar_wrapper_time_origin & 
     111      (calendar_wrapper_hdl%daddr, time_origin_, len(time_origin_)) 
    104112      ENDIF 
    105113 
    106114      IF (PRESENT(timestep_)) THEN 
    107         CALL cxios_set_calendar_wrapper_timestep(calendar_wrapper_hdl%daddr, timestep_) 
     115        CALL cxios_set_calendar_wrapper_timestep & 
     116      (calendar_wrapper_hdl%daddr, timestep_) 
    108117      ENDIF 
    109118 
    110119      IF (PRESENT(type_)) THEN 
    111         CALL cxios_set_calendar_wrapper_type(calendar_wrapper_hdl%daddr, type_, len(type_)) 
     120        CALL cxios_set_calendar_wrapper_type & 
     121      (calendar_wrapper_hdl%daddr, type_, len(type_)) 
    112122      ENDIF 
    113123 
    114124      IF (PRESENT(year_length_)) THEN 
    115         CALL cxios_set_calendar_wrapper_year_length(calendar_wrapper_hdl%daddr, year_length_) 
     125        CALL cxios_set_calendar_wrapper_year_length & 
     126      (calendar_wrapper_hdl%daddr, year_length_) 
    116127      ENDIF 
    117128 
    … …  
    136147      INTEGER  , OPTIONAL, INTENT(OUT) :: year_length 
    137148 
    138       CALL xios(get_calendar_wrapper_handle)(calendar_wrapper_id,calendar_wrapper_hdl) 
     149      CALL xios(get_calendar_wrapper_handle) & 
     150      (calendar_wrapper_id,calendar_wrapper_hdl) 
    139151      CALL xios(get_calendar_wrapper_attr_hdl_)   & 
    140152      ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month  & 
    … …  
    184196 
    185197      IF (PRESENT(day_length_)) THEN 
    186         CALL cxios_get_calendar_wrapper_day_length(calendar_wrapper_hdl%daddr, day_length_) 
     198        CALL cxios_get_calendar_wrapper_day_length & 
     199      (calendar_wrapper_hdl%daddr, day_length_) 
    187200      ENDIF 
    188201 
    189202      IF (PRESENT(leap_year_drift_)) THEN 
    190         CALL cxios_get_calendar_wrapper_leap_year_drift(calendar_wrapper_hdl%daddr, leap_year_drift_) 
     203        CALL cxios_get_calendar_wrapper_leap_year_drift & 
     204      (calendar_wrapper_hdl%daddr, leap_year_drift_) 
    191205      ENDIF 
    192206 
    193207      IF (PRESENT(leap_year_drift_offset_)) THEN 
    194         CALL cxios_get_calendar_wrapper_leap_year_drift_offset(calendar_wrapper_hdl%daddr, leap_year_drift_offset_) 
     208        CALL cxios_get_calendar_wrapper_leap_year_drift_offset & 
     209      (calendar_wrapper_hdl%daddr, leap_year_drift_offset_) 
    195210      ENDIF 
    196211 
    197212      IF (PRESENT(leap_year_month_)) THEN 
    198         CALL cxios_get_calendar_wrapper_leap_year_month(calendar_wrapper_hdl%daddr, leap_year_month_) 
     213        CALL cxios_get_calendar_wrapper_leap_year_month & 
     214      (calendar_wrapper_hdl%daddr, leap_year_month_) 
    199215      ENDIF 
    200216 
    201217      IF (PRESENT(month_lengths_)) THEN 
    202         CALL cxios_get_calendar_wrapper_month_lengths(calendar_wrapper_hdl%daddr, month_lengths_, SHAPE(month_lengths_)) 
     218        CALL cxios_get_calendar_wrapper_month_lengths & 
     219      (calendar_wrapper_hdl%daddr, month_lengths_, SHAPE(month_lengths_)) 
    203220      ENDIF 
    204221 
    205222      IF (PRESENT(start_date_)) THEN 
    206         CALL cxios_get_calendar_wrapper_start_date(calendar_wrapper_hdl%daddr, start_date_, len(start_date_)) 
     223        CALL cxios_get_calendar_wrapper_start_date & 
     224      (calendar_wrapper_hdl%daddr, start_date_, len(start_date_)) 
    207225      ENDIF 
    208226 
    209227      IF (PRESENT(time_origin_)) THEN 
    210         CALL cxios_get_calendar_wrapper_time_origin(calendar_wrapper_hdl%daddr, time_origin_, len(time_origin_)) 
     228        CALL cxios_get_calendar_wrapper_time_origin & 
     229      (calendar_wrapper_hdl%daddr, time_origin_, len(time_origin_)) 
    211230      ENDIF 
    212231 
    213232      IF (PRESENT(timestep_)) THEN 
    214         CALL cxios_get_calendar_wrapper_timestep(calendar_wrapper_hdl%daddr, timestep_) 
     233        CALL cxios_get_calendar_wrapper_timestep & 
     234      (calendar_wrapper_hdl%daddr, timestep_) 
    215235      ENDIF 
    216236 
    217237      IF (PRESENT(type_)) THEN 
    218         CALL cxios_get_calendar_wrapper_type(calendar_wrapper_hdl%daddr, type_, len(type_)) 
     238        CALL cxios_get_calendar_wrapper_type & 
     239      (calendar_wrapper_hdl%daddr, type_, len(type_)) 
    219240      ENDIF 
    220241 
    221242      IF (PRESENT(year_length_)) THEN 
    222         CALL cxios_get_calendar_wrapper_year_length(calendar_wrapper_hdl%daddr, year_length_) 
     243        CALL cxios_get_calendar_wrapper_year_length & 
     244      (calendar_wrapper_hdl%daddr, year_length_) 
    223245      ENDIF 
    224246 
    … …  
    253275      LOGICAL(KIND=C_BOOL) :: year_length_tmp 
    254276 
    255       CALL xios(get_calendar_wrapper_handle)(calendar_wrapper_id,calendar_wrapper_hdl) 
     277      CALL xios(get_calendar_wrapper_handle) & 
     278      (calendar_wrapper_id,calendar_wrapper_hdl) 
    256279      CALL xios(is_defined_calendar_wrapper_attr_hdl_)   & 
    257280      ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month  & 
    … …  
    321344 
    322345      IF (PRESENT(day_length_)) THEN 
    323         day_length__tmp = cxios_is_defined_calendar_wrapper_day_length(calendar_wrapper_hdl%daddr) 
     346        day_length__tmp = cxios_is_defined_calendar_wrapper_day_length & 
     347      (calendar_wrapper_hdl%daddr) 
    324348        day_length_ = day_length__tmp 
    325349      ENDIF 
    326350 
    327351      IF (PRESENT(leap_year_drift_)) THEN 
    328         leap_year_drift__tmp = cxios_is_defined_calendar_wrapper_leap_year_drift(calendar_wrapper_hdl%daddr) 
     352        leap_year_drift__tmp = cxios_is_defined_calendar_wrapper_leap_year_drift & 
     353      (calendar_wrapper_hdl%daddr) 
    329354        leap_year_drift_ = leap_year_drift__tmp 
    330355      ENDIF 
    331356 
    332357      IF (PRESENT(leap_year_drift_offset_)) THEN 
    333         leap_year_drift_offset__tmp = cxios_is_defined_calendar_wrapper_leap_year_drift_offset(calendar_wrapper_hdl%daddr) 
     358        leap_year_drift_offset__tmp = cxios_is_defined_calendar_wrapper_leap_year_drift_offset & 
     359      (calendar_wrapper_hdl%daddr) 
    334360        leap_year_drift_offset_ = leap_year_drift_offset__tmp 
    335361      ENDIF 
    336362 
    337363      IF (PRESENT(leap_year_month_)) THEN 
    338         leap_year_month__tmp = cxios_is_defined_calendar_wrapper_leap_year_month(calendar_wrapper_hdl%daddr) 
     364        leap_year_month__tmp = cxios_is_defined_calendar_wrapper_leap_year_month & 
     365      (calendar_wrapper_hdl%daddr) 
    339366        leap_year_month_ = leap_year_month__tmp 
    340367      ENDIF 
    341368 
    342369      IF (PRESENT(month_lengths_)) THEN 
    343         month_lengths__tmp = cxios_is_defined_calendar_wrapper_month_lengths(calendar_wrapper_hdl%daddr) 
     370        month_lengths__tmp = cxios_is_defined_calendar_wrapper_month_lengths & 
     371      (calendar_wrapper_hdl%daddr) 
    344372        month_lengths_ = month_lengths__tmp 
    345373      ENDIF 
    346374 
    347375      IF (PRESENT(start_date_)) THEN 
    348         start_date__tmp = cxios_is_defined_calendar_wrapper_start_date(calendar_wrapper_hdl%daddr) 
     376        start_date__tmp = cxios_is_defined_calendar_wrapper_start_date & 
     377      (calendar_wrapper_hdl%daddr) 
    349378        start_date_ = start_date__tmp 
    350379      ENDIF 
    351380 
    352381      IF (PRESENT(time_origin_)) THEN 
    353         time_origin__tmp = cxios_is_defined_calendar_wrapper_time_origin(calendar_wrapper_hdl%daddr) 
     382        time_origin__tmp = cxios_is_defined_calendar_wrapper_time_origin & 
     383      (calendar_wrapper_hdl%daddr) 
    354384        time_origin_ = time_origin__tmp 
    355385      ENDIF 
    356386 
    357387      IF (PRESENT(timestep_)) THEN 
    358         timestep__tmp = cxios_is_defined_calendar_wrapper_timestep(calendar_wrapper_hdl%daddr) 
     388        timestep__tmp = cxios_is_defined_calendar_wrapper_timestep & 
     389      (calendar_wrapper_hdl%daddr) 
    359390        timestep_ = timestep__tmp 
    360391      ENDIF 
    361392 
    362393      IF (PRESENT(type_)) THEN 
    363         type__tmp = cxios_is_defined_calendar_wrapper_type(calendar_wrapper_hdl%daddr) 
     394        type__tmp = cxios_is_defined_calendar_wrapper_type & 
     395      (calendar_wrapper_hdl%daddr) 
    364396        type_ = type__tmp 
    365397      ENDIF 
    366398 
    367399      IF (PRESENT(year_length_)) THEN 
    368         year_length__tmp = cxios_is_defined_calendar_wrapper_year_length(calendar_wrapper_hdl%daddr) 
     400        year_length__tmp = cxios_is_defined_calendar_wrapper_year_length & 
     401      (calendar_wrapper_hdl%daddr) 
    369402        year_length_ = year_length__tmp 
    370403      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.