Télécharger la plaquette Cast3M


fr en

Télécharger resi2.eso

Retour à la liste

Numérotation des lignes : 

resi2

  1. C RESI2     SOURCE    PV        22/01/18    21:15:08     11267          
  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 PPARAM
  18. -INC SMRIGID
  19. *
  20. * PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)
  21. * -----------
  22. *
  23. *     NBNN    (E)  NOMBRE DE NOEUDS DANS LE TYPE D'ELEMENT CONSIDERE
  24. *     NEF     (E)  = 128 : ELEMENT COQUE ROT3
  25. *     IDESCR  (S)  POINTEUR SUR LE SEGMENT DESCR
  26. *
  27. * CONSTANTES:
  28. * -----------
  29. *
  30.       CHARACTER*4 MOTHER,MOCHAL
  31.       PARAMETER ( MOTHER='FC   ' )
  32.       PARAMETER ( MOCHAL='ED   ' )
  33. *
  34. * REMARQUES:
  35. * ----------
  36. *     - L'INCONNUE EST LA FONCTION DE COURANT 'FC'
  37. *     - L'INCONNUE DUALE EST LE CHAMP ELECTRIQUE 'ED'
  38. *
  39. * AUTEUR, DATE DE CREATION:
  40. * -------------------------
  41. *
  42. *     YANN STEPHAN,LE 28 JANVIER 1997 (COPIE DE TCOND2).
  43. *
  44. * LANGAGE:
  45. * --------
  46. *
  47. *     ESOPE + FORTRAN77
  48. ***
  49. *
  50.         NLIGRP=NBNN
  51.         NLIGRD=NBNN
  52.         SEGINI,DESCR
  53.         DO 11 IB=1,NLIGRP
  54.          LISINC(IB)=MOTHER
  55.          LISDUA(IB)=MOCHAL
  56.          NOELEP(IB)=IB
  57.          NOELED(IB)=IB
  58.    11   CONTINUE
  59.         IDESCR=DESCR
  60.         SEGDES,DESCR
  61.         END
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  

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