[Octopus-devel] * PING * [Patch] Fix compiling Octopus with SPARSEKIT

[Tobias Burnus]

* PING *

On Tue, Jan 12, 2010 at 04:27:16PM +0100, Tobias Burnus wrote:
> Hi all,
> 
> currently, Octopus (SVN version) fails to compile with the message.
> I assume I am one of the few persons which HAVE_SPARSKIT installed ...
> 
> The patch at the very bottom fixes the problem, which is a left over
> of the change http://www.tddft.org/trac/octopus/changeset/6253
> 
>     12/21/09 22:33:58 (3 weeks ago)
> Author:
>     xavier
> Message:
> 
>     * Fixed some errors in my previous commit.
>     * Changed the order of the argument for some v_ks_* functions.
> 
> 
> Here is the error:
> 
> ../../../octopus-trunk/src/td/td_rti.F90:926.23:
> 
>         call v_ks_calc(gr, ks, hm, st)
>                        1
> Error: Type mismatch in argument 'ks' at (1); passed TYPE(grid_t) to TYPE(v_ks_t)
> 
> 
> Tobias
> 
> 
> Index: src/td/td_rti.F90
> ===================================================================
> --- src/td/td_rti.F90   (revision 6264)
> +++ src/td/td_rti.F90   (working copy)
> @@ -924,7 +924,7 @@
>          end do
> 
>          call states_calc_dens(st, gr)
> -        call v_ks_calc(gr, ks, hm, st)
> +        call v_ks_calc(ks, gr, hm, st)
> 
>          vhxc_t2 = hm%vhxc
>          ! compute potential at n+1/2 as average
>