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    OF166741  24/10/23    21:15:05     12046          
  2.  
  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. *
  14. * PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)
  15. * -----------
  16. *     NBNN    (E)  NOMBRE DE NOEUDS DANS LE TYPE D'ELEMENT CONSIDERE
  17. *     NEF     (E)  = 128 : ELEMENT COQUE ROT3
  18. *     IDESCR  (S)  POINTEUR SUR LE SEGMENT DESCR
  19. *
  20. * REMARQUES:
  21. * ----------
  22. *     - L'INCONNUE EST LA FONCTION DE COURANT 'FC'
  23. *     - L'INCONNUE DUALE EST LE CHAMP ELECTRIQUE 'ED'
  24. *
  25. * AUTEUR, DATE DE CREATION:
  26. * -------------------------
  27. *     YANN STEPHAN,LE 28 JANVIER 1997 (COPIE DE TCOND2).
  28. *
  29. ************************************************************************
  30.  
  31.       SUBROUTINE RESI2(NEF,NBNN,IDESCR)
  32.  
  33.       IMPLICIT INTEGER(I-N)
  34.       IMPLICIT REAL*8 (A-H,O-Z)
  35.  
  36. -INC PPARAM
  37. c-INC CCOPTIO
  38.  
  39. -INC SMRIGID
  40.  
  41.       CHARACTER*(LOCHPO) MOTHER, MOCHAL
  42.       PARAMETER ( MOTHER='FC       ' , MOCHAL='ED       ' )
  43.  
  44.       NLIGRP = NBNN
  45.       NLIGRD = NBNN
  46.       SEGINI,DESCR
  47.  
  48.       DO IB = 1, NLIGRP
  49.         LISINC(IB) = MOTHER
  50.         LISDUA(IB) = MOCHAL
  51.         NOELEP(IB) = IB
  52.         NOELED(IB) = IB
  53.       ENDDO
  54.  
  55.       IDESCR = DESCR
  56. C*Actif en S        SEGDES,DESCR
  57.  
  58. C      RETURN
  59.       END
  60.  
  61.  
  62.  

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