Télécharger la plaquette Cast3M


fr en

Télécharger subden.eso

Retour à la liste

Numérotation des lignes : 

subden

  1. C SUBDEN    SOURCE    BP208322  16/11/18    21:21:21     9177           
  2. C   LECTURE DE LA DENSITE   ATTENTION ON VA CORRIGER LA VARIABLE &DENS
  3. C
  4. C PP 12/98: forcer la densite des point d'un maillage
  5.       SUBROUTINE SUBDEN
  6.       IMPLICIT INTEGER(I-N)
  7. -INC CCGEOME
  8.  
  9. -INC PPARAM
  10. -INC CCOPTIO
  11. C+PP
  12. -INC SMCOORD
  13. -INC SMELEME
  14. C+PP
  15.       REAL*8 XXX
  16.       CALL MESLIR(-238)
  17.       CALL LIRREE(XXX,1,IRETOU)
  18.       IF (IERR.NE.0) RETURN
  19. C+PP
  20.       CALL LIROBJ('MAILLAGE',IPT1,0,IRETOU)
  21.       IF(IRETOU.EQ.1)THEN
  22.         SEGACT,IPT1,MCOORD*MOD
  23.         NBSOUS=IPT1.LISOUS(/1)
  24.         DO IE1=1,MAX(1,NBSOUS)
  25.           IF(NBSOUS.EQ.0)THEN
  26.             MELEME=IPT1
  27.           ELSE
  28.             MELEME=IPT1.LISOUS(IE1)
  29.             SEGACT,MELEME
  30.           ENDIF
  31.           NBNN=NUM(/1)
  32.           NBELEM=NUM(/2)
  33.           DO IE2=1,NBELEM
  34.             DO IE3=1,NBNN
  35.               NUME=NUM(IE3,IE2)
  36.               IREF=NUME*(IDIM+1)
  37.               XCOOR(IREF)=ABS(XXX)
  38.             ENDDO
  39.           ENDDO
  40.           SEGDES,MELEME
  41.         ENDDO
  42.         SEGDES,IPT1
  43.         RETURN
  44.       ENDIF
  45. C+PP
  46.       DENSIT=ABS(XXX)
  47.       CALL NOMREE('&DENS   ',XXX)
  48.       END
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  

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