C COPRET    SOURCE    CHAT      05/01/12    22:20:53     5004           
       SUBROUTINE COPRET(IPINI,IPTEST,MACLE)
* y a t il deja eu preconditionnement
      IMPLICIT INTEGER(I-N)
-INC CCPRECO
       INTEGER IPINI,IPTEST
       CHARACTER*16 macle

       iptest = 0 
       do j = 1,30
        if (preori(j).eq.ipini.and.precle(j).eq.macle) 
     &    iptest = prepre(j)
       enddo

       return
       end