mirror of
https://gitlab.com/scemama/qp_plugins_scemama.git
synced 2024-08-30 07:53:39 +02:00
Forgot file
This commit is contained in:
parent
cf3b4fe449
commit
08e59877d0
20
devel/trexio/trexio_file.irp.f
Normal file
20
devel/trexio/trexio_file.irp.f
Normal file
@ -0,0 +1,20 @@
|
|||||||
|
BEGIN_PROVIDER [ character*(1024), trexio_filename ]
|
||||||
|
implicit none
|
||||||
|
BEGIN_DOC
|
||||||
|
! Name of the TREXIO file
|
||||||
|
END_DOC
|
||||||
|
character*(1024) :: prefix
|
||||||
|
|
||||||
|
trexio_filename = trexio_file
|
||||||
|
|
||||||
|
if (trexio_file == 'None') then
|
||||||
|
prefix = trim(ezfio_work_dir)//trim(ezfio_filename)
|
||||||
|
if (backend == 0) then
|
||||||
|
trexio_filename = trim(prefix)//'.h5'
|
||||||
|
else if (backend == 1) then
|
||||||
|
trexio_filename = trim(prefix)
|
||||||
|
endif
|
||||||
|
endif
|
||||||
|
END_PROVIDER
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user