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

    r274 r280  
    7979      END IF 
    8080   END SUBROUTINE context_create 
     81 
     82   LOGICAL FUNCTION context_valid_id(idt) 
     83      IMPLICIT NONE 
     84      CHARACTER(len  = *)    , INTENT(IN) :: idt 
     85      LOGICAL  (kind = 1)                 :: val 
     86      CALL xios_context_valid_id(val, idt, len(idt)); 
     87      context_valid_id = val 
     88   END FUNCTION  context_valid_id 
     89 
     90 
    8191    
    8292END MODULE ICONTEXT 
Note: See TracChangeset for help on using the changeset viewer.