Exemple #1
0
void MUMPS_CALL
MUMPS_OOC_SET_FILE_NAME_C(int* type, int* indice, int* length, int *ierr,
                          char* name, mumps_ftnlen l1)
{
  *ierr=mumps_io_set_file_name(indice,name,length,type);
  return;
}
Exemple #2
0
void MUMPS_CALL
MUMPS_OOC_SET_FILE_NAME_C(MUMPS_INT *type, MUMPS_INT *indice, MUMPS_INT *length, MUMPS_INT *ierr,
                          char* name, mumps_ftnlen l1)
{
  int type_loc,indice_loc,length_loc;
  type_loc=(int)*type;
  indice_loc=(int)*indice;
  length_loc=(int)*length;
  *ierr=(MUMPS_INT)mumps_io_set_file_name(&indice_loc,name,&length_loc,&type_loc);
  return;
}