Télécharger la plaquette Cast3M


fr en

Télécharger quelch.eso

Retour à la liste

Numérotation des lignes : 

quelch

  1. C QUELCH    SOURCE    PV        09/03/12    21:32:09     6325
  2.       SUBROUTINE QUELCH(IPMELV,IRR)
  3.       IMPLICIT INTEGER(I-N)
  4.       IMPLICIT REAL*8(A-H,O-Z)
  5. *______________________________________________________________________
  6. *
  7. *  ON EXAMINE LE CHAMP POUR VOIR S'IL EST CONSTANT /ELEMENT OU PAS
  8. *
  9. *   ENTREES :
  10. *    IPMELV = POINTEUR SUR UN SEGMENT MELVAL
  11. *
  12. *   SORTIES :
  13. *   IRR     = 0 SI LE CHAMP EST CONSTANT ,=1 SINON
  14. *
  15. *   P DOWLATYARI JUIN 92
  16. *
  17. ****************************************************************************
  18. -INC SMCHAML
  19. -INC CCREEL
  20. *
  21.       IRR=0
  22.       IF(IPMELV.NE.0)THEN
  23.        MELVAL=IPMELV
  24.        NBPTE1=VELCHE(/1)
  25.        NBPTE2=IELCHE(/1)
  26.        IF(NBPTE2.NE.0)THEN
  27.          IF(NBPTE2.EQ.1)THEN
  28.             IRR=0
  29.          ELSE
  30.             IRR=1
  31.          ENDIF
  32.        ELSEIF(NBPTE1.NE.0)THEN
  33.          IF(NBPTE1.EQ.1)THEN
  34.              IRR=0
  35.          ELSE
  36.              NEL=VELCHE(/2)
  37.              DO 10 IB=1,NEL
  38.                VAL=0.D0
  39.                DO 20 IGAU=1,NBPTE1
  40.                   VAL=VAL+VELCHE(IGAU,IB)
  41.   20           CONTINUE
  42.                VALM=VAL/NBPTE1
  43.                xtest=abs(valm * xzprec)
  44.                DO 30  IGAU=1,NBPTE1
  45.                   DELTA=ABS(VELCHE(IGAU,IB)-VALM)
  46.                   IF(DELTA.GT.xtest)THEN
  47.                      IRR=1
  48.                      RETURN
  49.                   ENDIF
  50.   30           CONTINUE
  51.   10       CONTINUE
  52.            IRR=0
  53.          ENDIF
  54.        ENDIF
  55.       ENDIF
  56.       RETURN
  57.       END
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  

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