| 修訂 | e14d776b6ba7502a7d0dcad363ea5c22ec9fcdb6 (tree) |
|---|---|
| 時間 | 2019-07-16 20:39:17 |
| 作者 | Harald Klimach <harald.klimach@uni-...> |
| Commiter | Harald Klimach |
Added individual copyright headers to each source file in LuaFortran.
LuaFortran/COPYRIGHT (diff) LuaFortran/Makefile.inc (diff) LuaFortran/dump_lua_fif_module.f90 (diff) LuaFortran/examples/Makefile (diff) LuaFortran/examples/config.test (diff) LuaFortran/examples/test.f90 (diff) LuaFortran/flu_binding.f90 (diff) LuaFortran/flu_kinds_module.f90 (diff) LuaFortran/lua_fif.f90 (diff) LuaFortran/lua_parameters.f90 (diff)
LuaFortran/wrap_lua_dump.c (diff)| @@ -1,6 +1,7 @@ | ||
| 1 | 1 | This LuaFortran interface is provided by the German Research School for |
| 2 | 2 | Simulation Sciences GmbH, Aachen and licensed under the same terms as Lua |
| 3 | 3 | which is available under the MIT license reproduced below. |
| 4 | +See individual files for respective contributors. | |
| 4 | 5 | |
| 5 | 6 | See also: |
| 6 | 7 | http://www.lua.org/license.html. |
| @@ -9,7 +10,7 @@ | ||
| 9 | 10 | |
| 10 | 11 | Copyright (C) 2011-2013 German Research School for Simulation Sciences GmbH, |
| 11 | 12 | Aachen and others. |
| 12 | - 2015 University of Siegen. | |
| 13 | + 2015-208 University of Siegen and others. | |
| 13 | 14 | |
| 14 | 15 | Permission is hereby granted, free of charge, to any person obtaining a copy |
| 15 | 16 | of this software and associated documentation files (the "Software"), to deal |
| @@ -1,3 +1,24 @@ | ||
| 1 | +# Copyright (c) 2017 Nick Papior <nickpapior@gmail.com> | |
| 2 | +# | |
| 3 | +# Permission is hereby granted, free of charge, to any person obtaining a copy | |
| 4 | +# of this software and associated documentation files (the "Software"), to deal | |
| 5 | +# in the Software without restriction, including without limitation the rights | |
| 6 | +# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell | |
| 7 | +# copies of the Software, and to permit persons to whom the Software is | |
| 8 | +# furnished to do so, subject to the following conditions: | |
| 9 | +# | |
| 10 | +# The above copyright notice and this permission notice shall be included in | |
| 11 | +# all copies or substantial portions of the Software. | |
| 12 | +# | |
| 13 | +# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR | |
| 14 | +# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, | |
| 15 | +# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. | |
| 16 | +# IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, | |
| 17 | +# DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR | |
| 18 | +# OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE | |
| 19 | +# OR OTHER DEALINGS IN THE SOFTWARE. | |
| 20 | +# **************************************************************************** # | |
| 21 | + | |
| 1 | 22 | LuaF_DIR = $(TOP_DIR)/LuaFortran |
| 2 | 23 | |
| 3 | 24 | # Append the LuaFortran directory |
| @@ -1,3 +1,27 @@ | ||
| 1 | +! Copyright (c) 2012 Harald Klimach <harald@klimachs.de> | |
| 2 | +! | |
| 3 | +! Parts of this file were written by Harald Klimach for | |
| 4 | +! German Research School of Simulation Sciences. | |
| 5 | +! | |
| 6 | +! Permission is hereby granted, free of charge, to any person obtaining a copy | |
| 7 | +! of this software and associated documentation files (the "Software"), to deal | |
| 8 | +! in the Software without restriction, including without limitation the rights | |
| 9 | +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell | |
| 10 | +! copies of the Software, and to permit persons to whom the Software is | |
| 11 | +! furnished to do so, subject to the following conditions: | |
| 12 | +! | |
| 13 | +! The above copyright notice and this permission notice shall be included in | |
| 14 | +! all copies or substantial portions of the Software. | |
| 15 | +! | |
| 16 | +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR | |
| 17 | +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, | |
| 18 | +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. | |
| 19 | +! IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, | |
| 20 | +! DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR | |
| 21 | +! OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE | |
| 22 | +! OR OTHER DEALINGS IN THE SOFTWARE. | |
| 23 | +! **************************************************************************** ! | |
| 24 | + | |
| 1 | 25 | !> This module provides a Fortran interface to the Lua dump routine. |
| 2 | 26 | module dump_lua_fif_module |
| 3 | 27 | use, intrinsic :: iso_c_binding |
| @@ -1,3 +1,27 @@ | ||
| 1 | +# Copyright (c) 2011 Harald Klimach <harald@klimachs.de> | |
| 2 | +# | |
| 3 | +# Parts of this file were written by Harald Klimach for German Resarch | |
| 4 | +# School of Simulation Sciences. | |
| 5 | +# | |
| 6 | +# Permission is hereby granted, free of charge, to any person obtaining a copy | |
| 7 | +# of this software and associated documentation files (the "Software"), to deal | |
| 8 | +# in the Software without restriction, including without limitation the rights | |
| 9 | +# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell | |
| 10 | +# copies of the Software, and to permit persons to whom the Software is | |
| 11 | +# furnished to do so, subject to the following conditions: | |
| 12 | +# | |
| 13 | +# The above copyright notice and this permission notice shall be included in | |
| 14 | +# all copies or substantial portions of the Software. | |
| 15 | +# | |
| 16 | +# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR | |
| 17 | +# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, | |
| 18 | +# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. | |
| 19 | +# IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, | |
| 20 | +# DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR | |
| 21 | +# OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE | |
| 22 | +# OR OTHER DEALINGS IN THE SOFTWARE. | |
| 23 | +# **************************************************************************** # | |
| 24 | + | |
| 1 | 25 | FC=gfortran |
| 2 | 26 | FFLAGS= |
| 3 | 27 | FLULIB=-L.. -lflu |
| @@ -1,3 +1,27 @@ | ||
| 1 | +-- Copyright (c) 2011 Harald Klimach <harald@klimachs.de> | |
| 2 | +-- | |
| 3 | +-- Parts of this file were written by Harald Klimach for German Resarch | |
| 4 | +-- School of Simulation Sciences. | |
| 5 | +-- | |
| 6 | +-- Permission is hereby granted, free of charge, to any person obtaining a copy | |
| 7 | +-- of this software and associated documentation files (the "Software"), to deal | |
| 8 | +-- in the Software without restriction, including without limitation the rights | |
| 9 | +-- to use, copy, modify, merge, publish, distribute, sublicense, and/or sell | |
| 10 | +-- copies of the Software, and to permit persons to whom the Software is | |
| 11 | +-- furnished to do so, subject to the following conditions: | |
| 12 | +-- | |
| 13 | +-- The above copyright notice and this permission notice shall be included in | |
| 14 | +-- all copies or substantial portions of the Software. | |
| 15 | +-- | |
| 16 | +-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR | |
| 17 | +-- IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, | |
| 18 | +-- FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. | |
| 19 | +-- IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, | |
| 20 | +-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR | |
| 21 | +-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE | |
| 22 | +-- OR OTHER DEALINGS IN THE SOFTWARE. | |
| 23 | +-- ************************************************************************** -- | |
| 24 | + | |
| 1 | 25 | -- configuration file for program `pp' |
| 2 | 26 | -- define window size |
| 3 | 27 |
| @@ -1,3 +1,28 @@ | ||
| 1 | +! Copyright (c) 2011, 2016 Harald Klimach <harald@klimachs.de> | |
| 2 | +! | |
| 3 | +! Parts of this file were written by Harald Klimach for | |
| 4 | +! German Research School of Simulation Sciences and University of | |
| 5 | +! Siegen. | |
| 6 | +! | |
| 7 | +! Permission is hereby granted, free of charge, to any person obtaining a copy | |
| 8 | +! of this software and associated documentation files (the "Software"), to deal | |
| 9 | +! in the Software without restriction, including without limitation the rights | |
| 10 | +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell | |
| 11 | +! copies of the Software, and to permit persons to whom the Software is | |
| 12 | +! furnished to do so, subject to the following conditions: | |
| 13 | +! | |
| 14 | +! The above copyright notice and this permission notice shall be included in | |
| 15 | +! all copies or substantial portions of the Software. | |
| 16 | +! | |
| 17 | +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR | |
| 18 | +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, | |
| 19 | +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. | |
| 20 | +! IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, | |
| 21 | +! DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR | |
| 22 | +! OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE | |
| 23 | +! OR OTHER DEALINGS IN THE SOFTWARE. | |
| 24 | +! **************************************************************************** ! | |
| 25 | + | |
| 1 | 26 | program test |
| 2 | 27 | use flu_binding |
| 3 | 28 |
| @@ -1,3 +1,34 @@ | ||
| 1 | +! Copyright (c) 2011-2013, 2015-2016, 2018 Harald Klimach <harald@klimachs.de> | |
| 2 | +! Copyright (c) 2012, 2014 Kannan Masilamani <kannan.masilamani@uni-siegen.de> | |
| 3 | +! Copyright (c) 2012-2013 James Spencer <j.spencer@imperial.ac.uk> | |
| 4 | +! Copyright (c) 2014 dgloger | |
| 5 | +! Copyright (c) 2015 Peter Vitt <peter.vitt2@uni-siegen.de> | |
| 6 | +! Copyright (c) 2016 Ruth Franklin | |
| 7 | +! | |
| 8 | +! Parts of this file were written by Harald Klimach for | |
| 9 | +! German Research School of Simulation Sciences | |
| 10 | +! Parts of this file were written by Harald Klimach, Kannan Masilamani and | |
| 11 | +! Peter Vitt for University of Siegen. | |
| 12 | +! | |
| 13 | +! Permission is hereby granted, free of charge, to any person obtaining a copy | |
| 14 | +! of this software and associated documentation files (the "Software"), to deal | |
| 15 | +! in the Software without restriction, including without limitation the rights | |
| 16 | +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell | |
| 17 | +! copies of the Software, and to permit persons to whom the Software is | |
| 18 | +! furnished to do so, subject to the following conditions: | |
| 19 | +! | |
| 20 | +! The above copyright notice and this permission notice shall be included in | |
| 21 | +! all copies or substantial portions of the Software. | |
| 22 | +! | |
| 23 | +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR | |
| 24 | +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, | |
| 25 | +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. | |
| 26 | +! IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, | |
| 27 | +! DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR | |
| 28 | +! OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE | |
| 29 | +! OR OTHER DEALINGS IN THE SOFTWARE. | |
| 30 | +! **************************************************************************** ! | |
| 31 | + | |
| 1 | 32 | !> This module provides the Fortran Lua interface. |
| 2 | 33 | !! |
| 3 | 34 | !! It defines a flu_state which encapsulates the |
| @@ -109,7 +140,7 @@ | ||
| 109 | 140 | abstract interface |
| 110 | 141 | function lua_Function(s) result(val) bind(c) |
| 111 | 142 | use, intrinsic :: iso_c_binding |
| 112 | - integer(c_int) :: val | |
| 143 | + integer(c_int) :: val | |
| 113 | 144 | type(c_ptr), value :: s |
| 114 | 145 | end function lua_Function |
| 115 | 146 | end interface |
| @@ -633,19 +664,19 @@ | ||
| 633 | 664 | c_index = int(index, kind=c_int) |
| 634 | 665 | luat = lua_type(L%state, c_index) |
| 635 | 666 | flut = int(luat) |
| 636 | - | |
| 667 | + | |
| 637 | 668 | end function flu_type |
| 638 | 669 | |
| 639 | 670 | |
| 640 | 671 | subroutine flu_pushcclosure(L, fn, n) |
| 641 | - type(flu_State), value :: L | |
| 672 | + type(flu_State), value :: L | |
| 642 | 673 | procedure(lua_Function) :: fn |
| 643 | - integer :: n | |
| 674 | + integer :: n | |
| 644 | 675 | |
| 645 | 676 | integer(c_int) :: c_n |
| 646 | 677 | type(c_funptr) :: c_fn |
| 647 | 678 | |
| 648 | - c_n = n | |
| 679 | + c_n = n | |
| 649 | 680 | c_fn = c_funloc(fn) |
| 650 | 681 | |
| 651 | 682 | call lua_pushcclosure(L%state, c_fn, c_n) |
| @@ -653,7 +684,7 @@ | ||
| 653 | 684 | end subroutine flu_pushcclosure |
| 654 | 685 | |
| 655 | 686 | |
| 656 | - subroutine flu_register(L, fn_name, fn) | |
| 687 | + subroutine flu_register(L, fn_name, fn) | |
| 657 | 688 | |
| 658 | 689 | ! lua_register is defined as a macro in lua.h and isn't accessible from |
| 659 | 690 | ! Fortran. |
| @@ -686,7 +717,7 @@ | ||
| 686 | 717 | |
| 687 | 718 | |
| 688 | 719 | ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! |
| 689 | - ! Wrapper routines for the auxiliary library | |
| 720 | + ! Wrapper routines for the auxiliary library | |
| 690 | 721 | ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! |
| 691 | 722 | |
| 692 | 723 | function fluL_loadfile(L, filename) result(errcode) |
| @@ -752,7 +783,7 @@ | ||
| 752 | 783 | |
| 753 | 784 | subroutine fluL_openlibs(L) |
| 754 | 785 | type(flu_State) :: L |
| 755 | - | |
| 786 | + | |
| 756 | 787 | if (.not. L%opened_libs) then |
| 757 | 788 | call luaL_openlibs(L%state) |
| 758 | 789 | L%opened_libs = .true. |
| @@ -799,7 +830,7 @@ | ||
| 799 | 830 | |
| 800 | 831 | |
| 801 | 832 | ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! |
| 802 | - ! Routines for using existing Lua states with | |
| 833 | + ! Routines for using existing Lua states with | |
| 803 | 834 | ! flu_binding |
| 804 | 835 | ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! |
| 805 | 836 |
| @@ -1,7 +1,26 @@ | ||
| 1 | -! Copyright (C) 2011-2013 German Research School for Simulation Sciences GmbH, | |
| 2 | -! Aachen and others. | |
| 3 | -! 2013-2018 University of Siegen | |
| 4 | -! Please see the COPYRIGHT file in this directory for details. | |
| 1 | +! Copyright (c) 2016, 2018 Harald Klimach <harald@klimachs.de> | |
| 2 | +! | |
| 3 | +! Parts of this file were written by Harald Klimach for University of | |
| 4 | +! Siegen. | |
| 5 | +! | |
| 6 | +! Permission is hereby granted, free of charge, to any person obtaining a copy | |
| 7 | +! of this software and associated documentation files (the "Software"), to deal | |
| 8 | +! in the Software without restriction, including without limitation the rights | |
| 9 | +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell | |
| 10 | +! copies of the Software, and to permit persons to whom the Software is | |
| 11 | +! furnished to do so, subject to the following conditions: | |
| 12 | +! | |
| 13 | +! The above copyright notice and this permission notice shall be included in | |
| 14 | +! all copies or substantial portions of the Software. | |
| 15 | +! | |
| 16 | +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR | |
| 17 | +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, | |
| 18 | +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. | |
| 19 | +! IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, | |
| 20 | +! DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR | |
| 21 | +! OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE | |
| 22 | +! OR OTHER DEALINGS IN THE SOFTWARE. | |
| 23 | +! **************************************************************************** ! | |
| 5 | 24 | |
| 6 | 25 | !> Global definitions of some handy kind declarations |
| 7 | 26 | !! with the help of the intrinsic selected_*_kind |
| @@ -1,3 +1,33 @@ | ||
| 1 | +! Copyright (c) 2011-2012, 2015-2016 Harald Klimach <harald@klimachs.de> | |
| 2 | +! Copyright (c) 2012-2013 James Spencer <j.spencer@imperial.ac.uk> | |
| 3 | +! Copyright (c) 2015 Peter Vitt <peter.vitt2@uni-siegen.de> | |
| 4 | +! Copyright (c) 2016 Ruth Franklin | |
| 5 | +! | |
| 6 | +! Parts of this file were written by Harald Klimach for | |
| 7 | +! German Research School of Simulation Sciences and University of | |
| 8 | +! Siegen. | |
| 9 | +! Parts of this file were written by Peter Vitt for University of | |
| 10 | +! Siegen. | |
| 11 | +! | |
| 12 | +! Permission is hereby granted, free of charge, to any person obtaining a copy | |
| 13 | +! of this software and associated documentation files (the "Software"), to deal | |
| 14 | +! in the Software without restriction, including without limitation the rights | |
| 15 | +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell | |
| 16 | +! copies of the Software, and to permit persons to whom the Software is | |
| 17 | +! furnished to do so, subject to the following conditions: | |
| 18 | +! | |
| 19 | +! The above copyright notice and this permission notice shall be included in | |
| 20 | +! all copies or substantial portions of the Software. | |
| 21 | +! | |
| 22 | +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR | |
| 23 | +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, | |
| 24 | +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. | |
| 25 | +! IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, | |
| 26 | +! DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR | |
| 27 | +! OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE | |
| 28 | +! OR OTHER DEALINGS IN THE SOFTWARE. | |
| 29 | +! **************************************************************************** ! | |
| 30 | + | |
| 1 | 31 | !> This module provides a direct translation of some |
| 2 | 32 | !! Lua 5.3.2 |
| 3 | 33 | !! C-Interfaces to Fortran 2003 interfaces using the |
| @@ -1,3 +1,30 @@ | ||
| 1 | +! Copyright (c) 2011-2012, 2016 Harald Klimach <harald@klimachs.de> | |
| 2 | +! Copyright (c) 2012 Kannan Masilamani <k.masilamani@grs-sim.de> | |
| 3 | +! Copyright (c) 2013 James Spencer <j.spencer@imperial.ac.uk> | |
| 4 | +! | |
| 5 | +! Parts of this file were written by Harald Klimach for | |
| 6 | +! German Research School of Simulation Sciences and University of | |
| 7 | +! Siegen. | |
| 8 | +! | |
| 9 | +! Permission is hereby granted, free of charge, to any person obtaining a copy | |
| 10 | +! of this software and associated documentation files (the "Software"), to deal | |
| 11 | +! in the Software without restriction, including without limitation the rights | |
| 12 | +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell | |
| 13 | +! copies of the Software, and to permit persons to whom the Software is | |
| 14 | +! furnished to do so, subject to the following conditions: | |
| 15 | +! | |
| 16 | +! The above copyright notice and this permission notice shall be included in | |
| 17 | +! all copies or substantial portions of the Software. | |
| 18 | +! | |
| 19 | +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR | |
| 20 | +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, | |
| 21 | +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. | |
| 22 | +! IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, | |
| 23 | +! DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR | |
| 24 | +! OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE | |
| 25 | +! OR OTHER DEALINGS IN THE SOFTWARE. | |
| 26 | +! **************************************************************************** ! | |
| 27 | + | |
| 1 | 28 | !> This module provides some parameters defined in the |
| 2 | 29 | !! Lua header file that are needed in the wrapper |
| 3 | 30 | !! functions for the Fortran interface. |
| @@ -1,3 +1,28 @@ | ||
| 1 | +// Copyright (c) 2012-2013, 2015 Harald Klimach <harald@klimachs.de> | |
| 2 | +// | |
| 3 | +// Parts of this file were written by Harald Klimach for | |
| 4 | +// German Research School of Simulation Sciences and University of | |
| 5 | +// Siegen. | |
| 6 | +// | |
| 7 | +// Permission is hereby granted, free of charge, to any person obtaining a copy | |
| 8 | +// of this software and associated documentation files (the "Software"), to deal | |
| 9 | +// in the Software without restriction, including without limitation the rights | |
| 10 | +// to use, copy, modify, merge, publish, distribute, sublicense, and/or sell | |
| 11 | +// copies of the Software, and to permit persons to whom the Software is | |
| 12 | +// furnished to do so, subject to the following conditions: | |
| 13 | +// | |
| 14 | +// The above copyright notice and this permission notice shall be included in | |
| 15 | +// all copies or substantial portions of the Software. | |
| 16 | +// | |
| 17 | +// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR | |
| 18 | +// IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, | |
| 19 | +// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. | |
| 20 | +// IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, | |
| 21 | +// DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR | |
| 22 | +// OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE | |
| 23 | +// OR OTHER DEALINGS IN THE SOFTWARE. | |
| 24 | +// *************************************************************************** ! | |
| 25 | + | |
| 1 | 26 | #include <stdlib.h> |
| 2 | 27 | #include "lua.h" |
| 3 | 28 |
Fork