Télécharger mamu62.eso

Retour à la liste

Numérotation des lignes :

mamu62
  1. C MAMU62 SOURCE PV 20/02/22 21:15:22 10531
  2. subroutine mamu62(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. id5=lpl+ lpl+1 +lpl+2 +lpl+3
  11. id6=lpl+ lpl+1 +lpl+2 +lpl+3 +lpl+4
  12. pt1=pt(1)
  13. pt2=pt(2)
  14. pt7=pt(3)
  15. pt8=pt(4)
  16. pt13=pt(5)
  17. pt14=pt(6)
  18. pt19=pt(7)
  19. pt20=pt(8)
  20. pt25=pt(9)
  21. pt26=pt(10)
  22. pt31=pt(11)
  23. pt32=pt(12)
  24. do 110 i=1,long
  25. xval1=val1(i)
  26. xval2=val1(i+id2)
  27. xval3=val1(i+id3)
  28. xval4=val1(i+id4)
  29. xval5=val1(i+id5)
  30. xval6=val1(i+id6)
  31. xval11=val11(i)
  32. xval12=val11(i+id12)
  33. pt1=pt1+xval1*xval11
  34. pt2=pt2+xval1*xval12
  35. pt7=pt7+xval2*xval11
  36. pt8=pt8+xval2*xval12
  37. pt13=pt13+xval3*xval11
  38. pt14=pt14+xval3*xval12
  39. pt19=pt19+xval4*xval11
  40. pt20=pt20+xval4*xval12
  41. pt25=pt25+xval5*xval11
  42. pt26=pt26+xval5*xval12
  43. pt31=pt31+xval6*xval11
  44. pt32=pt32+xval6*xval12
  45. 110 continue
  46. pt(1)=pt1
  47. pt(2)=pt2
  48. pt(3)=pt7
  49. pt(4)=pt8
  50. pt(5)=pt13
  51. pt(6)=pt14
  52. pt(7)=pt19
  53. pt(8)=pt20
  54. pt(9)=pt25
  55. pt(10)=pt26
  56. pt(11)=pt31
  57. pt(12)=pt32
  58.  
  59. end
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  

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