Ignore:
Timestamp:
09/21/11 11:48:10 (13 years ago)
Author:
hozdoba
Message:

Ajout de fonction à l'interface fortran

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XMLIO_V2/dev/common/src/xmlio/fortran/field_interface.f90

    r274 r280  
    104104         INTEGER  (kind = C_INT)     , VALUE        :: idt_size 
    105105      END SUBROUTINE xios_field_handle_create 
    106     
     106 
     107      SUBROUTINE xios_field_valid_id(ret, idt, idt_size) BIND(C) 
     108         USE ISO_C_BINDING 
     109         LOGICAL  (kind = C_BOOL)                   :: ret 
     110         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt 
     111         INTEGER  (kind = C_INT)     , VALUE        :: idt_size 
     112      END SUBROUTINE xios_field_valid_id 
     113 
    107114   END INTERFACE 
    108115    
Note: See TracChangeset for help on using the changeset viewer.