二级FORTRAN程序设计上机题5

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

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

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