From 860e88d4cff127dbdfce31c344217885dc0cb4f1 Mon Sep 17 00:00:00 2001 From: Joost VandeVondele Date: Wed, 27 Feb 2013 08:47:10 +0000 Subject: [PATCH] fix grid spacing for DOS (Jinwoong) svn-origin-rev: 12734 --- src/dm_ls_chebyshev.F | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/dm_ls_chebyshev.F b/src/dm_ls_chebyshev.F index 5ce6b10d4c..c87e9289e8 100644 --- a/src/dm_ls_chebyshev.F +++ b/src/dm_ls_chebyshev.F @@ -356,9 +356,8 @@ CONTAINS ALLOCATE (chev_E(1:n_gridpoint_dos)) ALLOCATE (chev_Es_dos(1:n_gridpoint_dos)) ALLOCATE (dummy2(1:nwindow)) - ! are these the right bounds, max_ev, min_ev or interval_a,interval_b ? DO igrid = 1,n_gridpoint_dos - chev_E(igrid) = interval_b-interval_a+(igrid-1)*2*interval_a/(n_gridpoint_dos-1) + chev_E(igrid) = min_ev+(igrid-1)*(max_ev-min_ev)/(n_gridpoint_dos-1) chev_Es_dos(igrid) = (chev_E(igrid) - interval_b)/interval_a END DO DO igrid= 1,n_gridpoint_dos