C MAMU21 SOURCE PV 18/01/16 21:15:20 9701 implicit real*8 (a-h,o-z) real*8 val11(*),val1(*) real*8 pt(9) * id12=lpl1 * id13=lpl1+lpl1+1 id2=lpl * id3=lpl+lpl+1 pt1=pt(1) pt4=pt(4) xval11=val11(i) * xval12=val11(i+id12) * xval13=val11(i+id13) xval1=val1(i) xval2=val1(i+id2) * xval3=val1(i+id3) pt1=pt1+xval1*xval11 * pt(2)=pt(2)+xval1*xval12 * pt(3)=pt(3)+xval1*xval13 pt4=pt4+xval2*xval11 * pt(5)=pt(5)+xval2*xval12 * pt(6)=pt(6)+xval2*xval13 * pt(7)=pt(7)+xval3*xval11 * pt(8)=pt(8)+xval3*xval12 * pt(9)=pt(9)+xval3*xval13 110 continue pt(1)=pt1 pt(4)=pt4 end
© Cast3M 2003 - Tous droits réservés.
Mentions légales