+ real(kind=8),dimension(:,:),allocatable :: sigma_nucl !(0:ntyp1,0:ntyp1)
+ real(kind=8),dimension(:,:),allocatable :: eps_nucl,sigmaii_nucl,&
+ chi_nucl,r0_nucl, chip_nucl !(ntyp,ntyp) r0e !!! nie używane
+ real(kind=8),dimension(:),allocatable :: alp_nucl,sigma0_nucl,&
+ sigii_nucl,rr0_nucl !(ntyp)
+ real(kind=8),dimension(2,2) :: rpp_nucl,epp_nucl
+ real(kind=8),dimension(:,:),allocatable ::elpp6_nucl,&
+ elpp3_nucl,elpp32_nucl,elpp63_nucl
+ real(kind=8):: r0pp,epspp,AEES,BEES
+