Changeset 4923


Ignore:
Timestamp:
02/12/20 11:28:41 (4 years ago)
Author:
jgipsl
Message:

Modificaton needed for gfortran. I don't know why previous was not accepted.

File:
1 edited

Legend:

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

    r4863 r4923  
    438438  CHARACTER(LEN=:),ALLOCATABLE,DIMENSION(:) :: tmp_ret_val 
    439439  INTEGER :: pos,status=0,fileorig,size_of_in,ier 
    440   INTEGER :: inlength 
    441 !--------------------------------------------------------------------- 
    442 !- 
    443   inlength = LEN(ret_val) 
    444   ALLOCATE(CHARACTER(inlength) :: tmp_ret_val(1), stat=ier) 
     440!--------------------------------------------------------------------- 
     441!- 
     442  ALLOCATE(CHARACTER(LEN(ret_val)) :: tmp_ret_val(1), stat=ier) 
    445443  IF (ier /= 0) CALL ipslerr(3, 'getincs', 'Allocation memory problem for', & 
    446444                             'tmp_ret_val' ,'') 
Note: See TracChangeset for help on using the changeset viewer.