Sources Esope | Cast3M

proma2
C PROMA2    SOURCE    CB215821  26/08/24    21:18:00     12622          
      SUBROUTINE PROMA2(D,DEPSI,NSTRS,SIG)
C======================================================================
C
C  CALCULE LE PRODUIT D*DEPSI=SIG
C
C=======================================================================
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      DIMENSION D(4,*),DEPSI(*),SIG(*)
C
      DO 101 I=1,NSTRS
      SIG(I)=0.D0
      DO 100 J=1,NSTRS
      SIG(I)=SIG(I)+D(I,J)*DEPSI(J)
  100 CONTINUE
  101 CONTINUE
C
      RETURN
      END