Télécharger typrig.eso

Retour à la liste

Numérotation des lignes :

  1. C TYPRIG SOURCE CHAT 09/10/09 21:25:44 6519
  2. * SOUS-TYPE D'UN OBJET DE TYPE 'RIGIDITE'.
  3. SUBROUTINE TYPRIG (IPRIGI,LISTYP,NBTYP,NUMERO)
  4. ************************************************************************
  5. *
  6. * T Y P R I G
  7. * -----------
  8. *
  9. * FONCTION:
  10. * ---------
  11. *
  12. * DONNER LE SOUS-TYPE D'UN OBJET DE TYPE 'RIGIDITE', PARMI UNE
  13. * LISTE DE NOMS FOURNIS.
  14. *
  15. * MODE D'APPEL:
  16. * -------------
  17. *
  18. * CALL TYPRIG (IPRIGI,LISTYP,NBTYP,NUMERO)
  19. *
  20. * PARAMETRES: (E)=ENTREE (S)=SORTIE
  21. * -----------
  22. *
  23. * IPRIGI ENTIER (E) POINTEUR SUR L'OBJET DE TYPE 'RIGIDITE'.
  24. * LISTYP ENTIER (E) CONTIENT LA LISTE DES NOMS DE SOUS-TYPE
  25. * PERMIS.
  26. * TABLEAU A 2 LIGNES ET "NBTYP" COLONNES
  27. * CONTENANT 1 NOM DE 8 CARACTERES PAR
  28. * COLONNE (4 CARACTERES PAR ELEMENT).
  29. * NBTYP ENTIER (E) NOMBRE DE SOUS-TYPES POSSIBLES.
  30. * NUMERO ENTIER (S) NUMERO D'ORDRE DU NOM DU SOUS-TYPE TROUVE
  31. * DANS LA LISTE "LISTYP".
  32. * = 0 SI LE SOUS-TYPE N'EST PAS DANS LA
  33. * LISTE "LISTYP".
  34. *
  35. * AUTEUR, DATE DE CREATION:
  36. * -------------------------
  37. *
  38. * PASCAL MANIGOT 11 OCTOBRE 1984
  39. *
  40. * LANGAGE:
  41. * --------
  42. *
  43. * ESOPE + FORTRAN77 + EXTENSION: CARACTERES MIS DANS DES ENTIERS.
  44. *
  45. ************************************************************************
  46. *
  47. IMPLICIT INTEGER(I-N)
  48. -INC SMRIGID
  49. *
  50. CHARACTER*8 LISTYP(*)
  51. *
  52. MRIGID = IPRIGI
  53. SEGACT,MRIGID
  54. *
  55. NUMERO = 0
  56. DO 100 IB100=1,NBTYP
  57. IF (MTYMAT .EQ. LISTYP(IB100) ) THEN
  58. NUMERO = IB100
  59. * --> SORTIE DE BOUCLE
  60. GOTO 110
  61. END IF
  62. 100 CONTINUE
  63. * END DO
  64. 110 CONTINUE
  65. *
  66. SEGDES,MRIGID
  67. *
  68. END
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  

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