Hello, I don't have much experience with Fortran and I've never had this problem before:
module cg
use numeric_kinds
implicit none
contains
subroutine symgs(A,rk,n,zk)
integer, intent(in) :: n
real(dp), dimension(n,n), intent(in) :: A
real(dp), dimension(n), intent(in) :: rk
real(dp)...