integer,dimension(:),allocatable :: icharge
real(kind=8),dimension(:,:),allocatable :: alphapol,epshead,&
sig0head,sigiso1,sigiso2,rborn,sigmap1,sigmap2,chis,wquad,chipp,&
- epsintab
+ epsintab,debaykap
real(kind=8),dimension(:,:,:),allocatable :: alphasur,alphiso,&
wqdip,wstate,dtail
real(kind=8),dimension(:,:,:,:),allocatable :: dhead