FORTRAN 程序问题，子程序无法调用 导致无法运算结果。急！！！

程序补充:

SUBROUTINE

FN(N,X,Y,Z)

IMPLICIT

REAL(A-H,O-Z)

PARAMETER

(a=180,L=210,G=120)

DIMENSION

R(N,N),X(N),Y(N),Z(N)

CALL

DISTANCE(N,X,Y,Z,R)

FX=0

DO

I=1,N

DO

J=1,N

DO

K=1,N

F1=EXP(G/(R(I,J)-a)+G/(R(I,K)-a))

F2=((R(I,J)2+R(I,K)2-R(J,K)2)/(2R(I,J)R(I,K))+1/3)2

FX=FX+LF1F2

ENDDO

ENDDO

ENDDO

RETURN

END

SUBROUTINE

FT(N,X,Y,Z)

IMPLICIT

REAL(A-H,O-Z)

PARAMETER

(c=7049556277,d=06022245584,P=4,Q=0,a=180)

DIMENSION

R(N,N),X(N),Y(N),Z(N)

CALL

DISTANCE(N,X,Y,Z,R)

FY=0

DO

I=1,N

DO

J=1,N

IF(R(I,J)LTa)

THEN

FY=FY+c((d(-P))-R(I,J)(-Q))EXP(1/(R(I,J)-a))

ELSE

FY=0

ENDIF

ENDDO

ENDDO

RETURN

END

SUBROUTINE

ENERGY(N,X,Y,Z)

IMPLICIT

REAL(A-H,O-Z)

DIMENSION

X(N),Y(N),Z(N)

CALL

FN(N,X,Y,Z)

CALL

FT(N,X,Y,Z)

E=FX+FY

RETURN

END

DO

I=1,N

DO

J=1,N

DO

K=1,N

F1=EXP(G/(R(I,J)-a)+G/(R(I,K)-a))

F2=((R(I,J)2+R(I,K)2-R(J,K)2)/(2R(I,J)R(I,K))+1/3)2

FX=FX+LF1F2

ENDDO

ENDDO

ENDDO

RETURN

END

一次样品的平均值 用 ave 函数计算。

参数 fy 是 一次样品数据，n 是数据个数，返回 平均值

double ave(double fy, int n){

int i;

double r=00;

for (i=0;i<n;i++) r=rfy[i];

r = r / n;

return r;

}

主程序，double fy; 动态分配，你可以用样品个数最多的这次 开单元。或者你一次一次开，一次一次free (循环)

调用：

for (i=0;i<10;i++) fv[i] = ave(fy,n[i]); //各次的平均值

再计算 fv 平均：

Vmean = ave(&fv[0],10);

IMG 文件格式是一种文件压缩格式（archive format），主要是为了建立软盘的镜像文件（disk image），它可以用来压缩整个软盘（通常指软软盘，Floppy Disk或Diskette）或整片光盘的内容，使用"IMG"这个扩展名的文件就是利用这种文件格式来建立的。

MED

2音乐编辑器，OctaMED音乐模块(MOD)文件 2某些手机的主题文件也是这个格式

swf(shock wave flash)是Macromedia（现已被ADOBE公司收购）公司的动画设计软件Flash的专用格式，是一种支持矢量和点阵图形的动画文件格式，被广泛应用于网页设计，动画制作等领域，swf文件通常也被称为Flash文件。swf普及程度很高，现在超过99%的网络使用者都可以读取swf档案。这个档案格式由FutureWave创建，后来伴随着一个主要的目标受到Macromedia支援：创作小档案以播放动画。计划理念是可以在任何 *** 作系统和浏览器中进行，并让网络较慢的人也能顺利浏览。swf 可以用Adobe Flash Player打开，浏览器必须安装Adobe Flash Player插件。

TXT是微软在 *** 作系统上附带的一种文本格式，是最常见的一种文件格式 ，早在DOS时代应用就很多，主要存文本信息，即为文字信息，在微软在 *** 作系统等于直接存，就是它了，现在多用的 *** 作系统得使用记事本等程序保存，大多数软件可以查看，记事本，浏览器等等。

级联样式表（Cascading Style Sheet）简称“CSS”，通常又称为“风格样式表（Style Sheet）”，它是用来进行网页风格设计的。比如，如果想让链接字未点击时是蓝色的，当鼠标移上去后字变成红色的且有下划线，这就是一种风格。通过设立样式表，可以统一地控制HTML中各标志的显示属性。级联样式表可以使人更能有效地控制网页外观。使用级联样式表，可以扩充精确指定网页元素位置，外观以及创建特殊效果的能力。

Javascript （JS）是一种由Netscape的LiveScript发展而来的原型化继承的面向对象的动态类型的区分大小写的客户端脚本语言，主要目的是为了解决服务器端语言，比如Perl，遗留的速度问题，为客户提供更流畅的浏览效果。当时服务端需要对数据进行验证，由于网络速度相当缓慢，只有288kbps，验证步骤浪费的时间太多。于是Netscape的浏览器Navigator加入了Javascript，提供了数据验证的基本功能。

MOAN 不太清楚。。

我就知道fy是翻页的意思，后缀 suf？

简化说明SWF就是FLASH的一种格式，，CSS就是层叠样式表，JS就是Javascript用于网页比较多的脚本语言

我只能帮你这么多了。。希望采纳

以上就是关于FORTRAN 程序问题，子程序无法调用 导致无法运算结果。急！！！全部的内容，包括:FORTRAN 程序问题，子程序无法调用 导致无法运算结果。急！！！、c++动态数组求平均值。、img、med、swf、txt、css、js、moan和fy是什么意思啊，分别代表什么东西，谢谢大家。等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！