Télécharger la plaquette Cast3M


fr en

Télécharger super.eso

Retour à la liste

Numérotation des lignes : 

super

  1. C SUPER     SOURCE    PV        15/02/19    21:16:09     8406
  2.       SUBROUTINE SUPER
  3.       IMPLICIT INTEGER(I-N)
  4.       IMPLICIT REAL*8(A-H,O-Z)
  5.       CHARACTER*4 MOLIS(4)
  6.  
  7. -INC PPARAM
  8. -INC CCOPTIO
  9.       DATA MOLIS/'RIGI','CHAR','MASS','DEPL'/
  10.       NMOT=4
  11.       CALL LIRMOT(MOLIS,NMOT,IRET,1)
  12.       IF(IERR.NE.0) RETURN
  13.       GO TO (1,2,3,4),IRET
  14.    1  CALL SUPRI
  15.       RETURN
  16.    2  CALL SUPCHA
  17.       RETURN
  18.    3  CALL SUPMAS
  19.       RETURN
  20.    4  CALL SUPDEP
  21.       RETURN
  22.       END
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  

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