! { dg-do compile }
! { dg-options "-O3" }
      implicit real*8 (a-h,o-z)
      common clop6(3),dps(6),aml6(6,6)
      dimension y1(3)
      dimension dclo(3)
      dimension dx(3),dy(3)
      save
      do 80 ii=1,itco
        y1(3)=dps(1)
        do 40 l=1,3
          dy(l)=clop6(l)-y1(l)
   40   continue
        dczp=abs(dy(3))
        if(dcx.le.c1m10.and.dcz.le.c1m10.and.dcxp.le.c1m10.and.dczp
     +  .le.c1m10.and.dcy.le.c1m10.and.dcyp.le.c1m10) goto 90
   80 continue
      write(6) itco
      ii=itco
   90 continue
      if(ii.ne.itco) then
        do 65 k=1,3
          do 55 j=1,3
            jj=2*j
            kk=2*k
            dclo(k)=aml6(kk-1,jj-1)*dx(j)+dclo(k)
            dclo(k)=aml6(kk-1,jj)*dy(j)+dclo(k)
   55     continue
   65   continue
      endif
      end