Télécharger depim2.eso

Retour à la liste

Numérotation des lignes :

  1. C DEPIM2 SOURCE CB215821 16/04/15 21:15:09 8907
  2. SUBROUTINE DEPIM2(IPT)
  3. IMPLICIT INTEGER(I-N)
  4. CHARACTER*4 charm,charre
  5. REAL*8 XXA,vval,X0,X1
  6. -INC CCOPTIO
  7. -INC SMTABLE
  8.  
  9. IPO=0
  10.  
  11. mtable = ipt
  12. segact mtable
  13. ima = mlotab - 1
  14. c if (ima.eq.1) RETURN
  15.  
  16. do 1200 im = 1,ima
  17. CALL ACCTAB(IPT,'ENTIER',IM,0.d0,' ',.true.,IP0,
  18. & 'TABLE',I1,X1,CHARRE,.true.,ITMOD)
  19. if (ierr.ne.0) return
  20. CALL ACCTAB(ITMOD,'MOT',I0,X0,'BLOCAGE',.true.,IP0,
  21. & 'RIGIDITE',I1,X1,charre,.true.,IR1)
  22. if (ir1.lt.0) goto 1200
  23. if (ierr.ne.0) return
  24. *
  25. call ecrree(1.d0)
  26. call ecrobj('RIGIDITE',ir1)
  27. call depimp
  28. call lirobj('CHPOINT',ichpoi,1, iretou)
  29. if (ierr.ne.0) return
  30.  
  31. CALL ECCTAB(ITMOD,'MOT',0,0.0D0,'FORCE',.TRUE.,IPO,
  32. & 'CHPOINT',0,0.0D0,' ',.TRUE.,ichpoi)
  33.  
  34. 1200 continue
  35. c
  36. c
  37. RETURN
  38. END
  39.  
  40.  
  41.  
  42.  

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