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/axis_interface_attr.F90

    r546 r555  
    3131     
    3232     
     33    SUBROUTINE cxios_set_axis_data_begin(axis_hdl, data_begin) BIND(C) 
     34      USE ISO_C_BINDING 
     35      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
     36      INTEGER (KIND=C_INT)      , VALUE :: data_begin 
     37    END SUBROUTINE cxios_set_axis_data_begin 
     38     
     39    SUBROUTINE cxios_get_axis_data_begin(axis_hdl, data_begin) BIND(C) 
     40      USE ISO_C_BINDING 
     41      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
     42      INTEGER (KIND=C_INT)             :: data_begin 
     43    END SUBROUTINE cxios_get_axis_data_begin 
     44     
     45    FUNCTION cxios_is_defined_axis_data_begin(axis_hdl ) BIND(C) 
     46      USE ISO_C_BINDING 
     47      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_data_begin 
     48      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
     49    END FUNCTION cxios_is_defined_axis_data_begin 
     50     
     51     
     52    SUBROUTINE cxios_set_axis_data_index(axis_hdl, data_index, extent1) BIND(C) 
     53      USE ISO_C_BINDING 
     54      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl 
     55      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_index 
     56      INTEGER (kind = C_INT), VALUE  :: extent1 
     57    END SUBROUTINE cxios_set_axis_data_index 
     58     
     59    SUBROUTINE cxios_get_axis_data_index(axis_hdl, data_index, extent1) BIND(C) 
     60      USE ISO_C_BINDING 
     61      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl 
     62      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_index 
     63      INTEGER (kind = C_INT), VALUE  :: extent1 
     64    END SUBROUTINE cxios_get_axis_data_index 
     65     
     66    FUNCTION cxios_is_defined_axis_data_index(axis_hdl ) BIND(C) 
     67      USE ISO_C_BINDING 
     68      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_data_index 
     69      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
     70    END FUNCTION cxios_is_defined_axis_data_index 
     71     
     72     
     73    SUBROUTINE cxios_set_axis_data_n(axis_hdl, data_n) BIND(C) 
     74      USE ISO_C_BINDING 
     75      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
     76      INTEGER (KIND=C_INT)      , VALUE :: data_n 
     77    END SUBROUTINE cxios_set_axis_data_n 
     78     
     79    SUBROUTINE cxios_get_axis_data_n(axis_hdl, data_n) BIND(C) 
     80      USE ISO_C_BINDING 
     81      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
     82      INTEGER (KIND=C_INT)             :: data_n 
     83    END SUBROUTINE cxios_get_axis_data_n 
     84     
     85    FUNCTION cxios_is_defined_axis_data_n(axis_hdl ) BIND(C) 
     86      USE ISO_C_BINDING 
     87      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_data_n 
     88      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
     89    END FUNCTION cxios_is_defined_axis_data_n 
     90     
     91     
     92    SUBROUTINE cxios_set_axis_ibegin(axis_hdl, ibegin) BIND(C) 
     93      USE ISO_C_BINDING 
     94      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
     95      INTEGER (KIND=C_INT)      , VALUE :: ibegin 
     96    END SUBROUTINE cxios_set_axis_ibegin 
     97     
     98    SUBROUTINE cxios_get_axis_ibegin(axis_hdl, ibegin) BIND(C) 
     99      USE ISO_C_BINDING 
     100      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
     101      INTEGER (KIND=C_INT)             :: ibegin 
     102    END SUBROUTINE cxios_get_axis_ibegin 
     103     
     104    FUNCTION cxios_is_defined_axis_ibegin(axis_hdl ) BIND(C) 
     105      USE ISO_C_BINDING 
     106      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_ibegin 
     107      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
     108    END FUNCTION cxios_is_defined_axis_ibegin 
     109     
     110     
    33111    SUBROUTINE cxios_set_axis_long_name(axis_hdl, long_name, long_name_size) BIND(C) 
    34112      USE ISO_C_BINDING 
    … …  
    52130     
    53131     
     132    SUBROUTINE cxios_set_axis_mask(axis_hdl, mask, extent1) BIND(C) 
     133      USE ISO_C_BINDING 
     134      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl 
     135      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask 
     136      INTEGER (kind = C_INT), VALUE  :: extent1 
     137    END SUBROUTINE cxios_set_axis_mask 
     138     
     139    SUBROUTINE cxios_get_axis_mask(axis_hdl, mask, extent1) BIND(C) 
     140      USE ISO_C_BINDING 
     141      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl 
     142      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask 
     143      INTEGER (kind = C_INT), VALUE  :: extent1 
     144    END SUBROUTINE cxios_get_axis_mask 
     145     
     146    FUNCTION cxios_is_defined_axis_mask(axis_hdl ) BIND(C) 
     147      USE ISO_C_BINDING 
     148      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_mask 
     149      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
     150    END FUNCTION cxios_is_defined_axis_mask 
     151     
     152     
    54153    SUBROUTINE cxios_set_axis_name(axis_hdl, name, name_size) BIND(C) 
    55154      USE ISO_C_BINDING 
    … …  
    73172     
    74173     
     174    SUBROUTINE cxios_set_axis_ni(axis_hdl, ni) BIND(C) 
     175      USE ISO_C_BINDING 
     176      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
     177      INTEGER (KIND=C_INT)      , VALUE :: ni 
     178    END SUBROUTINE cxios_set_axis_ni 
     179     
     180    SUBROUTINE cxios_get_axis_ni(axis_hdl, ni) BIND(C) 
     181      USE ISO_C_BINDING 
     182      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
     183      INTEGER (KIND=C_INT)             :: ni 
     184    END SUBROUTINE cxios_get_axis_ni 
     185     
     186    FUNCTION cxios_is_defined_axis_ni(axis_hdl ) BIND(C) 
     187      USE ISO_C_BINDING 
     188      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_ni 
     189      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
     190    END FUNCTION cxios_is_defined_axis_ni 
     191     
     192     
    75193    SUBROUTINE cxios_set_axis_positive(axis_hdl, positive, positive_size) BIND(C) 
    76194      USE ISO_C_BINDING 
Note: See TracChangeset for help on using the changeset viewer.