w_avuply.F File Reference

#include "implicit_f.inc"
#include "param_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	w_avuply (nnodpxfe_l, len_am)

Function/Subroutine Documentation

w_avuply()

subroutine w_avuply	(	integer	nnodpxfe_l,
		integer	len_am )

Definition at line 29 of file w_avuply.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "param_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER  NNODPXFE_L,LEN_AM
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER J
      my_real
     .  veltmp1(3,nnodpxfe_l),veltmp2(4,nnodpxfe_l)
C
      
         DO j = 1, nnodpxfe_l
            veltmp1(1,j)= zero
            veltmp1(2,j)= zero
            veltmp1(3,j)= zero 
            veltmp2(1,j) = zero
            veltmp2(2,j) = zero
            veltmp2(3,j) = zero
            veltmp2(4,j) = zero
         ENDDO        
         DO j = 1, nplymax
C deplacement
            CALL write_db(veltmp1,3*nnodpxfe_l)
               len_am = len_am + 3*nnodpxfe_l
C vitesse
            CALL write_db(veltmp1,3*nnodpxfe_l)
               len_am = len_am + 3*nnodpxfe_l
cc            CALL WRITE_DB(VELTMP2,4*NNODPXFE_L)
cc               LEN_AM = LEN_AM + 4*NNODPXFE_L 
         ENDDO        
C
      RETURN