C++ (Cpp) cslhaVal примеры использования

Пример #1

Файл: fortran.c Проект: restrepo/micromegas_old

Complex cslhaval3_(char * Block, double *Q, int *k1,int*k2,int*k3, int len)
{  char  c_name[200];
   Complex res;
   fName2c(Block,c_name,len);
   res=cslhaVal(c_name, *Q, 3,*k1,*k2,*k3);
   ferror_.ferror=FError;
   return res;       
} 

Пример #2

Файл: fortran.c Проект: leloulight/micro_omega_4

double complex  cslhaval1_(char * Block, double *Q, int *k1, int len)
{  char  c_name[200];
   double complex res;
   fName2c(Block,c_name,len);
   res= cslhaVal(c_name, *Q, 1,*k1);
   ferror_.ferror=FError;
   return res;
}