+ 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
+
+ real(kind=8),dimension(:,:), allocatable :: alphasur_scpho, &
+ chi_scpho,chipp_scpho,chis_scpho, &
+ wqdip_scpho
+ real(kind=8) ,dimension(4) :: alphasur_peppho
+ real(kind=8) ,dimension(2) :: wqdip_peppho
+ real(kind=8) :: eps_peppho,sigma_peppho,sigmap1_peppho,sigmap2_peppho, &
+ aa_peppho,bb_peppho