*-- Author : S.Burke / J.V. Morris
      SUBROUTINE FKQG(CPRO,Q,QGAIN,IERR)
**********************************************************************                                        
*                                                                    *                                        
* Calculate QGAIN for smoother                                       *                                        
*                                                                    *                                        
* ERROR CONDITIONS;                                                  *                                        
*       IERR =   0 ; normal termination                              *                                        
*   ->  IERR = 111 ; failure to invert projected covariance          *                                        
*                                                                    *                                        
*   ->  Fatal error                                                  *                                        
*                                                                    *                                        
**********************************************************************                                        
*KEEP,FKECODE.                                                                                                
*KEND.                                                                                                        
**********************************************************************                                        
      CALL FKCOPY(CPRO,CINV)
      CALL DSINV(5,CINV,5,IFAIL)                                                                       
         CALL FKERR(IUTIL,IROUT,IFATAL,IOCV,IERR)
*