& n1,n2,n3,n4,n5,n6,n7,n8,n9,n14,n15,n16,n17,n18,n0,
& is1,is2,nseed,ntotal,icmax,nstmax,irestart,nran0,nran1,irr,
& nglob_csa,nmin_csa,ndiff,nbankm,iucut
- logical ldih_bias
- common/dih_control/rdih_bias,ldih_bias
+ logical ldih_bias,tm_score
+ common/dih_control/rdih_bias,ldih_bias,tm_score
common/diffcuta/ diffcut