mirror of
https://gitlab.com/scemama/qp_plugins_scemama.git
synced 2024-08-30 07:53:39 +02:00
Fix trexio
This commit is contained in:
parent
568252c506
commit
be17a1cc0d
@ -11,13 +11,17 @@ program export_trexio
|
|||||||
print *, 'TREXIO file : '//trim(trexio_filename)
|
print *, 'TREXIO file : '//trim(trexio_filename)
|
||||||
print *, ''
|
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
|
if (backend == 0) then
|
||||||
f = trexio_open(trexio_filename, 'w', TREXIO_HDF5)
|
f = trexio_open(trexio_filename, 'w', TREXIO_HDF5, rc)
|
||||||
else if (backend == 1) then
|
else if (backend == 1) then
|
||||||
f = trexio_open(trexio_filename, 'w', TREXIO_TEXT)
|
f = trexio_open(trexio_filename, 'w', TREXIO_TEXT, rc)
|
||||||
endif
|
endif
|
||||||
if (f == 0) then
|
if (f == 0) then
|
||||||
print *, 'Unable to open TREXIO file for writing'
|
print *, 'Unable to open TREXIO file for writing'
|
||||||
|
print *, 'rc = ', rc
|
||||||
stop -1
|
stop -1
|
||||||
endif
|
endif
|
||||||
|
|
||||||
|
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue
Block a user