Télécharger mamu13.eso

Retour à la liste

Numérotation des lignes :

  1. C MAMU13 SOURCE PV 20/02/22 21:15:03 10531
  2. subroutine mamu13(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. pt1=pt(1)
  9. pt2=pt(2)
  10. pt3=pt(3)
  11. do 110 i=1,long
  12. xval1=val1(i)
  13. xval11=val11(i)
  14. xval12=val11(i+id12)
  15. xval13=val11(i+id13)
  16. pt1=pt1+xval1*xval11
  17. pt2=pt2+xval1*xval12
  18. pt3=pt3+xval1*xval13
  19. 110 continue
  20. pt(1)=pt1
  21. pt(2)=pt2
  22. pt(3)=pt3
  23.  
  24.  
  25.  
  26. end
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  

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