C Copyright(C) 1999-2020 National Technology & Engineering Solutions C of Sandia, LLC (NTESS). Under the terms of Contract DE-NA0003525 with C NTESS, the U.S. Government retains certain rights in this software. C C See packages/seacas/LICENSE for details COMMON /NDIS/ NDISP(10) C ... NDISP(1:NDIM) are the indices of the displacement variables. C (:10) are scratch.