add FITPACK Fortran library

start developing of FITPACK C++ bindings
mount_server.cpp: fix compilation error with GCC15
This commit is contained in:
2025-05-05 17:24:21 +03:00
parent e1421a1c2e
commit 5279d1c41a
92 changed files with 19141 additions and 1 deletions

14
cxx/fitpack/fprota.f Normal file
View File

@@ -0,0 +1,14 @@
recursive subroutine fprota(cos,sin,a,b)
c subroutine fprota applies a givens rotation to a and b.
c ..
c ..scalar arguments..
real*8 cos,sin,a,b
c ..local scalars..
real*8 stor1,stor2
c ..
stor1 = a
stor2 = b
b = cos*stor2+sin*stor1
a = cos*stor1-sin*stor2
return
end