initial import, assumed to be closest to the original code; obtained from /fs3/group/jonasgrp/Jose/SONET