constit.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

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

Function/Subroutine Documentation

constit()

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

Definition at line 34 of file constit.F.

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)
      INTEGER, DIMENSION(:), ALLOCATABLE :: INDX
C-----------------------------------------------
C   S o u r c e  L i n e s
C-----------------------------------------------
      ALLOCATE(indx(2*numnod))
      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))
        IF(itabm1(i)==itabm1(i-1))THEN
C         An error might have been written during pre-reading of Nodes and Cnodes
C         CALL ANCMSG(MSGID=56,
C    .                MSGTYPE=MSGERROR,
C    .                ANMODE=ANINFO,
C    .                I1=ITABM1(I))
          indx(i)=indx(i-1)
        END IF
        itabm1(numnod+i) = indx(i)
      END DO
      DEALLOCATE(indx)
 
      RETURN