Searched defs:Change_Setting_Cell (Results 1 – 1 of 1) sorted by relevance
| /dports/science/mcstas-comps/mcstas-comps-2.5-src/libs/cif2hkl/ |
| H A D | cif2hkl.F90 | 30920 Subroutine Change_Setting_Cell(Cell,Mat,Celln,Matkind) subroutine
30922 type (Crystal_Cell_Type), intent( in) :: Cell
30923 real(kind=cp), dimension (3,3),intent( in) :: Mat
30924 type (Crystal_Cell_Type), intent(out) :: Celln
30925 character(len=*), optional, intent (in) :: Matkind
30928 integer :: i
30929 real(kind=cp), dimension(3) :: cellv,angl
30930 real(kind=cp), dimension(3,3) :: S,Gn,ST
|