Télécharger vam.eso

Retour à la liste

Numérotation des lignes :

  1. C VAM SOURCE CHAT 05/01/13 04:01:23 5004
  2. c Sous-Programme du module MISTRAL1
  3. C --------------------------------------------------------------------------
  4. SUBROUTINE VAM (VEPSTH,VEPSEL,VEPSCR,VEPSE,EPSEQP,XXP,FI,PSIP,
  5. & SEQ,RR, NDPI,NDVP,NXX,NPSI,
  6. & VEPTHA,VEPELA,VEPCRA,VEPEA,EPSEPA,XXPA,FIA,PSIPA,
  7. & SEQA0,RRA0,VEEA0)
  8. C --------------------------------------------------------------------------
  9. C Stockage dans VA de valeurs V a l'instant t
  10. C du debut du pas de temps en cours.
  11. C --------------------------------------------------------------------------
  12. IMPLICIT INTEGER(I-N)
  13. IMPLICIT REAL*8 (A-H, O-Z)
  14. DIMENSION VEPSTH(1:*),VEPSEL(1:*),VEPSCR(1:*),VEPSE(0:*),
  15. & EPSEQP(0:*),XXP(1:6,1:*),SEQ(0:*),RR(0:*)
  16. DIMENSION VEPTHA(1:*),VEPELA(1:*),VEPCRA(1:*),VEPEA(0:*),
  17. & EPSEPA(0:*),XXPA(1:6,1:*)
  18. DO IJ = 1,6
  19. VEPTHA(IJ) = VEPSTH(IJ)
  20. VEPELA(IJ) = VEPSEL(IJ)
  21. VEPCRA(IJ) = VEPSCR(IJ)
  22. END DO
  23. DO IDP = 1-NDPI,NDVP
  24. VEPEA(IDP) = VEPSE(IDP)
  25. EPSEPA(IDP) = EPSEQP(IDP)
  26. END DO
  27. DO IXX = 1,NXX
  28. DO IJ = 1,6
  29. XXPA(IJ,IXX) = XXP(IJ,IXX)
  30. END DO
  31. END DO
  32. FIA = FI
  33. IF (NPSI.GT.0) THEN
  34. PSIPA = PSIP
  35. END IF
  36. IF (NDPI.NE.0) THEN
  37. SEQA0 = SEQ(0)
  38. RRA0 = RR(0)
  39. VEEA0 = VEPSE(0)
  40. END IF
  41. RETURN
  42. END
  43.  
  44.  
  45.  

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