*-- Author : S.Burke / J.V. Morris
      SUBROUTINE FKCVPT(LUN,S,C,IERR)
**********************************************************************                                        
*                                                                    *                                        
* Print out a state vector and covariance matrix; off-diagonal       *                                        
* elements printed as correlations                                   *                                        
*                                                                    *                                        
* IERR = 1 if the matrix is not positive definite, and a message     *                                        
* is also printed, but this is NOT a full test for positive          *                                        
* definiteness.                                                      *                                        
*                                                                    *                                        
**********************************************************************                                        
**********************************************************************                                        
      CALL FKCOPY(C,CTEMP)
      CALL FKFILL(CTEMP)
*