1 : C EXCITE SOURCE FANDEUR 11/10/07 21:15:20 7159 2 : 3 : SUBROUTINE EXCITE 4 : 5 : IMPLICIT INTEGER(I-N) 6 : IMPLICIT REAL*8(A-H,O-Z) 7 : 8 : -INC CCOPTIO 9 : 10 : LOGICAL LOGBL 11 : CHARACTER*4 MCLE(3) 12 : DATA MCLE /'RAPI','MOYE','LENT'/ 13 : 14 : ityp = 0 15 : mrigid = 0 16 : mchpo1 = 0 17 : mchpo2 = 0 18 : mchpo3 = 0 19 : meleme = 0 20 : 20 : CALL LIRMOT(MCLE,3,ITYP,0) 21 : IF(IERR.NE.0) RETURN 22 : ITYP=MAX(1,ITYP) 22 : CALL LIROBJ ('RIGIDITE',MRIGID,1,IRETOU) 23 : IF(IERR.NE.0) RETURN 23 : CALL LIROBJ ('CHPOINT ',MCHPO1,1,IRETOU) 24 : IF(IERR.NE.0) RETURN 24 : CALL LIROBJ ('CHPOINT ',MCHPO2,1,IRETOU) 25 : IF(IERR.NE.0) RETURN 25 : CALL LIROBJ ('CHPOINT ',MCHPO3,0,IRETOU) 26 : IF(IERR.NE.0) RETURN 26 : CALL LIROBJ ('MAILLAGE',MELEME,0,IRETOU) 27 : IF(IERR.NE.0) RETURN 28 : 28 : CALL EXCIT1(MRIGID,MCHPO1,MCHPO2,MCHPO3,MLENTI,LOGBL,MRI2, 29 : & MELEME,ITYP) 30 : IF(IERR.NE.0) RETURN 31 : 31 : CALL ECRLOG(LOGBL) 31 : CALL ECROBJ('LISTENTI',MLENTI) 31 : CALL ECROBJ('RIGIDITE',MRI2) 32 : 33 : RETURN 34 : END 35 : 36 :
© Cast3M 2003 - All rights reserved.
Disclaimer