s8esigp3i.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	s8esigp3i (lft, llt, sigp, sigpi, epsip, ip, nel)

Function/Subroutine Documentation

s8esigp3i()

subroutine s8esigp3i	(	integer	lft,
		integer	llt,
			sigp,
			sigpi,
		integer, dimension(*)	epsip,
		integer	ip,
		integer	nel )

Definition at line 28 of file s8esigp3i.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER LFT,LLT,NEL,EPSIP(*),IP
      my_real
     .   sigp(nel,6),sigpi(nel,6)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I
C     REAL
C-----------------------------------------------
         DO i=lft,llt
          IF (epsip(i)==ip) THEN
            sigp(i,1:6) = sigpi(i,1:6)
          END IF
         END DO    
C-----------
      RETURN