*KEEP,CINOUT.
       COMMON/ CINOUT / IQIQ,IO
C