sysfus.F File Reference

#include "my_real.inc"
#include "implicit_f.inc"
#include "warn_c.inc"

Go to the source code of this file.

Functions/Subroutines
program	__sysfus_f__
integer function	sysfus2 (iu, itabm1, numnod)

Function/Subroutine Documentation

__sysfus_f__()

program __sysfus_f__

Definition at line 34 of file sysfus.F.

sysfus2()

integer function sysfus2	(	integer	iu,
		integer, dimension(*)	itabm1,
		integer	numnod )

Definition at line 97 of file sysfus.F.

C this function returns the internal number corresponding to a user number or 0
C If the node does not exist
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 IU, NUMNOD
      INTEGER ITABM1(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER JINF, JSUP, J
C-----------------------------------------------
C
      ! Check exit parameters
 
      ! 1st NUMNOD=0
      IF (numnod==0) THEN
        sysfus2=0
        RETURN
      END IF
 
      ! 2nd NodeID is lower than smallest NodeID.
      IF ( iu-itabm1(1)<0 ) THEN
        sysfus2=0
        RETURN
      ENDIF
 
 
      jinf=1
      jsup=numnod
      j=min(1,numnod/2)
   10 IF(jsup<=jinf.AND.(iu-itabm1(j))/=0) THEN
C     > Noise case not found
        sysfus2=0
        RETURN
      ENDIF
      IF((iu-itabm1(j))==0)THEN
C     >CASE IU=TABM END OF SEARCH
         sysfus2=itabm1(j+numnod)
         RETURN
      ELSE IF (iu-itabm1(j)<0) THEN
C     >CAS IU<TABM
         jsup=j-1
      ELSE
C     >CAS IU>TABM
         jinf=j+1
      ENDIF
      j=(jsup+jinf)/2
      GO TO 10