s8savsr3.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	s8savsr3 (offg, sav, xd, yd, zd, nel)

Function/Subroutine Documentation

s8savsr3()

subroutine s8savsr3	(		offg,
		double precision, dimension(nel,21)	sav,
		double precision, dimension(mvsiz,8)	xd,
		double precision, dimension(mvsiz,8)	yd,
		double precision, dimension(mvsiz,8)	zd,
		integer	nel )

Definition at line 29 of file s8savsr3.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(*)
      
      DOUBLE PRECISION 
     .   XD(MVSIZ,8),YD(MVSIZ,8),ZD(MVSIZ,8), 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)=xd(i,1)-xd(i,8)
           sav(i,2)=yd(i,1)-yd(i,8)
           sav(i,3)=zd(i,1)-zd(i,8)
           sav(i,4)=xd(i,2)-xd(i,8)
           sav(i,5)=yd(i,2)-yd(i,8)
           sav(i,6)=zd(i,2)-zd(i,8)
           sav(i,7)=xd(i,3)-xd(i,8)
           sav(i,8)=yd(i,3)-yd(i,8)
           sav(i,9)=zd(i,3)-zd(i,8)
           sav(i,10)=xd(i,4)-xd(i,8)
           sav(i,11)=yd(i,4)-yd(i,8)
           sav(i,12)=zd(i,4)-zd(i,8)
           sav(i,13)=xd(i,5)-xd(i,8)
           sav(i,14)=yd(i,5)-yd(i,8)
           sav(i,15)=zd(i,5)-zd(i,8)
           sav(i,16)=xd(i,6)-xd(i,8)
           sav(i,17)=yd(i,6)-yd(i,8)
           sav(i,18)=zd(i,6)-zd(i,8)
           sav(i,19)=xd(i,7)-xd(i,8)
           sav(i,20)=yd(i,7)-yd(i,8)
           sav(i,21)=zd(i,7)-zd(i,8)
          ENDIF
        ENDDO
C-----------
      RETURN