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 *, 'TREXIO file : '//trim(trexio_filename)
|
||||||
print *, ''
|
print *, ''
|
||||||
|
|
||||||
call system('rm -rf '//trim(trexio_filename)//'.bak')
|
call system('cp '//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, rc)
|
f = trexio_open(trexio_filename, 'u', TREXIO_HDF5, rc)
|
||||||
else if (backend == 1) then
|
else if (backend == 1) then
|
||||||
f = trexio_open(trexio_filename, 'w', TREXIO_TEXT, rc)
|
f = trexio_open(trexio_filename, 'u', TREXIO_TEXT, rc)
|
||||||
endif
|
endif
|
||||||
if (f == 0_8) then
|
if (f == 0_8) then
|
||||||
print *, 'Unable to open TREXIO file for writing'
|
print *, 'Unable to open TREXIO file for writing'
|
||||||
|
Loading…
Reference in New Issue
Block a user