source: XIOS/trunk/src/interface/fortran/iextract_axis_to_scalar.F90 @ 981

Last change on this file since 981 was 981, checked in by mhnguyen, 5 years ago

Fortran interfaces:

+) Adding Fortran interfaces of transformation

Test
+) Only complilation on Curie

File size: 1.0 KB
Line 
1#include "xios_fortran_prefix.hpp"
2
3MODULE IEXTRACT_AXIS_TO_SCALAR
4   USE, INTRINSIC :: ISO_C_BINDING
5   USE EXTRACT_AXIS_TO_SCALAR_INTERFACE
6
7   TYPE txios(extract_axis_to_scalar)
8      INTEGER(kind = C_INTPTR_T) :: daddr
9   END TYPE txios(extract_axis_to_scalar)
10
11   CONTAINS ! Fonctions disponibles pour les utilisateurs.
12
13   SUBROUTINE xios(get_extract_axis_to_scalar_handle)(idt,ret)
14      IMPLICIT NONE
15      CHARACTER(len = *), INTENT(IN) :: idt
16      TYPE(txios(extract_axis_to_scalar)) , INTENT(OUT):: ret
17      CALL cxios_extract_axis_to_scalar_handle_create(ret%daddr, idt, len(idt))
18   END SUBROUTINE xios(get_extract_axis_to_scalar_handle)
19
20   LOGICAL FUNCTION xios(is_valid_extract_axis_to_scalar)(idt)
21      IMPLICIT NONE
22      CHARACTER(len  = *)    , INTENT(IN) :: idt
23      LOGICAL  (kind = 1)                 :: val
24
25      CALL cxios_extract_axis_to_scalar_valid_id(val, idt, len(idt))
26      xios(is_valid_extract_axis_to_scalar) = val
27
28   END FUNCTION  xios(is_valid_extract_axis_to_scalar)
29
30END MODULE IEXTRACT_AXIS_TO_SCALAR
Note: See TracBrowser for help on using the repository browser.