Searched refs:fid (Results 1 – 1 of 1) sorted by relevance
| /phasta/svLS/ |
| H A D | NSSOLVER.f | 307 INTEGER fid, i, j local
312 fid = 11232
313 OPEN(fid, FILE=fName, POSITION='APPEND')
320 WRITE(fid,*) gnNo, commu%nTasks, i
328 WRITE(fid,"(I4.3,I3,I4,I5,3I4,3ES9.2E2,3I4)")
336 CLOSE(fid)
|