Télécharger chiech.eso

Retour à la liste

Numérotation des lignes :

  1. C CHIECH SOURCE CHAT 05/01/12 21:57:12 5004
  2. SUBROUTINE CHIECH(IZECH,IDSCHI)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. C------------------------------------------------------------------
  6. C
  7. C PRISE EN COMPTE DES ECHANGES
  8. C
  9. C------------------------------------------------------------------
  10. -INC SMLENTI
  11.  
  12. -INC PPARAM
  13. -INC CCOPTIO
  14. POINTEUR IZECH.MLENTI
  15. SEGMENT IDSCHI
  16. REAL*8 GK(NYDIM),AA(NYDIM,NXDIM),FF(NZDIM,NPDIM)
  17. INTEGER IDX(NXDIM),IDY(NYDIM),IDZ(NZDIM),IDP(NPDIM),NN(6)
  18. INTEGER IDECY(NYDIM),IONZ(NXDIM)
  19. CHARACTER*32 NAME(NXDIM),NAMESP(NYDIM)
  20. ENDSEGMENT
  21. INTEGER LINIT
  22. C
  23. SEGACT IZECH
  24. IECH=IZECH.LECT(/1)
  25. DO 10 I=1,IECH
  26. IDF=IZECH.LECT(I)
  27. LINIT=1
  28. CALL CHIREX(IDSCHI,IDF,LINIT,6 )
  29. 10 CONTINUE
  30. NXDIM=IDX(/1)
  31. IDEB=NN(1)+1
  32. IFIN=NN(1)+NN(2)
  33. DO 30 IY=IDEB,IFIN
  34. DO 20 I=1,IECH
  35. IDF=IZECH.LECT(I)
  36. CALL CHIADY(IDX,NXDIM,IDF,IX)
  37. IF(ABS(AA(IY,IX)).GT.1.D-4)THEN
  38. IDECY(IY)=1
  39. ENDIF
  40. 20 CONTINUE
  41. 30 CONTINUE
  42. SEGDES IZECH
  43. RETURN
  44. END
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  

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