1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
*DECK TINFL
SUBROUTINE TINFL (NNS,NW,NW2,NK)
*
*-----------------------------------------------------------------------
*
*Purpose:
* Produce the useful vector for refuelling, according
* to a given refuelling-scheme
*
*Copyright:
* Copyright (C) 2010 Ecole Polytechnique de Montreal
*
*Author(s):
* E. Varin, M. Guyot
*
*Parameters: input/output
* NNS Number corresponding to the refuelling type
* NW Vector corresponding to the refuelling type
* NW > 0 : Position of the bundle before refuelling
* NW = 0 : Insertion of a new bundle
* NW2 Vector NW when the refueling is negative
* NK Number of bundles per channel
*
*-----------------------------------------------------------------------
*
IMPLICIT NONE
*
INTEGER NNS,NK,NW(NK),NW2(NK)
INTEGER MODEID,I,IP,NL
*
MODEID = NNS
*
*---- MODE DE RECHARGEMENT GENERALISE
*
IF(MODEID.GT.NK) THEN
WRITE(6,'(13H @TINFL: NNS=,I6,4H NK=,I6)') NNS,NK
CALL XABORT('@TINFL: ONLY BI-DIRECTIONNAL REFUELING ')
ELSE
*
*------- MODE DE RECHARGEMENT DIRECT
*
NW2(:NK)=0
NW(:MODEID)=0
*
IF(MODEID.NE.NK) THEN
NL = NK - MODEID
DO 20 I=1,NL
IP = MODEID + I
NW(IP) = I
NW2(I)=I+NNS
20 CONTINUE
ENDIF
*
ENDIF
RETURN
END
|
