*-- Author : S.Burke / J.V. Morris
      SUBROUTINE FKADJ(SSMT,SPRO,QGAIN,SADJ)
**********************************************************************                                        
*                                                                    *                                        
* Adjust a smoothed state vector for multiple scattering             *                                        
*                                                                    *                                        
* Output is SADJ = SSMT + QGAIN.(SPRO - SSMT)                        *                                        
*                                                                    *                                        
**********************************************************************                                        
**********************************************************************                                        
      CALL FKDIFF(SPRO,SSMT,DS)
* QGAIN(3,x) is zero due to zeros in QMS                                                                      
*