*-- Author : S.Burke / J.V. Morris SUBROUTINE FKFILL(C) ********************************************************************** * * * Fill the upper half of a 5*5 covariance matrix from the lower half * * * ********************************************************************** DOUBLE PRECISION C(5,5) DO 100 J=1,5 DO 100 I=J,5 C(J,I) = C(I,J) 100 CONTINUE RETURN END *