5 * Revision 1.1.1.1 1996/04/01 15:02:18 mclareni
10 SUBROUTINE EPDJE(HL,UL,MKR,UWANT)
12 C TREATMENT OF POINT JUST EXTERIOR IN BOTH DIRECTIONS
19 5 CALL EPDFIX(UL(J),NS)
31 13 IF(HL(L)-C95)20,20,14
35 15 IF(HL(J)-HMIN)16,17,17
42 20 IF(HL(L)-C5)25,21,21
48 26 IF(HL(J)-HMIN)27,28,28