Searched refs:Read_Fract (Results 1 – 1 of 1) sorted by relevance
| /dports/science/mcstas-comps/mcstas-comps-2.5-src/libs/cif2hkl/ |
| H A D | cif2hkl.F90 | 6221 private :: BuildFmt, TreatNumerField, TreatMCharField, SgetFtmField, FindFmt_Err,Read_Fract
7770 call Read_Fract(ori(1:pos(1)-1),v(1))
7771 call Read_Fract(ori(pos(1)+1:pos(2)-1),v(2))
7772 call Read_Fract(ori(pos(2)+1:),v(3))
7983 call Read_Fract(split(m), v(k))
8602 Subroutine Read_Fract(str,valu) subroutine
8647 End Subroutine Read_Fract
|