fillxdp.F File Reference

#include "implicit_f.inc"
#include "com04_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	fillxdp (x, xdp, d, ddp)

Function/Subroutine Documentation

fillxdp()

subroutine fillxdp	(		x,
		double precision, dimension(3,*)	xdp,
			d,
		double precision, dimension(3,*)	ddp )

Definition at line 28 of file fillxdp.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
#include      "com04_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      my_real  x(3,*),d(3,*)
      DOUBLE PRECISION     XDP(3,*),DDP(3,*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER NN
 
 
      DO nn=1,numnod
        xdp(1,nn)=x(1,nn)
        xdp(2,nn)=x(2,nn)
        xdp(3,nn)=x(3,nn)
 
        ddp(1,nn)=d(1,nn)
        ddp(2,nn)=d(2,nn)
        ddp(3,nn)=d(3,nn)
 
      ENDDO
 
      RETURN