read(5,1)i
1     format(i3)
      call printn("read: %d\n",i)
      end