Télécharger la plaquette Cast3M


fr en

Télécharger aleat.eso

Retour à la liste

Numérotation des lignes : 

aleat

  1. C ALEAT     SOURCE    CB215821  20/11/25    13:18:17     10792          
  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.  
  102.  

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