Télécharger mamu22.eso

Retour à la liste

Numérotation des lignes :

  1. C MAMU22 SOURCE PV 18/01/16 21:15:27 9701
  2. subroutine mamu22(long,val11,lpl1,val1,lpl,pt)
  3. implicit real*8 (a-h,o-z)
  4. real*8 val11(*),val1(*)
  5. real*8 pt(9)
  6. id12=lpl1
  7. id2=lpl
  8. pt1=pt(1)
  9. pt2=pt(2)
  10. pt5=pt(5)
  11. pt4=pt(4)
  12. do 110 i=1,long
  13. xval11=val11(i)
  14. xval12=val11(i+id12)
  15. xval1=val1(i)
  16. xval2=val1(i+id2)
  17. pt1=pt1+xval1*xval11
  18. pt2=pt2+xval1*xval12
  19. pt5=pt5+xval2*xval12
  20. pt4=pt4+xval2*xval11
  21. 110 continue
  22. pt(1)=pt1
  23. pt(2)=pt2
  24. pt(5)=pt5
  25. pt(4)=pt4
  26.  
  27.  
  28.  
  29. end
  30.  
  31.  
  32.  
  33.  

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