源码文件
module time_util implicit none type :: time integer :: hour,minute end type time interface operator(+) ! 让type(…
intent 源代码
汇集 intent 相关的电路原理图、PCB工程文件、单片机/FPGA源代码、数据手册与应用设计方案。
收录资源 343 份
全站深度检索
共匹配 343 份工程资源
· 第 10 / 35 页
源码文件
SUBROUTINE clmtvi (kpt ,msl ,maxsn ,lun_ini,& ivt ,z0m ,albsol ,albvgs ,albvgl ,chil ,ref ,tran ,pors…
源码文件
subroutine tridia (n, a, b, c, r, u) implicit none integer, intent(in) :: n real, intent(in) :: a(1:n),b(…
源码文件
SUBROUTINE qsadv(T,p,es,esdT,qs,qsdT) !======================================================================= ! Source file…
源码文件
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…
源码文件
SUBROUTINE clm_main ( kpt, ivt, msl, maxsnl, istep, dtime, dlat, & ! soil information …
源码文件
module bin_io ! ! Byte-wise reading and writing data to binary files. This module reserves ! the Fortran file-units MinUnit .. M…
源码文件
function jdt(numdays,i,m) !! ~ ~ ~ PURPOSE ~ ~ ~ !! this subroutine computes the julian date given the month and !! …
源码文件
subroutine nuts(u1,u2,uu) !! ~ ~ ~ PURPOSE ~ ~ ~ !! this function calculates the plant stress factor caused by lim…