源码文件
module STRING implicit none ! -- Variables globales du module ------------------------------------------- integer, parameter ::…
intent 源代码
汇集 intent 相关的电路原理图、PCB工程文件、单片机/FPGA源代码、数据手册与应用设计方案。
收录资源 343 份
全站深度检索
共匹配 343 份工程资源
· 第 33 / 35 页
源码文件
!------------------------------------------------------------------------------! ! MODULE : INTERPOL Auteur …
源码文件
!INTEGER N, niters !REAL check !N = 128 !niters = 128*3 !CALL echo_f90(N, niters, check) !PRINT *, check !END SUBROUTINE echo_f90…
源码文件
! ! F90 Tuned version ! Optimizations: ! - One 4D array allocated, other arrays are slices of this array. This ! arrangement in…
源码文件
SUBROUTINE acoustic3d_f90(N, niters, check) INTEGER, INTENT( IN ) :: N, niters REAL, INTENT( OUT ) :: check REAL, DIMENSION …
源码文件
! Fortran 90 DAXPY using arrays SUBROUTINE f90daxpy(a, x, y, n, iters) IMPLICIT NONE INTEGER, INTENT( IN ) :: n, iters DOUBL…
源码文件
module typedef implicit none type vector2f real x,y end type type line type(vector2f) :: a,b type(ve…
源码文件
module time_util implicit none type :: time integer :: hour,minute end type time interface operator(+) ! 让type(…
源码文件
program ex0832 implicit none integer, external :: func write(*,*) func(2,3) end program pure integer function func(a…
源码文件
program ex0823 implicit none integer :: a=4 integer b call div(a,b) write(*,*) a,b stop end program subrouti…