qcoor2.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	qcoor2 (x, ncp, y1, y2, y3, y4, z1, z2, z3, z4, nc1, nc2, nc3, nc4, ngl, mat, ngeo, vd2, vis, nel)

Function/Subroutine Documentation

qcoor2()

subroutine qcoor2	(		x,
		integer, dimension(7,*)	ncp,
			y1,
			y2,
			y3,
			y4,
			z1,
			z2,
			z3,
			z4,
		integer, dimension(*)	nc1,
		integer, dimension(*)	nc2,
		integer, dimension(*)	nc3,
		integer, dimension(*)	nc4,
		integer, dimension(*)	ngl,
		integer, dimension(*)	mat,
		integer, dimension(*)	ngeo,
			vd2,
			vis,
		integer, intent(in)	nel )

Definition at line 30 of file qcoor2.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER, INTENT(IN) :: NEL
      INTEGER NC1(*), NC2(*), NC3(*), NC4(*), MAT(*), NGL(*), NGEO(*),NCP(7,*)
      my_real x(3,*),y1(*),y2(*),y3(*),y4(*),z1(*),z2(*),z3(*),z4(*),vd2(*),vis(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I
C-----------------------------------------------
C   S o u r c e   L i n e s
C-----------------------------------------------
      DO i=1,nel
        ngeo(i)=ncp(6,i)
        ngl(i)=ncp(7,i)
        mat(i)=ncp(1,i)
        nc1(i)=ncp(2,i)
        nc2(i)=ncp(3,i)
        nc3(i)=ncp(4,i)
        nc4(i)=ncp(5,i)
      ENDDO
C----------------------------
C     NODE COORDINATES
C----------------------------
      DO i=1,nel
        y1(i)=x(2,nc1(i))
        z1(i)=x(3,nc1(i))
        y2(i)=x(2,nc2(i))
        z2(i)=x(3,nc2(i))
        y3(i)=x(2,nc3(i))
        z3(i)=x(3,nc3(i))
        y4(i)=x(2,nc4(i))
        z4(i)=x(3,nc4(i))
      END DO
C----------------------------
      DO i=1,nel
        vd2(i)=zero
        vis(i)=zero
      ENDDO
C----------------------------
      RETURN