SUBROUTINE FKFILL
*-- 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                                                               
*