This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / d / epdin.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 EPDIN(HL,UL,MKR,UWANT)
11 C
12 C     TREATMENT OF INTERNAL POINTS
13 C
14       DIMENSION HL(4),UL(4)
15       COMMON  C5     , C95
16       NHNOT1=0
17       NFIXU=0
18       DO 10 J=1,4
19       IF(HL(J)-1.0)5,10,5
20     5 NHNOT1=NHNOT1+1
21       CALL EPDFIX(UL(J),NS)
22       IF(NS)10,10,7
23     7 L=J
24       NFIXU=NFIXU+1
25    10 CONTINUE
26       IF(NHNOT1)14,12,14
27    12 MKR=1
28       RETURN
29    14 IF(NFIXU-1)16,25,12
30    16 I=1
31       HMIN=HL(1)
32       DO 20 J=2,4
33       IF(HL(J)-HMIN)18,20,20
34    18 HMIN=HL(J)
35       I=J
36    20 CONTINUE
37       IF(HMIN-C5)22,12,12
38    22 MKR=2
39       UWANT=UL(I)
40       RETURN
41    25 IF(HL(L)-C95)26,26,16
42    26 IF(HL(L)-C5)27,27,35
43    27 HMIN=1.0
44       DO 30 J=1,4
45       IF(J-L)28,30,28
46    28 IF(HL(J)-HMIN)29,29,30
47    29 HMIN=HL(J)
48       I=J
49    30 CONTINUE
50       IF(HMIN-C5)22,31,31
51    31 MKR=3
52       UWANT=UL(L)
53       RETURN
54    35 MKR=5
55       RETURN
56       END