C MULPAR SOURCE CB215821 20/11/25 13:34:44 10792 subroutine mulpar(mvect1,mvect2,mchpo1,mchpo2,coef) implicit real*8(a-h,o-z) implicit integer(i-n) -INC SMCHPOI -INC SMVECTD inc=mvect1.vectbb(/1) do iou=1,inc mvect1.vectbb(iou)=mvect1.vectbb(iou)*coef enddo do iou=1,inc mvect2.vectbb(iou)=mvect2.vectbb(iou)*coef enddo mchpoi=mchpo1 segact mchpoi do iu=1,ipchp(/1) msoupo=ipchp(iu) segact msoupo mpoval = ipoval segact mpoval*mod do io=1,vpocha(/2) do iy=1,vpocha(/1) vpocha(iy,io)=vpocha(iy,io)*coef enddo enddo segdes mpoval,msoupo enddo segdes mchpoi mchpoi=mchpo2 segact mchpoi do iu=1,ipchp(/1) msoupo=ipchp(iu) segact msoupo mpoval = ipoval segact mpoval*mod do io=1,vpocha(/2) do iy=1,vpocha(/1) vpocha(iy,io)=vpocha(iy,io)*coef enddo enddo segdes mpoval,msoupo enddo segdes mchpoi return end