... m*m_X*m_Y ! ... 1-2-3-4 m_m_X_m_Y = m*m_X*m_Y k2 = m_Z j2 = m_Y i2 = m_X do k = k2,k2 do j = 1,j2 do i = 1,i2 L = m_m_X_m_Y*(k-1) + m*m_X*(j-1) + m*(i - 1) do j_group=1,m N=N+1 index_XYZ_rndm(N) = L + j_group work_XYZ_rndm(N,1) = XYZ_0(j_group,1) + dble(i - 1) work_XYZ_rndm(N,2) = XYZ_0(j_group,2) + dble(j - 1) work_XYZ_rndm(N,3) = XYZ_0(j_group,3) - dble(1) write(2,'(5x,i6,3x,A7,2x,2(f5.2,2x))')N_gran_points,Name_atom_gran(N_gran_points), & XYZ_gran(N_gran_points,1),XYZ_gran(N_gran_points,2) end do...

Еще в разделе: (Показать все результаты (>3) - cryst.geol.msu.ru/ )

Journal of Mathematical Sciences, Vol. xxx, No. y, 2003 DIFFERENTIAL EQUATIONS IN BANACH SPACES I I. THEORY OF COSINE OPERATOR FUNCTIONS V. V. Vasil'ev and S. I. Piskarev UDC 517.986.7; 517.983.6 Dedicated to Vasil'eva Aleksandra Vladimirovna and Piskareva Lidiya Ivanovna, our mothers. INTRODUCTION More than 13 years have passed since the fundamental survey [16] was prepared, which, as the author intended, should b e the first part of a large work devoted to abstract differential equations and methods for

186. http://shg.phys.msu.ru/educat/tosn/tfqr08.pdf