...

2026-01-30 22:20:42 +03:00
parent 9aea122b08
commit a686731c0a
111 changed files with 27707 additions and 50 deletions
--- a/fitpack/fprota.f
+++ b/fitpack/fprota.f
@@ -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