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)
|