Sources Esope | Cast3M

copret
C COPRET    SOURCE    CB215821  17/12/07    21:15:05     9656           
       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