Télécharger resi2.eso

Retour à la liste

Numérotation des lignes :

  1. C RESI2 SOURCE CHAT 09/10/09 21:22:51 6519
  2. SUBROUTINE RESI2(NEF,NBNN,IDESCR)
  3. ************************************************************************
  4. *
  5. * R E S I 2
  6. * ---------
  7. *
  8. * FONCTION:
  9. * ---------
  10. * CE SOUS-PROGRAMME REMPLIT LE SEGMENT DESCRIPTEUR DE L'OBJET
  11. * RIGIDITE,DANS LE CAS DE L'APPLICATION MAGNETODYNAMIQUE
  12. *
  13. * MODULES UTILISES:
  14. * -----------------
  15. *
  16. IMPLICIT INTEGER(I-N)
  17. -INC SMRIGID
  18. *
  19. * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN)
  20. * -----------
  21. *
  22. * NBNN (E) NOMBRE DE NOEUDS DANS LE TYPE D'ELEMENT CONSIDERE
  23. * NEF (E) = 128 : ELEMENT COQUE ROT3
  24. * IDESCR (S) POINTEUR SUR LE SEGMENT DESCR
  25. *
  26. * CONSTANTES:
  27. * -----------
  28. *
  29. CHARACTER*4 MOTHER,MOCHAL
  30. PARAMETER ( MOTHER='FC ' )
  31. PARAMETER ( MOCHAL='ED ' )
  32. *
  33. * REMARQUES:
  34. * ----------
  35. * - L'INCONNUE EST LA FONCTION DE COURANT 'FC'
  36. * - L'INCONNUE DUALE EST LE CHAMP ELECTRIQUE 'ED'
  37. *
  38. * AUTEUR, DATE DE CREATION:
  39. * -------------------------
  40. *
  41. * YANN STEPHAN,LE 28 JANVIER 1997 (COPIE DE TCOND2).
  42. *
  43. * LANGAGE:
  44. * --------
  45. *
  46. * ESOPE + FORTRAN77
  47. ***
  48. *
  49. NLIGRP=NBNN
  50. NLIGRD=NBNN
  51. SEGINI,DESCR
  52. DO 11 IB=1,NLIGRP
  53. LISINC(IB)=MOTHER
  54. LISDUA(IB)=MOCHAL
  55. NOELEP(IB)=IB
  56. NOELED(IB)=IB
  57. 11 CONTINUE
  58. IDESCR=DESCR
  59. SEGDES,DESCR
  60. END
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  

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