Esope source files

   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 :