!copyright (C) 2001  MSC-RPN COMM  %%%RPNPHY%%%
*
*     INITIALISE LE COMMON CTESPHY, SI PAS DEJA FAIT
      IF(.NOT.INIT)CALL INCTPHY
*