Télécharger extr10.eso

Retour à la liste

Numérotation des lignes :

  1. C EXTR10 SOURCE CHAT 05/01/12 23:51:45 5004
  2. SUBROUTINE EXTR10(ISTR,MOT, IPTR)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. ************************************************************************
  6. *
  7. * E X T R 1 0
  8. * -----------
  9. *
  10. * FONCTION:
  11. * ---------
  12. *
  13. * SOUS-PROGRAMME POUR EXTRAIRE D'UNE STRUCTURE
  14. * UNE RIGIDITE.
  15. *
  16. * MODULES UTILISES:
  17. * -----------------
  18. *
  19. -INC CCOPTIO
  20. -INC SMSTRUC
  21. *
  22. * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN)
  23. * -----------
  24. *
  25. * ISTR (E) POINTEUR SUR L'OBJET STRUCTURE.
  26. * MOT (E) MOT-CLE : 'RIGI' OU 'MASS'.
  27. * IPTR (S) POINTEUR SUR L'OBJET RIGIDITE.
  28. *
  29. CHARACTER*4 MOT
  30. *
  31. * MODE DE FONCTIONNEMENT:
  32. * -----------------------
  33. *
  34. * ON SUPPOSE QUE LE PROGRAMME APPELANT A VERIFIE QUE LE
  35. * MOT-CLE SOIT CORRECT.
  36. *
  37. * AUTEUR, DATE DE CREATION:
  38. * -------------------------
  39. *
  40. * LIONEL VIVAN JUILLET 1988
  41. *
  42. * LANGAGE:
  43. * --------
  44. *
  45. * ESOPE + FORTRAN77
  46. *
  47. ************************************************************************
  48. *
  49. MSTRUC = ISTR
  50. SEGACT MSTRUC
  51. NSTRU = LISTRU(/1)
  52. DO 10 IS = 1,NSTRU
  53. MSOSTU = LISTRU(IS)
  54. SEGACT MSOSTU
  55. IF (IS .EQ. 1) THEN
  56. IF (MOT .EQ. 'RIGI') THEN
  57. IPT1 = ISRAID
  58. ELSE
  59. IPT1 = ISMASS
  60. ENDIF
  61. ELSE
  62. IF (MOT .EQ. 'RIGI') THEN
  63. IPT2 = ISRAID
  64. ELSE
  65. IPT2 = ISMASS
  66. ENDIF
  67. CALL FUSRIG(IPT1,IPT2,IPT3)
  68. IF (IERR.NE.0) RETURN
  69. CALL DTRIGI(IPT1)
  70. IF (IERR.NE.0) RETURN
  71. IPT1 = IPT3
  72. ENDIF
  73. SEGDES MSOSTU
  74. 10 CONTINUE
  75. SEGDES MSTRUC
  76. IPTR = IPT1
  77. *
  78. END
  79.  
  80.  

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