51 format ('HETATM',I5,' N ALA A',i4,' ',3f8.3,2f6.2) write(3,51) i3,i3,(v(i),i=1,3),b,a