Télécharger mamu42.eso

Retour à la liste

Numérotation des lignes :

mamu42
  1. C MAMU42 SOURCE PV 20/02/22 21:15:15 10531
  2. subroutine mamu42(long,val11,lpl1,val1,lpl,pt)
  3. implicit real*8 (a-h,o-z)
  4. real*8 val11(*),val1(*)
  5. real*8 pt(36)
  6. id12=lpl1
  7. id2=lpl
  8. id3=lpl+ lpl+1
  9. id4=lpl+ lpl+1 +lpl+2
  10. pt1=pt(1)
  11. pt2=pt(2)
  12. pt7=pt(3)
  13. pt8=pt(4)
  14. pt13=pt(5)
  15. pt14=pt(6)
  16. pt19=pt(7)
  17. pt20=pt(8)
  18. do 110 i=1,long
  19. xval1=val1(i)
  20. xval2=val1(i+id2)
  21. xval3=val1(i+id3)
  22. xval4=val1(i+id4)
  23. xval11=val11(i)
  24. xval12=val11(i+id12)
  25. pt1=pt1+xval1*xval11
  26. pt2=pt2+xval1*xval12
  27. pt7=pt7+xval2*xval11
  28. pt8=pt8+xval2*xval12
  29. pt13=pt13+xval3*xval11
  30. pt14=pt14+xval3*xval12
  31. pt19=pt19+xval4*xval11
  32. pt20=pt20+xval4*xval12
  33. 110 continue
  34. pt(1)=pt1
  35. pt(2)=pt2
  36. pt(3)=pt7
  37. pt(4)=pt8
  38. pt(5)=pt13
  39. pt(6)=pt14
  40. pt(7)=pt19
  41. pt(8)=pt20
  42.  
  43. end
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  

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