Sources Esope | Cast3M

proma2
C PROMA2    SOURCE    PV        16/03/23    21:15:07     8864
      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 100 I=1,NSTRS
      SIG(I)=0.D0
      DO 100 J=1,NSTRS
      SIG(I)=SIG(I)+D(I,J)*DEPSI(J)
  100 CONTINUE
C
      RETURN
      END