+ g_listscsc_start,g_listscsc_end, &
+ g_listcatsctran_start,g_listcatsctran_end,&
+ g_listcatscnorm_start,g_listcatscnorm_end,&
+ g_listcatptran_start,g_listcatptran_end,&
+ g_listcatpnorm_start,g_listcatpnorm_end,&
+ g_ilist_catscnorm,g_ilist_catsctran,g_ilist_catpnorm,&
+ g_ilist_catptran,g_ilist_catscang,g_ilist_catscangf,g_ilist_catscangt,&
+ g_listcatscang_start,g_listcatscang_end,&
+ g_listcatscangf_start,g_listcatscangf_end,&
+ g_listcatscangt_start,g_listcatscangt_end,&
+ g_listcatcatnorm_start,g_listcatcatnorm_end,g_ilist_catcatnorm,&
+ g_ilist_martp,g_ilist_martsc,&
+ g_listmartsc_start,g_listmartsc_end,&
+ g_listmartp_start,g_listmartp_end
+
+
+
+! MARTINI FORCE FIELD
+ integer :: ilipbond_start,ilipbond_end,ilipang_start,ilipang_end, &
+ maxelecliplist,ilip_elec_start,ilipelec_end,maxljliplist,iliplj_start,iliplj_end,&
+ ilipbond_start_tub,ilipbond_end_tub
+ integer,dimension(:),allocatable :: mlipljlisti,mlipljlistj,&
+ mlipeleclisti,mlipeleclistj
+ real(kind=8),dimension(:,:,:),allocatable :: lip_angle_force,lip_angle_angle
+ real(kind=8),dimension(:,:),allocatable :: lip_bond,lip_eps,lip_sig
+ integer,dimension(:),allocatable :: ichargelipid
+ real(kind=8) :: kjtokcal,krad,k_coulomb_lip,kbondlip