mirror of
https://github.com/LCPQ/quantum_package
synced 2024-06-28 16:12:26 +02:00
22 lines
369 B
Fortran
22 lines
369 B
Fortran
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 *, 'f : ','"'//trim(ezfio_filename(i:))//'"'
|
|
|
|
end
|