1 : C ECMATT SOURCE CHAT 05/01/12 23:23:52 5004 2 : SUBROUTINE ECMATT(IRET,jentet) 3 : IMPLICIT INTEGER(I-N) 4 : IMPLICIT REAL*8(A-H,O-Z) 5 : CHARACTER*3 MOTAXE 6 : CHARACTER*5 MROTOR 7 : CHARACTER*6 MSTATO 8 : CHARACTER*7 MINERT 9 : CHARACTER*9 MINCON 10 : CHARACTER*11 MOTST1,MOTST2 11 : CHARACTER*16 MOTSS1,MOTSS2 12 : CHARACTER*19 MOTVIT 13 : CHARACTER*20 MOTAB2,MOTAB1 14 : CHARACTER*22 MOTPRO 15 : CHARACTER*46 MCARA2 16 : CHARACTER*49 MCARA1 17 : LOGICAL LOGI 18 : CHARACTER*8 CHARI 19 : C 20 : C =================================================================== 21 : C = ECRITURE D'UN OBJET ATTACHE = 22 : C = PROGRAMMEUR GUILBAUD = 23 : C = CREATION / /85 = 24 : C =================================================================== 25 : -INC SMATTAC 26 : -INC CCOPTIO 27 : -INC SMCHPOI 28 : -INC SMLMOTS 29 : -INC SMELEME 30 : -INC SMCOORD 31 : -INC SMSTRUC 32 : SEGMENT STRAV 33 : CHARACTER*4 ITRAV(0) 34 : ENDSEGMENT 35 : SEGMENT IWORK(0) 36 : SEGMENT ICPR(XCOOR(/1)/(IDIM+1)) 37 : SEGMENT ITAB(0) 38 : SEGMENT/JTAB/(TABL(IFI)*D) 39 : SEGMENT ITPOI(N) 40 : SEGMENT ITMEL(N) 41 : SEGMENT/MTSTR/(ITSTR(N)) 42 : SEGMENT ITMAS(NATTA) 43 : SEGMENT ITMSP(NATTA) 44 : SEGMENT ITMSC(NATTA) 45 : SEGMENT ITMSD(NATTA) 46 : CHARACTER*4 IETOI,NOMC 47 : DATA IETOI/'****'/ 48 : DATA LONREF/8/ 49 : DATA MOTAXE/'AXE'/ 50 : DATA MOTST1/'STRUCTURE 1'/ 51 : DATA MOTST2/'STRUCTURE 2'/ 52 : DATA MOTSS1/'SOUS-STRUCTURE 1'/ 53 : DATA MOTSS2/'SOUS-STRUCTURE 2'/ 54 : DATA MOTAB1/'POINT 1 DU MECANISME'/ 55 : DATA MOTAB2/'POINT 2 DU MECANISME'/ 56 : DATA MOTPRO/'CONSIGNE EN PROPORTION'/ 57 : DATA MOTVIT/'CONSIGNE EN VITESSE'/ 58 : DATA MINERT/'INERTIE'/,MINCON/'INCONNUES'/ 59 : DATA MROTOR/'ROTOR'/ 60 : DATA MSTATO/'STATOR'/ 61 : DATA MCARA1/'CARACTERISTIQUE DE L ASSERVISSEMENT EN PROPORTION'/ 62 : DATA MCARA2/'CARACTERISTIQUE DE L ASSERVISSEMENT EN VITESSE'/ 63 : DO 5 I=1,LONREF 64 : 5 CONTINUE 65 : MATTAC=IRET 66 : INTERR(1)=MATTAC 66 : CALL ERREUR(-35) 67 : WRITE(IOIMP,102) 68 : 102 FORMAT(10X,'* MSOUMA * ITYATT * IATREL *') 69 : SEGACT MATTAC 70 : NATTA=LISATT(/1) 71 : DO 20 IL=1,NATTA 72 : MSOUMA=LISATT(IL) 73 : SEGACT MSOUMA 74 : WRITE(IOIMP,103) MSOUMA,ITYATT,IATREL(1) 75 : 103 FORMAT(10X,'* ',I4,' * ',A4,' * ',I4,' * ') 76 : NRELA=IATREL(/1) 77 : DO 10 IN=2,NRELA 78 : WRITE(IOIMP,104) IATREL(IN) 79 : 104 FORMAT(10X,2('* '),'* ',I4,' *') 80 : 10 CONTINUE 81 : 20 CONTINUE 82 : IMECA=0 83 : IASSE=0 84 : ICHOC=0 85 : IDEVE=0 86 : SEGINI ITMAS,ITMSP,ITMSC,ITMSD 87 : DO 25 IL=1,NATTA 88 : MSOUMA=LISATT(IL) 89 : SEGACT MSOUMA 90 : IF(ITYATT.EQ.'ASSE') GOTO 2100 91 : IF(ITYATT.EQ.'MECA') GOTO 21 92 : IF(ITYATT.EQ.'FLUI') GOTO 21 93 : IF(ITYATT.EQ.'DEPI') GOTO 21 94 : IF(ITYATT.EQ.'CHOC') GOTO 22 95 : IF(ITYATT.EQ.'DEVE') GOTO 23 96 : GOTO 24 97 : 2100 IASSE=IASSE+1 98 : ITMAS(IASSE)=MSOUMA 99 : GOTO 24 100 : 21 IMECA=IMECA+1 101 : ITMSP(IMECA)=MSOUMA 102 : GOTO 24 103 : 22 ICHOC=ICHOC+1 104 : ITMSC(ICHOC)=MSOUMA 105 : GOTO 24 106 : 23 IDEVE=IDEVE+1 107 : ITMSD(IDEVE)=MSOUMA 108 : 24 CONTINUE 109 : M=IPMATK(/1) 110 : IF(M.EQ.0) GOTO 190 111 : INTERR(1)=MSOUMA 111 : CALL ERREUR(-36) 112 : DO 180 MM=1,M 113 : C ECRITURE D'UN OBJET RIGIDITE 114 : IRET=IPMATK(MM) 114 : CALL PRRIGI(IRET,jentet) 115 : 180 CONTINUE 116 : 190 CONTINUE 117 : SEGDES MSOUMA 118 : 25 CONTINUE 119 : IF(IMECA.EQ.0) GOTO 175 120 : C 121 : C TRATEMENT DES LIAISONS MECANIQUES PERMANENTES 122 : C 122 : CALL ERREUR(-37) 123 : SEGINI IWORK 124 : NBSTRU=0 125 : DO 170 IL=1,IMECA 126 : MSOUMA=ITMSP(IL) 127 : SEGACT MSOUMA 128 : NRELA=IATREL(/1) 129 : SEGINI STRAV 130 : LONTRA=0 131 : DO 80 IN=1,NRELA 132 : MJONCT=IATREL(IN) 133 : SEGACT MJONCT 134 : NS=ISTRJO(/1) 135 : DO 70 N=1,NS 136 : C MISE EN MEMOIRE DES SOUS-STRUCTURES INTERVENANT DANS LA LIAISON 137 : MSOSTU=ISTRJO(N) 138 : IF(NBSTRU.EQ.0) GOTO 28 139 : DO 27 I=1,NBSTRU 140 : IF(MSOSTU.EQ.IWORK(I)) GOTO 29 141 : 27 CONTINUE 142 : 28 IWORK(**)=MSOSTU 143 : NBSTRU=NBSTRU+1 144 : 29 CONTINUE 145 : MCHPOI=IPCHJO(N) 146 : SEGACT MCHPOI 147 : NSOUPO=IPCHP(/1) 148 : DO 60 L=1,NSOUPO 149 : MSOUPO=IPCHP(L) 150 : SEGACT MSOUPO 151 : NC=NOCOMP(/2) 152 : DO 50 NCC=1,NC 153 : NOMC=NOCOMP(NCC) 154 : IF(LONTRA.EQ.0) GOTO 40 155 : DO 30 I=1,LONTRA 156 : IF(NOMC.EQ.ITRAV(I)) GOTO 50 157 : 30 CONTINUE 158 : 40 ITRAV(**)=NOMC 159 : 50 CONTINUE 160 : LONTRA=ITRAV(/2) 161 : SEGDES MSOUPO 162 : 60 CONTINUE 163 : SEGDES MCHPOI 164 : 70 CONTINUE 165 : SEGDES MJONCT 166 : 80 CONTINUE 167 : IECRI=(LONTRA-1)/LONREF+1 168 : DO 160 IN=1,NRELA 169 : MJONCT=IATREL(IN) 170 : SEGACT MJONCT 171 : MELEME=MJOPOI 172 : SEGACT MELEME 173 : IJOPOI=NUM(1,1) 174 : SEGDES MELEME 175 : INTERR(1)=IN 176 : INTERR(2)=MJONCT 177 : INTERR(3)=IJOPOI 178 : MOTERR(1:4)=MJOTYP 179 : MOTERR(5:8)=MJODDL 179 : CALL ERREUR(-38) 180 : NS=ISTRJO(/1) 181 : DO 150 N=1,NS 182 : MCHPOI=IPCHJO(N) 183 : MSOSTU=ISTRJO(N) 184 : WRITE(IOIMP,107) MSOSTU,MCHPOI 185 : 107 FORMAT(/10X,' MSOSTU =',I4,' MCHPOI =',I4/) 186 : IDEB=1 187 : IFIN=MIN(LONTRA,LONREF) 188 : IDEC=0 189 : DO 145 IE=1,IECRI 190 : IFI=IFIN-IDEB+1 191 : WRITE(IOIMP,108)(IETOI,I=1,IFI) 192 : 108 FORMAT(1X,'**********',8(A4,'***********')) 193 : WRITE(IOIMP,109) (ITRAV(I),I=IDEB,IFIN) 194 : 109 FORMAT(1X,'* POINTS *',8(' ',A4,' *')) 195 : WRITE(IOIMP,108)(IETOI,I=1,IFI) 196 : SEGACT MCHPOI 197 : NSOUPO=IPCHP(/1) 198 : DO 140 L=1,NSOUPO 199 : MSOUPO=IPCHP(L) 200 : SEGACT MSOUPO 201 : MELEME=IGEOC 202 : SEGACT MELEME 203 : NBPT=NUM(/2) 204 : NC=NOCOMP(/2) 205 : SEGINI ITAB 206 : DO 110 NCC=1,NC 207 : NOMC=NOCOMP(NCC) 208 : ITAB(**)=0 209 : DO 85 I=IDEB,IFIN 210 : II=I 211 : IF(NOMC.EQ.ITRAV(I)) GOTO 90 212 : 85 CONTINUE 213 : GOTO 110 214 : 90 ITAB(NCC)=II-IDEC 215 : 110 CONTINUE 216 : SEGINI JTAB 217 : DO 115 I=1,IFI 218 : TABL(I)=0.D0 219 : 115 CONTINUE 220 : MPOVAL=IPOVAL 221 : SEGACT MPOVAL 222 : DO 130 NBP=1,NBPT 223 : DO 120 NCC=1,NC 224 : IT=ITAB(NCC) 225 : IF(IT.EQ.0) GOTO 120 226 : TABL(IT)=VPOCHA(NBP,NCC) 227 : 120 CONTINUE 228 : IWRITE=NUM(1,NBP) 229 : WRITE(IOIMP,111) IWRITE,(TABL(I),I=1,IFI) 230 : 111 FORMAT(1X,'* ',I4,' *',8(1X,1PE12.5,' *')) 231 : 130 CONTINUE 232 : SEGDES MELEME 233 : SEGSUP JTAB 234 : SEGDES MPOVAL 235 : SEGDES MSOUPO 236 : SEGSUP ITAB 237 : 140 CONTINUE 238 : WRITE(IOIMP,108)(IETOI,I=1,IFI) 239 : SEGDES MCHPOI 240 : IDEB=IFIN+1 241 : IDEC=IFIN 242 : IFIN=(IE+1)*LONREF 243 : IFIN=MIN(LONTRA,IFIN) 244 : 145 CONTINUE 245 : 150 CONTINUE 246 : SEGDES MJONCT 247 : 160 CONTINUE 248 : SEGSUP STRAV 249 : 165 SEGDES MSOUMA 250 : WRITE(IOIMP,121) 251 : 121 FORMAT(/) 252 : 170 CONTINUE 253 : SEGSUP IWORK 254 : 175 IF(ICHOC.EQ.0) GOTO 550 255 : C 256 : C TRAITEMENT DES CHOCS 257 : C 258 : DO 540 IL=1,ICHOC 259 : MSOUMA=ITMSC(IL) 260 : SEGACT MSOUMA 261 : NRELA=IATREL(/1) 262 : N=2*NRELA 263 : SEGINI ITPOI,MTSTR,ITMEL 264 : DO 215 NR=1,NRELA 265 : MJONCT=IATREL(NR) 266 : SEGACT MJONCT 267 : DO 210 NS=1,2 268 : INS=(NS-1)*NRELA+NR 269 : ITSTR(INS)=ISTRJO(NS) 270 : MCHPOI=IPCHJO(NS) 271 : SEGACT MCHPOI 272 : MSOUPO=IPCHP(1) 273 : SEGACT MSOUPO 274 : MELEME=IGEOC 275 : SEGACT MELEME 276 : ITPOI(INS)=NUM(1,1) 277 : SEGDES MELEME,MSOUPO,MCHPOI 278 : MELEME=IPOSJO(NS) 279 : SEGACT MELEME 280 : ITMEL(INS)=NUM(1,1) 281 : SEGDES MELEME 282 : 210 CONTINUE 283 : 215 SEGDES MJONCT 284 : INTERR(1)= MSOUMA 285 : IECRI=(NRELA-1)/12+1 286 : IDEB=1 287 : IFIN=MIN(NRELA,12) 288 : DO 220 IE=1,IECRI 288 : CALL ERREUR(-40) 289 : WRITE(IOIMP,320) (IATREL(I),I=IDEB,IFIN) 289 : CALL ERREUR(-41) 290 : WRITE(IOIMP,320) (ITSTR(I),I=IDEB,IFIN) 290 : CALL ERREUR(-42) 291 : WRITE(IOIMP,320) (ITPOI(I),I=IDEB,IFIN) 291 : CALL ERREUR(-43) 292 : WRITE(IOIMP,320) (ITMEL(I),I=IDEB,IFIN) 292 : CALL ERREUR(-41) 293 : WRITE(IOIMP,320) (ITSTR(I+NRELA),I=IDEB,IFIN) 293 : CALL ERREUR(-42) 294 : WRITE(IOIMP,320) (ITPOI(I+NRELA),I=IDEB,IFIN) 294 : CALL ERREUR(-43) 295 : WRITE(IOIMP,320) (ITMEL(I+NRELA),I=IDEB,IFIN) 296 : 320 FORMAT(22X,12(1X,I5,' *')) 297 : IDEB=IFIN+1 298 : IFIN=(IE+1)*12 299 : IFIN=MIN(NRELA,IFIN) 300 : 220 CONTINUE 301 : C ECRITURE DES CARACTERISTIQUES DU CHOC 302 : MGEOCH=IGEOCH 303 : MPHYCH=IPHYCH 304 : SEGACT MGEOCH,MPHYCH 305 : NN=INORCH(/1) 306 : IF(NN.NE.1) GOTO 230 307 : INTERR(1)=INORCH(1) 308 : REAERR(1)=RJEUCH(1) 308 : CALL ERREUR(-44) 309 : GOTO 250 310 : 230 INTERR(1)=INORCH(1) 311 : MOTERR(1:4)=MPOPRO(1) 311 : CALL ERREUR(-45) 312 : 313 : IF(RJEUCH(/1).NE.0) THEN 314 : REAERR(1)=RJEUCH(1) 314 : CALL ERREUR(-46) 315 : ENDIF 316 : DO 240 I=1,2 317 : INTERR(1)=I 318 : INTERR(2)=IMAPRO(I) 319 : REAERR(1)=TAIPRO(I) 320 : INTERR(2)=INORCH(I+1) 320 : CALL ERREUR(-47) 321 : 240 CONTINUE 322 : 250 REAERR(1)= RAIPRO 322 : CALL ERREUR(-48) 323 : NA=AMOPRO(/1) 324 : IF(NA.EQ.1)THEN 325 : REAERR(1)= AMOPRO(1) 325 : CALL ERREUR(-49) 326 : ENDIF 327 : NF=FROPRO(/1) 328 : IF(NF.EQ.1) THEN 329 : REAERR(1)= FROPRO(1) 329 : CALL ERREUR(-50) 330 : ENDIF 331 : SEGSUP ITPOI,MTSTR,ITMEL 332 : SEGDES MSOUMA,MGEOCH,MPHYCH 333 : 540 CONTINUE 334 : 550 IF(IDEVE.EQ.0) GOTO 950 335 : 336 : C TRAITEMENT DE LA LIAISON DEVERSOIR 337 : C 338 : DO 940 IL=1,IDEVE 339 : MSOUMA=ITMSD(IL) 340 : SEGACT MSOUMA 341 : NRELA=IATREL(/1) 342 : N=2*NRELA 343 : SEGINI ITPOI,MTSTR 344 : DO 615 NR=1,NRELA 345 : MJONCT=IATREL(NR) 346 : SEGACT MJONCT 347 : DO 610 NS=1,2 348 : INS=(NS-1)*NRELA+NR 349 : ITSTR(INS)=ISTRJO(NS) 350 : MCHPOI=IPCHJO(NS) 351 : SEGACT MCHPOI 352 : MSOUPO=IPCHP(1) 353 : SEGACT MSOUPO 354 : MELEME=IGEOC 355 : SEGACT MELEME 356 : ITPOI(INS)=NUM(1,1) 357 : SEGDES MELEME,MSOUPO,MCHPOI 358 : 610 CONTINUE 359 : 615 SEGDES MJONCT 360 : INTERR(1)= MSOUMA 361 : IECRI=(NRELA-1)/12+1 362 : IDEB=1 363 : IFIN=MIN(NRELA,12) 364 : DO 620 IE=1,IECRI 364 : CALL ERREUR(-52) 365 : WRITE(IOIMP,720) (IATREL(I),I=IDEB,IFIN) 365 : CALL ERREUR(-41) 366 : WRITE(IOIMP,720) (ITSTR(I),I=IDEB,IFIN) 366 : CALL ERREUR(-42) 367 : WRITE(IOIMP,720) (ITPOI(I),I=IDEB,IFIN) 367 : CALL ERREUR(-41) 368 : WRITE(IOIMP,720) (ITSTR(I+NRELA),I=IDEB,IFIN) 368 : CALL ERREUR(-42) 369 : WRITE(IOIMP,720) (ITPOI(I+NRELA),I=IDEB,IFIN) 370 : 720 FORMAT(22X,12(1X,I5,' *')) 371 : IDEB=IFIN+1 372 : IFIN=(IE+1)*12 373 : IFIN=MIN(NRELA,IFIN) 374 : 620 CONTINUE 375 : C 376 : C ECRITURE DES CARACTERISTIQUES DU DEVERSOIR 377 : MGEOCH=IGEOCH 378 : SEGACT MGEOCH 379 : WRITE(IOIMP,1010) 380 : REAERR(1)=RJEUCH(1) 381 : REAERR(2)=RJEUCH(2) 381 : CALL ERREUR(-53) 382 : REAERR(1)=RJEUCH(3) 383 : REAERR(2)=RJEUCH(4) 383 : CALL ERREUR(-54) 384 : REAERR(1)=RJEUCH(5) 385 : REAERR(2)=RJEUCH(6) 385 : CALL ERREUR(-55) 386 : REAERR(1)=RJEUCH(7) 387 : REAERR(2)=RJEUCH(8) 387 : CALL ERREUR(-56) 388 : REAERR(1)=RJEUCH(9) 388 : CALL ERREUR(-57) 389 : 1010 FORMAT(/) 390 : SEGSUP ITPOI,MTSTR 391 : SEGDES MSOUMA,MGEOCH 392 : 940 CONTINUE 393 : 950 IF(IASSE.EQ.0) GOTO 1150 394 : C 395 : C TRAITEMENT DE LA LIAISON MOTEUR ASSERVI 396 : C 397 : IS2 = 0 398 : DO 1140 IL=1,IASSE 399 : MSOUMA=ITMAS(IL) 400 : SEGACT MSOUMA 401 : MATAB = IATREL(1) 401 : CALL ERREUR(-58) 401 : CALL ACCTAB(MATAB,'MOT ',IVA,XVA,MOTAXE,LOGI,IOB, 402 : * 'POINT ',IVA,XVA,CHARI ,LOGI,IVEC1) 403 : II = ( IVEC1 - 1 ) * (IDIM + 1) 404 : REAERR(1)=XCOOR(II+1) 405 : REAERR(2)=XCOOR(II+2) 406 : REAERR(3)= 0.D0 407 : IF(IDIM.EQ.3) REAERR(3)=XCOOR(II+3) 407 : CALL ERREUR(-59) 407 : CALL ACCTAB(MATAB,'MOT ',IVA,XVA,MOTST1,LOGI,IOB, 408 : * 'STRUCTUR',IVA,XVA,CHARI ,LOGI,IS1 ) 409 : INTERR(1)=IS1 409 : CALL ERREUR(-60) 409 : CALL ACCTAB(MATAB,'MOT ',IVA,XVA,MOTSS1,LOGI,IOB , 410 : * 'ENTIER ',N1 ,XVA,CHARI ,LOGI,IOB ) 411 : MSTRUC = IS1 412 : SEGACT MSTRUC 413 : ISS1 = LISTRU(N1) 414 : INTERR(1)=ISS1 414 : CALL ERREUR(-61) 415 : SEGDES MSTRUC 415 : CALL ACCTAB(MATAB,'MOT ',IVA,XVA,MOTST2,LOGI,IOB , 416 : * 'STRUCTUR',IVA,XVA,CHARI ,LOGI,IS2 ) 417 : IF(IS2.NE.0) THEN 418 : INTERR(1)=IS2 418 : CALL ERREUR(-62) 418 : CALL ACCTAB(MATAB,'MOT ',IVA,XVA,MOTSS2,LOGI,IOB , 419 : * 'ENTIER ',N2 ,XVA,CHARI ,LOGI,IOB ) 420 : MSTRUC = IS2 421 : SEGACT MSTRUC 422 : ISS2 = LISTRU(N2) 423 : INTERR(1)=ISS2 423 : CALL ERREUR(-63) 424 : SEGDES MSTRUC 424 : CALL ACCTAB(MATAB,'MOT ',IVA,XVA,MOTAB2,LOGI,IOB , 425 : * 'POINT ',IVA,XVA,CHARI ,LOGI,IQ2 ) 426 : ENDIF 426 : CALL ACCTAB(MATAB,'MOT ',IVA,XVA,MINCON,LOGI,IOB, 427 : * 'LISTMOTS',IVA,XVA,CHARI ,LOGI,IL1) 428 : MLMOTS = IL1 429 : SEGACT MLMOTS 430 : NC = MOTS(/2) 431 : MOTERR = ' ' 432 : DO 789 IC=1,NC 433 : I1=IC*4-3 434 : I2=IC*4 435 : MOTERR(I1:I2)=MOTS(IC) 436 : 789 CONTINUE 436 : CALL ERREUR(-64) 437 : SEGDES MLMOTS 437 : CALL ERREUR(-65) 437 : CALL ACCTAB(MATAB,'MOT ',IVA,XVA,MSTATO,LOGI,IOB , 438 : * 'FLOTTANT',IVA,STATOR,CHARI ,LOGI,IOB ) 439 : REAERR(1)=STATOR 439 : CALL ERREUR(-66) 439 : CALL ACCTAB(MATAB,'MOT ',IVA,XVA,MROTOR,LOGI,IOB , 440 : * 'FLOTTANT',IVA,ROTOR,CHARI ,LOGI,IOB ) 441 : REAERR(1)=ROTOR 441 : CALL ERREUR(-67) 441 : CALL ACCTAB(MATAB,'MOT ',IVA,XVA,MINERT,LOGI,IOB , 442 : * 'FLOTTANT',IVA,FINERT,CHARI ,LOGI,IOB ) 443 : REAERR(1)=FINERT 443 : CALL ERREUR(-68) 443 : CALL ACCTAB(MATAB,'MOT ',IVA,XVA,MOTPRO,LOGI,IOB , 444 : * 'LISTREEL',IVA,XVA,CHARI ,LOGI,IOBJ1) 444 : CALL ACCTAB(MATAB,'MOT ',IVA,XVA,MOTVIT,LOGI,IOB , 445 : * 'LISTREEL',IVA,XVA,CHARI ,LOGI,IOBJ2) 446 : INTERR(1)=IOBJ1 447 : INTERR(2)=IOBJ2 447 : CALL ERREUR(-69) 447 : CALL ACCTAB(MATAB,'MOT ',IVA,XVA,MCARA1,LOGI,IOB , 448 : * 'FLOTTANT',IVA,RKP,CHARI ,LOGI,IOB ) 448 : CALL ACCTAB(MATAB,'MOT ',IVA,XVA,MCARA2,LOGI,IOB , 449 : * 'FLOTTANT',IVA,RKV,CHARI ,LOGI,IOB ) 450 : REAERR(1)=RKP 451 : REAERR(2)=RKV 451 : CALL ERREUR(-70) 452 : 1140 CONTINUE 453 : 1150 CONTINUE 454 : WRITE(IOIMP,122) 455 : 122 FORMAT(///) 456 : SEGDES MATTAC 457 : SEGSUP ITMSP,ITMSC,ITMSD 458 : RETURN 459 : END 460 : 461 :
© Cast3M 2003 - All rights reserved.
Disclaimer