change variable declaration to f2c solution 07/16907/2
Antoine ELIAS [Tue, 28 Jul 2015 09:08:05 +0000 (11:08 +0200)]
Change-Id: I44bf099b745aaaf77dbef1a605c30ae336f9b23f

scilab/modules/scicos_blocks/src/fortran/readf.f
scilab/modules/scicos_blocks/src/fortran/writef.f

index 3448e45..cc05606 100644 (file)
@@ -37,7 +37,7 @@ c
       double precision t,xd(*),x(*),z(*),tvec(*),rpar(*),u(*),y(*)
       integer flag,nevprt,nx,nz,ntvec,nrpar,ipar(*)
       integer nipar,nu,ny
-      character buf(4096)
+      character*4096 buf
 c
 c
       integer n
@@ -141,7 +141,7 @@ c     buffered and masked read
       double precision z(*)
       double precision tmp(100)
       integer fmttyp
-      character buf(4096)
+      character*4096 buf
 c
       ievt=ipar(3)
       N=ipar(4)
index b8f0eab..9e9ced8 100644 (file)
@@ -39,7 +39,7 @@ c
       integer i, n, jj
       integer mode(2)
       integer fmttyp
-      character buf(4096)
+      character*4096 buf
 c
       N=ipar(4)
       K=int(z(1))