mirror of
https://github.com/LCPQ/quantum_package
synced 2024-09-27 03:51:01 +02:00
22 lines
362 B
FortranFixed
22 lines
362 B
FortranFixed
|
program test_number_electrons
|
||
|
implicit none
|
||
|
integer :: i
|
||
|
i = len(ezfio_filename)
|
||
|
do while (ezfio_filename(i:i) == ' ')
|
||
|
i -= 1
|
||
|
if (i == 0) then
|
||
|
stop 1
|
||
|
endif
|
||
|
enddo
|
||
|
i -= 1
|
||
|
do while (ezfio_filename(i:i) /= '/')
|
||
|
i -= 1
|
||
|
if (i == 0) then
|
||
|
stop 1
|
||
|
endif
|
||
|
enddo
|
||
|
i += 1
|
||
|
print *, '"'//trim(ezfio_filename(i:))//'"'
|
||
|
|
||
|
end
|