zplrc.f90

来自「Fortran 95程序设计&Code-彭国伦」· F90 代码 · 共 12 行

program main
  use imsl ! 在Visual Fortran使用IMSL前最好先use imsl
  implicit none
  ! f(x) = X^2-3X+2
  real :: p(3) = (/ 2.0, -3.0, 1.0 /)
  complex r(2) ! 答案是复数类型

  call zplrc( 2, p, r ) ! 求解X^2-3X+2=0
  write(*,*) r

  stop
end