这是我的代码:
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
我该怎么做?