compre
C COMPRE SOURCE OF166741 24/05/02 21:15:03 11928 * gere le common de pointeurs CMPREC pour COMP IMPLICIT INTEGER(I-N) IMPLICIT REAL*8(A-H,O-Z) -INC CCPRECO INTEGER IPINI,IPPRE CHARACTER*(*) MACLE DO j = nbepre, 2, -1 preori(j) = preori(j-1) prepre(j) = prepre(j-1) precle(j) = precle(j-1) ENDDO preori(1) = IPINI prepre(1) = IPPRE precle(1) = ' ' precle(1) = MACLE c return END
© Cast3M 2003 - Tous droits réservés.
Mentions légales