Changeset 558


Ignore:
Timestamp:
02/16/15 10:15:23 (9 years ago)
Author:
rlacroix
Message:

Fortran interface: Fix the intent of some function parameters in the IDATE module.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS/trunk/src/interface/fortran/idate.F90

    r549 r558  
    157157      USE DATE_INTERFACE, only : txios(date) 
    158158      IMPLICIT NONE 
    159       TYPE(txios(date)), INTENT(OUT) :: date 
     159      TYPE(txios(date)), INTENT(IN) :: date 
    160160      INTEGER(kind = C_INT) :: res 
    161161 
    … …  
    166166      USE DATE_INTERFACE, only : txios(date) 
    167167      IMPLICIT NONE 
    168       TYPE(txios(date)), INTENT(OUT) :: date 
     168      TYPE(txios(date)), INTENT(IN) :: date 
    169169      REAL(kind = C_DOUBLE) :: res 
    170170 
    … …  
    175175      USE DATE_INTERFACE, only : txios(date) 
    176176      IMPLICIT NONE 
    177       TYPE(txios(date)), INTENT(OUT) :: date 
     177      TYPE(txios(date)), INTENT(IN) :: date 
    178178      REAL(kind = C_DOUBLE) :: res 
    179179 
    … …  
    184184      USE DATE_INTERFACE, only : txios(date) 
    185185      IMPLICIT NONE 
    186       TYPE(txios(date)), INTENT(OUT) :: date 
     186      TYPE(txios(date)), INTENT(IN) :: date 
    187187      INTEGER(kind = C_INT) :: res 
    188188 
    … …  
    193193      USE DATE_INTERFACE, only : txios(date) 
    194194      IMPLICIT NONE 
    195       TYPE(txios(date)), INTENT(OUT) :: date 
     195      TYPE(txios(date)), INTENT(IN) :: date 
    196196      REAL(kind = C_DOUBLE) :: res 
    197197 
Note: See TracChangeset for help on using the changeset viewer.