Fortran获取当前项目的路径

空花缱绻三分

已于 2023-06-03 10:33:28 修改

阅读量846

点赞数

分类专栏： Fortran 文章标签：算法

于 2023-06-03 10:31:34 首次发布

本文链接：https://blog.csdn.net/Sanfenpai6/article/details/131018523

版权

Fortran 专栏收录该内容

13 篇文章 3 订阅

订阅专栏

    program test
    implicit none
    character(len=255) :: program_path
    character(len=255) :: program_dir,program_dir1
    integer :: pos1, pos2, pos3
    ! 获取程序路径
    call GET_COMMAND_ARGUMENT(0, program_path)

    ! 获取程序所在目录
    program_dir = ADJUSTL(program_path) ! 去除路径末尾的空格
    ! program_dir = C:\Fortran_L\test_1\x64\Debug\test_1.exe

    pos1 = INDEX(program_dir, "\")

    ! 查找第二个反斜杠的位置索引
    pos2 = INDEX(program_dir(pos1+1:), "\") + pos1

    ! 查找第三个反斜杠的位置索引
    pos3 = INDEX(program_dir(pos2+1:), "\") + pos2
    
    program_dir1 = program_dir(1:pos3)
    print *, "程序所在目录：", program_dir1
    ! C:\Fortran_L\test_1\
    stop
    end program test