Télécharger la plaquette Cast3M


fr en

Télécharger notice.eso

Retour à la liste

Numérotation des lignes : 

notice

  1. C NOTICE    SOURCE    CHAT      06/04/05    21:15:14     5369
  2. C    EDITION DE LA NOTICE SUR LE FICHIER LISTING
  3. C
  4.       SUBROUTINE NOTICE(MOP,NOP)
  5.       IMPLICIT INTEGER(I-N)
  6. -INC PPARAM
  7. -INC CCOPTIO
  8. -INC CCASSIS
  9.       CHARACTER*4 MCLE(2),MOP(*)
  10.       CHARACTER*4 CHAP(105)
  11.       DATA MCLE /'GIBI','CAST'/
  12.       DATA NCHAP /105/
  13.       DATA CHAP/'GIBI','EXEM','DEBU','NOUV','ABS ','AFFI','ATG ','BARY',
  14.      #   'CERC','CER3','CHAN','COMM','COMP','CONF','CONT','COOR','COS ',
  15.      #   'COTE','COUR',
  16.      #   'COUT','CUBP','CUBT','DALL','DEBP','DENS','DEPL','DIFF',
  17.      #   'DIGI','DROI','EGA ','ELEM','ELIM','ENTI','ENVE','ET  ','EXP ',
  18.      #   'FACE','FIN ','FINP','FINS','FLOT','GENE','HOMO','INCL','INTE',
  19.      #   'INVE','LIAI','LIRE','LIST','LOG ','MANU','MENA',
  20.      #   'MESS','MODI','MOIN',
  21.      #   'MOT ','NBEL','NBNO','NEG ','NOEU','NON ','NORM','OBTE','OPTI',
  22.      #   'ORIE','OU  ','OUBL','PARA','PAVE','PLUS','PMIX','POIN','PROJ',
  23.      #   'PSCA','PVEC','QUEL','QUIT','RACC','REGE','REGL','REPE','ROTA',
  24.      #   'SI  ','SIN ','SINO','SORT','SURF','SYME','TASS','TEXT','TITR',
  25.      #   'TOUR','TRAC','TRAN','VERS','VOLU','+   ','-   ','*   ','/   ',
  26.      #   '**  ','<   ','>   ','<EG ','>EG '/
  27.       CALL LIRMOT(MCLE,2,ICLE,0)
  28.       IF (ICLE.EQ.0) ICLE=1
  29.       WRITE (IOIMP,100)
  30.  100  FORMAT (1H1,12(/))
  31.       CALL GIBI
  32.       WRITE (IOIMP,101)
  33.  101  FORMAT(7(/))
  34.       IF (ICLE.EQ.2) GOTO 2000
  35.       WRITE (IOIMP,102)
  36.  102  FORMAT(16X,'NOTICE D''UTILISATION DES OPERATEURS DE MAILLAGE',/,
  37.      #       16X,'***********************************************')
  38.       CALL RAZPIL
  39.       DO 1 I=1,NCHAP
  40.       IERR=0
  41.       CALL GINT2
  42.       WRITE (IOIMP,10) CHAP(I)
  43.   10  FORMAT(1H1,/,20X,'CHAPITRE ',A4,/////)
  44.       CALL ECRCHA(CHAP(I))
  45.       CALL INFORM
  46.    1  CONTINUE
  47.       WRITE (IOIMP,20)
  48.   20  FORMAT (1H1)
  49.       RETURN
  50.  2000 CONTINUE
  51.       CALL NO2000(MOP,NOP)
  52.       END
  53.  
  54.  
  55.  
  56.  

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