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