subroutine alpha_ch( MaxSp, MaxMol, MaxBeads, MaxEE, Nmol, & Nlj, Nion, Xlj, Ylj, Zlj, & TYPElj, DAMPlj2, DAMPlj3, &…
intent 源代码
汇集 intent 相关的电路原理图、PCB工程文件、单片机/FPGA源代码、数据手册与应用设计方案。
// // Little cms // Copyright (C) 1998-2003 Marti Maria // // Permission is hereby granted, free of charge, to any person obtain…
Build Log --------------------Configuration: 家谱 - Win32 Release-------------------- Command Lines Creating temporary file "…
!************************************************************************* module NumKind !*************************************…
!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 Levenberg_Marquardt ! MINPACK routines which are used by both LMDIF & LMDER ! 25 October 2001: ! Changed INTENT of if…
MODULE data_storage ! The data is stored in this module. ! This is equivalent to a COMMON area in old Fortran. IMPLICIT NONE …