+!2 Jul 2017 lipidc parameters -----------------------------------------------------
+ real(kind=8),dimension(:), allocatable :: liptranene
+ real(kind=8) :: pepliptran
+
+! 4 Jul 2017 parameters for shieliding
+ real(kind=8),dimension(:), allocatable :: long_r_sidechain, &
+ short_r_sidechain
+ real(kind=8) :: VSolvSphere,VSolvSphere_div,buff_shield
+! AFM
+ real(kind=8) :: distafminit,forceAFMconst,velAFMconst
+ integer :: afmend,afmbeg
+ real(kind=8),dimension(:,:), allocatable :: catprm
+
+ real(kind=8),dimension(:,:), allocatable :: eps_scbase, &
+ sigma_scbase, &
+ sigmap1_scbase,sigmap2_scbase, &
+ dhead_scbasei, dhead_scbasej, epshead_scbase,&
+ sig0head_scbase, rborn_scbasei,rborn_scbasej,alphapol_scbase,epsintab_scbase,&
+ aa_scbase,bb_scbase
+ real(kind=8),dimension(:,:,:), allocatable :: alphasur_scbase, &
+ wdipdip_scbase,wqdip_scbase,chi_scbase,chipp_scbase,chis_scbase
+
+ real(kind=8),dimension(:), allocatable :: eps_pepbase, &
+ sigma_pepbase, &
+ sigmap1_pepbase,sigmap2_pepbase,&
+ aa_pepbase,bb_pepbase
+
+ real(kind=8),dimension(:,:), allocatable :: alphasur_pepbase, &
+ wdipdip_pepbase,chi_pepbase,chipp_pepbase,chis_pepbase
+
+ real(kind=8),dimension(:), allocatable :: eps_scpho, &
+ sigma_scpho, &
+ sigmap1_scpho,sigmap2_scpho,&
+ aa_scpho,bb_scpho,wqq_scpho,epsintab_scpho,alphapol_scpho,&
+ rborn_scphoi,rborn_scphoj,dhead_scphoi