Ignore:
Timestamp:
02/11/15 16:47:47 (9 years ago)
Author:
mhnguyen
Message:

Updating some Fortran interface files

+) Update some Fortran interface files generated by generate_fortran_interface.exe

Test
+) No test

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r546 r555  
    3131     
    3232     
     33    SUBROUTINE cxios_set_axisgroup_data_begin(axisgroup_hdl, data_begin) BIND(C) 
     34      USE ISO_C_BINDING 
     35      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
     36      INTEGER (KIND=C_INT)      , VALUE :: data_begin 
     37    END SUBROUTINE cxios_set_axisgroup_data_begin 
     38     
     39    SUBROUTINE cxios_get_axisgroup_data_begin(axisgroup_hdl, data_begin) BIND(C) 
     40      USE ISO_C_BINDING 
     41      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
     42      INTEGER (KIND=C_INT)             :: data_begin 
     43    END SUBROUTINE cxios_get_axisgroup_data_begin 
     44     
     45    FUNCTION cxios_is_defined_axisgroup_data_begin(axisgroup_hdl ) BIND(C) 
     46      USE ISO_C_BINDING 
     47      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_data_begin 
     48      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
     49    END FUNCTION cxios_is_defined_axisgroup_data_begin 
     50     
     51     
     52    SUBROUTINE cxios_set_axisgroup_data_index(axisgroup_hdl, data_index, extent1) BIND(C) 
     53      USE ISO_C_BINDING 
     54      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl 
     55      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_index 
     56      INTEGER (kind = C_INT), VALUE  :: extent1 
     57    END SUBROUTINE cxios_set_axisgroup_data_index 
     58     
     59    SUBROUTINE cxios_get_axisgroup_data_index(axisgroup_hdl, data_index, extent1) BIND(C) 
     60      USE ISO_C_BINDING 
     61      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl 
     62      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_index 
     63      INTEGER (kind = C_INT), VALUE  :: extent1 
     64    END SUBROUTINE cxios_get_axisgroup_data_index 
     65     
     66    FUNCTION cxios_is_defined_axisgroup_data_index(axisgroup_hdl ) BIND(C) 
     67      USE ISO_C_BINDING 
     68      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_data_index 
     69      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
     70    END FUNCTION cxios_is_defined_axisgroup_data_index 
     71     
     72     
     73    SUBROUTINE cxios_set_axisgroup_data_n(axisgroup_hdl, data_n) BIND(C) 
     74      USE ISO_C_BINDING 
     75      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
     76      INTEGER (KIND=C_INT)      , VALUE :: data_n 
     77    END SUBROUTINE cxios_set_axisgroup_data_n 
     78     
     79    SUBROUTINE cxios_get_axisgroup_data_n(axisgroup_hdl, data_n) BIND(C) 
     80      USE ISO_C_BINDING 
     81      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
     82      INTEGER (KIND=C_INT)             :: data_n 
     83    END SUBROUTINE cxios_get_axisgroup_data_n 
     84     
     85    FUNCTION cxios_is_defined_axisgroup_data_n(axisgroup_hdl ) BIND(C) 
     86      USE ISO_C_BINDING 
     87      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_data_n 
     88      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
     89    END FUNCTION cxios_is_defined_axisgroup_data_n 
     90     
     91     
    3392    SUBROUTINE cxios_set_axisgroup_group_ref(axisgroup_hdl, group_ref, group_ref_size) BIND(C) 
    3493      USE ISO_C_BINDING 
    … …  
    52111     
    53112     
     113    SUBROUTINE cxios_set_axisgroup_ibegin(axisgroup_hdl, ibegin) BIND(C) 
     114      USE ISO_C_BINDING 
     115      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
     116      INTEGER (KIND=C_INT)      , VALUE :: ibegin 
     117    END SUBROUTINE cxios_set_axisgroup_ibegin 
     118     
     119    SUBROUTINE cxios_get_axisgroup_ibegin(axisgroup_hdl, ibegin) BIND(C) 
     120      USE ISO_C_BINDING 
     121      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
     122      INTEGER (KIND=C_INT)             :: ibegin 
     123    END SUBROUTINE cxios_get_axisgroup_ibegin 
     124     
     125    FUNCTION cxios_is_defined_axisgroup_ibegin(axisgroup_hdl ) BIND(C) 
     126      USE ISO_C_BINDING 
     127      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_ibegin 
     128      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
     129    END FUNCTION cxios_is_defined_axisgroup_ibegin 
     130     
     131     
    54132    SUBROUTINE cxios_set_axisgroup_long_name(axisgroup_hdl, long_name, long_name_size) BIND(C) 
    55133      USE ISO_C_BINDING 
    … …  
    73151     
    74152     
     153    SUBROUTINE cxios_set_axisgroup_mask(axisgroup_hdl, mask, extent1) BIND(C) 
     154      USE ISO_C_BINDING 
     155      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl 
     156      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask 
     157      INTEGER (kind = C_INT), VALUE  :: extent1 
     158    END SUBROUTINE cxios_set_axisgroup_mask 
     159     
     160    SUBROUTINE cxios_get_axisgroup_mask(axisgroup_hdl, mask, extent1) BIND(C) 
     161      USE ISO_C_BINDING 
     162      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl 
     163      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask 
     164      INTEGER (kind = C_INT), VALUE  :: extent1 
     165    END SUBROUTINE cxios_get_axisgroup_mask 
     166     
     167    FUNCTION cxios_is_defined_axisgroup_mask(axisgroup_hdl ) BIND(C) 
     168      USE ISO_C_BINDING 
     169      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_mask 
     170      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
     171    END FUNCTION cxios_is_defined_axisgroup_mask 
     172     
     173     
    75174    SUBROUTINE cxios_set_axisgroup_name(axisgroup_hdl, name, name_size) BIND(C) 
    76175      USE ISO_C_BINDING 
    … …  
    94193     
    95194     
     195    SUBROUTINE cxios_set_axisgroup_ni(axisgroup_hdl, ni) BIND(C) 
     196      USE ISO_C_BINDING 
     197      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
     198      INTEGER (KIND=C_INT)      , VALUE :: ni 
     199    END SUBROUTINE cxios_set_axisgroup_ni 
     200     
     201    SUBROUTINE cxios_get_axisgroup_ni(axisgroup_hdl, ni) BIND(C) 
     202      USE ISO_C_BINDING 
     203      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
     204      INTEGER (KIND=C_INT)             :: ni 
     205    END SUBROUTINE cxios_get_axisgroup_ni 
     206     
     207    FUNCTION cxios_is_defined_axisgroup_ni(axisgroup_hdl ) BIND(C) 
     208      USE ISO_C_BINDING 
     209      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_ni 
     210      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
     211    END FUNCTION cxios_is_defined_axisgroup_ni 
     212     
     213     
    96214    SUBROUTINE cxios_set_axisgroup_positive(axisgroup_hdl, positive, positive_size) BIND(C) 
    97215      USE ISO_C_BINDING 
Note: See TracChangeset for help on using the changeset viewer.