function relation(a,b,n) !本程序计算两列向量的相关系数 !a,b分别是待计算的向量 !n是向量的长度，要求两列向量等长 implicit none integer,intent(in)::n real,intent(in)::a(n),b(n) real::relation !返回的相关系数 integer::i,j !循环控制。
