Имеется два файла 
1)test_c.cpp
2)test_f.for

Надо их подружить....


1)test_c.cpp
#include<math.h>


void testc(int k,int *c,int *x,int *y)
{
	int i;
    for(i=0;i<k-1;i++)
	{*x=c[1]*c[2]*c[3]*i;
	 *y=(c[1]+c[2]+c[3])*i;
	}
}

2)test_f.for

	interface to subroutine 
     *	DetforFortran[c,alias:'_testc'](k,c,x,y)

      integer*4 k
	integer*4,dimension(3)::c
      integer*4 x 
	integer*4 y 

      end


	PROGRAM test

	integer*4,dimension(5)::a,b
	integer*4,dimension(3)::c1
	integer*4 ch,k1,x1,y1 
      ch=5
	c1(1)=2
	c1(2)=3
	c1(3)=4

      do k1=1,ch
	   a(k1)=1
	   b(k1)=1
	end do

      do k1=1,ch
	  x1=a(k1)
	  y1=b(k1)
	  CALL DetforFortran(k1,c1,x1,y1)


	  a(k1)=x1
	  b(k1)=y1
	  write(*,*)'a(',k1,')=',a(k1)
		write(*,*)'b(',k1,')=',b(k1)
	end do
      

	END