Télécharger mamu13.eso

Retour à la liste

Numérotation des lignes :

  1. C MAMU13 SOURCE PV 18/01/16 21:15:15 9701
  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(9)
  6. id12=lpl1
  7. id13=lpl1+lpl1+1
  8. * id2=lpl
  9. * id3=lpl+lpl+1
  10. pt1=pt(1)
  11. pt2=pt(2)
  12. pt3=pt(3)
  13. do 110 i=1,long
  14. xval11=val11(i)
  15. xval12=val11(i+id12)
  16. xval13=val11(i+id13)
  17. xval1=val1(i)
  18. * xval2=val1(i+id2)
  19. * xval3=val1(i+id3)
  20. pt1=pt1+xval1*xval11
  21. pt2=pt2+xval1*xval12
  22. pt3=pt3+xval1*xval13
  23. * pt(4)=pt(4)+xval2*xval11
  24. * pt(5)=pt(5)+xval2*xval12
  25. * pt(6)=pt(6)+xval2*xval13
  26. * pt(7)=pt(7)+xval3*xval11
  27. * pt(8)=pt(8)+xval3*xval12
  28. * pt(9)=pt(9)+xval3*xval13
  29. 110 continue
  30. pt(1)=pt1
  31. pt(2)=pt2
  32. pt(3)=pt3
  33.  
  34.  
  35.  
  36. end
  37.  
  38.  
  39.  
  40.  

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