SUBROUTINE FKADJ
*-- 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)                        *                                        
*                                                                    *                                        
**********************************************************************                                        
                                                                        
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)                               
                                                                        
      DIMENSION SSMT(5),SPRO(5),DS(5),QGAIN(5,5),SADJ(5)                
                                                                        
**********************************************************************                                        
                                                                        
      CALL FKDIFF(SPRO,SSMT,DS)
                                                                        
      SADJ(1) = SSMT(1) + QGAIN(1,1)*DS(1) + QGAIN(1,2)*DS(2)           
     &        + QGAIN(1,3)*DS(3) + QGAIN(1,4)*DS(4) + QGAIN(1,5)*DS(5)  
                                                                        
      SADJ(2) = SSMT(2) + QGAIN(2,1)*DS(1) + QGAIN(2,2)*DS(2)           
     &        + QGAIN(2,3)*DS(3) + QGAIN(2,4)*DS(4) + QGAIN(2,5)*DS(5)  
                                                                        
* QGAIN(3,x) is zero due to zeros in QMS                                                                      
      SADJ(3) = SSMT(3)                                                 
                                                                        
      SADJ(4) = SSMT(4) + QGAIN(4,1)*DS(1) + QGAIN(4,2)*DS(2)           
     &        + QGAIN(4,3)*DS(3) + QGAIN(4,4)*DS(4) + QGAIN(4,5)*DS(5)  
                                                                        
      SADJ(5) = SSMT(5) + QGAIN(5,1)*DS(1) + QGAIN(5,2)*DS(2)           
     &        + QGAIN(5,3)*DS(3) + QGAIN(5,4)*DS(4) + QGAIN(5,5)*DS(5)  
                                                                        
      RETURN                                                            
      END                                                               
*