This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / d / epdje.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1996/04/01 15:02:18  mclareni
6 * Mathlib gen
7 *
8 *
9 #include "gen/pilot.h"
10       SUBROUTINE EPDJE(HL,UL,MKR,UWANT)
11 C
12 C     TREATMENT OF POINT JUST EXTERIOR IN BOTH DIRECTIONS
13 C
14       DIMENSION HL(4),UL(4)
15       COMMON  C5     , C95
16       NFIXU=0
17       DO 10 J=1,4
18       IF(HL(J)-1.0)5,10,5
19     5 CALL EPDFIX(UL(J),NS)
20       IF(NS)10,10,7
21     7 L=J
22       NFIXU=NFIXU+1
23    10 CONTINUE
24       IF(NFIXU-1)12,13,11
25    11 MKR=1
26       DO 31 I=1,4
27    31 HL(I)=1.0
28       RETURN
29    12 L=5
30       GO TO 14
31    13 IF(HL(L)-C95)20,20,14
32    14 HMIN=1.0
33       DO 17 J=1,4
34       IF(J-L)15,17,15
35    15 IF(HL(J)-HMIN)16,17,17
36    16 HMIN=HL(J)
37       I=J
38    17 CONTINUE
39    18 UWANT=UL(I)
40       MKR=2
41       RETURN
42    20 IF(HL(L)-C5)25,21,21
43    21 MKR=5
44       RETURN
45    25 HMIN=1.0
46       DO 28 J=1,4
47       IF(J-L)26,28,26
48    26 IF(HL(J)-HMIN)27,28,28
49    27 HMIN=HL(J)
50       I=J
51    28 CONTINUE
52       IF(HMIN-C95)18,30,30
53    30 UWANT=UL(L)
54       J=MOD(L+1,4)+1
55       HL(L)=HL(J)
56       HL(J)=0.0
57       MKR=3
58       RETURN
59       END