Ignore:
Timestamp:
10/04/16 18:59:37 (5 years ago)
Author:
mhnguyen
Message:

Fortran interface: Receiving scalar value

File:
1 edited

Legend:

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

    r932 r961  
    206206 
    207207      ! Read data 
     208      SUBROUTINE cxios_read_data_k80(fieldid, fieldid_size, data_k8, data_Xsize) BIND(C) 
     209         USE ISO_C_BINDING 
     210         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid 
     211         REAL     (kind = C_DOUBLE), DIMENSION(*) :: data_k8 
     212         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size 
     213         INTEGER  (kind = C_INT)   , VALUE        :: data_Xsize 
     214      END SUBROUTINE cxios_read_data_k80 
     215 
    208216      SUBROUTINE cxios_read_data_k81(fieldid, fieldid_size, data_k8, data_Xsize) BIND(C) 
    209217         USE ISO_C_BINDING 
     
    275283         INTEGER  (kind = C_INT)   , VALUE        :: data_6size 
    276284      END SUBROUTINE cxios_read_data_k87 
     285 
     286      SUBROUTINE cxios_read_data_k40(fieldid, fieldid_size, data_k4, data_Xsize) BIND(C) 
     287         USE ISO_C_BINDING 
     288         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid 
     289         REAL     (kind = C_FLOAT) , DIMENSION(*) :: data_k4 
     290         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size 
     291         INTEGER  (kind = C_INT)   , VALUE        :: data_Xsize 
     292      END SUBROUTINE cxios_read_data_k40 
    277293 
    278294      SUBROUTINE cxios_read_data_k41(fieldid, fieldid_size, data_k4, data_Xsize) BIND(C) 
     
    640656 
    641657   ! 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)) 
     663   END SUBROUTINE xios(recv_field_r8_0d) 
     664 
    642665   SUBROUTINE xios(recv_field_r8_1d)(fieldid, data1d_k8) 
    643666   IMPLICIT NONE 
     
    698721   END SUBROUTINE  xios(recv_field_r8_7d) 
    699722 
     723   SUBROUTINE xios(recv_field_r4_0d)(fieldid, data0d_k4) 
     724   IMPLICIT NONE 
     725      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)) 
     728   END SUBROUTINE xios(recv_field_r4_0d) 
     729 
    700730   SUBROUTINE xios(recv_field_r4_1d)(fieldid, data1d_k4) 
    701731   IMPLICIT NONE 
Note: See TracChangeset for help on using the changeset viewer.