Télécharger mamu21.eso

Retour à la liste

Numérotation des lignes :

  1. C MAMU21 SOURCE PV 20/02/22 21:15:06 10531
  2. subroutine mamu21(long,val11 ,val1,lpl,pt)
  3. implicit real*8 (a-h,o-z)
  4. real*8 val11(*),val1(*)
  5. real*8 pt(36)
  6. id2=lpl
  7. pt1=pt(1)
  8. pt4=pt(2)
  9. do 110 i=1,long
  10. xval11=val11(i)
  11. xval1=val1(i)
  12. xval2=val1(i+id2)
  13. pt1=pt1+xval1*xval11
  14. pt4=pt4+xval2*xval11
  15. 110 continue
  16. pt(1)=pt1
  17. pt(2)=pt4
  18.  
  19.  
  20.  
  21. end
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  

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