Télécharger mulpar.eso

Retour à la liste

Numérotation des lignes :

  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.  
  47.  

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