& aksc(maxbondterm,ntyp),abond0(maxbondterm,ntyp),
& distchainmax,nbondterm(ntyp)
C 01/29/15 Lipidic parameters
- double precision pepliptran,liptranene,
+ double precision pepliptran,liptranene, lipscale,
&tubetranene, tubetranenepep
- common /lipid/ pepliptran,liptranene(ntyp)
+ common /lipid/ pepliptran,liptranene(ntyp),lipscale
common /tubepar/ tubetranene(ntyp), tubetranenepep