quantum_package/src/Ezfio_files/tests/test_ezfio.irp.f

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
Ezfio_files tested 2014-04-07 17:36:19 +02:00			`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`
Run tests in parallel using python multiprocessing pool 2014-04-07 21:13:24 +02:00			`print *, 'f : ','"'//trim(ezfio_filename(i:))//'"'`
Ezfio_files tested 2014-04-07 17:36:19 +02:00
			`end`