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 '/ 25 : CALL LIRMOT(MCLE,2,ICLE,0) 26 : IF (ICLE.EQ.0) ICLE=1 27 : WRITE (IOIMP,100) 28 : 100 FORMAT (1H1,12(/)) 28 : CALL GIBI 29 : WRITE (IOIMP,101) 30 : 101 FORMAT(7(/)) 31 : IF (ICLE.EQ.2) GOTO 2000 32 : WRITE (IOIMP,102) 33 : 102 FORMAT(16X,'NOTICE D''UTILISATION DES OPERATEURS DE MAILLAGE',/, 34 : # 16X,'***********************************************') 34 : CALL RAZPIL 35 : DO 1 I=1,NCHAP 36 : IERR=0 36 : CALL GINT2 37 : WRITE (IOIMP,10) CHAP(I) 38 : 10 FORMAT(1H1,/,20X,'CHAPITRE ',A4,/////) 38 : CALL ECRCHA(CHAP(I)) 38 : CALL INFORM 39 : 1 CONTINUE 40 : WRITE (IOIMP,20) 41 : 20 FORMAT (1H1) 42 : RETURN 43 : 2000 CONTINUE 43 : CALL NO2000(MOP,NOP) 44 : END 45 : 46 : 47 :
© Cast3M 2003 - All rights reserved.
Disclaimer