1*59599516SKenneth E. Jansen module slpw 2*59599516SKenneth E. Jansen integer, allocatable :: iBCg(:) 3*59599516SKenneth E. Jansen real*8, allocatable :: BCg(:,:) 4*59599516SKenneth E. Jansen real*8, allocatable :: BCtmpg(:,:) 5*59599516SKenneth E. Jansen real*8, allocatable :: wlnorm(:,:,:) 6*59599516SKenneth E. Jansen integer, allocatable :: idxslpw(:) 7*59599516SKenneth E. Jansen integer, allocatable :: mpslpw(:,:) 8*59599516SKenneth E. Jansen integer nslpwnd 9*59599516SKenneth E. Jansen end module 10