mirror of
https://github.com/pfloos/quack
synced 2024-07-12 06:13:47 +02:00
21 lines
350 B
Fortran
21 lines
350 B
Fortran
subroutine ReadNAtoms(NAtoms)
|
|
|
|
! Read number of atoms
|
|
|
|
implicit none
|
|
|
|
! Input variables
|
|
integer,intent(out) :: NAtoms
|
|
|
|
! Open file with geometry specification
|
|
open(unit=1,file='input/molecule')
|
|
|
|
! Read number of atoms
|
|
read(1,*)
|
|
read(1,*) NAtoms
|
|
|
|
! Close file with geometry specification
|
|
close(unit=1)
|
|
|
|
end subroutine ReadNAtoms
|