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