Télécharger notice.eso

Retour à la liste

Numérotation des lignes :

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

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