diff --git a/Makefile b/Makefile index 1404d6b24667958275009685dfca620bb725ef57..e77d2a985ae6c596b1f7953f34fab53b7be544a9 100644 --- a/Makefile +++ b/Makefile @@ -8,6 +8,8 @@ MOD_OBJS = \ dlfcn.o OBJS = \ + setfilem.o \ + geterrstr.o \ amh2.o \ gammln.o \ int2seq2.o \ diff --git a/ReadMatLabDesign.F b/ReadMatLabDesign.F index 577270c21bfa5840b91b582c1823d57dfc0af5c4..e977d06b54022e48f775996b07a68cccdc0fa30a 100644 --- a/ReadMatLabDesign.F +++ b/ReadMatLabDesign.F @@ -248,27 +248,3 @@ C RETURN 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 diff --git a/geterrstr.for b/geterrstr.for new file mode 100644 index 0000000000000000000000000000000000000000..5770e0d9434f32d0c340802c38b6485dd65a5fee --- /dev/null +++ b/geterrstr.for @@ -0,0 +1,32 @@ +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 diff --git a/setfilem.for b/setfilem.for new file mode 100644 index 0000000000000000000000000000000000000000..7c9f20b7bb36f24819fb967243ca1b0bde510860 --- /dev/null +++ b/setfilem.for @@ -0,0 +1,32 @@ +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