scoor_cp2sp.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	scoor_cp2sp (x0, y0, z0, x1, x2, x3, x4, x5, x6, x7, x8, y1, y2, y3, y4, y5, y6, y7, y8, z1, z2, z3, z4, z5, z6, z7, z8, nel)

Function/Subroutine Documentation

scoor_cp2sp()

subroutine scoor_cp2sp	(	double precision, dimension(mvsiz,8)	x0,
		double precision, dimension(mvsiz,8)	y0,
		double precision, dimension(mvsiz,8)	z0,
			x1,
			x2,
			x3,
			x4,
			x5,
			x6,
			x7,
			x8,
			y1,
			y2,
			y3,
			y4,
			y5,
			y6,
			y7,
			y8,
			z1,
			z2,
			z3,
			z4,
			z5,
			z6,
			z7,
			z8,
		integer, intent(in)	nel )

Definition at line 31 of file scoor_cp2sp.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) :: NEL
C     REAL
      my_real
     .   x1(*), x2(*), x3(*), x4(*), x5(*), x6(*), x7(*), x8(*),
     .   y1(*), y2(*), y3(*), y4(*), y5(*), y6(*), y7(*), y8(*),  
     .   z1(*), z2(*), z3(*), z4(*), z5(*), z6(*), z7(*), z8(*)
      DOUBLE PRECISION 
     .   X0(MVSIZ,8),Y0(MVSIZ,8),Z0(MVSIZ,8)
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER  I, IPT
C-----------------------------------------------
        DO i=1,nel
        x1(i)= x0(i,1) 
        y1(i)= y0(i,1) 
        z1(i)= z0(i,1)
        x2(i)= x0(i,2) 
        y2(i)= y0(i,2) 
        z2(i)= z0(i,2)
        x3(i)= x0(i,3) 
        y3(i)= y0(i,3) 
        z3(i)= z0(i,3)
        x4(i)= x0(i,4) 
        y4(i)= y0(i,4) 
        z4(i)= z0(i,4) 
        x5(i)= x0(i,5) 
        y5(i)= y0(i,5)
        z5(i)= z0(i,5) 
        x6(i)= x0(i,6) 
        y6(i)= y0(i,6) 
        z6(i)= z0(i,6) 
        x7(i)= x0(i,7) 
        y7(i)= y0(i,7) 
        z7(i)= z0(i,7) 
        x8(i)= x0(i,8) 
        y8(i)= y0(i,8) 
        z8(i)= z0(i,8) 
        ENDDO    
C-----------
      RETURN