IF (STYLE.EQ."PRE")  CALL OUT(HAS)
      IF (LINKL(HAS).GT.0) CALL TARZAN(LINKL(HAS),STYLE)
      IF (STYLE.EQ."IN")   CALL OUT(HAS)
      IF (LINKR(HAS).GT.0) CALL TARZAN(LINKR(HAS),STYLE)
      IF (STYLE.EQ."POST") CALL OUT(HAS)