Télécharger dynein.eso

Retour à la liste

Numérotation des lignes :

  1. C DYNEIN SOURCE CHAT 05/01/12 23:18:20 5004
  2. SUBROUTINE DYNEIN(ITX,IFX,TINI,DT,NPAS,ICHT3)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. ************************************************************************
  6. *
  7. * D Y N E I N
  8. * -----------
  9. *
  10. * FONCTION:
  11. * ---------
  12. * UTILITAIRE DE L'OPERATEUR "DYNE"
  13. * CREATION DE LA LISTE DE COEFFICIENTS ( VOIR S-P DYNECH )
  14. *
  15. * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN)
  16. * -----------
  17. *
  18. * ITX (E) POINTEUR SUR UN LISTREEL
  19. * IFX (E) POINTEUR SUR UN LISTREEL
  20. * TINI (E) TEMPS INITIAL
  21. * DT (E) PAS DE TEMPS
  22. * NPAS (E) NOMBRE DE PAS DE CALCUL
  23. * COEF (S) LISTE DE COEFFICIENTS A APPLIQUER A UN VECTEUR POUR
  24. * OBTENIR LA CONTRIBUTION DU CHARGEMENT AU PAS DESIRE
  25. *
  26. * AUTEUR, DATE DE CREATION:
  27. * -------------------------
  28. * DENIS ROBERT, LE 12 DECEMBRE 1988.
  29. * REVU ET CORRIGE DECEMBRE 89 MP
  30. *
  31. * LANGAGE:
  32. * --------
  33. * ESOPE + FORTRAN77
  34. *
  35. ************************************************************************
  36. *
  37. * MODULES UTILISES:
  38. *
  39. -INC CCOPTIO
  40. *
  41. *
  42. SEGMENT,MCHT3
  43. REAL*8 COE1(LCOE)
  44. ENDSEGMENT
  45. POINTEUR MCHT32.MCHT3
  46. *
  47. * REAL*8 COEF(*)
  48. *
  49. MCHT3=ICHT3
  50. NFIN=NPAS+1
  51. DO 10 I=1,NFIN
  52. T=TINI+(DT*I)
  53. CALL INTER3(ITX,IFX,T,FT)
  54. IF (IERR.NE.0) RETURN
  55. COE1(I)=FT
  56. 10 CONTINUE
  57. * END DO
  58. *
  59. END
  60.  
  61.  

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