Télécharger dyne23.eso

Retour à la liste

Numérotation des lignes :

  1. C DYNE23 SOURCE CHAT 05/01/12 23:15:45 5004
  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. *
  25. SEGMENT,MTPAS
  26. REAL*8 FTOTA(NA1,4),FTOTB(NPLB,IDIMB),FTOTBA(NA1)
  27. REAL*8 XPTB(NPLB,4,IDIMB),FINERT(NA1,4)
  28. REAL*8 XVALA(NLIAA,4,NTVAR),XVALB(NLIAB,4,NTVAR)
  29. REAL*8 FEXB(NPLB,2,IDIM),XCHPFB(2,NLIAB,4,NPLB)
  30. ENDSEGMENT
  31. *
  32. MTPAS = KTPAS
  33. IA = 0
  34. MCHPOI = ICHP
  35. SEGACT,MCHPOI
  36. NSOUPO = IPCHP(/1)
  37. DO 10 II1=1,NSOUPO
  38. MSOUPO = IPCHP(II1)
  39. SEGACT,MSOUPO
  40. NC = NOCOMP(/2)
  41. MPOVAL = IPOVAL
  42. SEGACT,MPOVAL
  43. N = VPOCHA(/1)
  44. DO 20 J=1,N
  45. DO 20 K=1,NC
  46. IA = IA+1
  47. FTOTA(IA,I1) = VPOCHA(J,K)
  48. 20 CONTINUE
  49. * END DO
  50. SEGDES,MPOVAL,MSOUPO
  51. 10 CONTINUE
  52. * END DO
  53. SEGDES,MCHPOI
  54. *
  55. RETURN
  56. END
  57.  
  58.  
  59.  

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