源码文件
!*** ! The following code is for use with the IMSL library !*** module fft_data integer, parameter :: dp=kind(1.d0) real(dp) …
intent 源代码
汇集 intent 相关的电路原理图、PCB工程文件、单片机/FPGA源代码、数据手册与应用设计方案。
收录资源 343 份
全站深度检索
共匹配 343 份工程资源
· 第 9 / 35 页
源码文件
!********************************************************************** ! ! Calculates the ground state of the time-independent !…
源码文件
!********************************************************************** ! ! Calculates the ground state of the time-independent !…
源码文件
INTEGER :: nn(0:9), j CHARACTER(LEN=80):: cn CHARACTER(LEN=30):: fmt nn = (/ 1, 5, 12, 22, 28, 35, 48, 28, 10, 3 /) fmt='(1X, …
源码文件
PROGRAM main INTERFACE REAL FUNCTION trace(sqr) REAL,INTENT(IN) :: sqr(:,:) ! 迟型数组 END FUNCTION END INTERFACE …
源码文件
INTEGER :: n=0 CHARACTER(LEN=1) :: a,b,c a='A';b='B';c ='C' DO WHILE(n0) THEN CALL hanoi(i-1,x,z,y) PRINT '("第",I2,"个盘子：从",A1…
源码文件
INTEGER :: nn(0:9), j CHARACTER(LEN=80):: cn CHARACTER(LEN=30):: fmt nn = (/ 1, 5, 12, 22, 28, 35, 48, 28, 10, 3 /) fmt='(1X, …
源码文件
PROGRAM main INTERFACE REAL FUNCTION trace(sqr) REAL,INTENT(IN) :: sqr(:,:) ! 迟型数组 END FUNCTION END INTERFACE …
源码文件
INTEGER :: n=0 CHARACTER(LEN=1) :: a,b,c a='A';b='B';c ='C' DO WHILE(n0) THEN CALL hanoi(i-1,x,z,y) PRINT '("第",I2,"个盘子：从",A1…
源码文件
module typedef implicit none type vector2f real x,y end type type line type(vector2f) :: a,b type(ve…