!copyright (C) 2001  MSC-RPN COMM  %%%RPNPHY%%%
!
!     fonction-formule
      x(ptr,j,k) = ptsurf(ptr)+(k-1)*surflen+j-1