Télécharger la plaquette Cast3M


fr en

Télécharger typrig.eso

Retour à la liste

Numérotation des lignes : 

typrig

  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