Télécharger la plaquette Cast3M


fr en

Télécharger chiech.eso

Retour à la liste

Numérotation des lignes : 

chiech

  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