Télécharger la plaquette Cast3M


fr en

Télécharger mamu52.eso

Retour à la liste

Numérotation des lignes : 

mamu52

  1. C MAMU52    SOURCE    PV        20/02/22    21:15:19     10531          
  2.       subroutine mamu52(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.            id4=lpl+ lpl+1 +lpl+2
  10.            id5=lpl+ lpl+1 +lpl+2 +lpl+3
  11.            pt1=pt(1)
  12.            pt2=pt(2)
  13.            pt7=pt(3)
  14.            pt8=pt(4)
  15.            pt13=pt(5)
  16.            pt14=pt(6)
  17.            pt19=pt(7)
  18.            pt20=pt(8)
  19.            pt25=pt(9)
  20.            pt26=pt(10)
  21.            do 110 i=1,long
  22.               xval1=val1(i)
  23.               xval2=val1(i+id2)
  24.               xval3=val1(i+id3)
  25.               xval4=val1(i+id4)
  26.               xval5=val1(i+id5)
  27.               xval11=val11(i)
  28.               xval12=val11(i+id12)
  29.               pt1=pt1+xval1*xval11
  30.               pt2=pt2+xval1*xval12
  31.               pt7=pt7+xval2*xval11
  32.               pt8=pt8+xval2*xval12
  33.               pt13=pt13+xval3*xval11
  34.               pt14=pt14+xval3*xval12
  35.               pt19=pt19+xval4*xval11
  36.               pt20=pt20+xval4*xval12
  37.               pt25=pt25+xval5*xval11
  38.               pt26=pt26+xval5*xval12
  39.  110       continue
  40.            pt(1)=pt1
  41.            pt(2)=pt2
  42.            pt(3)=pt7
  43.            pt(4)=pt8
  44.            pt(5)=pt13
  45.            pt(6)=pt14
  46.            pt(7)=pt19
  47.            pt(8)=pt20
  48.            pt(9)=pt25
  49.            pt(10)=pt26
  50.  
  51.            end
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  

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