SUBROUTINE chkder(m, n, x, fvec, fjac, xp, fvecp, mode, ERR) ! Code converted using TO_F90 by Alan Miller ! Date: 1999-12-16 …
intent 源代码
汇集 intent 相关的电路原理图、PCB工程文件、单片机/FPGA源代码、数据手册与应用设计方案。
MODULE common_refnum IMPLICIT NONE ! COMMON /refnum/ nprob,nfev,njev INTEGER, SAVE :: nprob, nfev, njev END MODULE common_…
This directory contains the library files that do *not* #include unp.h. The intent is that these functions can stand alone, withou…
module big_integers_module ! Copyright (c) 1993-2000 Unicomp, Inc. ! ! Developed at Unicomp, Inc. ! ! Permission to use, cop…
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…
Fortran 90最速下降法! !!!本程序适用于求解形如f(x)=1/2*x'Ax+bx+c二次函数的稳定点; !!!输入函数信息,输出函数的稳定点及迭代次数; !!!iter整型变量,存放迭代次数; !!!…
MODULE Kernel_Regression ! General Remarks ! The subroutines glkern.f and lokern.f use an efficient and fast algorithm for ! …
SUBROUTINE plugin(x,n,z,m,f,h) ! Code converted using TO_F90 by Alan Miller ! Date: 2001-06-11 Time: 12:41:50 !---------…