Télécharger la plaquette Cast3M


fr en

Télécharger dyne23.eso

Retour à la liste

Numérotation des lignes : 

dyne23

  1. C DYNE23    SOURCE    CB215821  20/11/25    13:26:28     10792          
  2.       SUBROUTINE DYNE23(ICHP,KTPAS,I1)
  3.       IMPLICIT INTEGER(I-N)
  4.       IMPLICIT REAL*8(A-H,O-Z)
  5. *--------------------------------------------------------------------*
  6. *                                                                    *
  7. *     Opérateur DYNE : algorithme de Fu - de Vogelaere               *
  8. *     ________________________________________________               *
  9. *                                                                    *
  10. *     Remplissage du tableau des variables généralisées.             *
  11. *                                                                    *
  12. *     Paramètres:                                                    *
  13. *                                                                    *
  14. * e   ICHP  : CHPOINT dans lequel on va chercher les valeurs         *
  15. * es  KTPAS : Segment des variables au cours d'un pas de temps       *
  16. * e   I1    : Indice du pas                                          *
  17. *                                                                    *
  18. *     Auteur, date de création:                                      *
  19. *                                                                    *
  20. *     Lionel VIVAN, le 18 Septembre 1989.                            *
  21. *                                                                    *
  22. *--------------------------------------------------------------------*
  23. -INC SMCHPOI
  24. -INC PPARAM
  25. *
  26.       SEGMENT,MTPAS
  27.          REAL*8 FTOTA(NA1,4),FTOTB(NPLB,IDIMB),FTOTBA(NA1)
  28.          REAL*8 XPTB(NPLB,2,IDIMB),FINERT(NA1,4)
  29.          REAL*8 XVALA(NLIAA,4,NTVAR),XVALB(NLIAB,4,NTVAR)
  30.          REAL*8 FEXB(NPLB,2,IDIM),XCHPFB(2,NLIAB,4,NPLB)
  31.       ENDSEGMENT
  32. *
  33.       MTPAS = KTPAS
  34.       IA = 0
  35.       MCHPOI = ICHP
  36.       SEGACT,MCHPOI
  37.       NSOUPO = IPCHP(/1)
  38.       DO 10 II1=1,NSOUPO
  39.          MSOUPO = IPCHP(II1)
  40.          SEGACT,MSOUPO
  41.          NC = NOCOMP(/2)
  42.          MPOVAL = IPOVAL
  43.          SEGACT,MPOVAL
  44.          N = VPOCHA(/1)
  45.          DO 20 J=1,N
  46.             DO 21 K=1,NC
  47.                IA = IA+1
  48.                FTOTA(IA,I1) = VPOCHA(J,K)
  49.  21      CONTINUE
  50.  20      CONTINUE
  51.          SEGDES,MPOVAL,MSOUPO
  52.  10   CONTINUE
  53.       SEGDES,MCHPOI
  54. *
  55.       RETURN
  56.       END
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  

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