简单的fortran程序！

SIESTA用于分子和固体的电子结构计算和分子动力学模拟。SIESTA使用标准的Kohn-Sham自恰密度泛函方法，结合局域密度近似(LDA-LSD)或广义梯度近似(GGA)。计算使用完全非局域形式(Kleinman-Bylander)的模守恒赝势。基组是数值原子轨道的线性组合(LCAO)。它允许任意个角动量，多个zeta，极化和截断轨道。计算中把电子波函和密度投影到实空间网格中，以计算Hartree和XC势，及其矩阵元素。除了标准的R