Searched defs:coordsFromPipe (Results 1 – 1 of 1) sorted by relevance
50 subroutine coordsFromPipe( na, xa, cell ) subroutine53 integer, intent(in) :: na ! Number of atoms54 real(dp), intent(out) :: xa(3,na) ! Atomic coordinates (bohr)55 real(dp), intent(out) :: cell(3,3) ! Lattice vectors (bohr)57 logical, save :: firstTime = .true.58 integer :: n59 character(len=80) :: fname, task