Esope source files

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