We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
2 parents 41fae14 + ab13c44 commit 1bff89bCopy full SHA for 1bff89b
src/fftpack_kind.f90
@@ -0,0 +1,6 @@
1
+!*==FFTPACK_KIND.spg processed by SPAG 6.72Dc at 19:17 on 14 Sep 2021
2
+ module fftpack_kind
3
+ implicit none
4
+!*--FFTPACK_KIND2459
5
+ integer , parameter :: rk = kind(1.0d0)
6
+ end subroutine fftpack_kind
0 commit comments