Sources Esope | Cast3M

mamup1
C MAMUP1    SOURCE    PV        16/10/28    21:15:02     9141           
      subroutine mamup1(long,val11,lpl1,val1,lpl,pt)
      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
           do 110 i=1,long
              xval11=val11(i)
              xval12=val11(i+id12)
              xval13=val11(i+id13)
              xval1=val1(i)
              xval2=val1(i+id2)
              xval3=val1(i+id3)
              pt(1)=pt(1)+xval1*xval11
              pt(2)=pt(2)+xval1*xval12
              pt(3)=pt(3)+xval1*xval13
              pt(4)=pt(4)+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
 
 
 
           end