Searched defs:Read_Free_Atoms (Results 1 – 1 of 1) sorted by relevance
| /dports/science/mcstas-comps/mcstas-comps-2.5-src/libs/cif2hkl/ |
| H A D | cif2hkl.F90 | 45434 Subroutine Read_Free_Atoms(Lun, AtmF, N) subroutine
45436 integer, intent(in) :: Lun ! Logical unit to be rad
45437 type(Atom_Type), dimension(:), intent(out) :: AtmF ! Free atoms
45438 integer, intent(out) :: N ! Free atoms read
45441 character(len=80) :: line
45442 character(len=6) :: label
45443 character(len=4) :: var,symb
45444 integer :: i,ier,nlong,iv
45445 integer, dimension(5) :: ivet
45446 real(kind=cp), dimension(5) :: vet
|