Changeset 1336


Ignore:
Timestamp:
03/14/11 17:05:04 (12 years ago)
Author:
mmaipsl
Message:

Thank's to lahey fujitsu compiler, correct INTENT argument in get_fil subroutine.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • IOIPSL/trunk/src/getincom.f90

    r1315 r1336  
    693693!- 
    694694  CHARACTER(LEN=*) :: targetname 
    695   INTEGER,INTENT(OUT) :: status,fileorig,nb_to_ret 
     695  INTEGER,INTENT(IN) :: nb_to_ret 
     696  INTEGER,INTENT(OUT) :: status,fileorig 
    696697  INTEGER,DIMENSION(:),OPTIONAL          :: i_val 
    697698  REAL,DIMENSION(:),OPTIONAL             :: r_val 
Note: See TracChangeset for help on using the changeset viewer.