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

    r300 r312  
    66   USE FILEGROUP_INTERFACE 
    77    
    8    TYPE XFileHandle 
    9       INTEGER(kind = C_INTPTR_T) :: daddr 
    10    END TYPE XFileHandle 
    11     
    12    TYPE XFileGroupHandle 
    13       INTEGER(kind = C_INTPTR_T) :: daddr 
    14    END TYPE XFileGroupHandle 
    15  
    168   TYPE txios(file) 
    179      INTEGER(kind = C_INTPTR_T) :: daddr 
    … …  
    2214   END TYPE txios(filegroup) 
    2315    
    24    !---------------------------------------------------------------------------- 
    25    INTERFACE set_file_attributes 
    26       MODULE PROCEDURE set_file_attributes_id,set_file_attributes_hdl 
    27    END INTERFACE   
    28     
    29    INTERFACE set_file_group_attributes 
    30       MODULE PROCEDURE set_filegroup_attributes_id,set_filegroup_attributes_hdl 
    31    END INTERFACE   
    32    !---------------------------------------------------------------------------- 
    33    
    3416   CONTAINS ! Fonctions disponibles pour les utilisateurs. 
    3517 
    … …  
    180162 
    181163 
    182  
    183164   SUBROUTINE xios(get_file_handle)( idt, ret) 
    184165      IMPLICIT NONE 
    … …  
    219200   END FUNCTION  xios(is_valid_filegroup) 
    220201 
    221  
    222  
    223  
    224  
    225  
    226  
    227  
    228  
    229  
    230  
    231  
    232  
    233  
    234  
    235  
    236 !!!!!!!!!!!!!! Anciennes interfaces !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 
    237 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 
    238     
    239    SUBROUTINE set_file_attributes_id(file_id, name_ , description_, name_suffix_, output_freq_, output_level_, enabled_) 
    240       IMPLICIT NONE 
    241       TYPE(XFileHandle)                        :: file_hdl 
    242       CHARACTER(len = *)          , INTENT(IN) :: file_id 
    243       CHARACTER(len = *), OPTIONAL, INTENT(IN) :: name_ 
    244       CHARACTER(len = *), OPTIONAL, INTENT(IN) :: description_ 
    245       CHARACTER(len = *), OPTIONAL, INTENT(IN) :: name_suffix_ 
    246       CHARACTER(len = *), OPTIONAL, INTENT(IN) :: output_freq_ 
    247       INTEGER           , OPTIONAL, INTENT(IN) :: output_level_ 
    248       LOGICAL           , OPTIONAL, INTENT(IN) :: enabled_ 
    249        
    250       CALL file_handle_create(file_hdl, file_id) 
    251       CALL set_file_attributes_hdl(file_hdl, name_ , description_, name_suffix_, output_freq_, output_level_, enabled_) 
    252        
    253    END SUBROUTINE set_file_attributes_id 
    254     
    255    SUBROUTINE set_file_attributes_hdl(file_hdl, name_ , description_, name_suffix_, output_freq_, output_level_, enabled_) 
    256       TYPE(XFileHandle)           , INTENT(IN) :: file_hdl 
    257       CHARACTER(len = *), OPTIONAL, INTENT(IN) :: name_ 
    258       CHARACTER(len = *), OPTIONAL, INTENT(IN) :: description_ 
    259       CHARACTER(len = *), OPTIONAL, INTENT(IN) :: name_suffix_ 
    260       CHARACTER(len = *), OPTIONAL, INTENT(IN) :: output_freq_ 
    261       INTEGER           , OPTIONAL, INTENT(IN) :: output_level_ 
    262       LOGICAL(kind = 1)                        :: enabled__ 
    263       LOGICAL           , OPTIONAL, INTENT(IN) :: enabled_ 
    264        
    265       IF (PRESENT(name_))         THEN 
    266          CALL cxios_set_file_name(file_hdl%daddr, name_, len(name_)) 
    267       END IF 
    268       IF (PRESENT(description_))  THEN 
    269          CALL cxios_set_file_description(file_hdl%daddr, description_, len(description_)) 
    270       END IF 
    271       IF (PRESENT(name_suffix_))  THEN 
    272          CALL cxios_set_file_name_suffix(file_hdl%daddr, name_suffix_, len(name_suffix_)) 
    273       END IF 
    274       IF (PRESENT(output_freq_))  THEN 
    275          CALL cxios_set_file_output_freq(file_hdl%daddr, output_freq_, len(output_freq_)) 
    276       END IF 
    277       IF (PRESENT(output_level_)) THEN 
    278          CALL cxios_set_file_output_level(file_hdl%daddr, output_level_) 
    279       END IF 
    280       IF (PRESENT(enabled_))      THEN 
    281          enabled__ = enabled_         
    282          CALL cxios_set_file_enabled(file_hdl%daddr, enabled__) 
    283       END IF 
    284  
    285    END SUBROUTINE set_file_attributes_hdl 
    286     
    287    SUBROUTINE set_filegroup_attributes_id(filegroup_id, name_ , description_, name_suffix_, output_freq_, output_level_, enabled_) 
    288       IMPLICIT NONE 
    289       TYPE(XFileGroupHandle)                   :: filegroup_hdl 
    290       CHARACTER(len = *)          , INTENT(IN) :: filegroup_id 
    291       CHARACTER(len = *), OPTIONAL, INTENT(IN) :: name_ 
    292       CHARACTER(len = *), OPTIONAL, INTENT(IN) :: description_ 
    293       CHARACTER(len = *), OPTIONAL, INTENT(IN) :: name_suffix_ 
    294       CHARACTER(len = *), OPTIONAL, INTENT(IN) :: output_freq_ 
    295       INTEGER           , OPTIONAL, INTENT(IN) :: output_level_ 
    296       LOGICAL           , OPTIONAL, INTENT(IN) :: enabled_ 
    297        
    298       CALL filegroup_handle_create(filegroup_hdl, filegroup_id) 
    299       CALL set_filegroup_attributes_hdl(filegroup_hdl, name_ , description_, name_suffix_, output_freq_, output_level_, enabled_) 
    300        
    301    END SUBROUTINE set_filegroup_attributes_id 
    302     
    303    SUBROUTINE set_filegroup_attributes_hdl(filegroup_hdl, name_ , description_, name_suffix_, output_freq_, output_level_, enabled_) 
    304       IMPLICIT NONE 
    305       TYPE(XFileGroupHandle)      , INTENT(IN) :: filegroup_hdl 
    306       CHARACTER(len = *), OPTIONAL, INTENT(IN) :: name_ 
    307       CHARACTER(len = *), OPTIONAL, INTENT(IN) :: description_ 
    308       CHARACTER(len = *), OPTIONAL, INTENT(IN) :: name_suffix_ 
    309       CHARACTER(len = *), OPTIONAL, INTENT(IN) :: output_freq_ 
    310       INTEGER           , OPTIONAL, INTENT(IN) :: output_level_ 
    311       LOGICAL(kind = 1)                        :: enabled__ 
    312       LOGICAL           , OPTIONAL, INTENT(IN) :: enabled_ 
    313        
    314       IF (PRESENT(name_))         THEN 
    315          CALL cxios_set_filegroup_name(filegroup_hdl%daddr, name_, len(name_)) 
    316       END IF 
    317       IF (PRESENT(description_))  THEN 
    318          CALL cxios_set_filegroup_description(filegroup_hdl%daddr, description_, len(description_)) 
    319       END IF 
    320       IF (PRESENT(name_suffix_))  THEN 
    321          CALL cxios_set_filegroup_name_suffix(filegroup_hdl%daddr, name_suffix_, len(name_suffix_)) 
    322       END IF 
    323       IF (PRESENT(output_freq_))  THEN 
    324          CALL cxios_set_filegroup_output_freq(filegroup_hdl%daddr, output_freq_, len(output_freq_)) 
    325       END IF 
    326       IF (PRESENT(output_level_)) THEN 
    327          CALL cxios_set_filegroup_output_level(filegroup_hdl%daddr, output_level_) 
    328       END IF 
    329       IF (PRESENT(enabled_))      THEN 
    330         enabled__ = enabled_  
    331         CALL cxios_set_filegroup_enabled(filegroup_hdl%daddr, enabled__) 
    332       END IF 
    333  
    334    END SUBROUTINE set_filegroup_attributes_hdl 
    335     
    336    SUBROUTINE file_handle_create(ret, idt) 
    337       IMPLICIT NONE 
    338       TYPE(XFileHandle) , INTENT(OUT):: ret 
    339       CHARACTER(len = *), INTENT(IN) :: idt       
    340       CALL cxios_file_handle_create(ret%daddr, idt, len(idt))             
    341    END SUBROUTINE file_handle_create 
    342     
    343    SUBROUTINE filegroup_handle_create(ret, idt) 
    344       IMPLICIT NONE 
    345       TYPE(XFileGroupHandle), INTENT(OUT):: ret 
    346       CHARACTER(len = *)    , INTENT(IN) :: idt       
    347       CALL cxios_filegroup_handle_create(ret%daddr, idt, len(idt))             
    348    END SUBROUTINE filegroup_handle_create 
    349  
    350    LOGICAL FUNCTION file_valid_id(idt) 
    351       IMPLICIT NONE 
    352       CHARACTER(len  = *)    , INTENT(IN) :: idt 
    353       LOGICAL  (kind = 1)                 :: val 
    354       CALL cxios_file_valid_id(val, idt, len(idt)); 
    355       file_valid_id = val 
    356    END FUNCTION  file_valid_id 
    357  
    358    LOGICAL FUNCTION filegroup_valid_id(idt) 
    359       IMPLICIT NONE 
    360       CHARACTER(len  = *)    , INTENT(IN) :: idt 
    361       LOGICAL  (kind = 1)                 :: val 
    362       CALL cxios_filegroup_valid_id(val, idt, len(idt)); 
    363       filegroup_valid_id = val 
    364    END FUNCTION  filegroup_valid_id 
    365202    
    366203END MODULE IFILE 
Note: See TracChangeset for help on using the changeset viewer.