Télécharger mamu23.eso

Retour à la liste

Numérotation des lignes :

  1. C MAMU23 SOURCE PV 18/01/16 21:15:32 9701
  2. C MAMUP1 SOURCE PV 15/02/27 21:15:03 8416
  3. subroutine mamu23(long,val11,lpl1,val1,lpl,pt)
  4. implicit real*8 (a-h,o-z)
  5. real*8 val11(*),val1(*)
  6. real*8 pt(9)
  7. id12=lpl1
  8. id13=lpl1+lpl1+1
  9. id2=lpl
  10. * id3=lpl+lpl+1
  11. pt1=pt(1)
  12. pt2=pt(2)
  13. pt3=pt(3)
  14. pt6=pt(6)
  15. pt4=pt(4)
  16. pt5=pt(5)
  17. do 110 i=1,long
  18. xval11=val11(i)
  19. xval12=val11(i+id12)
  20. xval13=val11(i+id13)
  21. xval1=val1(i)
  22. xval2=val1(i+id2)
  23. * xval3=val1(i+id3)
  24. pt1=pt1+xval1*xval11
  25. pt2=pt2+xval1*xval12
  26. pt3=pt3+xval1*xval13
  27. pt6=pt6+xval2*xval13
  28. pt4=pt4+xval2*xval11
  29. pt5=pt5+xval2*xval12
  30. * pt(7)=pt(7)+xval3*xval11
  31. * pt(8)=pt(8)+xval3*xval12
  32. * pt(9)=pt(9)+xval3*xval13
  33. 110 continue
  34. pt(1)=pt1
  35. pt(2)=pt2
  36. pt(3)=pt3
  37. pt(6)=pt6
  38. pt(4)=pt4
  39. pt(5)=pt5
  40.  
  41.  
  42.  
  43. end
  44.  
  45.  
  46.  
  47.  

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