Changeset 4923
- Timestamp:
- 02/12/20 11:28:41 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
IOIPSL/trunk/src/getincom.f90
r4863 r4923 438 438 CHARACTER(LEN=:),ALLOCATABLE,DIMENSION(:) :: tmp_ret_val 439 439 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) 445 443 IF (ier /= 0) CALL ipslerr(3, 'getincs', 'Allocation memory problem for', & 446 444 'tmp_ret_val' ,'')
Note: See TracChangeset
for help on using the changeset viewer.