Module SurfaceAph_Module
USE Numeric_Kinds_Module
Implicit None
Save

!========================================================================
LOGICAL :: firstcallaph
INTEGER :: totnaphsf
INTEGER,ALLOCATABLE :: naphsf(:)
REAL(dp),ALLOCATABLE :: aphpot(:), apbover2(:) , lterm(:)
REAL(dp),ALLOCATABLE :: weights(:)

End Module SurfaceAph_Module