*-- Author : S.Burke
      SUBROUTINE FKLSPR(SFIL,CFIL,Z,DZ,RADL,QPRO,QGAIN,SPRO,CPRO,IERR)
**********************************************************************                                        
*                                                                    *                                        
* Translate a state vector and its covariance, including multiple    *                                        
* scattering (simple version of FKLPRO)                              *                                        
*                                                                    *                                        
* ERROR CONDITIONS;                                                  *                                        
*       IERR =   0 ; normal termination                              *                                        
*   ->  IERR = 111 ; failure to invert projected covariance          *                                        
*                                                                    *                                        
*   ->  Fatal errors                                                 *                                        
*                                                                    *                                        
**********************************************************************                                        
*KEEP,FKECODE.                                                                                                
*KEND.                                                                                                        
**********************************************************************                                        
* Transform the state vector and covariance from Z to Z+DZ                                                    
      CALL FKTRAN(DZ,Z,SFIL,SPRO,DTRAN)
      CALL FKMUL(CFIL,DTRAN,CPRO)
* Compute the MS matrix and add to the projected error matrix                                                 
      CALL FKSCAT(DZ,SFIL,RADL,DTRAN,QPRO)
      CALL FKQADD(CPRO,QPRO)
* Calculate QGAIN for the smoother                                                                            
      CALL FKQG(CPRO,QPRO,QGAIN,IFAIL)
      IF (IFAIL.NE.0) CALL FKERR(IUTIL,IROUT,IFATAL,IOCV,IERR)
*