!copyright (C) 2001  MSC-RPN COMM  %%%RPNPHY%%%
       integer espwork
       common /workspc/ espwork