Skip to content
Snippets Groups Projects
Commit e3760e2a authored by Houtan Bastani's avatar Houtan Bastani
Browse files

move setfilem and geterrstr to individual functions

parent e2136239
No related branches found
No related tags found
No related merge requests found
...@@ -8,6 +8,8 @@ MOD_OBJS = \ ...@@ -8,6 +8,8 @@ MOD_OBJS = \
dlfcn.o dlfcn.o
OBJS = \ OBJS = \
setfilem.o \
geterrstr.o \
amh2.o \ amh2.o \
gammln.o \ gammln.o \
int2seq2.o \ int2seq2.o \
......
...@@ -248,27 +248,3 @@ C ...@@ -248,27 +248,3 @@ C
RETURN RETURN
END END
C -----------------------------------------
C To make dynamic the name of the .m file
C -----------------------------------------
SUBROUTINE SETFILEM(string1,string2)
!DEC$ ATTRIBUTES DLLEXPORT, ALIAS:'setfilem_' :: SETFILEM
CHARACTER*200 string1,string2,mfile,pathmfile
COMMON /M/ mfile, pathmfile
mfile = string1
pathmfile = string2
RETURN
END
C --------------------
C To get MatLab errors
C --------------------
SUBROUTINE GETERRSTR(matlaberror)
!DEC$ ATTRIBUTES DLLEXPORT, ALIAS:'geterrstr_' :: GETERRSTR
CHARACTER*1024 matlaberror
CHARACTER*1024 buffer
COMMON /ERRBUFFER/ buffer
matlaberror = buffer
RETURN
END
C --------------------------------------------------------------------
C This file crates matlabdll.dll whih is ment to read the .m file
C
C Copyright (C) 2010-2014 European Commission
C
C This file is part of Program DMM
C
C DMM is free software developed at the Joint Research Centre of the
C European Commission: you can redistribute it and/or modify it under
C the terms of the GNU General Public License as published by
C the Free Software Foundation, either version 3 of the License, or
C (at your option) any later version.
C
C DMM is distributed in the hope that it will be useful,
C but WITHOUT ANY WARRANTY; without even the implied warranty of
C MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
C GNU General Public License for more details.
C
C You should have received a copy of the GNU General Public License
C along with DMM. If not, see <http://www.gnu.org/licenses/>.
C ---------------------------------------------------------------------
C --------------------
C To get MatLab errors
C --------------------
SUBROUTINE GETERRSTR(matlaberror)
!DEC$ ATTRIBUTES DLLEXPORT, ALIAS:'geterrstr_' :: GETERRSTR
CHARACTER*1024 matlaberror
CHARACTER*1024 buffer
COMMON /ERRBUFFER/ buffer
matlaberror = buffer
RETURN
END
C --------------------------------------------------------------------
C This file crates matlabdll.dll whih is ment to read the .m file
C
C Copyright (C) 2010-2014 European Commission
C
C This file is part of Program DMM
C
C DMM is free software developed at the Joint Research Centre of the
C European Commission: you can redistribute it and/or modify it under
C the terms of the GNU General Public License as published by
C the Free Software Foundation, either version 3 of the License, or
C (at your option) any later version.
C
C DMM is distributed in the hope that it will be useful,
C but WITHOUT ANY WARRANTY; without even the implied warranty of
C MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
C GNU General Public License for more details.
C
C You should have received a copy of the GNU General Public License
C along with DMM. If not, see <http://www.gnu.org/licenses/>.
C ---------------------------------------------------------------------
C -----------------------------------------
C To make dynamic the name of the .m file
C -----------------------------------------
SUBROUTINE SETFILEM(string1,string2)
!DEC$ ATTRIBUTES DLLEXPORT, ALIAS:'setfilem_' :: SETFILEM
CHARACTER*200 string1,string2,mfile,pathmfile
COMMON /M/ mfile, pathmfile
mfile = string1
pathmfile = string2
RETURN
END
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment