*-- Author : S.Burke / J.V. Morris SUBROUTINE FKCOPY(C1,C2) ********************************************************************** * * * Copy a 5*5 covariance matrix from C1 to C2, lower half only * * * ********************************************************************** DOUBLE PRECISION C1(5,5),C2(5,5) C2(1,1) = C1(1,1) C2(2,1) = C1(2,1) C2(3,1) = C1(3,1) C2(4,1) = C1(4,1) C2(5,1) = C1(5,1) C2(2,2) = C1(2,2) C2(3,2) = C1(3,2) C2(4,2) = C1(4,2) C2(5,2) = C1(5,2) C2(3,3) = C1(3,3) C2(4,3) = C1(4,3) C2(5,3) = C1(5,3) C2(4,4) = C1(4,4) C2(5,4) = C1(5,4) C2(5,5) = C1(5,5) RETURN END *