comp-chem/NWChem
1
0
Fork 0
mirror of https://github.com/nwchemgit/nwchem.git synced 2026-07-28 22:25:48 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

system->util_system

Browse source
This commit is contained in:
Jeff Hammond 2023-10-16 09:55:17 +03:00
parent f9cfbc7096
commit cac4167734
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/nwpw/nwpwlib/nwpwxc/nwpwxc_vdw3b.F
View file

@ -1114,6 +1114,8 @@ ccccccccccccccccccccccccccccccccccccccccccccccccccccccc
real*8 xx(10),gsum,x,y,z
real*8, dimension(:,:), allocatable :: gr
logical ex
integer util_system
external util_system
allocate(gr(3,nat))
@ -1192,7 +1194,8 @@ c write file gradient
close(42)
close(43)
call system('mv gradient.tmp gradient')
if (util_system('mv gradient.tmp gradient').ne.0)
& call errquit('nwpwxc_vdw3b: util_system failed',1197,0)
c write file energy
j=1
@ -1225,7 +1228,8 @@ c write file energy
close(42)
close(43)
call system('mv energy.tmp energy')
if (util_system('mv energy.tmp energy').ne.0)
& call errquit('nwpwxc_vdw3b: util_system failed',1231,0)
end subroutine nwpwxc_wregrad