e.f90
C:\practice\practice.f90(173) : Error: A kind type parameter must be a compile-time constant. [DP]
real(dp), intent(in) :: xx(mm)
---------------------^
C:\practice\practice.f90(174) : Error: A kind type parameter must be a compile-time constant. [DP]
real(dp), intent(out) :: ff
---------------------^
C:\practice\practice.f90(175) : Error: A kind type parameter must be a compile-time constant. [DP]
real(dp), intent(out) :: gg(mm)
---------------------^
C:\practice\practice.f90(238) : Error: A kind type parameter must be a compile-time constant. [DP]
real(dp), intent(in) :: xx(mm)
---------------------^
C:\practice\practice.f90(239) : Error: A kind type parameter must be a compile-time constant. [DP]
real(dp), intent(out) :: ff
---------------------^
C:\practice\practice.f90(240) : Error: A kind type parameter must be a compile-time constant. [DP]
real(dp), intent(out) :: gg(mm)
---------------------^
C:\practice\practice.f90(186) : Error: The type of the actual argument differs from the type of the dummy argument. [X]
call func(m, x, f, g, charge_arr)
---------------------^
C:\practice\practice.f90(186) : Error: The type of the actual argument differs from the type of the dummy argument. [F]
call func(m, x, f, g, charge_arr)
------------------------^
C:\practice\practice.f90(186) : Error: The type of the actual argument differs from the type of the dummy argument. [G]
call func(m, x, f, g, charge_arr)
---------------------------^
C:\practice\practice.f90(187) : Error: This name does not have a type, and must have an explicit type. [NORM2]
grad_tol = norm2(g)
-------------------^
C:\practice\practice.f90(204) : Error: The type of the actual argument differs from the type of the dummy argument. [X]
call func(m, x, f, g_new, charge_arr)
-------------------------^
C:\practice\practice.f90(204) : Error: The type of the actual argument differs from the type of the dummy argument. [F]
call func(m, x, f, g_new, charge_arr)
----------------------------^
C:\practice\practice.f90(204) : Error: The type of the actual argument differs from the type of the dummy argument. [G_NEW]
call func(m, x, f, g_new, charge_arr)
-------------------------------^
C:\practice\practice.f90(249) : Error: The type of the actual argument differs from the type of the dummy argument. [X_OUT]
call func(m, x_out, f_out, g, charge_arr)
-------------------------^
C:\practice\practice.f90(249) : Error: The type of the actual argument differs from the type of the dummy argument. [F_OUT]
call func(m, x_out, f_out, g, charge_arr)
--------------------------------^
C:\practice\practice.f90(249) : Error: The type of the actual argument differs from the type of the dummy argument. [G]
call func(m, x_out, f_out, g, charge_arr)
---------------------------------------^
C:\practice\practice.f90(249) : Error: There is an assignment to a dummy symbol with the explicit INTENT(IN) attribute [G]
call func(m, x_out, f_out, g, charge_arr)
---------------------------------------^
C:\practice\practice.f90(259) : Error: The type of the actual argument differs from the type of the dummy argument. [X_OUT]
call func(m, x_out, f_out, g, charge_arr)
---------------------^
C:\practice\practice.f90(259) : Error: The type of the actual argument differs from the type of the dummy argument. [F_OUT]
call func(m, x_out, f_out, g, charge_arr)
----------------------------^
C:\practice\practice.f90(259) : Error: The type of the actual argument differs from the type of the dummy argument. [G]
call func(m, x_out, f_out, g, charge_arr)
-----------------------------------^
C:\practice\practice.f90(259) : Error: There is an assignment to a dummy symbol with the explicit INTENT(IN) attribute [G]
call func(m, x_out, f_out, g, charge_arr)
-----------------------------------^
C:\practice\practice.f90(265) : Error: The shapes of the array expressions do not conform. [X]
x = [1.0_dp, 1.0_dp, 0.5_dp, 0.0_dp, 0.0_dp, &
--------^
C:\practice\practice.f90(297) : Error: Error in opening the Library module file. [POTENTIAL_MOD]
use potential_mod
--------^
C:\practice\practice.f90(301) : Error: A kind type parameter must be a compile-time constant. [DP]
real(dp) :: x(ndim)
---------^
C:\practice\practice.f90(302) : Error: A kind type parameter must be a compile-time constant. [DP]
real(dp) :: f, g(ndim)
---------^
C:\practice\practice.f90(307) : Error: Keyword arguments are invalid without an explicit interface. [TOL]
call bfgs(ndim, x, f, g, tol=1.0e-6_dp, max_iter=1000, converged=converged, &
-----------------------------^
C:\practice\practice.f90(307) : Error: This name does not have a type, and must have an explicit type. [DP]
call bfgs(ndim, x, f, g, tol=1.0e-6_dp, max_iter=1000, converged=converged, &
---------------------------------------^
C:\practice\practice.f90(307) : Error: A kind-param must be a digit-string or a scalar-int-constant-name [DP]
call bfgs(ndim, x, f, g, tol=1.0e-6_dp, max_iter=1000, converged=converged, &
---------------------------------------^
C:\practice\practice.f90(307) : Error: Keyword arguments are invalid without an explicit interface. [MAX_ITER]
call bfgs(ndim, x, f, g, tol=1.0e-6_dp, max_iter=1000, converged=converged, &
--------------------------------------------^
C:\practice\practice.f90(307) : Error: Keyword arguments are invalid without an explicit interface. [CONVERGED]
call bfgs(ndim, x, f, g, tol=1.0e-6_dp, max_iter=1000, converged=converged, &
-----------------------------------------------------------^
(319) : Severe: Too many errors, exiting
Error executing df.exe.
practice.exe - 30 error(s), 0 warning(s)