s8sav3_imp.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	s8sav3_imp (offg, sav, xd1, xd2, xd3, xd4, xd5, xd6, xd7, xd8, yd1, yd2, yd3, yd4, yd5, yd6, yd7, yd8, zd1, zd2, zd3, zd4, zd5, zd6, zd7, zd8, nel)

Function/Subroutine Documentation

s8sav3_imp()

subroutine s8sav3_imp	(		offg,
		double precision, dimension(nel,21)	sav,
		double precision, dimension(*)	xd1,
		double precision, dimension(*)	xd2,
		double precision, dimension(*)	xd3,
		double precision, dimension(*)	xd4,
		double precision, dimension(*)	xd5,
		double precision, dimension(*)	xd6,
		double precision, dimension(*)	xd7,
		double precision, dimension(*)	xd8,
		double precision, dimension(*)	yd1,
		double precision, dimension(*)	yd2,
		double precision, dimension(*)	yd3,
		double precision, dimension(*)	yd4,
		double precision, dimension(*)	yd5,
		double precision, dimension(*)	yd6,
		double precision, dimension(*)	yd7,
		double precision, dimension(*)	yd8,
		double precision, dimension(*)	zd1,
		double precision, dimension(*)	zd2,
		double precision, dimension(*)	zd3,
		double precision, dimension(*)	zd4,
		double precision, dimension(*)	zd5,
		double precision, dimension(*)	zd6,
		double precision, dimension(*)	zd7,
		double precision, dimension(*)	zd8,
		integer	nel )

Definition at line 28 of file s8sav3_imp.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-----------------------------------------------
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER NEL
C     REAL
      my_real
     .   offg(*)
      
      DOUBLE PRECISION 
     .   XD1(*), XD2(*), XD3(*), XD4(*), XD5(*), XD6(*), XD7(*), XD8(*), 
     .   YD1(*), YD2(*), YD3(*), YD4(*), YD5(*), YD6(*), YD7(*), YD8(*), 
     .   ZD1(*), ZD2(*), ZD3(*), ZD4(*), ZD5(*), ZD6(*), ZD7(*), ZD8(*),      
     .   SAV(NEL,21)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I      
C=======================================================================
        !print*,'OFFG(10) ', offg(10)
        DO i=1,nel
          IF(abs(offg(i)) <= one )THEN
           sav(i,1)=xd2(i)-xd1(i)
           sav(i,2)=yd2(i)-yd1(i)
           sav(i,3)=zd2(i)-zd1(i)
           sav(i,4)=xd3(i)-xd1(i)
           sav(i,5)=yd3(i)-yd1(i)
           sav(i,6)=zd3(i)-zd1(i)
           sav(i,7)=xd4(i)-xd1(i)
           sav(i,8)=yd4(i)-yd1(i)
           sav(i,9)=zd4(i)-zd1(i)
           sav(i,10)=xd5(i)-xd1(i)
           sav(i,11)=yd5(i)-yd1(i)
           sav(i,12)=zd5(i)-zd1(i)
           sav(i,13)=xd6(i)-xd1(i)
           sav(i,14)=yd6(i)-yd1(i)
           sav(i,15)=zd6(i)-zd1(i)
           sav(i,16)=xd7(i)-xd1(i)
           sav(i,17)=yd7(i)-yd1(i)
           sav(i,18)=zd7(i)-zd1(i)
           sav(i,19)=xd8(i)-xd1(i)
           sav(i,20)=yd8(i)-yd1(i)
           sav(i,21)=zd8(i)-zd1(i)
          ENDIF
        ENDDO
C-----------
      RETURN