Sources Esope | Cast3M

chitr1
C CHITR1    SOURCE    CHAT      05/01/12    21:58:31     5004
       SUBROUTINE CHITR1(IDSCHI,IZIADR,IADH,LBDD)
C ------------------------------------------------------------------
C
C        SP ISSU DE TRICHI DANS TRIOEF
C        APPELE PAR CHIMI1
C  ON CLASSE DANS IADR LES IDENTIFICATEURS DES ESPECES DE  TYPE 3
C
C ------------------------------------------------------------------
 
 
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
 
      SEGMENT IDSCHI
           REAL*8 GK(NYDIM),AA(NYDIM,NXDIM),FF(NZDIM,NPDIM)
           INTEGER IDX(NXDIM),IDY(NYDIM),IDZ(NZDIM),IDP(NPDIM),NN(6)
           INTEGER IDECY(NYDIM),IONZ(NXDIM)
           CHARACTER*32 NAME(NXDIM),NAMESP(NYDIM)
      ENDSEGMENT
      SEGMENT IZIADR
            INTEGER IADR(NCR)
      ENDSEGMENT
 
      NXDIM=IDX(/1)
      NYDIM=IDY(/1)
      NZDIM=IDZ(/1)
      NPDIM=IDP(/1)
 
        NCR=NN(3)
      IADH=0
      IZIADR=0
      IF(NCR.NE.0)THEN
        SEGINI IZIADR
 
        IADH=0
        IJ = 0
        IL = NN(1)+NN(2)+1
        IK = NN(1)+NN(2)+NN(3)
      IF(LBDD.EQ.0) THEN
        DO 20 II = IL , IK
        IJ = II-IL+1
        IADR(IJ)=IDY(II)
   20 CONTINUE
      ELSEIF(LBDD.EQ.1) THEN
 
        DO 30 II = IL , IK
CBRUNO
        IF(IDY(II).NE.2122) THEN
        IJ = IJ + 1
        IADR(IJ)=IDY(II)
        ELSE
        IADH=IDY(II)
        ENDIF
   30 CONTINUE
        IF(IJ.NE.0)THEN
              NCR=IJ
              SEGADJ IZIADR
        ELSE
              SEGSUP IZIADR
              IZIADR=0
        ENDIF
      ENDIF
 
CBRUNO
*
      ENDIF
      RETURN
  50   FORMAT(8(I10))
  51   FORMAT(10(1X,1PE12.5))
 
       END