Télécharger la plaquette Cast3M


fr en

Télécharger mamu61.eso

Retour à la liste

Numérotation des lignes : 

mamu61

  1. C MAMU61    SOURCE    PV        20/02/22    21:15:22     10531          
  2.       subroutine mamu61(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.            id3=lpl+ lpl+1
  8.            id4=lpl+ lpl+1 +lpl+2
  9.            id5=lpl+ lpl+1 +lpl+2 +lpl+3
  10.            id6=lpl+ lpl+1 +lpl+2 +lpl+3 +lpl+4
  11.            pt1=pt(1)
  12.            pt7=pt(2)
  13.            pt13=pt(3)
  14.            pt19=pt(4)
  15.            pt25=pt(5)
  16.            pt31=pt(6)
  17.            do 110 i=1,long
  18.               xval1=val1(i)
  19.               xval2=val1(i+id2)
  20.               xval3=val1(i+id3)
  21.               xval4=val1(i+id4)
  22.               xval5=val1(i+id5)
  23.               xval6=val1(i+id6)
  24.               xval11=val11(i)
  25.               pt1=pt1+xval1*xval11
  26.               pt7=pt7+xval2*xval11
  27.               pt13=pt13+xval3*xval11
  28.               pt19=pt19+xval4*xval11
  29.               pt25=pt25+xval5*xval11
  30.               pt31=pt31+xval6*xval11
  31.  110       continue
  32.            pt(1)=pt1
  33.            pt(2)=pt7
  34.            pt(3)=pt13
  35.            pt(4)=pt19
  36.            pt(5)=pt25
  37.            pt(6)=pt31
  38.  
  39.            end
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  

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