Esope source files

   1 : C CHIADY    SOURCE    CHAT      05/01/12    21:56:52     5004           
   2 :       SUBROUTINE CHIADY(IDY,II,IDYT,IADY)
   3 : C
   4 : C            RECHERCHE DU NUMERO D'ORDRE DE IDYT DANS IDY
   5 : C              IADY  NUMERO D'ORDRE DE IDYT DANS IDY OU 0
   6 : C              II DIMENSION DE IDY
   7 : C
   8 : C
   9 :       IMPLICIT INTEGER(I-N)
  10 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
  11 :       DIMENSION IDY(*)
  12 :       IADY = 0
  13 :       DO 10 I=1,II                                                              
  14 :       IF(IDY(I).EQ.IDYT)THEN
  15 :          IADY=I
  16 :          GO TO 20
  17 :       ENDIF
  18 : 10    CONTINUE                                                                  
  19 : 20    CONTINUE
  20 :       RETURN                                                                    
  21 :       END                                                                       
  22 :  
  23 :