1*47949SbosticC 2*47949SbosticC Copyright (c) 1980 The Regents of the University of California. 3*47949SbosticC All rights reserved. 4*47949SbosticC 5*47949SbosticC %sccs.include.proprietary.f% 6*47949SbosticC 7*47949SbosticC @(#)fmtst.f 5.2 (Berkeley) 04/12/91 8*47949SbosticC 9*47949Sbostic 1043972Sbostic real x(8) 1143972Sbostic do 10 i=1,8 1243972Sbostic 10 x(i) = i 1343972Sbostic write(*,1000) (i,x(i),i=1,8) 1443972Sbostic 1000 format (2("x(",i,")= ",f3.0," feet, "), "ta da") 1543972Sbostic end 16