function outstr=getmexoperatorsr=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];