// Evgenii B. Rudnyi, http://Evgenii.Rudnyi.Ru

#include <iostream>
using namespace::std;

extern "C" int test_(char *str, double *adbl, double *dbl, int *aint, int *intv, int nstr);

int main()
{
	char *str = "test";
	double dbl = 4.5;
	double adbl[4] = {1.2, 3.4, 5.6, 7.8};
	int intv = 3;
	int aint[4] = {3, 4, 5, 6};
	cout << "calling Fortran" << endl;
	test_(str, adbl, &dbl, aint, &intv, 4);
	return 0;
}