Numérotation des lignes :

C R2RCH     SOURCE    CHAT      05/01/13    02:43:58     5004      SUBROUTINE R2RCH(IDIMC,ITRNOE,NBNMAX,NBE,COORD,SPH,     >                      NBSMAX,IT,XPT,COEF,IERR)C     **********************************************************************C     OBJET : RECHERCHE DE L'ELEMENT A RAFINERC     EN ENTREE  :C       COORD          : COORDONNEES DES POINTSC       IDIMC          : DIMENSION DE L'ESPACEC       ITRNOE,NBNMAX : SOMMETS DES ELEMENTSC       NBE            : NOMBRE D'ELEMENTSC       SPH,NBSMAX     : CERCLES CIRCONSCRITS AUX ELEMENTSCC     EN SORTIE  :C       IT             : L'ELEMENT A REFFINERC       XPT            : LE POINT A AJOUTERC       COEF           : LA VALEUR DU RAFFINEMENT [0-1]C                        PLUS COEF EST PETIT PLUS ON RAFFINEC       IERR           : CODE D'ERREUR (INUTILISE)C     **********************************************************************      IMPLICIT INTEGER(I-N)      REAL*8       COORD(*),SPH(*)      INTEGER    IDIMC,ITRNOE(*),NBNMAX,NBE,NBSMAX,IT,IERR      REAL*8       COEF,XPT(*)C      INTEGER  I,NUMP3      REAL*8     CLRC,LRCMIN,XDEMIC      LRCMIN = 1.0D0      XDEMI = 0.5D0      IT = 0      DO 10 I=1,NBE        CLRC = SPH((I-1)*NBSMAX+3)        IF( CLRC .LT. LRCMIN )THEN          IT = I          LRCMIN = CLRC        ENDIF   10 CONTINUEC      IF( IT.EQ. 0 )THEN        COEF = 1.D0        GOTO 999      ENDIFC     --- CENTRE = PT3 + SPH / 2 ------------------      CALL MUSCVE(SPH((IT-1)*NBSMAX+1),XDEMI,IDIMC,XPT)      NUMP3 = ITRNOE((IT-1)*NBNMAX+3)      CALL SOMMVE(COORD((NUMP3-1)*IDIMC+1),XPT,IDIMC,XPT)C      COEF = LRCMIN  999 END

© Cast3M 2003 - Tous droits réservés.
Mentions légales