📄 libks_f90.htm

📁 fortran程序

💻 HTM

字号:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0060)http://www.eng.man.ac.uk/geotech/software/prog_fe3/Libks.f90 -->
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2600.0" name=GENERATOR></HEAD>
<BODY><PRE>module libks 
!The subroutines lancz1 and lancz2 are based on the package EA15 in
!the Harwell Subroutine Library.  All use is subject to licence.
!For information about the Harwell Subroutine Library,
!see http://www.cse.circ.ac.uk/Activity/HSL
contains
  subroutine lancz1(n,el,er,acc,leig,lx,lalfa,lp,itape,iflag,u,v, &amp;
                     eig,jeig,neig,x,del,nu,alfa,beta)            
  implicit none
  end subroutine lancz1
  subroutine ea15cd(j,lalfa,alfa,beta,e,enorm,err,bnd,match)
  implicit none
  end subroutine ea15cd
  subroutine ea15dd(n,alfa,beta,x,del,nu,dr,nur)
  end subroutine ea15dd
  subroutine lancz2(n,lalfa,lp,itape,eig,jeig,neig,  &amp;
                       alfa,beta,lz,jflag,y,w,z)
  end  subroutine lancz2
  subroutine ea15fd(n,itape,nlan,io,v)
  end  subroutine ea15fd
  subroutine ea15gd(j,lalfa,alfa,beta,e,match,z)
  end subroutine ea15gd 
end module libks
</PRE></BODY></HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -