Вызов функции C ++ из Fortran в Visual Studio 2010 с привязкой ISO C 2003

Я должен вызвать функцию C ++ из моей программы на Фортране. Я использую Visual Studio 2010. Я прочитал соответствующую главу о привязке ISO C 2003 в этой книге http://www.amazon.com/Guide-Fortran-Programming-Walter-Brainerd/dp/1848825420 . Я попытался скомпилировать и запустить простой пример на странице 219 (я скопировал его ниже), но он говорит «ошибка LNK2019: неразрешенный внешний символ _c, указанный в функции ГЛАВНЫЙ_ «. Это шаги, которые я выполнил.

1) Я создал проект на Фортране с основной программой и модулем на Фортране и установил его как «проект запуска».

2) Я создал проект C ++ типа «статическая библиотека».

3) Я добавил $ (IFORT_COMPILERvv) \ compiler \ lib \ ia32, как описано здесь http://software.intel.com/en-us/articles/configuring-visual-studio-for-mixed-language-applications

Когда я компилирую, я получаю эту ошибку. Если я прокомментирую строку Call C, она отлично работает, поэтому не может найти функцию C. Любое предложение? Заранее спасибо. Вот коды C и Fortran:

    module type_def
use, intrinsic :: iso_c_binding
implicit none
private

type, public, bind(c) :: t_type
integer(kind=c_int) :: count
real(kind=c_float) :: data
end type t_type
end module type_def

program fortran_calls_c
use type_def
use, intrinsic :: iso_c_binding
implicit none

type(t_type) :: t
real(kind=c_float) :: x, y
integer(kind=c_int), dimension(0:1, 0:2) :: a

interface
subroutine c(tp, arr, a, b, m) bind(c)
import :: c_float, c_int, c_char, t_type
type(t_type) :: tp
integer(kind=c_int), dimension(0:1, 0:2) :: arr
real(kind=c_float) :: a, b
character(kind=c_char), dimension(*) :: m
end subroutine c
end interface

t = t_type(count=99, data=9.9)
x = 1.1
a = reshape([1, 2, 3, 4, 5, 6], shape(a))
call c(t, a, x, y, "doubling x" // c_null_char)
print *, x, y
print *, t
print *, a

end program fortran_calls_c

#include "stdafx.h"//#include <iostream>
#include <fstream>
typedef struct {int amount; float value;} newtype;
void c(newtype *nt, int arr[3][2], float *a, float *b, char msg[])
{
printf (" %d %f\n", nt->amount, nt->value);
printf (" %d %d %d\n", arr[0][1], arr[1][0], arr[1][1]);
printf (" %s\n", msg);
*b = 2*(*a);
}