Télécharger mamu16.eso

Retour à la liste

Numérotation des lignes :

mamu16
  1. C MAMU16 SOURCE PV 20/02/22 21:15:05 10531
  2. subroutine mamu16(long,val11,lpl1,val1, 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. pt1=pt(1)
  12. pt2=pt(2)
  13. pt3=pt(3)
  14. pt4=pt(4)
  15. pt5=pt(5)
  16. pt6=pt(6)
  17. do 110 i=1,long
  18. xval1=val1(i)
  19. xval11=val11(i)
  20. xval12=val11(i+id12)
  21. xval13=val11(i+id13)
  22. xval14=val11(i+id14)
  23. xval15=val11(i+id15)
  24. xval16=val11(i+id16)
  25. pt1=pt1+xval1*xval11
  26. pt2=pt2+xval1*xval12
  27. pt3=pt3+xval1*xval13
  28. pt4=pt4+xval1*xval14
  29. pt5=pt5+xval1*xval15
  30. pt6=pt6+xval1*xval16
  31. 110 continue
  32. pt(1)=pt1
  33. pt(2)=pt2
  34. pt(3)=pt3
  35. pt(4)=pt4
  36. pt(5)=pt5
  37. pt(6)=pt6
  38.  
  39. end
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  

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