h3d_constit.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	h3d_constit (itab, itabm1, numnod)

Function/Subroutine Documentation

h3d_constit()

subroutine h3d_constit	(	integer, dimension(*)	itab,
		integer, dimension(*)	itabm1,
		integer	numnod )

Definition at line 32 of file h3d_constit.F.

      USE message_mod
C
C    CONSTITUTION DU TABLEAU INVERSE DES NOEUDS
C          ITABM1(J)=NO USER ITABM1(NUMNOD+J)=NO SYSTEME
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 NUMNOD
      INTEGER ITAB(*), ITABM1(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I
      INTEGER WORK(70000), INDX(2*NUMNOD)
C-----------------------------------------------
C   E x t e r n a l   F u n c t i o n s
C-----------------------------------------------
      INTEGER IREC
C-----------------------------------------------
C   S o u r c e  L i n e s
C-----------------------------------------------
      DO i = 1, numnod
        indx(i) = i
      END DO
      
      CALL my_orders(0,work,itab,indx,numnod,1)
      
      IF(numnod>=1)THEN
        itabm1(1) = itab(indx(1))
        itabm1(numnod+1) = indx(1)
      ENDIF
      
      DO i = 2, numnod
        itabm1(i) = itab(indx(i))
        itabm1(numnod+i) = indx(i)
      END DO
 
      RETURN