Changeset 965 for XIOS/trunk/src

Timestamp:

10/04/16 20:03:38 (8 years ago)

Author:

mhnguyen

Message:

Correcting Fortran interface for receiving scalar.

File:

• XIOS/trunk/src/interface/fortran/idata.F90 (modified) (4 diffs)

XIOS/trunk/src/interface/fortran/idata.F90

@@ -209 +209 @@
          USE ISO_C_BINDING
          CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid
-         REAL     (kind = C_DOUBLE), DIMENSION(*) :: data_k8
+         REAL     (kind = C_DOUBLE)               :: data_k8
          INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size
          INTEGER  (kind = C_INT)   , VALUE        :: data_Xsize
@@ -287 +287 @@
          USE ISO_C_BINDING
          CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid
-         REAL     (kind = C_FLOAT) , DIMENSION(*) :: data_k4
+         REAL     (kind = C_FLOAT)                :: data_k4
          INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size
          INTEGER  (kind = C_INT)   , VALUE        :: data_Xsize
@@ -656 +656 @@
 
    ! Receive field functions
-   SUBROUTINE xios(recv_field_r8_0d)(fieldid, data1d_k8)
-   IMPLICIT NONE
-      CHARACTER(len = *)               , INTENT(IN) :: fieldid
-      REAL     (kind = 8), DIMENSION(*), INTENT(OUT) :: data1d_k8(:)
-      CALL cxios_read_data_k80(fieldid, len(fieldid), data1d_k8, size(data1d_k8, 1))
+   SUBROUTINE xios(recv_field_r8_0d)(fieldid, data0d_k8)
+   IMPLICIT NONE
+      CHARACTER(len = *)               , INTENT(IN) :: fieldid
+      REAL     (kind = 8)              , INTENT(OUT):: data0d_k8
+      CALL cxios_read_data_k80(fieldid, len(fieldid), data0d_k8, 1)
    END SUBROUTINE xios(recv_field_r8_0d)
 
@@ -724 +724 @@
    IMPLICIT NONE
       CHARACTER(len = *)               , INTENT(IN) :: fieldid
-      REAL     (kind = 4), DIMENSION(*), INTENT(OUT) :: data0d_k4(:)
-      CALL cxios_read_data_k40(fieldid, len(fieldid), data0d_k4, size(data0d_k4, 1))
+      REAL     (kind = 4)              , INTENT(OUT):: data0d_k4
+      CALL cxios_read_data_k40(fieldid, len(fieldid), data0d_k4, 1)
    END SUBROUTINE xios(recv_field_r4_0d)