SUBROUTINE get_xvals (xvals, nxval, xmin, xmax)
USE Numeric_Kinds_Module
USE FileUnits_Module
IMPLICIT NONE
!==============================================================================
INTEGER :: j, nxval
REAL (dp) :: xvals (nxval), deltax, xmin, xmax
!==============================================================================
deltax = (xmax - xmin) / (nxval - 1)
DO 1 j = 1, nxval
   xvals (j) = xmin + (j - 1) * deltax

    1 END DO
RETURN
END SUBROUTINE get_xvals