Télécharger la plaquette Cast3M


fr en

Télécharger idliai.eso

Retour à la liste

Numérotation des lignes : 

idliai

  1. C IDLIAI    SOURCE    KICH      05/05/26    21:15:23     5092
  2.       SUBROUTINE IDLIAI
  3. c identifie les liaisons : point + ddl d'un objet rigidite
  4. c vis-à-vis d'un maillage
  5. c range dans une table
  6.       IMPLICIT REAL*8 (A-H,O-Z)
  7.       IMPLICIT INTEGER(I-N)
  8.  
  9. -INC PPARAM
  10. -INC CCOPTIO
  11.  
  12.  
  13.        CALL LIROBJ('MAILLAGE',IPM,1,IRETOU)
  14.        CALL LIROBJ('RIGIDITE',IPR,1,IRETOU)
  15.        if (ierr.ne.0) return
  16.        call idlia1(ipm,ipr,ipt)
  17.        if (ierr.ne.0) return
  18.        call ecrobj('TABLE',ipt)
  19.       RETURN
  20.       END
  21.  
  22.  

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