REMARK INISTRUCT.INP
REMARK Author: Michael Nilges
REMARK Ref: Nilges, M. (1993), A calculation strategy for the structure
REMARK      determination of symmetric dimers by 1H NMR.
REMARK      Proteins 17, 297-309.

set seed 223463445602 end

evaluate ($count = 30)
while ($count < 50) loop stru
    evaluate ($count = $count + 1)
    @psf_bld_monomer.inp
    ic reset end
    @random_monomer.inp
    duplicate
        SELEction=(name *)
        SEGId=B
    end
    {
     vector do (resid = 100+decode(resid)) (segid b)
     vector do (segid = "    ") (segid b)
    }
    coor orient                end

    evaluate ($file = "random_" + encode($count) + ".pdb")
    REMARK random phi and psi, monomers overlap
    write coor output= $file end

end loop stru

stop