intent 源代码

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 …

SUBROUTINE chkder(m, n, x, fvec, fjac, xp, fvecp, mode, ERR) ! Code converted using TO_F90 by Alan Miller ! Date: 1999-12-16 …

MODULE common_refnum IMPLICIT NONE ! COMMON /refnum/ nprob,nfev,njev INTEGER, SAVE :: nprob, nfev, njev END MODULE common_…

module vlib contains subroutine analy4(kma,coord,e,v) ! ! analytical stiffness of a …

module geometry_lib contains !----------------Node to freedom number conversion ------…

module new_library contains subroutine formblock_k(bigk,km,g,g_min) ! forms complete n*n ma…

!####################################################################### ! Code converted using TO_F90 by Alan Miller ! Date:…

SUBROUTINE acoustic3d_f90(N, niters, check) INTEGER, INTENT( IN ) :: N, niters REAL, INTENT( OUT ) :: check REAL, DIMENSI…

!INTEGER N, niters !REAL check !N = 128 !niters = 128*3 !CALL echo_f90(N, niters, check) !PRINT *, check !END SUBROUTINE …