comp-chem/NWChem
1
0
Fork 0
mirror of https://github.com/nwchemgit/nwchem.git synced 2026-07-29 06:35:39 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

fix undefiened

Browse source
This commit is contained in:
edoapra 2023-02-02 18:08:57 -08:00
parent 285786f253
commit eb2b460bcd
No known key found for this signature in database
GPG key ID: 48E12DA1EDE9E1B0
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/nwdft/lr_tddft/tddft_prod_v.F
View file

@ -58,7 +58,6 @@ c
character*4 targetsym ! Symmetry of target excited state
double precision cwall ! Wall timings
double precision ccpu ! CPU timings
double precision dcpu ! CPU timings
integer algorithm ! =1 multiple fock build; =2: conventional
integer mult ! Ground state spin multiplicity
integer l_irs(2),k_irs(2)! Irreps
@ -116,6 +115,8 @@ c double precision, allocatable, dimension(:,:) :: eye
integer iwhich
c
nodezero=(ga_nodeid().eq.0)
ccpu=0d0
cwall=0d0
cjb
c call ga_print(g_movecs(1))
c