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