Ignore:
Timestamp:
09/26/11 14:19:55 (13 years ago)
Author:
hozdoba
Message:
 
File:
1 edited

Legend:

Unmodified
Added
Removed
  • XMLIO_V2/dev/dev_rv/src/xmlio/fortran/domain_interface.f90

    r270 r285  
    201201        
    202202      SUBROUTINE xios_domain_handle_create(ret, idt, idt_size) BIND(C) 
    203          import C_CHAR, C_INTPTR_T, C_INT 
     203         USE ISO_C_BINDING 
    204204         INTEGER  (kind = C_INTPTR_T)               :: ret 
    205205         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt 
    206206         INTEGER  (kind = C_INT)     , VALUE        :: idt_size 
    207207      END SUBROUTINE xios_domain_handle_create 
    208         
     208 
     209      SUBROUTINE xios_domain_valid_id(ret, idt, idt_size) BIND(C) 
     210         USE ISO_C_BINDING 
     211         LOGICAL  (kind = C_BOOL)                   :: ret 
     212         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt 
     213         INTEGER  (kind = C_INT)     , VALUE        :: idt_size 
     214      END SUBROUTINE xios_domain_valid_id 
     215 
    209216   END INTERFACE 
    210217        
Note: See TracChangeset for help on using the changeset viewer.