Télécharger la plaquette Cast3M


fr en

Télécharger main.eso

Retour à la liste

Numérotation des lignes : 

main

  1. C MAIN      SOURCE    PV090527  24/01/19    21:15:05     11827          
  2. CCC
  3. C     PROGRAMME GIBI   MAIN     INITIALISATIONS VARIEES
  4. C
  5.       PROGRAM CAST3M
  6.  
  7.  
  8. -INC PPARAM
  9. -INC CCOPTIO
  10. -INC SMCOORD
  11. -INC CCREDLE
  12. -INC CCASSIS
  13.  
  14.       CHARACTER*1 AREA
  15.       INTEGER     ICODE
  16.  
  17.       if (ioimp.le.0) then
  18.         write(6,*) 'Erreur d''installation: Block Data non charge'
  19.         stop 12
  20.       endif
  21.  
  22. C  Prologue: controle et verification avant execution
  23. C  l'epilogue est appelle dans fin, avant le stop
  24.       CALL PROLOG
  25.  
  26. C  Initialisations variees deplacees dans debut
  27.       CALL DEBUT
  28.  
  29.  
  30. C  FIN DES INITIALISATIONS
  31.       CALL PILOT
  32.  
  33.       CALL FIN
  34.       STOP
  35.       END
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  

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