Télécharger la plaquette Cast3M


fr en

Télécharger repec2.eso

Retour à la liste

Numérotation des lignes : 

repec2

  1. C REPEC2    SOURCE    CB215821  20/11/25    13:39:00     10792          
  2.       SUBROUTINE REPEC2(ITAB1,imo1,ICHP1)
  3.       IMPLICIT INTEGER(I-N)
  4.       IMPLICIT REAL*8(A-H,O-Z)
  5. -INC PPARAM
  6. -INC CCOPTIO
  7. -INC CCREEL
  8. -INC SMCHPOI
  9. -INC SMLREEL
  10.       LOGICAL L0,L1
  11. *                  1      2      3      4      5
  12. *      DATA MOOPT/'DEPL','CONT','VITE','ACCE','REAC'/
  13.  
  14.          ICHP1=0
  15.          call lirree(val,0,ire1)
  16.          CALL ACCTAB(ITAB1,'MOT',I0,X0,'TEMPS',L0,IP0,
  17.      &                'TABLE',I1,X1,' ',L1,ITABT)
  18.  
  19.          call dimen7(itabt,NDIM)
  20.          if (imo1.eq.1) CALL ACCTAB(ITAB1,'MOT',I0,X0,
  21.      &'DEPLACEMENTS',L0,IP0,'TABLE',I1,X1,' ',L1,ITAB2)
  22.           if (imo1.eq.2) CALL ACCTAB(ITAB1,'MOT',I0,X0,
  23.      &'CONTRAINTES',L0,IP0,'TABLE',I1,X1,' ',L1,ITAB2)
  24.          if (imo1.eq.3) CALL ACCTAB(ITAB1,'MOT',I0,X0,
  25.      &'VITESSES',L0,IP0,'TABLE',I1,X1,' ',L1,ITAB2)
  26.          if (imo1.eq.4) CALL ACCTAB(ITAB1,'MOT',I0,X0,
  27.      &'ACCELERATIONS',L0,IP0,'TABLE',I1,X1,' ',L1,ITAB2)
  28.          if (imo1.eq.5) CALL ACCTAB(ITAB1,'MOT',I0,X0,
  29.      &'REACTIONS',L0,IP0,'TABLE',I1,X1,' ',L1,ITAB2)
  30.            if (ierr.ne.0) return
  31.  
  32.         ISUCCES = 0
  33.        if (ire1.gt.0) then
  34.         ICOMP = -1
  35.          CALL ACCTAB(ITABT,'ENTIER',(NDIM - 1),X0,' ',L0,IP0,
  36.      &                'FLOTTANT',I1,X1,' ',L1,IP1)
  37.         VALREF = X1 * 1.E-6
  38.         DO IBOUC = 1,NDIM
  39.          ICOMP = ICOMP + 1
  40.          CALL ACCTAB(ITABT,'ENTIER',ICOMP,X0,' ',L0,IP0,
  41.      &                'FLOTTANT',I1,VAL1,' ',L1,IP1)
  42.           if (ABS(val - val1).le. valref) then
  43.          CALL ACCTAB(ITAB2,'ENTIER',ICOMP,X0,' ',L0,IP0,
  44.      &                'CHPOINT',I1,VAL1,' ',L1,ICHP1)
  45.            ISUCCES = 1
  46. c         write(6,*)'ON A TROUVE UN RESULTAT AU TEMPS ', VAL1
  47.           RETURN
  48.           endif
  49.         ENDDO
  50.        else
  51.          CALL ACCTAB(ITAB2,'ENTIER',(NDIM-1),X0,' ',L0,IP0,
  52.      &                'CHPOINT',I1,VAL1,' ',L1,ICHP1)
  53.          ISUCCES = 1
  54.        endif
  55.  
  56.        if (ISUCCES.EQ.0) then
  57.         call erreur(-10)
  58. *       'ERREUR' '*** On n a pas trouve le résultat cherché.'
  59.        endif
  60.        return
  61.        end
  62.  
  63.  
  64.  
  65.  
  66.  

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