Changeset 965


Ignore:
Timestamp:
10/04/16 20:03:38 (5 years ago)
Author:
mhnguyen
Message:

Correcting Fortran interface for receiving scalar.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • XIOS/trunk/src/interface/fortran/idata.F90

    r961 r965  
    209209         USE ISO_C_BINDING 
    210210         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid 
    211          REAL     (kind = C_DOUBLE), DIMENSION(*) :: data_k8 
     211         REAL     (kind = C_DOUBLE)              :: data_k8 
    212212         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size 
    213213         INTEGER  (kind = C_INT)   , VALUE        :: data_Xsize 
     
    287287         USE ISO_C_BINDING 
    288288         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid 
    289          REAL     (kind = C_FLOAT) , DIMENSION(*) :: data_k4 
     289         REAL     (kind = C_FLOAT)               :: data_k4 
    290290         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size 
    291291         INTEGER  (kind = C_INT)   , VALUE        :: data_Xsize 
     
    656656 
    657657   ! Receive field functions 
    658    SUBROUTINE xios(recv_field_r8_0d)(fieldid, data1d_k8) 
    659    IMPLICIT NONE 
    660       CHARACTER(len = *)               , INTENT(IN) :: fieldid 
    661       REAL     (kind = 8), DIMENSION(*), INTENT(OUT) :: data1d_k8(:) 
    662       CALL cxios_read_data_k80(fieldid, len(fieldid), data1d_k8, size(data1d_k8, 1)) 
     658   SUBROUTINE xios(recv_field_r8_0d)(fieldid, data0d_k8) 
     659   IMPLICIT NONE 
     660      CHARACTER(len = *)               , INTENT(IN) :: fieldid 
     661      REAL     (kind = 8)              , INTENT(OUT):: data0d_k8 
     662      CALL cxios_read_data_k80(fieldid, len(fieldid), data0d_k8, 1) 
    663663   END SUBROUTINE xios(recv_field_r8_0d) 
    664664 
     
    724724   IMPLICIT NONE 
    725725      CHARACTER(len = *)               , INTENT(IN) :: fieldid 
    726       REAL     (kind = 4), DIMENSION(*), INTENT(OUT) :: data0d_k4(:) 
    727       CALL cxios_read_data_k40(fieldid, len(fieldid), data0d_k4, size(data0d_k4, 1)) 
     726      REAL     (kind = 4)              , INTENT(OUT):: data0d_k4 
     727      CALL cxios_read_data_k40(fieldid, len(fieldid), data0d_k4, 1) 
    728728   END SUBROUTINE xios(recv_field_r4_0d) 
    729729 
Note: See TracChangeset for help on using the changeset viewer.