Télécharger la plaquette Cast3M


fr en

Télécharger ecmatt.eso

Retour à la liste

Numérotation des lignes : 

ecmatt

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

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