Sources Esope | Cast3M

bcgsi
C BCGSI     SOURCE    MB234859  26/09/22    21:15:05     12653          
      SUBROUTINE BCGSI(ITH)
C
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
C
-INC SMLENTI
-INC SMLREEL
C
      COMMON/PDTSCA/NBTHRD,NVAL,NLIG,IMAT,IVEC,IRES
C
      NBLOC=NVAL/NBTHRD+1
      IDEB=(ITH-1)*NBLOC+1
      IFIN=MIN(ITH*NBLOC,NLIG)
      MLENT1=IMAT
      MLREE2=IVEC
      MLREE3=IRES
      DO I=IDEB,IFIN
        MLREE1=MLENT1.LECT(I)
        MLREE3.PROG(I)=DDOTPV(NVAL,MLREE1.PROG(1),MLREE2.PROG(1))
      ENDDO
C
      END