Sources Esope | Cast3M

copret
C COPRET    SOURCE    OF166741  24/10/21    21:15:07     12042          
 
* Y a-t-il deja eu preconditionnement ?
 
      SUBROUTINE COPRET(IPINI,IPTEST,MACLE)
 
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
 
-INC CCPRECO
 
      INTEGER IPINI,IPTEST
      CHARACTER*(*) MACLE
      CHARACTER*(16) m16cle
 
      m16cle = MACLE
      IPTEST = 0
      DO j = 1, nbepre
        IF (preori(j).EQ.IPINI. AND. precle(j).EQ.m16cle)
     &    IPTEST = prepre(j)
      ENDDO
 
c      return
      END