Télécharger la plaquette Cast3M


fr en

Télécharger depim2.eso

Retour à la liste

Numérotation des lignes : 

depim2

  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.  
  7. -INC PPARAM
  8. -INC CCOPTIO
  9. -INC SMTABLE
  10.  
  11.       IPO=0
  12.  
  13.       mtable = ipt
  14.       segact mtable
  15.       ima = mlotab - 1
  16. c     if (ima.eq.1) RETURN
  17.  
  18.       do 1200 im = 1,ima
  19.            CALL ACCTAB(IPT,'ENTIER',IM,0.d0,' ',.true.,IP0,
  20.      &                   'TABLE',I1,X1,CHARRE,.true.,ITMOD)
  21.            if (ierr.ne.0) return
  22.            CALL ACCTAB(ITMOD,'MOT',I0,X0,'BLOCAGE',.true.,IP0,
  23.      &                      'RIGIDITE',I1,X1,charre,.true.,IR1)
  24.            if (ir1.lt.0) goto 1200
  25.            if (ierr.ne.0) return
  26. *
  27.          call ecrree(1.d0)
  28.          call ecrobj('RIGIDITE',ir1)
  29.          call depimp
  30.          call lirobj('CHPOINT',ichpoi,1, iretou)
  31.          if (ierr.ne.0) return
  32.  
  33.            CALL ECCTAB(ITMOD,'MOT',0,0.0D0,'FORCE',.TRUE.,IPO,
  34.      &        'CHPOINT',0,0.0D0,' ',.TRUE.,ichpoi)
  35.  
  36.  1200 continue
  37. c
  38. c
  39.       RETURN
  40.       END
  41.  
  42.  
  43.  
  44.  

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