getmexoperators.m

student teacher and proferssor llove this project,this a very important exmple

function outstr=getmexoperators
r=char(10);
outstr{1}=['module mexoperators',r,...
	   ' interface mxs',r,...
	   '  module procedure mxs_r2',r,...
	   '  module procedure mxs_c2',r,...
	   '  module procedure mxs_i2',r,...
	   '  module procedure mxs_r1',r,...
	   '  module procedure mxs_c1',r,...
	   '  module procedure mxs_i1',r,...
	   '  module procedure mxs_r',r,...
	   '  module procedure mxs_c',r,...
	   '  module procedure mxs_i',r,...
	   ' end interface mxs',r];
outstr{2}=['contains',r,...
	   '',r,...
	   ' function mxs_r2(a) result(out)',r,...
	   ' real, dimension(:,:) :: a',r,...
	   ' real out',r,...
	   ' out=a(1,1)',r,...
	   ' end function mxs_r2',r,...
	   ' function mxs_c2(a) result(out)',r,...
	   ' complex, dimension(:,:) :: a',r,...
	   ' complex out',r,...
	   ' out=a(1,1)',r,...
	   ' end function mxs_c2',r,...
	   ' function mxs_i2(a) result(out)',r,...
	   ' integer, dimension(:,:) :: a',r,...
	   ' integer out',r,...
	   ' out=a(1,1)',r,...
	   ' end function mxs_i2',r,...
	   ' function mxs_r1(a) result(out)',r,...
	   ' real, dimension(:) :: a',r,...
	   ' real out',r,...
	   ' out=a(1)',r,...
	   ' end function mxs_r1',r,...
	   ' function mxs_c1(a) result(out)',r,...
	   ' complex, dimension(:) :: a',r,...
	   ' complex out',r,...
	   ' out=a(1)',r,...
	   ' end function mxs_c1',r,...
	   ' function mxs_i1(a) result(out)',r,...
	   ' integer, dimension(:) :: a',r,...
	   ' integer out',r,...
	   ' out=a(1)',r,...
	   ' end function mxs_i1',r,...
	   ' function mxs_r(a) result(out)',r,...
	   ' real :: a',r,...
	   ' real out',r,...
	   ' out=a',r,...
	   ' end function mxs_r',r,...
	   ' function mxs_c(a) result(out)',r,...
	   ' complex :: a',r,...
	   ' complex out',r,...
	   ' out=a',r,...
	   ' end function mxs_c',r,...
	   ' function mxs_i(a) result(out)',r,...
	   ' integer :: a',r,...
	   ' integer out',r,...
	   ' out=a',r,...
	   ' end function mxs_i',r,r];
outstr{3}=['end module mexoperators',r];