Télécharger mamu26.eso

Retour à la liste

Numérotation des lignes :

mamu26
  1. C MAMU26 SOURCE PV 20/02/22 21:15:09 10531
  2. subroutine mamu26(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. id13=lpl1+ lpl1+1
  8. id14=lpl1+ lpl1+1+ lpl1+2
  9. id15=lpl1+ lpl1+1+ lpl1+2+ lpl1+3
  10. id16=lpl1+ lpl1+1+ lpl1+2+ lpl1+3 +lpl1+4
  11. id2=lpl
  12. pt1=pt(1)
  13. pt2=pt(2)
  14. pt3=pt(3)
  15. pt4=pt(4)
  16. pt5=pt(5)
  17. pt6=pt(6)
  18. pt7=pt(7)
  19. pt8=pt(8)
  20. pt9=pt(9)
  21. pt10=pt(10)
  22. pt11=pt(11)
  23. pt12=pt(12)
  24. do 110 i=1,long
  25. xval1=val1(i)
  26. xval2=val1(i+id2)
  27. xval11=val11(i)
  28. xval12=val11(i+id12)
  29. xval13=val11(i+id13)
  30. xval14=val11(i+id14)
  31. xval15=val11(i+id15)
  32. xval16=val11(i+id16)
  33. pt1=pt1+xval1*xval11
  34. pt2=pt2+xval1*xval12
  35. pt3=pt3+xval1*xval13
  36. pt4=pt4+xval1*xval14
  37. pt5=pt5+xval1*xval15
  38. pt6=pt6+xval1*xval16
  39. pt7=pt7+xval2*xval11
  40. pt8=pt8+xval2*xval12
  41. pt9=pt9+xval2*xval13
  42. pt10=pt10+xval2*xval14
  43. pt11=pt11+xval2*xval15
  44. pt12=pt12+xval2*xval16
  45. 110 continue
  46. pt(1)=pt1
  47. pt(2)=pt2
  48. pt(3)=pt3
  49. pt(4)=pt4
  50. pt(5)=pt5
  51. pt(6)=pt6
  52. pt(7)=pt7
  53. pt(8)=pt8
  54. pt(9)=pt9
  55. pt(10)=pt10
  56. pt(11)=pt11
  57. pt(12)=pt12
  58.  
  59. end
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  

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