real(kind=8) :: cPoise=2.9361d0, Rb=0.001986d0
real(kind=8),dimension(:),allocatable :: gamsc !(ntyp1)
real(kind=8),dimension(:),allocatable :: stdfsc !(ntyp)
real(kind=8) :: cPoise=2.9361d0, Rb=0.001986d0
real(kind=8),dimension(:),allocatable :: gamsc !(ntyp1)
real(kind=8),dimension(:),allocatable :: stdfsc !(ntyp)