==================================================== subroutine POISSONINITI COMMONS: