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