fortran-fans/forlab

Forlab is a Fortran module that provides a lot of functions for scientific computing mostly inspired by Matlab and Python's package NumPy.

forlab's Issues

Return value polymorphic function

For example, x = zeros(dim1, dim2, ...) function.

flag

We add a flag to the function, this flag is consistent with the precision of the return value.

x = zeros(dim1, dim2, ..., flag)

ref from: https://fortran-lang.discourse.group/t/fortran-function-return-value-polymorphism/1350/5

But we found that this method is actually not good for the user experience. We want to find other ways.

function name

We can abandon the idea of a polymorphic function interface and set up the following functions:

szeros / dzeros / qzeros
default: zeros = szeros

real(integer, kind)

Maybe we can imitate the standard function of Fortran, the real function.
ref from:

1. {"real", {{"a", AnyNumeric, Rank::elementalOrBOZ}, DefaultingKIND}
2. https://github.com/llvm/llvm-project/blob/d8805574c183484f055552855fa82d2e8932415e/flang/runtime/numeric.h#L22
3. https://github.com/llvm/llvm-project/blob/d8805574c183484f055552855fa82d2e8932415e/flang/runtime/numeric.cpp
4. https://github.com/llvm/llvm-project/blob/d480f968ad8b56d3ee4a6b6df5532d485b0ad01e/flang/runtime/type-code.cpp

real(integer, kind)

Final question

Should we implement the second method first. It will be more difficult to implement the third method? May need to use c/c++, so we need to ensure that fpm can build such code.
fortran-lang/fpm#353
https://github.com/fortran-lang/fpm/tree/master/example_packages/with_c

Or do we have a better way?

Unused variable i in a few places

fpm build gives

.\.\src\forlab_stats_var.f90:162:27:

  162 |         integer :: opt_w, i
      |                           1
Warning: Unused variable 'i' declared at (1) [-Wunused-variable]
.\.\src\forlab_stats_var.f90:141:27:

  141 |         integer :: opt_w, i
      |                           1
Warning: Unused variable 'i' declared at (1) [-Wunused-variable]
.\.\src\forlab_stats_var.f90:120:27:

  120 |         integer :: opt_w, i
      |                           1
Warning: Unused variable 'i' declared at (1) [-Wunused-variable]

Is the project public domain or MIT?

I opened this issue in the parent repo.

forlab_io.f90 Fortran runtime error: Attempt to DEALLOCATE unallocated 'self'

When I run fpm build and fpm test, I get the following error:

• build\gfortran_debug\test\io_bin.exe
  call randn(X):
  0.6852 0.4069 0.1247E-01 -2.413 2.139
  At line 718 of file ..\src\forlab_io.f90
  Fortran runtime error: Attempt to DEALLOCATE unallocated 'self'

Thanks for the project.

How to deal with more and more `fypp` files

Every time we compile with make tool, our fypp files generate all the f90 files.

With the increase of fypp files, how do we make the make tool only update the fypp files that we modify?