Télécharger la plaquette Cast3M


fr en

Télécharger dimen3.eso

Retour à la liste

Numérotation des lignes : 

dimen3

  1. C DIMEN3    SOURCE    MB234859  26/07/31    21:15:01     12613          
  2.       SUBROUTINE DIMEN3 (IPRIGI,NBRINC)
  3. ************************************************************************
  4. *
  5. *                             D I M E N 3
  6. *                             -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. *     DONNER LE NOMBRE D'INCONNUES DU PROBLEME PHYSIQUE ASSOCIE A UN
  12. *     OBJET 'RIGIDITE'.
  13. *
  14. * MODE D'APPEL:
  15. * -------------
  16. *
  17. *     CALL DIMEN3 (IPRIGI,NBRINC)
  18. *
  19. * PARAMETRES:  (E)=ENTREE   (S)=SORTIE
  20. * -----------
  21. *
  22. *     IPRIGI  ENTIER    (E)  POINTEUR D'UNE 'RIGIDITE'.
  23. *     NBRINC  ENTIER    (S)  NOMBRE D'INCONNUES DE LA 'RIGIDITE'.
  24. *
  25. * REMARQUE :
  26. * ----------
  27. *
  28. *     IL N'EST PAS NECESSAIRE DE FACTORISER L'OBJET RIGIDITE POUR 
  29. *     CONNAITRE LE NOMBRE D'INCONNUES DU PROBLEME
  30. *     APPEL A ASSEM1/ASNS1 PLUTOT QUE TRIANG/LDMT1
  31. *
  32. * AUTEUR, DATE DE CREATION:
  33. * -------------------------
  34. *
  35. *     PASCAL MANIGOT     26 AOUT 1985
  36. *
  37. * LANGAGE:
  38. * --------
  39. *
  40. *     ESOPE + FORTRAN77
  41. *
  42. ************************************************************************
  43. *
  44.       IMPLICIT INTEGER(I-N)
  45. -INC PPARAM
  46. -INC CCOPTIO
  47. -INC SMMATRI
  48. -INC SMRIGID
  49. -INC CCREEL
  50. C
  51.       SEGMENT,IPOS(NNOE1)
  52. C
  53.       INSYM = 0
  54.       MRIGID = IPRIGI
  55.       SEGACT,MRIGID
  56.       NRG = IRIGEL(/1)
  57.       NBR = IRIGEL(/2)
  58. C     bp, 2014-11-27 : petit ajout pour les rigidites vides
  59.       IF(NBR.EQ.0) THEN
  60.         NBRINC=0
  61.         SEGDES,MRIGID
  62.         RETURN
  63.       ENDIF
  64.       IPMATR=ICHOLE
  65.       IF (IPMATR.NE.0) THEN
  66.         MMATRI=IPMATR
  67.         SEGACT,MMATRI
  68.         MILIGN=IILIGN
  69.         SEGACT,MILIGN
  70.         NBRINC=IPNO(/1)
  71.         SEGDES,MILIGN
  72.         SEGDES,MMATRI
  73.         GOTO 100
  74.       ENDIF
  75.  
  76. C
  77.       IF (NORINC.GT.0  .AND. NORIND.GT.0) INSYM = 1
  78.       IF (NRG.GE.7) THEN
  79.         DO  9 IN=1,NBR
  80.           IANTI=IRIGEL(7,IN)
  81.           IF (IANTI.GT.0) THEN
  82.             INSYM = 1
  83.             GOTO 10
  84.           ENDIF
  85.    9    CONTINUE
  86.   10    CONTINUE
  87.       ENDIF
  88. C
  89.       CALL ECRCHA('NOOP')
  90.       CALL ASSEM1(IPRIGI,INSYM,MMATRX,INUINX,
  91.      &            ITOPOX,IPOX,IITOPX,INCTRX,
  92.      &            ITOPOZ,IPOZ,IITOPZ,INCTRZ)
  93.       IPOS=IPOX
  94.       SEGACT,IPOS
  95.       NBNNOE=IPOS(/1)
  96.       NBRINC=IPOS(NBNNOE)
  97. C
  98.  100  CONTINUE
  99.       END
  100.  
  101.  

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