Esope source files

   1 : C BSTOK     SOURCE    DURA      06/07/11    21:17:15     5481           
   2 :       SUBROUTINE BSTOK(IX,X,P2,T2,Y2,U2,H,QE2,QW2,RE,DPF,
   3 :      &            XX,XP,XT,XY,XU,XHF,XQ,XQW,XRE,XDH,NT)
   4 :       IMPLICIT INTEGER(I-N)
   5 :       IMPLICIT REAL*8 (A-H,O-Z)
   6 : C
   7 : C     operateur FUITE
   8 : C     cf. sub. BCALQ
   9 : C>>>  remplissage des tableaux resultats
  10 : C
  11 :       DIMENSION XX(NT),XP(NT),XT(NT),XY(NT),XU(NT),XHF(NT),XQ(NT)
  12 :       DIMENSION XQW(NT),XRE(NT),XDH(NT)
  13 : 
  14 :       IF (IX.GT.NT) THEN
  15 :          WRITE(6,*) ' sub. bstok dimension insuffisante ',NT
  16 :          RETURN
  17 :       ELSE
  18 :          XX(IX) = X
  19 :          XP(IX) = P2
  20 :          XT(IX) = T2
  21 :          XY(IX) = Y2
  22 :          XU(IX) = U2
  23 :          XHF(IX) = H
  24 :          XQ(IX) = QE2
  25 :          XQW(IX) = QW2
  26 :          XRE(IX) = RE
  27 :          XDH(IX) = -DPF
  28 :          IX = IX+1
  29 :       ENDIF
  30 :       RETURN
  31 :       END
  32 :  
  33 :  
  34 :  
  35 :