comp-chem/NWChem
1
0
Fork 0
mirror of https://github.com/nwchemgit/nwchem.git synced 2026-07-27 21:55:30 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

fix for flang open error

Browse source
This commit is contained in:
edoapra 2024-11-15 16:43:30 -08:00
parent 0779ca2e41
commit 8e95d44da9
No known key found for this signature in database
GPG key ID: 9E6A0B70826967BA
1 changed files with 15 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/stepper/stpr_gen_aux.F
View file

@ -395,10 +395,13 @@ C>
logical dipole_okay !< [Input] Should the dipole derivative be
!< stored?
logical lopen !< Is the file open?
logical does_it_exist !< Does the file exist
c
integer iatom_start, ixyz_start
integer iflag_grad0
integer dipole_there
integer iostat
character*256 io_errmsg
c
if (ga_nodeid().ne.0) then
write(luout,*)' non-master node called me ',ga_nodeid()
@ -432,6 +435,18 @@ c is a bug somewhere else.
inquire(unit=69,opened=lopen)
if (lopen) call errquit("stpr_put_genat_restart: unit 69 should "
& //"be closed at this point",0,UERR)
inquire(file=FILEATR,exist=does_it_exist)
if(.not.does_it_exist) then
open(unit=69, file=FILEATR,
I iostat=iostat,
& iomsg=io_errmsg)
if(iostat.ne.0)
W write(6,*) ga_nodeid(),' open iomsg WARNING: ',io_errmsg
close(unit=69,iostat=iostat,
& iomsg=io_errmsg)
if(iostat.ne.0)
W write(6,*) ga_nodeid(),' close iomsg WARNING: ',io_errmsg
endif
open(unit=69,file=FILEATR,
& form='unformatted',
& access='sequential',