1
0
mirror of https://gitlab.com/scemama/qp_plugins_scemama.git synced 2024-10-06 08:15:59 +02:00

Compare commits

...

4 Commits

3 changed files with 7 additions and 1 deletions

View File

@ -1,3 +1,4 @@
cipsi
cipsi
selectors_full
davidson_undressed

View File

@ -19,6 +19,9 @@ subroutine run
print *, 'TREXIO file : '//trim(trexio_filename)
print *, ''
call system('rm -rf '//trim(trexio_filename)//'.bak')
call system('mv '//trim(trexio_filename)//' '//trim(trexio_filename)//'.bak')
! call system('mv '//trim(trexio_filename)//' '//trim(trexio_filename)''//.bak)
if (backend == 0) then
f = trexio_open(trexio_filename, 'w', TREXIO_HDF5, rc)
else if (backend == 1) then
@ -26,6 +29,7 @@ subroutine run
endif
if (f == 0) then
print *, 'Unable to open TREXIO file for writing'
print *, 'rc = ', rc
stop -1
endif

View File

@ -1,3 +1,4 @@
cipsi
generators_cas
selectors_cassd
davidson_undressed