s4sav12.F File Reference

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

Go to the source code of this file.

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

Function/Subroutine Documentation

s4sav12()

subroutine s4sav12	(		offg,
			offg0,
		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 s4sav12.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   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(*),offg0(*)
      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     REAL
C-----------------------------------------------
C
       DO i=1,nel
       IF(offg(i)/=offg0(i).AND.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
C
      RETURN