Télécharger la plaquette Cast3M


fr en

Télécharger mamu33.eso

Retour à la liste

Numérotation des lignes : 

mamu33

  1. C MAMU33    SOURCE    PV090527  24/01/03    21:15:09     10699          
  2.       subroutine mamu33(long,val11,lpl1,val1,lpl,pt)
  3.       implicit real*8 (a-h,o-z)
  4.       real*8 val11(*),val1(*)
  5.       real*8 pt(36)
  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.            pt4=pt(4)
  14.            pt5=pt(5)
  15.            pt6=pt(6)
  16.            pt7=pt(7)
  17.            pt8=pt(8)
  18.            pt9=pt(9)
  19.            do 110 i=1,long
  20.               xval11=val11(i)
  21.               xval1=val1(i)
  22.               pt1=pt1+xval1*xval11
  23.               xval12=val11(i+id12)
  24.               pt2=pt2+xval1*xval12
  25.               xval2=val1(i+id2)
  26.               pt4=pt4+xval2*xval11
  27.               pt5=pt5+xval2*xval12
  28.               xval13=val11(i+id13)
  29.               pt6=pt6+xval2*xval13
  30.               pt3=pt3+xval1*xval13
  31.               xval3=val1(i+id3)
  32.               pt7=pt7+xval3*xval11
  33.               pt8=pt8+xval3*xval12
  34.               pt9=pt9+xval3*xval13
  35.  110       continue
  36.               pt(1)=pt1
  37.               pt(2)=pt2
  38.               pt(3)=pt3
  39.               pt(4)=pt4
  40.               pt(5)=pt5
  41.               pt(6)=pt6
  42.               pt(7)=pt7
  43.               pt(8)=pt8
  44.               pt(9)=pt9
  45.  
  46.  
  47.            end
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  

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