Esope source files

   1 : C COPRET    SOURCE    CHAT      05/01/12    22:20:53     5004           
   2 :        SUBROUTINE COPRET(IPINI,IPTEST,MACLE)
   3 : * y a t il deja eu preconditionnement
   4 :       IMPLICIT INTEGER(I-N)
   5 : -INC CCPRECO
   6 :        INTEGER IPINI,IPTEST
   7 :        CHARACTER*16 macle
   8 : 
   9 :        iptest = 0 
  10 :        do j = 1,30
  11 :         if (preori(j).eq.ipini.and.precle(j).eq.macle) 
  12 :      &    iptest = prepre(j)
  13 :        enddo
  14 : 
  15 :        return
  16 :        end 
  17 :