Télécharger la plaquette Cast3M


fr en

Télécharger vam.eso

Retour à la liste

Numérotation des lignes : 

vam

  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