Télécharger unifor.eso

Retour à la liste

Numérotation des lignes :

  1. C UNIFOR SOURCE CB215821 20/11/25 13:41:49 10792
  2. SUBROUTINE UNIFOR
  3. ************************************************************************
  4. *
  5. * U N I F O R
  6. * -----------
  7. *
  8. * SOUS-PROGRAMME ASSOCIE A L'OPTION "UNIFORME" DE L'OPERATEUR
  9. * "CHPOINT".
  10. *
  11. * FONCTION:
  12. * ---------
  13. *
  14. * FOURNIR UN 'CHPOINT' DE MEME VALEUR EN TOUT POINT.
  15. *
  16. * PHRASE D'APPEL (EN GIBIANE):
  17. * ----------------------------
  18. *
  19. * CC = CHPOINT UNIFORME KK XX ;
  20. *
  21. * OPERANDE ET RESULTAT:
  22. * ---------------------
  23. *
  24. * KK 'RIGIDITE'
  25. * XX 'FLOTTANT' VALEUR DU 'CHPOINT' EN TOUT POINT.
  26. * CC 'CHPOINT ' APPUYE SUR LE MEME SUPPORT GEOMETRIQUE QUE "KK"
  27. *
  28. * LEXIQUE: (ORDRE ALPHABETIQUE)
  29. * --------
  30. *
  31. * IPRIGI ENTIER POINTEUR SUR "KK".
  32. * IPCHPO ENTIER POINTEUR SUR "CC".
  33. *
  34. * SOUS-PROGRAMMES APPELES:
  35. * ------------------------
  36. *
  37. * LIROBJ, LIRREE, ECROBJ, UNIFO1.
  38. *
  39. * AUTEUR, DATE DE CREATION:
  40. * -------------------------
  41. *
  42. * PASCAL MANIGOT 1ER AVRIL 1985
  43. *
  44. * LANGAGE:
  45. * --------
  46. *
  47. * FORTRAN77 + EXTENSION: CARACTERES MIS DANS DES ENTIERS
  48. *
  49. ************************************************************************
  50. *
  51. IMPLICIT INTEGER(I-N)
  52. REAL*8 XX
  53.  
  54. -INC PPARAM
  55. -INC CCOPTIO
  56. -INC SMCHPOI
  57. *
  58. *
  59. *
  60. ICODE = 1
  61. CALL LIROBJ ('RIGIDITE',IPRIGI,ICODE,IRETOU)
  62. IF (IERR .NE. 0) RETURN
  63. *
  64. ICODE = 1
  65. CALL LIRREE (XX,ICODE,IRETOU)
  66. IF (IERR .NE. 0) RETURN
  67. *
  68. CALL UNIFO1 (IPRIGI,XX, IPCHPO)
  69. IF (IERR .NE. 0) RETURN
  70. *
  71. * ON ATTRIBUT UNE NATURE DIFFUSE A PRIORI
  72. *
  73. MCHPOI = IPCHPO
  74. SEGACT MCHPOI*MOD
  75. JATTRI(1) = 1
  76. SEGDES MCHPOI *
  77. CALL ECROBJ ('CHPOINT ',IPCHPO)
  78. *
  79. END
  80.  
  81.  
  82.  
  83.  
  84.  

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