1 : C ECMAI1 SOURCE FANDEUR 14/01/16 21:15:01 7905 2 : SUBROUTINE ECMAI1 (IELEME,jentet) 3 : ************************************************************************ 4 : * 5 : * E C M A I 1 6 : * ----------- 7 : * 8 : * FONCTION: 9 : * --------- 10 : * 11 : * IMPRESSION D'UN MAILLAGE A UN SEUL TYPE D'ELEMENT. 12 : * 13 : * MODULES UTILISES: 14 : * ----------------- 15 : * 16 : IMPLICIT INTEGER(I-N) 17 : * 18 : -INC CCOPTIO 19 : -INC CCGEOME 20 : -INC SMELEME 21 : * 22 : * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN) 23 : * ----------- 24 : * 25 : * IELEME (E) POINTEUR D'UN SEGMENT "MELEME". 26 : * ON NE VERIFIE PAS QU'IL CORRESPOND A UN MAILLAGE A 27 : * UN SEUL TYPE D'ELEMENT. 28 : * 29 : * AUTEUR, DATE DE CREATION: 30 : * ------------------------- 31 : * 32 : * REPRISE: PASCAL MANIGOT 11 SEPTEMBRE 1987 33 : * 34 : * LANGAGE: 35 : * -------- 36 : * 37 : * ESOPE + FORTRAN77 38 : * 39 : ************************************************************************ 40 : * 41 : MELEME = IELEME 42 : SEGACT MELEME 43 : NBNN=NUM(/1) 44 : NBELEM=NUM(/2) 45 : NBREF=LISREF(/1) 46 : INTERR(1)=MELEME 47 : INTERR(2)=NBELEM 48 : INTERR(3)=NBREF 49 : IF (ITYPEL.LE.0) THEN 50 : MOTERR(1:4)=' ' 51 : ELSE 52 : MOTERR(1:4)=NOMS(ITYPEL) 53 : ENDIF 53 : CALL ERREUR(-19) 54 : IF (NBREF.NE.0) THEN 54 : CALL ERREUR(-18) 55 : WRITE(IOIMP,2145) (LISREF(J),J=1,NBREF) 56 : 2145 FORMAT(8(1X,I9)) 57 : END IF 58 : * 59 : NBE=NBELEM 60 : if(jentet.eq.1) then 61 : NBE=MIN(10,NBELEM) 62 : endif 63 : DO 146 L=1,NBE,10 64 : if (ierr.ne.0) return 65 : LH = MIN(L+9,NBELEM) 65 : CALL ERREUR(-20) 66 : WRITE (IOIMP,147) (M,M=L,LH) 67 : 147 FORMAT(5X,10I8) 68 : WRITE (IOIMP,138) (NCOUL(ICOLOR(M)),M=L,LH) 69 : 138 FORMAT(5X,10A8) 70 : WRITE (IOIMP,'(1X)') 71 : DO 148 J=1,NBNN 72 : WRITE(IOIMP,149) (NUM(J,K),K=L,LH) 73 : 149 FORMAT (5X,10I8) 74 : 148 CONTINUE 75 : * END DO 76 : 146 CONTINUE 77 : * END DO 78 : * 79 : SEGDES,MELEME 80 : * 81 : RETURN 82 : END 83 : 84 :
© Cast3M 2003 - All rights reserved.
Disclaimer