s8erefcoor3.F File Reference

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

Go to the source code of this file.

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

Function/Subroutine Documentation

s8erefcoor3()

subroutine s8erefcoor3	(	double precision, dimension(nel,3*(npe-1)), intent(in)	sav,
		integer, intent(in)	npe,
		integer, intent(in)	nel,
		double precision, dimension(mvsiz), intent(out)	xd1,
		double precision, dimension(mvsiz), intent(out)	xd2,
		double precision, dimension(mvsiz), intent(out)	xd3,
		double precision, dimension(mvsiz), intent(out)	xd4,
		double precision, dimension(mvsiz), intent(out)	xd5,
		double precision, dimension(mvsiz), intent(out)	xd6,
		double precision, dimension(mvsiz), intent(out)	xd7,
		double precision, dimension(mvsiz), intent(out)	xd8,
		double precision, dimension(mvsiz), intent(out)	yd1,
		double precision, dimension(mvsiz), intent(out)	yd2,
		double precision, dimension(mvsiz), intent(out)	yd3,
		double precision, dimension(mvsiz), intent(out)	yd4,
		double precision, dimension(mvsiz), intent(out)	yd5,
		double precision, dimension(mvsiz), intent(out)	yd6,
		double precision, dimension(mvsiz), intent(out)	yd7,
		double precision, dimension(mvsiz), intent(out)	yd8,
		double precision, dimension(mvsiz), intent(out)	zd1,
		double precision, dimension(mvsiz), intent(out)	zd2,
		double precision, dimension(mvsiz), intent(out)	zd3,
		double precision, dimension(mvsiz), intent(out)	zd4,
		double precision, dimension(mvsiz), intent(out)	zd5,
		double precision, dimension(mvsiz), intent(out)	zd6,
		double precision, dimension(mvsiz), intent(out)	zd7,
		double precision, dimension(mvsiz), intent(out)	zd8 )

Definition at line 29 of file s8erefcoor3.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 , INTENT(IN) :: NPE,NEL
      DOUBLE PRECISION , DIMENSION(NEL,3*(NPE-1)),INTENT(IN) :: SAV     
      DOUBLE PRECISION , DIMENSION(MVSIZ), INTENT(OUT) ::
     .   XD1, XD2, XD3, XD4, XD5, XD6, XD7, XD8,
     .   YD1, YD2, YD3, YD4, YD5, YD6, YD7, YD8,
     .   ZD1, ZD2, ZD3, ZD4, ZD5, ZD6, ZD7, ZD8
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I,NPE1,N,N2,N3
      DOUBLE PRECISION 
     .   X0(MVSIZ,NPE), Y0(MVSIZ,NPE), Z0(MVSIZ,NPE)
C-----------------------------------------------
      DO i=1,nel
       x0(i,npe)=zero
       y0(i,npe)=zero
       z0(i,npe)=zero
      ENDDO
      npe1=npe-1
      DO n=1,npe1
       n2 = n + npe1
       n3 = n2 + npe1
       DO i=1,nel
        x0(i,n)=sav(i,n)
        y0(i,n)=sav(i,n2)
        z0(i,n)=sav(i,n3)
       ENDDO
      ENDDO 
      xd1(1:nel) =  x0(1:nel,1)
      xd2(1:nel) =  x0(1:nel,2)
      xd3(1:nel) =  x0(1:nel,3)
      xd4(1:nel) =  x0(1:nel,4)
      xd5(1:nel) =  x0(1:nel,5)
      xd6(1:nel) =  x0(1:nel,6)
      xd7(1:nel) =  x0(1:nel,7)
      xd8(1:nel) =  x0(1:nel,8)
      yd1(1:nel) =  y0(1:nel,1)
      yd2(1:nel) =  y0(1:nel,2)
      yd3(1:nel) =  y0(1:nel,3)
      yd4(1:nel) =  y0(1:nel,4)
      yd5(1:nel) =  y0(1:nel,5)
      yd6(1:nel) =  y0(1:nel,6)
      yd7(1:nel) =  y0(1:nel,7)
      yd8(1:nel) =  y0(1:nel,8)
      zd1(1:nel) =  z0(1:nel,1)
      zd2(1:nel) =  z0(1:nel,2)
      zd3(1:nel) =  z0(1:nel,3)
      zd4(1:nel) =  z0(1:nel,4)
      zd5(1:nel) =  z0(1:nel,5)
      zd6(1:nel) =  z0(1:nel,6)
      zd7(1:nel) =  z0(1:nel,7)
      zd8(1:nel) =  z0(1:nel,8)
C
      RETURN