源码文件
program ex0832 implicit none integer, external :: func write(*,*) func(2,3) end program pure integer function func(a…
intent 源代码
汇集 intent 相关的电路原理图、PCB工程文件、单片机/FPGA源代码、数据手册与应用设计方案。
收录资源 343 份
全站深度检索
共匹配 343 份工程资源
· 第 8 / 35 页
源码文件
program ex0823 implicit none integer :: a=4 integer b call div(a,b) write(*,*) a,b stop end program subrouti…
源码文件
!####################################################### !## ------求序列的累积距平序列(2005-03-31)------ !## ------结果返回，同时可选择是否直接输出--…
源码文件
!********************************************************************** ! ! Calculates the ground state of the time-independent !…
源码文件
!********************************************************************** ! ! Calculates the ground state of the time-independent !…
源码文件
!*** ! The following code is for use with the LAPACK library !*** subroutine eigen(n,H,eigenval,eigenvec) ! ! Return the eige…
源码文件
!********************************************************************** ! ! Calculates the ground state of the time-independent !…
源码文件
!********************************************************************** ! ! Mathematical routines ! !*****************************…
源码文件
!********************************************************************** ! ! Calculates the ground state of the time-independent !…
源码文件
!*** ! The following code is for use with the DFFTPACK library !*** module fft_data integer, parameter :: dp=kind(1.d0) real(…