      SUBROUTINE CREVAL(VAL,NBCOL,VMIN,VMAX)
C
      DIMENSION VAL(*)
C
      UNSNB = 1./REAL(NBCOL)
      DO I = 1,NBCOL+1
        VAL(I) = (REAL(NBCOL+1-I)*VMIN + REAL(I-1)*VMAX)*UNSNB
      ENDDO
      END
