copret
C COPRET SOURCE OF166741 24/05/02 21:15:03 11928 * Y a-t-il deja eu preconditionnement ? 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
© Cast3M 2003 - Tous droits réservés.
Mentions légales