Searched refs:linein (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | dtn.f | 303 character*250 linein,filename local
320 read (unit=1066,fmt='(a)',end=999) linein
322 if (linein(1:1).eq.'#') then
323 write (*,'(a)') linein
334 read (linein,*) x1,x2,y1,y2
488 character*80 linein,filename local
502 read (unit=1066,fmt='(a)',end=999) linein
504 if (linein(1:1).eq.'#') then
505 write (*,'(a)') linein
517 read (linein,*) table(i,1,islot), table(i,2,islot)
|