Searched refs:so_ncent (Results 1 – 6 of 6) sorted by relevance
79 logical so_ncent177 external so_ncent
4862 logical function so_ncent(geom,soidin,num_cent) function4886 so_ncent = geom_ncent(geom,ntotal)4887 if (.not.so_ncent) call errquit
4863 logical function so_ncent(geom,soidin,num_cent)4887 so_ncent = geom_ncent(geom,ntotal)4888 if (.not.so_ncent) call errquit
135 if (.not.so_ncent