*-- Author : S.Burke / J.V. Morris
      SUBROUTINE FKDMQD(DINV,QGAIN,AGAIN)
**********************************************************************                                        
*                                                                    *                                        
* Calculate the smoother gain matrix                                 *                                        
*                                                                    *                                        
* Output is AGAIN = DINV.(1 - QGAIN)                                 *                                        
*                                                                    *                                        
**********************************************************************                                        
**********************************************************************                                        
*