redraw.f

Go to the documentation of this file.

      SUBROUTINE redraw(IC,LMIN,LMAX,IJ,LI,SUC,LOOP)
*
*
*       Check chain connections.
*       -----------------------
*
      include 'commonc.h'
      include 'common2.h'
      INTEGER ic(*),icc(2),ij(nmxm,2)
      LOGICAL suc,loop
*
*
      suc=.false.
      loop=.false.
      icc(1)=ic(lmin)
      icc(2)=ic(lmax)
      DO i=1,2
      DO j=1,2
      IF(icc(i).EQ.ij(li,j))THEN
      jc=3-j
      loop=.true.
      DO l=lmin,lmax
      IF(ic(l).EQ.ij(li,jc))RETURN
      END DO
      suc=.true.
      loop=.false.
      IF(i.EQ.1)THEN
      lmin=lmin-1
      ic(lmin)=ij(li,jc)
      RETURN
      ELSE
      lmax=lmax+1
      ic(lmax)=ij(li,jc)
      RETURN
      END IF
      END IF
      END DO
      END DO
*
      RETURN
      END