Télécharger aleat.eso

Retour à la liste

Numérotation des lignes :

  1. C ALEAT SOURCE CB215821 19/07/31 21:15:24 10277
  2. SUBROUTINE ALEAT
  3. ************************************************************************
  4. *
  5. * A L E A T
  6. * ---------
  7. *
  8. * SOUS-PROGRAMME ASSOCIE A L'OPTION "ALEATOIRE" DE L'OPERATEUR
  9. * "CHPOINT".
  10. *
  11. * FONCTION:
  12. * ---------
  13. *
  14. * FOURNIR UN 'CHPOINT' A VALEURS QUELCONQUES.
  15. *
  16. * PHRASE D'APPEL (EN GIBIANE):
  17. * ----------------------------
  18. *
  19. * CC = CHPOINT ALEATOIRE KK ;
  20. *
  21. * OPERANDE ET RESULTAT:
  22. * ---------------------
  23. *
  24. * KK 'RIGIDITE'
  25. * CC 'CHPOINT ' APPUYE SUR LE MEME SUPPORT GEOMETRIQUE QUE "KK"
  26. *
  27. * LEXIQUE: (ORDRE ALPHABETIQUE)
  28. * --------
  29. *
  30. * IPRIGI ENTIER POINTEUR SUR "KK".
  31. * IPCHPO ENTIER POINTEUR SUR "CC".
  32. * LISTYP ENTIER VOIR LE SOUS-PROGRAMME "TYPRIG".
  33. *
  34. * REMARQUES:
  35. * ----------
  36. *
  37. * ON PEUT VERIFIER, SUR OPTION, QUE LA 'RIGIDITE' EST DE SOUS-TYPE
  38. * 'RIGIDITE'.
  39. *
  40. * SOUS-PROGRAMMES APPELES:
  41. * ------------------------
  42. *
  43. * LIRE, ECRIRE, ALEAT1, TYPRIG.
  44. *
  45. * AUTEUR, DATE DE CREATION:
  46. * -------------------------
  47. *
  48. * PASCAL MANIGOT 5 OCTOBRE 1984
  49. *
  50. * LANGAGE:
  51. * --------
  52. *
  53. * FORTRAN77 + EXTENSION: CARACTERES MIS DANS DES ENTIERS
  54. *
  55. ************************************************************************
  56. *
  57. IMPLICIT INTEGER(I-N)
  58.  
  59. -INC PPARAM
  60. -INC CCOPTIO
  61. -INC SMCHPOI
  62. *
  63. CHARACTER*(8) MOTYP1
  64. CHARACTER*8 LISTYP(1)
  65. *
  66. DATA MOTYP1/'RIGIDITE'/
  67. DATA LISTYP/'RIGIDITE'/
  68. *
  69. ICODE = 1
  70. CALL LIROBJ(MOTYP1,IPRIGI,ICODE,IRETOU)
  71. IF (IERR .NE. 0) RETURN
  72. *
  73. IF (IIMPI .EQ. 748) THEN
  74. IUN = 1
  75. CALL TYPRIG (IPRIGI,LISTYP,IUN, I0OU1)
  76. IF (I0OU1 .EQ. 0) THEN
  77. NUMERR = 79
  78. MOTERR(1:8)=MOTYP1
  79. MOTERR(9:16)='RIGIDITE'
  80. CALL ERREUR (NUMERR)
  81. RETURN
  82. END IF
  83. END IF
  84. *
  85. CALL ALEAT1 (IPRIGI,IPCHPO)
  86. IF (IERR .NE. 0) RETURN
  87. *
  88. * ON ATTRIBUT UNE NATURE DIFFUSE A PRIORI
  89. *
  90. MCHPOI = IPCHPO
  91. SEGACT MCHPOI*MOD
  92. JATTRI(1) = 1
  93. *
  94. CALL ACTOBJ('CHPOINT ',IPCHPO,1)
  95. CALL ECROBJ('CHPOINT ',IPCHPO)
  96. *
  97. END
  98.  
  99.  
  100.  
  101.  

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