File io 打开特定文件夹中的文件

我想打开位于“C:/Abaqus_JOBS/Reliability/Job-M1/input_files”中的文件。 我的代码如下所示：

    character :: JobName, JobDir, JobInpFol
    JobName="Job-M1"
    JobDir="/Reliability/" // JobName
    JobInpFol=JobDir // "/input_files/"
    OPEN(20, FILE="C:/Abaqus_JOBS" // JobInpFol // 
 1  "failureUEL.txt", action="write",status="replace")

---

但是fortran在“C:/Abaqus_JOBS”中打开文件。

如果这是您的代码，那么

JobName

、

JobDir

和

JobInpFol

都是长度为1的字符（您可以通过添加

print*、len（JobName）、len（JobDir）、len（JobInpFol）来测试这一点）

在您的代码中。因此，您的开放行在

“/Reliability/”

中真正看到了

/

---

您需要类似于

字符（len=30）：：JobName、JobDir、JobInpFol

，然后使用

trim（adjustl（JobName））

来消除空白。

adjustl在这里是多余的