s8sav3.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	s8sav3 (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()

subroutine s8sav3	(		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 33 of file s8sav3.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
      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=======================================================================
        DO i=1,nel
          IF(abs(offg(i)) <= one )THEN
           sav(i,1)=xd1(i)-xd8(i)
           sav(i,2)=yd1(i)-yd8(i)
           sav(i,3)=zd1(i)-zd8(i)
           sav(i,4)=xd2(i)-xd8(i)
           sav(i,5)=yd2(i)-yd8(i)
           sav(i,6)=zd2(i)-zd8(i)
           sav(i,7)=xd3(i)-xd8(i)
           sav(i,8)=yd3(i)-yd8(i)
           sav(i,9)=zd3(i)-zd8(i)
           sav(i,10)=xd4(i)-xd8(i)
           sav(i,11)=yd4(i)-yd8(i)
           sav(i,12)=zd4(i)-zd8(i)
           sav(i,13)=xd5(i)-xd8(i)
           sav(i,14)=yd5(i)-yd8(i)
           sav(i,15)=zd5(i)-zd8(i)
           sav(i,16)=xd6(i)-xd8(i)
           sav(i,17)=yd6(i)-yd8(i)
           sav(i,18)=zd6(i)-zd8(i)
           sav(i,19)=xd7(i)-xd8(i)
           sav(i,20)=yd7(i)-yd8(i)
           sav(i,21)=zd7(i)-zd8(i)
          ENDIF
        ENDDO
C-----------
      RETURN