Searched defs:Get_String_Resolv (Results 1 – 1 of 1) sorted by relevance
| /dports/science/mcstas-comps/mcstas-comps-2.5-src/libs/cif2hkl/ |
| H A D | cif2hkl.F90 | 25842 Subroutine Get_String_Resolv(t,x,ix,symb) subroutine
25844 real(kind=cp), dimension(3), intent( in) :: t
25845 real(kind=cp), dimension(3), intent( in) :: x local
25846 integer, dimension(3), intent( in) :: ix
25847 character (len=*), intent(out) :: symb
25850 character(len=60) :: car
25851 integer :: i, np, npos
25852 real(kind=cp),dimension(3) :: xx
|