anin_ply_init.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
integer function	get_ply_nodid (iply, nodid, offset)
integer function	get_ply_nod (iply, nodid)
integer function	get_ply_elem (iply, elemid)

Function/Subroutine Documentation

get_ply_elem()

integer function get_ply_elem	(	integer	iply,
		integer	elemid )

Definition at line 172 of file anin_ply_init.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE plyxfem_mod
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 IPLY,ELEMID
C-----------------------------------------------
C   L O C A L   V A R I A B L E S
C-----------------------------------------------
      INTEGER I,BINF,BSUP,MILIEU,SIZE,EMPL,TAILLE
C-----------------------------------------------
      size=plyshell(iply)%PLYNUMSHELL
      empl = 0
      binf=1
      bsup=SIZE
 
      IF (plyshell(iply)%SHID(binf)==elemid)THEN
        empl=binf
        GOTO 100
      ENDIF
 
      IF (plyshell(iply)%SHID(bsup)==elemid)THEN
        empl=bsup
        GOTO 100
      ENDIF
 
      taille = bsup-binf+1
      DO WHILE ( taille > 5)
         milieu = (bsup-binf)/2 + binf
 
         IF (plyshell(iply)%SHID(milieu) == elemid) THEN
           empl = milieu
           GOTO 100
         ENDIF
         IF ( plyshell(iply)%SHID(milieu) < elemid) THEN
           binf = milieu
         ELSE
           bsup = milieu
         ENDIF
         taille = bsup-binf+1
      ENDDO
 
      DO i=binf,bsup
        IF  (plyshell(iply)%SHID(i) == elemid) THEN
           empl = i
           GOTO 100
        ENDIF
      ENDDO
 
 100  CONTINUE
 
      get_ply_elem = empl
 
      RETURN

get_ply_nod()

integer function get_ply_nod	(	integer	iply,
		integer	nodid )

Definition at line 100 of file anin_ply_init.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE plyxfem_mod
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 IPLY,NODID
C-----------------------------------------------
C   L O C A L   V A R I A B L E S
C-----------------------------------------------
      INTEGER I,BINF,BSUP,MILIEU,SIZE,EMPL,TAILLE
C-----------------------------------------------
      empl = 0
      size=plynod(iply)%PLYNUMNODS
 
      binf=1
      bsup=SIZE
 
      IF (plynod(iply)%NODES(binf)==nodid)THEN
        empl=binf
        GOTO 100
      ENDIF
 
      IF (plynod(iply)%NODES(bsup)==nodid)THEN
        empl=bsup
        GOTO 100
      ENDIF
 
      taille = bsup-binf+1
      DO WHILE ( taille > 5)
         milieu = (bsup-binf)/2 + binf
 
         IF (plynod(iply)%NODES(milieu) == nodid) THEN
           empl = milieu
           GOTO 100
         ENDIF
         IF ( plynod(iply)%NODES(milieu) < nodid) THEN
           binf = milieu
         ELSE
           bsup = milieu
         ENDIF
         taille = bsup-binf+1
      ENDDO
 
      DO i=binf,bsup
        IF  (plynod(iply)%NODES(i) == nodid) THEN
           empl = i
           GOTO 100
        ENDIF
      ENDDO
 
 100  CONTINUE
 
      get_ply_nod = empl
 
      RETURN

get_ply_nodid()

integer function get_ply_nodid	(	integer	iply,
		integer	nodid,
		integer	offset )

Definition at line 30 of file anin_ply_init.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE plyxfem_mod
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 IPLY,NODID,OFFSET
C-----------------------------------------------
C   L O C A L   V A R I A B L E S
C-----------------------------------------------
      INTEGER I,BINF,BSUP,MILIEU,SIZE,EMPL,TAILLE
C-----------------------------------------------
      size=plynod(iply)%PLYNUMNODS
 
      binf=1
      bsup=SIZE
      empl = 0
      IF (plynod(iply)%NODES(binf)==nodid)THEN
        empl=binf
        GOTO 100
      ENDIF
 
      IF (plynod(iply)%NODES(bsup)==nodid)THEN
        empl=bsup
        GOTO 100
      ENDIF
 
      taille = bsup-binf+1
      DO WHILE ( taille > 5)
         milieu = (bsup-binf)/2 + binf
 
         IF (plynod(iply)%NODES(milieu) == nodid) THEN
           empl = milieu
           GOTO 100
         ENDIF
         IF ( plynod(iply)%NODES(milieu) < nodid) THEN
           binf = milieu
         ELSE
           bsup = milieu
         ENDIF
         taille = bsup-binf+1
      ENDDO
 
      DO i=binf,bsup
        IF  (plynod(iply)%NODES(i) == nodid) THEN
           empl = i
           GOTO 100
        ENDIF
      ENDDO
 
 100  CONTINUE
 
      get_ply_nodid = plynod(iply)%PLYNODID(empl)+offset
 
      RETURN