sporth3.F File Reference

#include "implicit_f.inc"
#include "vect01_c.inc"
#include "param_c.inc"
#include "scr17_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	sporth3 (ipart, ipartsp, igeo, gama, skew, nel)

Function/Subroutine Documentation

sporth3()

subroutine sporth3	(	integer, dimension(lipart1,*)	ipart,
		integer, dimension(*)	ipartsp,
		integer, dimension(npropgi,*)	igeo,
			gama,
			skew,
		integer	nel )

Definition at line 29 of file sporth3.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "vect01_c.inc"
#include      "param_c.inc"
#include      "scr17_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER  IPART(LIPART1,*),IPARTSP(*),IGEO(NPROPGI,*),NEL
      my_real
     .  gama(nel,6),skew(lskew,*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I, IPRT, IG, ISK
C=======================================================================
      DO i=lft,llt
        iprt=ipartsp(i)
        ig  =ipart(2,iprt)
        isk = igeo(2,ig)
        IF (isk/=0) THEN
C        ISK = GEO(2,IG)
          gama(i,1)= skew(1,isk)
          gama(i,2)= skew(2,isk)
          gama(i,3)= skew(3,isk)
          gama(i,4)= skew(4,isk)
          gama(i,5)= skew(5,isk)
          gama(i,6)= skew(6,isk)
        ENDIF
      ENDDO
C
      RETURN