在特定文件夹中打开文件 - gfortran

时间:2016-04-28 22:41:32

标签: fortran gfortran

这是我的代码:

Program Write_in_folder

Implicit none

Integer::B_st
Character(128)::Output
Character(128),parameter::fmt_1='("Output_",i0,".txt")'
Character(128),parameter::fmt_2='(2x,i0)'

Write(*,*)"Enter the number:"
Read(*,*)B_st

Write(Output,trim(adjustl(fmt_1)))B_st

Open(Unit=1,File=Output,Status='Unknown')

    Write(1,trim(adjustl(fmt_2)))B_st

Close(Unit=1,Status='Keep')

Stop
End Program Write_in_folder

我想在我的电脑中的特定位置打开文件输出。这个地方是:

D:\Put_Output

我该怎么做?

0 个答案:

没有答案