Télécharger la plaquette Cast3M


fr en

Télécharger excite.eso

Retour à la liste

Numérotation des lignes : 

excite

  1. C EXCITE    SOURCE    PV090527  24/11/11    21:15:02     12068          
  2.  
  3.       SUBROUTINE EXCITE
  4.  
  5.       IMPLICIT INTEGER(I-N)
  6.       IMPLICIT REAL*8(A-H,O-Z)
  7.  
  8.  
  9. -INC PPARAM
  10. -INC CCOPTIO
  11.  
  12.       LOGICAL LOGBL
  13.       CHARACTER*4 MCLE(3)
  14.       DATA MCLE /'RAPI','MOYE','LENT'/
  15.  
  16.       ityp   = 0
  17.       mrigid = 0
  18.       mchpo1 = 0
  19.       mchpo2 = 0
  20.       mchpo3 = 0
  21.       meleme = 0
  22.  
  23.       CALL LIRMOT(MCLE,3,ITYP,0)
  24.       IF(IERR.NE.0) RETURN
  25.       ITYP=MAX(1,ITYP)
  26.       CALL LIROBJ ('RIGIDITE',MRIGID,1,IRETOU)
  27.       IF(IERR.NE.0) RETURN
  28.       CALL LIROBJ ('CHPOINT ',MCHPO1,1,IRETOU)
  29.       IF(IERR.NE.0) RETURN
  30.       CALL LIROBJ ('CHPOINT ',MCHPO2,1,IRETOU)
  31.       IF(IERR.NE.0) RETURN
  32.       CALL LIROBJ ('CHPOINT ',MCHPO4,1,IRETOU)
  33.       IF(IERR.NE.0) RETURN
  34.       CALL LIROBJ ('CHPOINT ',MCHPO3,0,IRETOU)
  35.       IF(IERR.NE.0) RETURN
  36.  
  37.       CALL EXCIT1(MRIGID,MCHPO1,MCHPO2,MCHPO3,MLENTI,LOGBL,MRI2,
  38.      &            MCHPO4,ITYP,MCHPO4)
  39.       IF(IERR.NE.0) RETURN
  40.  
  41.       CALL ECRLOG(LOGBL)
  42.       CALL ECROBJ('LISTENTI',MLENTI)
  43.       CALL ECROBJ('RIGIDITE',MRI2)
  44.  
  45.       RETURN
  46.       END
  47.  
  48.  
  49.  
  50.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales