vc调用fortrandll 因为要用到，可是网上并没有很完整的，就自己写的一个例子，很简单的，里面还有一个自己写的开发说明，一个积分，大家评论一下就不扣分了

gcov-fortran 一个最小的例子，如何使用gcov 要求 安装lcov （生成html报告） gcov已与gfortran / gcc一起安装 用法 编译程序 make 执行程序 ./test 生成覆盖率信息 make cov 生成HTML报告 make html 警告 您必须确保使用编译代码的gcov版本。 如果您已经安装了例如gfortran和llvm则这是一个问题。 所以首先用找到正确的gcov mdfind -name gcov 并在makefile中添加该路径

中国科学院大气所李建平的 线性相关 Linear Correlation mscorrelation_2(n,x,y,r) 　 Correlations between two anomaly series of 12 calendar months, 4 seasons (DJF, MAM, JJA and SON), monthly, seasonal and annual data from monthly anomaly series x(i,12) and y(i,12) (i=1,...,n) 求逐月异常序列x(n,12)和y(n,12)(n是年)的相关系数r(24)，其中j=1～12是1～12个月的情形，13～22是冬、春、夏、秋、冬季逐月、春季逐月、夏季逐月、秋季逐月、逐月、年、冬半年逐月（NDJFMA）、夏半年逐月（MJJASO）的序列的情形。 llcorrelation(n,x,y,nt,rt) 　 Calculating lagged and leading correlation coefficients rt(-nt:nt) between two anomaly series x(i) and y(i). 求(逐日、逐月、逐季、年际）异常序列x(n)和y(n)之间的滞后超前的相关系数rt(-nt:nt)，其中nt最大的滞后或超前时间（单位：日、月、季、年等）。 llyear(ny,nm,x,y,ly,rt) 　 ly-year lagged and leading correlation coefficients rt(-ly:ly,nm) between two anomaly series x(ny,nm) and y(ny,nm). 求逐月异常序列x(n,12)和y(n,12)(n是年)相同月份之间的滞后超前nt年的相关系数rt(-nt:nt,12)，其中nt最大的滞后或超前时间（单位：年）。 mllcorrelation(n,nt,x,y,rt) 　 nt-month (or nt-season, or others) lagged and leading correlation coefficients rt(-nt:nt,nm) between two anomaly series x(ny,nm) and y(ny,nm). 求逐月、逐季或其他异常序列x(n,nm)和y(n,nm)(n是年)不同月份之间的滞后超前nt月的相关系数rt(-nt:nt,nm)，其中nt最大的滞后或超前时间（单位：月、季或其他）。 correlationmiss(n,x,y,undef,r,nr) 　 Correlation coefficient r between two series with missing data 求有缺省资料的两个序列x(n)和y(n)的相关系数r。 　 谱分析 Spectrum Analysis 　 一维离散功率谱分析 Discrete Fourier spectrum of one-dimensional series fourier(n,x,a,b,c,s,cta) 　 The discrete Fourier spectrum of one-dimensional series x(n). 求一维序列x(n)的离散Fourier谱分析，s(0:m)离散功率谱，c(0:m)振幅谱，cta(0:m)位相谱，其中m=[n/2.]。 dspectrum(n,lw,x,tl,sl,st95) 　 Subroutine for discrete spectrum analysis of an one-dimensional series x(i) (i=1,...,n). 具有噪音检验的一维序列x(n)的离散功率谱分析，ol(lw)频率，tl(lw)周期，sl(lw)离散功率谱，st95(lw)红噪音或白噪音谱的95%置信上限，其中lw=[n/2.]。注意：很多同学在使用这个程序时都问及在计算滞后相关的模块中，求滞后相关为什么用n而不用n-i，其实这是由实际资料的特性和统计学的基本原理决定的（很多统计学书中也谈到这一点）。一是序列的平稳性假设就要求序列的均值和方差保持不变，二是通常资料太短，导致用较短的资料得到的相关结果具有不稳定性，掩盖了事物的真相，因此，用n要好于n-i。一些同学也做了试验证实了这一点（有时n-i还得到错误的结论，需要各自使用者注意的地方）。谢谢大家提出的问题。 一维连续功率谱分析 Continuous spectrum

多相透射电镜 具有深度约束的瞬态电磁数据的多峰分层多维反演 （可用于所有基于地面的TEM测量设计，请参见下面的参数列表） MuLTI-TEM算法是由利兹大学地球与环境学院的Siobhan Killingbeck和Phil Livermore在2019年撰写的。 它基于Thomas Bodin编写的Matlab代码。 MuLTI-TEM是在Matlab 2017a版本中开发的，因此提供的所有Matlab代码都可在此版本或后续的Matlab版本中使用。 该代码可以在基于Linux或Windows的平台上运行。 该github存储库包括： 一维和二维MuLTI-TEM Matlab脚本 在主脚本中调用了两个matlab函数“ thicknesses_and_priors”和“ whichnuclei”， 一维和二维示例数据集，用于测试MuLTI-TEM一维和二维代码， 适用于Linux和

2个fortran的资料外加赠送完整的4.0软件，一共等于说有3个东西，一起的捆绑，太实用了

温度.涡度平流计算程序，fortran REAL,PARAMETER:: Omega=7.292e-5,R=6371e+3,PI=3.1415926,Delta=1.00 INTEGER,PARAMETER :: nx=111,ny=61,nz=7,nt=4 INTEGER WtTopLevel(NX,NY,NT) REAl lat(ny),lon(nx),sigmadeltD CHARACTER timefile(4)*8 ,levelfile(5)*1,P(NZ)*2 real,allocatable :: temper(:,:,:,:),q(:,:,:,:),u(:,:,:,:),v(:,:,:,:),height(:,:,:,:),qu(:,:,:,:),qv(:,:,:,:),adq(:,:,:,:),adqv(:,:,:,:),vorg(:,:,:,:),voro(:,:,:,:),div(:,:,:,:),temp(:,:,:,:),vorop(:,:,:,:) allocate (temper(NX,NY,NZ,NT),q(NX,NY,nz,NT),u(NX,NY,NZ,NT),v(NX,NY,NZ,NT),height(NX,NY,NZ,NT),qu(NX,NY,NZ,NT),qv(NX,NY,NZ,NT),adq(NX,NY,NZ,NT),adqv(NX,NY,NZ,NT),vorg(NX,NY,NZ,NT),voro(NX,NY,NZ,NT),div(NX,NY,NZ,NT),temp(NX,NY,NZ,NT),vorgp(NX,NY,NZ,NT) ) !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! DATA P/'00','92','85','70','50','40','30'/ DATA timefile/'00041300','00041312','00041400', '00041412'/ do i=1,nx lon(i)=50.0+(i-1)*Delta lon(i)=lon(i)*pi/180. enddo do i=1,ny lat(i)=10.0+(i-1)*Delta lat(i)=lat(i)*pi/180. enddo

亲身体验！！这个Dforrt.dll文件可以完美解决arcgis9.3 visual fortran run-time error错误。下载后将其保存到ArcGIS/Bin文件夹下覆盖原来的文件即可

100分的两个开发资料资源套包，是关于FORTRAN程序设计方面达到了40的水准，一共2个都是难得的先进（附送光碟安装1个）

本代码用Fortran语言实现了LU分解算法。代码简单命了，易于学习

C----------------------------------------------------------------------- program runocc C----------------------------------------------------------------------- c C OCCAM 2.0: Steven Constable IGPP/SIO La Jolla CA 92093-0225 c Program Revision 2.01, 13 Jan 1993 c c runocc is the calling program for OCCAM v2.0. C C REFERENCES: CONSTABLE, PARKER & CONSTABLE, 1987: GEOPHYSICS 52, 289-300. C DEGROOT-HEDLIN & CONSTABLE, 1990: GEOPHYSICS 55, 1613-1624. C CONSTABLE, 1991: GEOPHYS. J. INT. 106, 387-388. C CONSTABLE, 1992: OCCAM DISTRIBUTION NOTES. C C REVISION HISTORY: C MARCH 1986, (VERSION 1.2) C OCTOBER 1987, (VERSION 1.3) C AUGUST 1988, (VERSION 1.4) C JANUARY 1989 (WITH THANKS TO C.DEGROOT-HEDLIN), (VERSION 1.5) C SEPTEMBER 1989, (VERSION 1.5.2) C APRIL 1992 (MORE THANKS TO CATHERINE AND ALSO WSE) (VERSION 2.0) C C IF YOU OBTAIN THIS CODE FROM A THIRD PERSON, PLEASE SEND YOUR NAME AND ADDRESS C TO S. CONSTABLE. YOU WILL THEN RECEIVE UPDATES, NEWS ON BUGS, ETC. C C VERSION 2.0 IS A RE-WRITE TO MAKE OCCAM INDEPENDENT OF THE DIMENSIONALITY C OF THE FORWARD PROBLEM, AND TO MAKE MAXIMUM USE OF DYNAMIC MEMORY ALLOCATION, C AS THE ARRAY SIZES FOR THE 2D PROBLEM ARE NOW GETTING TOO LARGE FOR COMFORT. C INCLUDE FILES ARE NOW USED TO STREAMLINE CHANGES OF DIMENSION. C IMPLICIT DOUBLE PRECISION HAS BEEN REMOVED, AGAIN FOR STORAGE REASONS. C CALLING PROGRAM IS NOW AN INTEGRAL PART OF THE PACKAGE AS ALL THE MODEL- C DEPENDENT STUFF HAS BEEN SPUN OFF. C C IF YOU OBTAIN THIS CODE FROM A THIRD PERSON, PLEASE SEND YOUR NAME AND ADDRESS C TO S. CONSTABLE. YOU WILL THEN RECEIVE UPDATES, NEWS ON BUGS, ETC. C C SUBROUTINES WHICH MUST BE SUPPLIED BY THE USER: C C FORMOD(NP,ND,PM,DP,DM), COMPUTES THE FORWARD FUNCTION FOR MODEL PM() AT C THE DATA PARAMETERS DP() AN