s4sav3.F File Reference

#include "implicit_f.inc"
#include "mvsiz_p.inc"
#include "vectorize.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	s4sav3 (offg, sav, xd1, xd2, xd3, xd4, yd1, yd2, yd3, yd4, zd1, zd2, zd3, zd4, nel)

Function/Subroutine Documentation

s4sav3()

subroutine s4sav3	(		offg,
		double precision, dimension(nel,9)	sav,
		double precision, dimension(mvsiz)	xd1,
		double precision, dimension(mvsiz)	xd2,
		double precision, dimension(mvsiz)	xd3,
		double precision, dimension(mvsiz)	xd4,
		double precision, dimension(mvsiz)	yd1,
		double precision, dimension(mvsiz)	yd2,
		double precision, dimension(mvsiz)	yd3,
		double precision, dimension(mvsiz)	yd4,
		double precision, dimension(mvsiz)	zd1,
		double precision, dimension(mvsiz)	zd2,
		double precision, dimension(mvsiz)	zd3,
		double precision, dimension(mvsiz)	zd4,
		integer	nel )

Definition at line 28 of file s4sav3.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   G l o b a l   P a r a m e t e r s
C-----------------------------------------------
#include      "mvsiz_p.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER NEL
      my_real
     .   offg(nel)
      DOUBLE PRECISION 
     .   XD1(MVSIZ), XD2(MVSIZ), XD3(MVSIZ), XD4(MVSIZ),
     .   YD1(MVSIZ), YD2(MVSIZ), YD3(MVSIZ), YD4(MVSIZ),
     .   ZD1(MVSIZ), ZD2(MVSIZ), ZD3(MVSIZ), ZD4(MVSIZ),SAV(NEL,9)
           
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I
C-----------------------------------------------
#include  "vectorize.inc"
      DO i=1,nel
        IF(abs(offg(i)) <= one) THEN
          sav(i,1)=xd1(i)-xd4(i)
          sav(i,2)=yd1(i)-yd4(i)
          sav(i,3)=zd1(i)-zd4(i)
          sav(i,4)=xd2(i)-xd4(i)
          sav(i,5)=yd2(i)-yd4(i)
          sav(i,6)=zd2(i)-zd4(i)
          sav(i,7)=xd3(i)-xd4(i)
          sav(i,8)=yd3(i)-yd4(i)
          sav(i,9)=zd3(i)-zd4(i)
        ENDIF
      ENDDO
      RETURN