Commit 80bf8fd2 authored by Matthias Redies's avatar Matthias Redies

add init to zeros

parent 7e40b1bf
......@@ -23,9 +23,15 @@ CONTAINS
! - local -
INTEGER :: i, j, itype, icent, ineq
REAL :: g, r, fgr
COMPLEX, PARAMETER :: img = (0.0, 1.0)
COMPLEX, PARAMETER :: img = (0.0, 1.0)
INTEGER :: dg(3)
if(olap%l_real) then
olap%data_r = 0
else
olap%data_c = 0
endif
call timestart("olap_pw")
DO i = 1, ngpt
DO j = 1, i
......
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