    1 read(5,*) isd
      if(isd.eq.0) stop
      p=float(isd)*2.328306e-10+0.5
      ip=int(p*4.)
      write(6,2) p,ip
    2 format(1x,f12.8,i20)
      go to 1
      end
