output.f90

来自「运载火箭用拉瓦尔喷管计算（此程序参数保密」· F90 代码 · 共 30 行

subroutine output()
use module1
open (10,file='time-twout.csv')
open (20,file='time-twin.csv')
open (30,file='time-r0.csv')
open (40,file='time-alf.csv')
open (50,file='time-s.csv')
open (60,file='time-dsdt.csv')
open (70,file='time-dsdt1.csv')
open (80,file='time-pe.csv')
open (90,file='time-te.csv')
open (100,file='time-ma.csv')
open (110,file='time-A.csv')
















end subroutine