ftnlf

Check-in [9fe618515b]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Make public FA metatable id.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:9fe618515bcc05462a7c4c72b36441d92e72ab53
User & Date: vadim 2018-05-08 15:47:54
Context
2018-05-09
13:01
Subroutine to copy slices to/from Fortran array. check-in: d0293b60c0 user: vadim tags: trunk
2018-05-08
15:47
Make public FA metatable id. check-in: 9fe618515b user: vadim tags: trunk
10:38
Factor out ftnlf library (need to test under Windows). check-in: a7938cc2b8 user: vadim tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ftnlf_fxcore.f90.

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
! (Fortran arrayas, linear interpolation, ...)
module ftnlf_fxcore
    use LuaF
    use LuaFE
    use, intrinsic :: iso_c_binding, only: c_int, c_ptr
    implicit none
    private
    ! Public API: loader function, userdata id for interp objects,
    ! C functions to operate with Fortran arrays
    public ldr_fx_core
    public l_fa_new, l_fa_pack, l_fa_unpack
    public mt_interp

    character(*), parameter :: mt_FA = 'ftnlf.fx.fa'
    character(*), parameter :: mt_interp = 'ftnlf.fx.interp'

contains

    ! FX.Core module loader







|



|







2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
! (Fortran arrayas, linear interpolation, ...)
module ftnlf_fxcore
    use LuaF
    use LuaFE
    use, intrinsic :: iso_c_binding, only: c_int, c_ptr
    implicit none
    private
    ! Public API: loader function, userdata ids,
    ! C functions to operate with Fortran arrays
    public ldr_fx_core
    public l_fa_new, l_fa_pack, l_fa_unpack
    public mt_FA, mt_interp

    character(*), parameter :: mt_FA = 'ftnlf.fx.fa'
    character(*), parameter :: mt_interp = 'ftnlf.fx.interp'

contains

    ! FX.Core module loader