intel Fortran 调用VC创设的Lib

intel Fortran 调用VC创建的Lib

Vc建立lib项目
//Mydll.cpp
#include <stdio.h>

#define Maxx MAXX
#define Minn MINN
extern "C"
{
int Maxx(int a, int b)
{ 
    if(a >= b)return a; 
    else 
    return b;
}
int Minn(int a, int b)
{
if(a >= b)return b;
else
return a; 
}
}

intel Fortran 调用：
      program main    !（可要或者不要）

      interface
        integer function maxx(a,b)
        integer a,b
        !ms$attributes c,alias:'_MAXX':: maxx
        end function maxx
        integer function minn(a,b)
        integer a,b
        !ms$attributes c,alias:'_MINN':: minn
        end function minn
      end interface


      integer aa,bb,cx,cd
      aa=12
      bb=21
      cd=maxx(aa,bb)
      cx=minn(aa,bb)
      write(*,*)cx,cd
      end program