fmtst.f

   1:         real x(8)
   2:         do 10 i=1,8
   3:    10   x(i) = i
   4:         write(*,1000) (i,x(i),i=1,8)
   5:  1000   format (2("x(",i,")= ",f3.0," feet, "), "ta da")
   6:         end

Last modified: 1987-02-18
Generated: 2016-12-26

Generated by src2html V0.67
page hit count: 1189