链接C/C++和Fortran，未解析的外部符号

我的Visual studio 2010解决方案文件通常由一个fortran项目（静态库类型，由source1.f90组成）、一个C/C++项目（应用程序类型，包含main.cpp）和13个C/C++工程（静态库型，包含不同类的不同.cpp/.h文件）组成。我的目的是从一个C/C++静态库类型项目中调用fortran源文件中的一些函数，但我无法构建程序，并且出现了错误。

我的第一次尝试是从main.cpp调用fortran子程序。但我得到了以下错误：

Error    2    error LNK2019: unresolved external symbol "void __cdecl 
bar_ftn(int,char *)" (?bar_ftn@@YAXHPAD@Z) referenced in function _main 
G:VS2010uakronsourcefilesapplicationmain.obj
Error    3    error LNK1120: 1 unresolved externals    G:VS2010uakron
buildwindebugapplication_app.exe    1

源1.f90

subroutine bar_ftn ( len_input_file, input_file ) bind( c )
    use, intrinsic :: iso_c_binding, only : c_int
    implicit none
    integer(c_int), value, intent(in) :: len_input_file
    character(len=1), intent(in) :: input_file(len_input_file)
    ! Local declarations (copy c char array into fortran character)
    character(len=len_input_file) :: infile
    integer :: i
    print *, "in bar_ftn"
    print *, len_input_file
    do i=1,len_input_file
    end do
end subroutine bar_ftn

main.cpp

#include<iostream>
#include<fstream>
using namespace std;
extern void bar_ftn ( int flag_len, char* flag );
static void
DisplayUsage(char* programName);
int main(int argc, char *argv[])
{
    char ctext[]="helloworld abcdefghijklmnopqrstuvwxyz abcdefghijklmnopqrstuvwxyz";
    int ctext_len=sizeof(ctext);
    //Call the Fortran
    bar_ftn( ctext_len, ctext );
    return 0;
}

另一方面，我还从一个C/C++静态库项目的一个类函数中调用了fortran函数，但我得到了相同类型的错误（LNK2019）。

如有任何帮助，我们将不胜感激。