Télécharger la plaquette Cast3M


fr en

Télécharger mamu32.eso

Retour à la liste

Numérotation des lignes : 

mamu32

  1. C MAMU32    SOURCE    PV        20/02/22    21:15:11     10531          
  2.       subroutine mamu32(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.            id2=lpl
  8.            id3=lpl+lpl+1
  9.            pt1=pt(1)
  10.            pt2=pt(2)
  11.            pt4=pt(3)
  12.            pt5=pt(4)
  13.            pt7=pt(5)
  14.            pt8=pt(6)
  15.            do 110 i=1,long
  16.               xval1=val1(i)
  17.               xval11=val11(i)
  18.               xval12=val11(i+id12)
  19.               xval2=val1(i+id2)
  20.               xval3=val1(i+id3)
  21.               pt1=pt1+xval1*xval11
  22.               pt2=pt2+xval1*xval12
  23.               pt4=pt4+xval2*xval11
  24.               pt5=pt5+xval2*xval12
  25.               pt7=pt7+xval3*xval11
  26.               pt8=pt8+xval3*xval12
  27.  110       continue
  28.            pt(1)=pt1
  29.            pt(2)=pt2
  30.            pt(3)=pt4
  31.            pt(4)=pt5
  32.            pt(5)=pt7
  33.            pt(6)=pt8
  34.  
  35.  
  36.  
  37.            end
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  

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