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