Searched refs:IDslpw (Results 1 – 1 of 1) sorted by relevance
14 integer, allocatable :: IDslpw(:) local82 allocate(IDslpw(nslpw))88 IDslpw(ni)=islpw96 AA(:)=wlnorm(nn,:,IDslpw(i)) 97 BB(:)=wlnorm(nn,:,IDslpw(j))100 ihis=ihis-2**IDslpw(j)101 wlnorm(nn,:,IDslpw(i))=AA(:)+BB(:) 116 deallocate(IDslpw)