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/axisgroup_interface.f90

    r270 r285  
    5151         INTEGER  (kind = C_INT)     , VALUE        :: idt_size 
    5252      END SUBROUTINE xios_axisgroup_handle_create 
    53       
     53 
     54      SUBROUTINE xios_axisgroup_valid_id(ret, idt, idt_size) BIND(C) 
     55         USE ISO_C_BINDING 
     56         LOGICAL  (kind = C_BOOL)                   :: ret 
     57         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt 
     58         INTEGER  (kind = C_INT)     , VALUE        :: idt_size 
     59      END SUBROUTINE xios_axisgroup_valid_id 
     60 
    5461   END INTERFACE 
    5562      
Note: See TracChangeset for help on using the changeset viewer.