Searched refs:max_coor (Results 1 – 3 of 3) sorted by relevance
| /dports/science/luscus/luscus_0.8.6/ |
| H A D | surface.c | 99 new_child->max_coor[i]=new_child->min_coor[i]=0; in msrf_New_Surface()
140 self->min_coor[k]=self->max_coor[k]=txyz[k][0]; /* init min/max vaues */ in srf_Add_Triangle()
151 if (self->max_coor[k] < txyz[k][vi]) { self->max_coor[k]=txyz[k][vi]; } in srf_Add_Triangle()
|
| H A D | surface.h | 40 point_t max_coor,min_coor; /* bounding box: for max. diameter calc. */ member
|
| /dports/science/mcstas-comps/mcstas-comps-2.5-src/libs/cif2hkl/ |
| H A D | cif2hkl.F90 | 40615 max_coor= (dmax/r_atom)**3
40616 max_coor=max(max_coor,nasu*numops)
40620 Coord_Info%Max_Coor= max_coor
40624 allocate (Coord_Info%N_Sym(max_coor,nasu))
40625 allocate (Coord_Info%Dist(max_coor,nasu))
40960 allocate(uu(3,max_coor))
40962 allocate(bcoo(3,max_coor))
40964 allocate(sbcoo(3,max_coor))
40966 allocate(trcoo(3,max_coor))
42585 real(kind=cp), dimension(3,max_coor) :: uu
[all …]
|