Télécharger repec2.eso

Retour à la liste

Numérotation des lignes :

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

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