Télécharger la plaquette Cast3M


fr en

Télécharger unifor.eso

Retour à la liste

Numérotation des lignes : 

unifor

  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