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. -INC CCOPTIO
  12. POINTEUR IZECH.MLENTI
  13. SEGMENT IDSCHI
  14. REAL*8 GK(NYDIM),AA(NYDIM,NXDIM),FF(NZDIM,NPDIM)
  15. INTEGER IDX(NXDIM),IDY(NYDIM),IDZ(NZDIM),IDP(NPDIM),NN(6)
  16. INTEGER IDECY(NYDIM),IONZ(NXDIM)
  17. CHARACTER*32 NAME(NXDIM),NAMESP(NYDIM)
  18. ENDSEGMENT
  19. INTEGER LINIT
  20. C
  21. SEGACT IZECH
  22. IECH=IZECH.LECT(/1)
  23. DO 10 I=1,IECH
  24. IDF=IZECH.LECT(I)
  25. LINIT=1
  26. CALL CHIREX(IDSCHI,IDF,LINIT,6 )
  27. 10 CONTINUE
  28. NXDIM=IDX(/1)
  29. IDEB=NN(1)+1
  30. IFIN=NN(1)+NN(2)
  31. DO 30 IY=IDEB,IFIN
  32. DO 20 I=1,IECH
  33. IDF=IZECH.LECT(I)
  34. CALL CHIADY(IDX,NXDIM,IDF,IX)
  35. IF(ABS(AA(IY,IX)).GT.1.D-4)THEN
  36. IDECY(IY)=1
  37. ENDIF
  38. 20 CONTINUE
  39. 30 CONTINUE
  40. SEGDES IZECH
  41. RETURN
  42. END
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  

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