IffGit has a new shared runner for building Docker images in GitLab CI. Visit https://iffgit.fz-juelich.de/examples/ci-docker-in-docker for more details.

Commit 81ab90c5 authored by Matthias Redies's avatar Matthias Redies
Browse files

fix allocation issue

parent ccc1f5fa
......@@ -219,9 +219,6 @@ CONTAINS
! set up the overlap matrix
allocate(eigv(full_n_radbasfn, full_n_radbasfn), source=0.0)
allocate(work(3*full_n_radbasfn), source=0.0)
allocate(eig(full_n_radbasfn), source=0.0)
i_basfn = 0
! valence*valence
......@@ -312,7 +312,9 @@ contains
n = size(olap, dim=1)
if(allocated(eig_val)) then
if(size(eig_val) /= n) deallocate(eig_val)
if(.not. allocated(eig_val)) allocate(eig_val(n))
eig_vec = olap
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment