1 
2       integer         ior,iow
3       common /iofile/ ior,iow
4 
5       logical         keepfl
6       common /iofile/ keepfl
7 
8