1path= get_absolute_file_path('loader.sce');
2exec(path+"/loader_inc.sce");
3
4functions1 = ["dmumpsc"];
5functions2 = ["zmumpsc"];
6entrypoint1 = "scidmumps";
7entrypoint2 = "scizmumps";
8
9addinter(objects,entrypoint1,functions1)
10num_interface = floor(funptr("dmumpsc")/100);
11intppty(num_interface)
12
13addinter(objects,entrypoint2,functions2)
14 num_interface = floor(funptr("zmumpsc")/100);
15 intppty(num_interface)
16
17[units,typs,nams]=file();
18clear units typs
19for k=size(nams,'*'):-1:1
20  l=strindex(nams(k),'loader.sce');
21  if l<>[] then
22    DIR_SCIMUMPS = part(nams(k),1:l($)-1);
23    break
24  end
25end
26
27DIR_SCIMUMPS_DEM=DIR_SCIMUMPS+ "examples/";
28
29getf(DIR_SCIMUMPS+"initmumps.sci")
30getf(DIR_SCIMUMPS+"dmumps.sci")
31getf(DIR_SCIMUMPS+"zmumps.sci")
32
33add_help_chapter("Interface to the MUMPS package",path+"Help");
34
35
36