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