Télécharger mamu22.eso

Retour à la liste

Numérotation des lignes :

  1. C MAMU22 SOURCE PV 16/11/03 21:15:08 9157
  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. do 110 i=1,long
  9. xval11=val11(i)
  10. xval12=val11(i+id12)
  11. xval1=val1(i)
  12. xval2=val1(i+id2)
  13. pt(1)=pt(1)+xval1*xval11
  14. pt(2)=pt(2)+xval1*xval12
  15. pt(4)=pt(4)+xval2*xval11
  16. pt(5)=pt(5)+xval2*xval12
  17. 110 continue
  18.  
  19.  
  20.  
  21. end
  22.  
  23.  
  24.  

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