mirror of
https://gitlab.com/scemama/qp_plugins_scemama.git
synced 2024-08-29 23:43:43 +02:00
Update trexio files
This commit is contained in:
parent
e1da425522
commit
cf60101851
@ -1,2 +1 @@
|
||||
-ltrexio
|
||||
|
||||
-L/lustre/home/scemama/qp2/lib -ltrexio
|
||||
|
@ -19,12 +19,11 @@ 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('cp '//trim(trexio_filename)//' '//trim(trexio_filename)//'.bak')
|
||||
if (backend == 0) then
|
||||
f = trexio_open(trexio_filename, 'w', TREXIO_HDF5, rc)
|
||||
f = trexio_open(trexio_filename, 'u', TREXIO_HDF5, rc)
|
||||
else if (backend == 1) then
|
||||
f = trexio_open(trexio_filename, 'w', TREXIO_TEXT, rc)
|
||||
f = trexio_open(trexio_filename, 'u', TREXIO_TEXT, rc)
|
||||
endif
|
||||
if (f == 0_8) then
|
||||
print *, 'Unable to open TREXIO file for writing'
|
||||
|
Loading…
Reference in New Issue
Block a user