Télécharger mamu32.eso

Retour à la liste

Numérotation des lignes :

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

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