void DDI_SMP_Create(size_t size,int *handle) { *handle = SMP_create(size); }
/* ---------------------------------------------------------- *\ DDI_SMP_Create wrapper \* ---------------------------------------------------------- */ void F77_SMP_Create(int_f77 *size,int_f77 *handle) { int myhndl = 0; size_t mysize = (size_t) *size; mysize *= sizeof(double); *handle = (int_f77) SMP_create(mysize); }