- real(kind=8),dimension(:,:),allocatable :: aa,bb,augm !(ntyp,ntyp)
+ real(kind=8),dimension(:,:),allocatable :: aa_aq,bb_aq,augm,aa_lip,bb_lip !(ntyp,ntyp)
+ real(kind=8),dimension(:),allocatable :: sc_aa_tube_par,sc_bb_tube_par,&
+ acavtub,bcavtub,ccavtub,dcavtub,tubetranene
+ real(kind=8) :: acavtubpep,bcavtubpep,ccavtubpep,dcavtubpep, &
+ tubetranenepep,pep_aa_tube,pep_bb_tube,tubeR0
+ real(kind=8),dimension(3) :: tubecenter