Ignore:
Timestamp:
02/14/12 15:36:14 (12 years ago)
Author:
ymipsl
Message:

suppress old fortran interface

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS/trunk/src/fortran/iaxis.F90

    r286 r312  
    55   USE AXIS_INTERFACE 
    66   USE AXISGROUP_INTERFACE 
    7     
    8    TYPE XAxisHandle 
    9       INTEGER(kind = C_INTPTR_T) :: daddr 
    10    END TYPE XAxisHandle 
    11     
    12    TYPE XAxisGroupHandle 
    13       INTEGER(kind = C_INTPTR_T) :: daddr 
    14    END TYPE XAxisGroupHandle 
    157 
    168   TYPE txios(axis) 
    … …  
    2214   END TYPE txios(axisgroup) 
    2315    
    24    !---------------------------------------------------------------------------- 
    25    INTERFACE set_axis_attributes 
    26       MODULE PROCEDURE set_axis_attributes_id,set_axis_attributes_hdl 
    27    END INTERFACE   
    28     
    29    INTERFACE set_axis_group_attributes 
    30       MODULE PROCEDURE set_axisgroup_attributes_id,set_axisgroup_attributes_hdl 
    31    END INTERFACE   
    32    !---------------------------------------------------------------------------- 
    3316 
    3417          
    … …  
    199182 
    200183   END FUNCTION  xios(is_valid_axisgroup) 
    201     
    202  
    203  
    204  
    205 !!!!!!!!!!!!! anciennes interfaces  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 
    206 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 
    207  
    208    SUBROUTINE set_axis_attributes_id(axis_id, name_, standard_name_, long_name_, unit_, size_, zvalue_) 
    209       IMPLICIT NONE 
    210       TYPE(XAxisHandle)                                      :: axis_hdl 
    211       CHARACTER(len = *)                        , INTENT(IN) :: axis_id 
    212       CHARACTER(len = *)              , OPTIONAL, INTENT(IN) :: name_ 
    213       CHARACTER(len = *)              , OPTIONAL, INTENT(IN) :: standard_name_ 
    214       CHARACTER(len = *)              , OPTIONAL, INTENT(IN) :: long_name_ 
    215       CHARACTER(len = *)              , OPTIONAL, INTENT(IN) :: unit_ 
    216       INTEGER                         , OPTIONAL, INTENT(IN) :: size_ 
    217       REAL    (kind = 8), dimension(*), OPTIONAL, INTENT(IN) :: zvalue_(:) 
    218        
    219       CALL axis_handle_create(axis_hdl, axis_id) 
    220       CALL set_axis_attributes_hdl(axis_hdl, name_, standard_name_, long_name_, unit_, size_, zvalue_) 
    221  
    222    END SUBROUTINE set_axis_attributes_id 
    223  
    224    SUBROUTINE set_axis_attributes_hdl(axis_hdl, name_, standard_name_, long_name_, unit_, size_, zvalue_) 
    225       IMPLICIT NONE 
    226       TYPE(XAxisHandle)                         , INTENT(IN) :: axis_hdl 
    227       CHARACTER(len = *)              , OPTIONAL, INTENT(IN) :: name_ 
    228       CHARACTER(len = *)              , OPTIONAL, INTENT(IN) :: standard_name_ 
    229       CHARACTER(len = *)              , OPTIONAL, INTENT(IN) :: long_name_ 
    230       CHARACTER(len = *)              , OPTIONAL, INTENT(IN) :: unit_ 
    231       INTEGER                         , OPTIONAL, INTENT(IN) :: size_ 
    232       REAL    (kind = 8), dimension(*), OPTIONAL, INTENT(IN) :: zvalue_(:) 
    233        
    234       IF (PRESENT(name_))           THEN 
    235          CALL cxios_set_axis_name(axis_hdl%daddr, name_, len(name_)) 
    236       END IF 
    237       IF (PRESENT(standard_name_))  THEN 
    238          CALL cxios_set_axis_standard_name(axis_hdl%daddr, standard_name_, len(standard_name_)) 
    239       END IF 
    240       IF (PRESENT(long_name_))      THEN 
    241          CALL cxios_set_axis_long_name(axis_hdl%daddr, long_name_, len(long_name_)) 
    242       END IF 
    243       IF (PRESENT(unit_))           THEN 
    244          CALL cxios_set_axis_unit(axis_hdl%daddr, unit_, len(unit_)) 
    245       END IF 
    246       IF (PRESENT(size_))           THEN 
    247          CALL cxios_set_axis_size(axis_hdl%daddr, size_) 
    248       END IF 
    249       IF (PRESENT(zvalue_))         THEN 
    250          CALL cxios_set_axis_zvalue(axis_hdl%daddr, zvalue_, size(zvalue_, 1)) 
    251       END IF 
    252    END SUBROUTINE set_axis_attributes_hdl 
    253     
    254    SUBROUTINE set_axisgroup_attributes_id(axisgroup_id, name_, standard_name_, long_name_, unit_, size_, zvalue_) 
    255       IMPLICIT NONE 
    256       TYPE(XAxisGroupHandle)                                 :: axisgroup_hdl 
    257       CHARACTER(len = *)                        , INTENT(IN) :: axisgroup_id 
    258       CHARACTER(len = *)              , OPTIONAL, INTENT(IN) :: name_ 
    259       CHARACTER(len = *)              , OPTIONAL, INTENT(IN) :: standard_name_ 
    260       CHARACTER(len = *)              , OPTIONAL, INTENT(IN) :: long_name_ 
    261       CHARACTER(len = *)              , OPTIONAL, INTENT(IN) :: unit_ 
    262       INTEGER                         , OPTIONAL, INTENT(IN) :: size_ 
    263       REAL    (kind = 8), dimension(*), OPTIONAL, INTENT(IN) :: zvalue_(:) 
    264        
    265       CALL axisgroup_handle_create(axisgroup_hdl, axisgroup_id) 
    266       CALL set_axisgroup_attributes_hdl(axisgroup_hdl, name_, standard_name_, long_name_, unit_, size_, zvalue_) 
    267  
    268    END SUBROUTINE set_axisgroup_attributes_id 
    269     
    270    SUBROUTINE set_axisgroup_attributes_hdl(axisgroup_hdl, name_, standard_name_, long_name_, unit_, size_, zvalue_) 
    271       IMPLICIT NONE 
    272       TYPE(XAxisGroupHandle)                    , INTENT(IN) :: axisgroup_hdl 
    273       CHARACTER(len = *)              , OPTIONAL, INTENT(IN) :: name_ 
    274       CHARACTER(len = *)              , OPTIONAL, INTENT(IN) :: standard_name_ 
    275       CHARACTER(len = *)              , OPTIONAL, INTENT(IN) :: long_name_ 
    276       CHARACTER(len = *)              , OPTIONAL, INTENT(IN) :: unit_ 
    277       INTEGER                         , OPTIONAL, INTENT(IN) :: size_ 
    278       REAL    (kind = 8), dimension(*), OPTIONAL, INTENT(IN) :: zvalue_(:) 
    279        
    280       IF (PRESENT(name_))           THEN 
    281          CALL cxios_set_axisgroup_name(axisgroup_hdl%daddr, name_, len(name_)) 
    282       END IF 
    283       IF (PRESENT(standard_name_))  THEN 
    284          CALL cxios_set_axisgroup_standard_name(axisgroup_hdl%daddr, standard_name_, len(standard_name_)) 
    285       END IF 
    286       IF (PRESENT(long_name_))      THEN 
    287          CALL cxios_set_axisgroup_long_name(axisgroup_hdl%daddr, long_name_, len(long_name_)) 
    288       END IF 
    289       IF (PRESENT(unit_))           THEN 
    290          CALL cxios_set_axisgroup_unit(axisgroup_hdl%daddr, unit_, len(unit_)) 
    291       END IF 
    292       IF (PRESENT(size_))           THEN 
    293          CALL cxios_set_axisgroup_size(axisgroup_hdl%daddr, size_) 
    294       END IF 
    295       IF (PRESENT(zvalue_))         THEN 
    296          CALL cxios_set_axisgroup_zvalue(axisgroup_hdl%daddr, zvalue_, size(zvalue_, 1)) 
    297       END IF 
    298    END SUBROUTINE set_axisgroup_attributes_hdl 
    299  
    300    SUBROUTINE axis_handle_create(ret, idt) 
    301       IMPLICIT NONE 
    302       TYPE(XAxisHandle) , INTENT(OUT):: ret 
    303       CHARACTER(len = *), INTENT(IN) :: idt       
    304       CALL cxios_axis_handle_create(ret%daddr, idt, len(idt))             
    305    END SUBROUTINE axis_handle_create 
    306     
    307    SUBROUTINE axisgroup_handle_create(ret, idt) 
    308       IMPLICIT NONE 
    309       TYPE(XAxisGroupHandle), INTENT(OUT):: ret 
    310       CHARACTER(len = *)    , INTENT(IN) :: idt       
    311       CALL cxios_axisgroup_handle_create(ret%daddr, idt, len(idt))             
    312    END SUBROUTINE axisgroup_handle_create 
    313  
    314    LOGICAL FUNCTION axis_valid_id(idt) 
    315       IMPLICIT NONE 
    316       CHARACTER(len  = *)    , INTENT(IN) :: idt 
    317       LOGICAL  (kind = 1)                 :: val 
    318       CALL cxios_axis_valid_id(val, idt, len(idt)); 
    319       axis_valid_id = val 
    320    END FUNCTION  axis_valid_id 
    321  
    322    LOGICAL FUNCTION axisgroup_valid_id(idt) 
    323       IMPLICIT NONE 
    324       CHARACTER(len  = *)    , INTENT(IN) :: idt 
    325       LOGICAL  (kind = 1)                 :: val 
    326       CALL cxios_axisgroup_valid_id(val, idt, len(idt)); 
    327       axisgroup_valid_id = val 
    328    END FUNCTION  axisgroup_valid_id 
    329184 
    330185END MODULE IAXIS 
Note: See TracChangeset for help on using the changeset viewer.