Télécharger la plaquette Cast3M


fr en

Télécharger mulpar.eso

Retour à la liste

Numérotation des lignes : 

mulpar

  1. C MULPAR    SOURCE    CB215821  20/11/25    13:34:44     10792          
  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.  
  47.  
  48.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales