Changeset 285 for XMLIO_V2/dev/dev_rv/src/xmlio/fortran/iaxis.f90

Timestamp:

09/26/11 14:19:55 (13 years ago)

Author:

hozdoba

Message:

 

File:

• XMLIO_V2/dev/dev_rv/src/xmlio/fortran/iaxis.f90 (modified) (1 diff)

XMLIO_V2/dev/dev_rv/src/xmlio/fortran/iaxis.f90

@@ -130 +130 @@
    END SUBROUTINE axisgroup_handle_create
 
+   LOGICAL FUNCTION axis_valid_id(idt)
+      IMPLICIT NONE
+      CHARACTER(len  = *)    , INTENT(IN) :: idt
+      LOGICAL  (kind = 1)                 :: val
+      CALL xios_axis_valid_id(val, idt, len(idt));
+      axis_valid_id = val
+   END FUNCTION  axis_valid_id
+
+   LOGICAL FUNCTION axisgroup_valid_id(idt)
+      IMPLICIT NONE
+      CHARACTER(len  = *)    , INTENT(IN) :: idt
+      LOGICAL  (kind = 1)                 :: val
+      CALL xios_axisgroup_valid_id(val, idt, len(idt));
+      axisgroup_valid_id = val
+   END FUNCTION  axisgroup_valid_id
+
 END MODULE IAXIS