*-- 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 *