anchor.diff:        logical ofound,omatch
   
         fn_out = 78
  -       open(fn_out,file="trimer.dat",
  -     $            form='formatted',status='unknown')
  -
  +c       open(fn_out,file="trimer.dat",
  +c     $            form='formatted',status='unknown')
  +
  +      open(fn_out, form='formatted', status='scratch')
         k = 0
         do i2=1,nb2
         head = p2(1,i2)
  
positive.code:       if(buffer.eq." ") istatus = 1
  c      call get_command_argument(i,buffer,l,istatus)
        end subroutine
  
  
        subroutine parse_trimers0(nb2,p2,nb,l,p,px)
        implicit none
  
negative.code:        n2 = nres*(nres-1)/2
         allocate(p2(2,n2))
         call parse_dimers(nres,cg,n2,p2)
         allocate(p3(3,nmax))
         allocate(p4(4,nmax))
         allocate(p5(5,nmax))
         allocate(p6(6,nmax))
         allocate(p7(7,nmax))
         allocate(p8(8,nmax))
         allocate(p9(9,nmax))
         n3 = nmax
         n4 = nmax
         n5 = nmax
         n6 = nmax
         n7 = nmax
         n8 = nmax
         n9 = nmax
  
         call parse_trimers(n2,p2,n2,2,p2,n3,p3)
  c       do i=1,n3
  c         write(*,*) (p3(il,i),il=1,3)
  c       end do
         call parse_trimers(n2,p2,n3,3,p3,n4,p4)
         do i=1,n4
           write(*,'(100I4)') (p4(il,i),il=1,4)
         end do
         call parse_trimers(n2,p2,n4,4,p4,n5,p5)
         do i=1,n5
           write(*,'(100I4)') (p5(il,i),il=1,5)
         end do
         call parse_trimers(n2,p2,n5,5,p5,n6,p6)
         do i=1,n6
           write(*,'(100I4)') (p6(il,i),il=1,6)
         end do
  !!!      == deallocate arrays ==
         deallocate(p2)
         deallocate(cg)
         deallocate(ir)
  