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