Searched refs:ptgroupha (Results 1 – 3 of 3) sorted by last modified time
83 if(ptgroupha==" 2")ptgroupma=484 if(ptgroupha==" -2")ptgroupma=585 if(ptgroupha==" -1")ptgroupma=689 if(ptgroupha==" 2")ptgroupma=890 if(ptgroupha==" -2")ptgroupma=992 if(ptgroupha==" 222")ptgroupma=1093 if(ptgroupha==" mm2")ptgroupma=1194 if(ptgroupha==" 2/m")ptgroupma=12100 if(ptgroupha==" 4")ptgroupma=15101 if(ptgroupha==" 222")ptgroupma=16[all …]
260 subroutine getptgroupma(ptgroup,ptgroupha,ptgroupma)264 character(len=5),intent(in) :: ptgroupha local
87 character(len=5) :: ptgroup,ptgroupha local180 call symptgroup(iholohedry_nomagn,nsym_nomagn,ptgroupha,symrel_nomagn)183 call getptgroupma(ptgroup,ptgroupha,ptgroupma)