Fortran 中直接使用C进行混合编程

先上一个C写的函数 check_dir.c

#ifndef CHECKDIR_H
#define    CHECKDIR_H

#include <io.h>

#ifdef    __cplusplus
extern "C" {
#endif

    int checkdir_c_(char* dir)
     {
        if (_access(dir, 0) != -1)
            return 0;
        else
            if (_mkdir(dir) == 0)
            return 0;
        else
            return -1;
    }

#ifdef    __cplusplus
}
#endif

#endif    /* CHECKDIR_H */

编译：gcc –c –o checkdir.o check_dir.c

在来一段fortran 调用的代码 iotils.f90

subroutine checkdir(path)
    implicit none

    character(len = 256) :: path, temp
    integer(kind = 4) :: alive, checkdir_c

    temp = trim(path)//achar(0)
    print *, "aa"//trim(temp)
    alive = checkdir_c(trim(path))
    if (alive /= 0) then
        write(0,*) "error:文件夹"//trim(path)//"创建失败!"
        stop
    end if
end subroutine checkdir

编译 gfortran –c –o iotils.o iotils.f90

主程序  test.f90

program test
    implict none
    call checkdir("d:\a\b")
end program test

编译 gfortran –c –o test.o test.f90

链接 gfortran –o test.exe test.o checkdir.o

 

大功告成

 

关键问题：

fortran编译器在编译的时候会自动在函数名后面加一个_，解决方法有两个：

1.给fortran 编译命令后面加一个编译参数，使之不自动产生下划线。

2.在c函数声明中后面加一个下划线，如checkdir_c_，而在fortran调用的时候采用 checkdir_c的形式来调用。