source: issm/trunk/src/m/os/ismpi.m@ 13975

function flag=ismpi()
%ISMPI - figure out if MPI package was compiled with ISSM
%
%   Usage:
%       flag=ismpi();

configfile=[issmdir() '/bin/config.h']; %should find it in the install target
if ~exist(configfile,'file'),
        error(['File ' configfile ' not found. ISSM has not been configured yet!']);
end

%go through the file, and recover the line we want
flag=2;
fid=fopen(configfile,'r');
if(fid==-1), error(['could not open file: ' configfile]); end

while(true),
        tline=fgets(fid);
        if ~ischar(tline), break, end
        if strncmp(tline,'/* #undef _HAVE_MPI_ */',23),
                flag=0;
                break;
        end
        if  strncmp(tline,'#define _HAVE_MPI_',18),
                flag=1;
                break;
        end
end
fclose(fid);
if flag==2,
        error('could not determine whether MPI was or was not compiled');
end