Télécharger la plaquette Cast3M


fr en

Télécharger depb.eso

Retour à la liste

Numérotation des lignes : 

depb

  1. C DEPB      SOURCE    FANDEUR   22/01/03    21:15:09     11136          
  2.  
  3. C ====================================================================
  4. C = L'OPERATEUR DEPB FABRIQUE UN OBJET ATTACHE CORRESPONDANT A UNE   =
  5. C = LIAISON DE TYPE DEPLACEMENT IMPOSE SUR MODES BLOQUES             =
  6. C = SYNTAXE :                                                        =
  7. C = ATTA1=DEVE CHP1 STR1 ;                                           =
  8. C =    ATTA1 OBJET ATTACHE                                           =
  9. C =    CHP1  OBJET CHAMPOINT FABRIQUE PAR DEPIMP                     =
  10. C =    STR1  OBJET STRUCTURE                                         =
  11. C = CREATION 03/09/86                                                =
  12. C = PROGRAMMEUR GUILBAUD                                             =
  13. C ====================================================================
  14. C
  15.       SUBROUTINE DEPB
  16.  
  17.       IMPLICIT INTEGER(I-N)
  18.       IMPLICIT REAL*8(A-H,O-Z)
  19.  
  20. -INC PPARAM
  21. -INC CCOPTIO
  22. -INC CCHAMP
  23. -INC SMCOORD
  24. -INC SMATTAC
  25. -INC SMELEME
  26. -INC SMSTRUC
  27. -INC SMCHPOI
  28.  
  29.       CALL LIROBJ('CHPOINT ',IRET1,1,IRETOU)
  30.       CALL LIROBJ('STRUCTUR',IRET2,1,IRETOU)
  31.       IF(IERR.NE.0) RETURN
  32. C
  33.       MSTRUC=IRET2
  34.       SEGACT MSTRUC
  35.       NBSTRU=LISTRU(/1)
  36.       MSOSTU=LISTRU(1)
  37.       SEGDES MSTRUC
  38.       IF(NBSTRU.NE.1) THEN
  39. C  ***  LA SOUS-STRUCTURE N'EST PAS ELEMENTAIRE
  40.       INTERR(1)=MSOSTU
  41.       CALL ERREUR(90)
  42.       RETURN
  43.       ENDIF
  44. C
  45.       MCHPOI=IRET1
  46.       SEGACT MCHPOI
  47.       IF(MTYPOI.NE.'FLX     ') THEN
  48. C *** LE CHAMPOINT N'EST PAS DE SOUS-TYPE MOFLX
  49.         MOTERR(1:8)='CHPOINT'
  50.         CALL ERREUR(302)
  51.         RETURN
  52.       ENDIF
  53. C VERIF DE COMPATIBILITE ENTRE LA STRUCTURE ET LE CHAMPOINT A CREER A FA
  54.       N=1
  55.       SEGINI MATTAC
  56.       M=0
  57.       N=1
  58.       SEGINI MSOUMA
  59.       LISATT(1)=MSOUMA
  60.       ITYATT='DEPI'
  61.       IPHYCH=0
  62.       IGEOCH=0
  63.       SEGACT MCOORD*mod
  64. C
  65. C  CREATION DU CHAMPOINT DES VARIABLES DE LIAISONS
  66. C
  67.       NBNO=nbpts
  68.       XCOOR(**)=0.D0
  69.       XCOOR(**)=0.D0
  70.       IF(IDIM.EQ.3) XCOOR(**)=0.D0
  71.       XCOOR(**)=0.D0
  72.       nbpts=nbpts+1
  73.  
  74.       NBNN=1
  75.       NBELEM=1
  76.       NBSOUS=0
  77.       NBREF=0
  78.       SEGINI MELEME
  79.       ITYPEL=1
  80.       NUM(1,1)=NBNO+1
  81.       N=1
  82.       SEGINI MJONCT
  83.       IATREL(1)=MJONCT
  84.       MJOTYP='DEPI'
  85.       MJOPOI=MELEME
  86.       MJODDL='FLX'
  87.       ISTRJO(1)=MSOSTU
  88.       IPCHJO(1)=IRET1
  89.       IPOSJO(1)=0
  90.       SEGDES MJONCT,MSOUMA,MATTAC
  91.       CALL ECROBJ('ATTACHE ',MATTAC)
  92.  
  93. C      RETURN
  94.       END
  95.  
  96.  
  97.  

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