Esope source files

   1 : C MULPAR    SOURCE    CHAT      09/11/25    21:15:16     6548           
   2 :       subroutine mulpar(mvect1,mvect2,mchpo1,mchpo2,coef)
   3 :       implicit real*8(a-h,o-z)
   4 :       implicit integer(i-n)
   5 : -INC SMCHPOI
   6 : -INC SMVECTD
   7 :       inc=mvect1.vectbb(/1)
   8 :       do iou=1,inc
   9 :         mvect1.vectbb(iou)=mvect1.vectbb(iou)*coef
  10 :       enddo
  11 :       do iou=1,inc
  12 :         mvect2.vectbb(iou)=mvect2.vectbb(iou)*coef
  13 :       enddo
  14 :       mchpoi=mchpo1
  15 :       segact mchpoi
  16 :       do iu=1,ipchp(/1)
  17 :          msoupo=ipchp(iu)
  18 :          segact msoupo
  19 :          mpoval = ipoval
  20 :          segact mpoval*mod
  21 :          do io=1,vpocha(/2)
  22 :            do iy=1,vpocha(/1)
  23 :              vpocha(iy,io)=vpocha(iy,io)*coef
  24 :            enddo
  25 :          enddo
  26 :          segdes mpoval,msoupo
  27 :       enddo
  28 :       segdes mchpoi          
  29 :       mchpoi=mchpo2
  30 :       segact mchpoi
  31 :       do iu=1,ipchp(/1)
  32 :          msoupo=ipchp(iu)
  33 :          segact msoupo
  34 :          mpoval = ipoval
  35 :          segact mpoval*mod
  36 :          do io=1,vpocha(/2)
  37 :            do iy=1,vpocha(/1)
  38 :              vpocha(iy,io)=vpocha(iy,io)*coef
  39 :            enddo
  40 :          enddo
  41 :          segdes mpoval,msoupo
  42 :       enddo
  43 :       segdes mchpoi  
  44 :       return
  45 :       end      
  46 :