- integer newcontlisti(200*maxres),newcontlistj(200*maxres),
- & newcontlistppi(200*maxres),newcontlistppj(200*maxres),
- & newcontlistpp_vdwi(200*maxres),newcontlistpp_vdwj(200*maxres),
- & newcontlistscpi(200*maxres),newcontlistscpj(200*maxres),
+ integer newcontlisti(2000*maxres),newcontlistj(2000*maxres),
+ & newcontlistppi(2000*maxres),newcontlistppj(2000*maxres),
+ & newcontlistpp_vdwi(2000*maxres),newcontlistpp_vdwj(2000*maxres),
+ & newcontlistscpi(2000*maxres),newcontlistscpj(2000*maxres),