二级FORTRAN程序设计上机题4

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
最后请写下这个程序并运行它。 程序中已经给出了部分程序和输出子程序
writedat，不能修改。
= = = = = = = = = = = = = = = = = = = = = = = = = = =数据a/3.5，4.5，5.5，2.5，1.5，2.5，-6.5

write(*，100) s
100格式(1x，s= '，e12.4)
write(*，*)
call writedat(s)
end

子例程writedat(s)
open(10，file='bc04.out '，status='new')
write(10，100) s
100 format(1x，e 12.4)
end
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =