Source code for Per-contact probability of HIV transmission in homosexual men in Sydney in the era of HAART published in AIDS 2010