▍1. uniFiber.f
abaqus所载的附件程序,只不过不是for格式,是f格式。所以我想上传之后,获取uniFiber.for格式。不知道是不是一样的。
abaqus所载的附件程序,只不过不是for格式,是f格式。所以我想上传之后,获取uniFiber.for格式。不知道是不是一样的。
用Fortran语言编程实现球体的磁场(包括Za、Δt,Hax,Hay)的正演计算,用Surfer及Grapher绘图软件绘制平面等值线图和剖面图,并根据正演数据向上延拓50米,计算延拓之后球体Za、Δt。
此程序用于sgy地震数据添加噪声,输入文件名为pp.sgy,输出文件名为ppwithnoise0.8.sgy(可修改),参数d为添加的随机噪声系数(一般取0~1.0)。
基于fortran77 语言的太阳能空调模拟热量的吸附过程,加注释,可用f2c翻译成c语言。模拟能耗的过程,能算出吸附热量的大小。最终能够算出太阳能的效率
这个是fortran的高斯积分。适用于单变量积分,需要设置上下限及积分精度等参数,希望对大家有用。
Community Earth System Model 是目前发展最为完善的地球模拟模型。内含land,ocean,atm等7个模块,可以为科研人员模拟地球的过去,现在和未来。这是最新的版本。1.2.2
读入一个字符串,查找字符串内的所有单词,并将每个单词的第一个字母变为大写,而将单词的其余部分变为小写。假定在字符变量内所有的非字母和非数字字符可以标记一个单词的边界(例如句号、逗号)。非字母字符应不进行修改。
计算传热与流动的程序,用梯形网格来离散结构,通过迭代求解动量方程的压力场和速度场,再耦合能量方程来求解温度场。
module spline!----------------------------------------module coment! Version : V1.0 ! Coded by : syz ! Date : !-----------------------------------------------------! Description : 第一类标准B样条模块! !-----------------------------------------------------! Parameters :! 1.! 2.!----------------------------------------------------- ! Contains :! 1. 方法函数! 2. 3阶样条基! 3. 追赶法解三对角方程!-----------------------------------------------------! Post Script :! &
fortran-cressman。用Fortran语言编写的Cressman插值方法,用于海面风场的插值计算。
将磁法测量数据按照两列的格式与程序放在同一个路径下,在将需要插值的实测时间点保存到相同的路径下,就可以实现插值。其中使用的是拉格朗日插值,插值基函数是五次多项式。
采用fortran语言编写的vof程序代码,对于学习液面波动的小伙伴非常有用!
这是numerical recipe的fortran代码版本,里面包括了书中所有的代码,与书中的形式一样,只需翻阅书查看帮助,即可直接调用代码。 配套使用
3dhashin准则,用于计算纤维增强复合材料(UMAT Hashin dimensional composite failure criteria, anisotropic material damage failure)
It is a FORTRAN90 library which evaluates Bessel J functions of noninteger order. List of Routines: BESSEL_JX_VALUES returns some values of the Jx Bessel function. DBESJ computes Bessel J functions of non integer order. D1MACH returns double precision real machine constants. D9LGMC computes the log Gamma correction factor. DASYJY computes Bessel J and Y functions of large order. DCSEVL evaluates a Chebyshev series. DJAIRY computes the Airy function Ai(x) and its derivative. DGAMLM computes bounds for the argument in the Gamma function. DGAMMA computes the complete Gamma function. DLNGAM computes the logarithm of the absolute value of the Gamma function. I1MACH returns integer machine constants. INITDS determines the necessary length of a Chebyshev series. RJBESL evaluates a sequence of Bessel J functions. TIMESTAMP prints the current YMDHMS date as a time stamp. XERMSG