Searched refs:iofile (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/incompressible/ |
| H A D | stats.f | 390 integer iofile, step2, itmp1, itmp,iofile2 local
398 iofile = 39
410 open ( unit = iofile, file = fname, status = 'unknown',
424 write (iofile) numnp, nshg, nTimeStep
425 write (iofile) outvec(1:nshg,:)
426 close (iofile)
|