excite
C EXCITE SOURCE FANDEUR 11/10/07 21:15:20 7159 SUBROUTINE EXCITE IMPLICIT INTEGER(I-N) IMPLICIT REAL*8(A-H,O-Z) -INC PPARAM -INC CCOPTIO LOGICAL LOGBL CHARACTER*4 MCLE(3) DATA MCLE /'RAPI','MOYE','LENT'/ ityp = 0 mrigid = 0 mchpo1 = 0 mchpo2 = 0 mchpo3 = 0 meleme = 0 IF(IERR.NE.0) RETURN ITYP=MAX(1,ITYP) IF(IERR.NE.0) RETURN IF(IERR.NE.0) RETURN IF(IERR.NE.0) RETURN IF(IERR.NE.0) RETURN IF(IERR.NE.0) RETURN & MELEME,ITYP) IF(IERR.NE.0) RETURN RETURN END
© Cast3M 2003 - Tous droits réservés.
Mentions légales