Exemplo n.º 1
0
void MUMPS_CALL
MUMPS_OOC_INIT_VARS_C(int* myid_arg,
                        int* size_element,int* async, int* k211,
                        int *ierr)
{
#if ! defined(MUMPS_WIN32) && ! defined(WITHOUT_PTHREAD)
  mumps_time_spent_in_sync=0;
#endif
  mumps_io_k211=*k211;
  *ierr=mumps_io_init_vars(myid_arg,size_element,async);
  return;
}
Exemplo n.º 2
0
void MUMPS_CALL
MUMPS_OOC_INIT_VARS_C(MUMPS_INT *myid_arg,
                        MUMPS_INT *size_element,MUMPS_INT *async, MUMPS_INT *k211,
                        MUMPS_INT *ierr)
{
  int size_element_loc,async_loc,myid_arg_loc;
#if ! defined(MUMPS_WIN32) && ! defined(WITHOUT_PTHREAD)
  mumps_time_spent_in_sync=0;
#endif
  mumps_io_k211=(int)*k211;
  size_element_loc=(int)*size_element;
  async_loc=(int)*async;
  myid_arg_loc=(int)*myid_arg;
  *ierr=(MUMPS_INT)mumps_io_init_vars(&myid_arg_loc,&size_element_loc,&async_loc);
  return;
}