Télécharger idliai.eso

Retour à la liste

Numérotation des lignes :

  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. -INC CCOPTIO
  9.  
  10.  
  11. CALL LIROBJ('MAILLAGE',IPM,1,IRETOU)
  12. CALL LIROBJ('RIGIDITE',IPR,1,IRETOU)
  13. if (ierr.ne.0) return
  14. call idlia1(ipm,ipr,ipt)
  15. if (ierr.ne.0) return
  16. call ecrobj('TABLE',ipt)
  17. RETURN
  18. END
  19.  
  20.  

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