!copyright (C) 2001 MSC-RPN COMM %%%RPNPHY%%%
implicit none