1 : C ECNUAG SOURCE CHAT 06/03/16 21:17:08 5336 2 : SUBROUTINE ECNUAG(INUA) 3 : *---------------------------------------------------------------------- 4 : * IMPRESSION D'UN OBJET DE TYPE NUAGE 5 : *---------------------------------------------------------------------- 6 : IMPLICIT INTEGER(I-N) 7 : -INC CCOPTIO 8 : -INC SMNUAGE 9 : -INC CCNOYAU 10 : CHARACTER*(8) ITYPE,INOM,IWR(5) 11 : CHARACTER*4 FAUX,VRAI 12 : CHARACTER*8 IWRI 13 : REAL*8 XRR(5) 14 : INTEGER INRE(5) 15 : LOGICAL BRET 16 : MNUAGE=INUA 17 : SEGACT MNUAGE 18 : INTERR(1) = MNUAGE 19 : NVAR=NUAPOI(/1) 20 : ITYPE=NUATYP(1) 21 : IF( ITYPE.EQ.'FLOTTANT') THEN 22 : NUAVFL=NUAPOI(1) 23 : SEGACT NUAVFL 24 : NBCOUP=NUAFLO(/1) 25 : ELSEIF(ITYPE.EQ.'LOGIQUE ') THEN 26 : NUAVLO=NUAPOI(1) 27 : SEGACT NUAVLO 28 : NBCOUP=NUALOG(/1) 29 : ELSEIF(ITYPE.EQ.'MOT ') THEN 30 : NUAVMO=NUAPOI(1) 31 : SEGACT NUAVMO 32 : NBCOUP=NUAMOT(/2) 33 : ELSE 34 : NUAVIN=NUAPOI(1) 35 : SEGACT NUAVIN 36 : NBCOUP=NUAINT(/1) 37 : ENDIF 38 : INTERR(2)=NVAR 39 : INTERR(3)=NBCOUP 39 : CALL ERREUR(-287) 40 : 513 FORMAT(5(2X,I8)) 41 : 514 FORMAT(5(1X,1PE9.2)) 42 : 515 FORMAT(5(2X,A8)) 43 : DO 1 IV=1,NVAR 44 : MOTERR(1:8)=NUANOM(IV) 45 : MOTERR(9:16)=NUATYP(IV) 46 : INTERR(1)= IV 46 : CALL ERREUR(-288) 47 : ITYPE=NUATYP(IV) 48 : IF( ITYPE.EQ.'FLOTTANT') THEN 49 : NUAVFL=NUAPOI(IV) 50 : SEGACT NUAVFL 51 : NBCOUP=NUAFLO(/1) 52 : NN = 0 53 : DO 12 K = 1,NBCOUP,5 54 : NI = MIN ( 5 , NBCOUP - NN) 55 : DO 13 NW = 1, NI 56 : XRR(NW)=NUAFLO(K-1+NW) 57 : 13 CONTINUE 58 : WRITE(IOIMP,514) (XRR(IK),IK=1,NI) 59 : NN = NN + 5 60 : 12 CONTINUE 61 : SEGDES NUAVFL 62 : ELSEIF(ITYPE.EQ.'LOGIQUE ') THEN 63 : NUAVLO=NUAPOI(IV) 64 : SEGACT NUAVLO 65 : NBCOUP=NUALOG(/1) 66 : NN = 0 67 : DO 121 K = 1,NBCOUP,5 68 : NI = MIN ( 5 , NBCOUP - NN) 69 : DO 131 NW = 1, NI 70 : IWR(NW) = 'FAUX' 71 : IF( NUALOG(K-1+NW)) IWR(NW) ='VRAI' 72 : 131 CONTINUE 73 : WRITE(IOIMP,515) (IWR(IK),IK=1,NI) 74 : NN = NN + 5 75 : 121 CONTINUE 76 : SEGDES NUAVLO 77 : ELSEIF(ITYPE.EQ.'MOT ') THEN 78 : NUAVMO=NUAPOI(IV) 79 : SEGACT NUAVMO 80 : NBCOUP=NUAMOT(/2) 81 : NN = 0 82 : DO 122 K = 1,NBCOUP,5 83 : NI = MIN ( 5 , NBCOUP - NN) 84 : DO 132 NW = 1, NI 85 : IWR(NW) = NUAMOT(K-1+NW) 86 : 132 CONTINUE 87 : WRITE(IOIMP,515) (IWR(IK),IK=1,NI) 88 : NN = NN + 5 89 : 122 CONTINUE 90 : SEGDES NUAVMO 91 : ELSE 92 : NUAVIN=NUAPOI(IV) 93 : SEGACT NUAVIN 94 : NBCOUP=NUAINT(/1) 95 : NN = 0 96 : DO 123 K = 1,NBCOUP,5 97 : NI = MIN ( 5 , NBCOUP - NN) 98 : DO 133 NW = 1, NI 99 : INRE(NW) = NUAINT(K-1+NW) 100 : 133 CONTINUE 101 : WRITE(IOIMP,513) (INRE(IK),IK=1,NI) 102 : NN = NN + 5 103 : 123 CONTINUE 104 : SEGDES NUAVIN 105 : ENDIF 106 : 1 CONTINUE 107 : SEGDES MNUAGE 108 : RETURN 109 : END 110 :
© Cast3M 2003 - All rights reserved.
Disclaimer