|
Lines 762-769
subroutine <prefix2>syevr(compute_v,range,lower,n,a,lda,vl,vu,il,iu,abstol,w,z,m
Link Here
|
| 762 |
<ftype2> optional,intent(in) :: vl=0.0 |
762 |
<ftype2> optional,intent(in) :: vl=0.0 |
| 763 |
<ftype2> optional,intent(in),check(vu>=vl),depend(vl) :: vu=1.0 |
763 |
<ftype2> optional,intent(in),check(vu>=vl),depend(vl) :: vu=1.0 |
| 764 |
<ftype2> intent(in) :: abstol=0.0 |
764 |
<ftype2> intent(in) :: abstol=0.0 |
| 765 |
integer optional,intent(in),depend(n),check(lwork>=max(1,26*n)||lwork==-1) :: lwork=max(26*n,1) |
765 |
integer optional,intent(in),depend(n),check(lwork>=(n <= 1 ? 1 : max(1,26*n))||lwork==-1) :: lwork=max(26*n,1) |
| 766 |
integer optional,intent(in),depend(n),check(liwork>=max(1,10*n)||liwork==-1):: liwork= max(1,10*n) |
766 |
integer optional,intent(in),depend(n),check(liwork>=(n <= 1 ? 1 : max(1,10*n))||liwork==-1):: liwork= max(1,10*n) |
| 767 |
|
767 |
|
| 768 |
integer intent(hide),depend(a) :: n=shape(a,0) |
768 |
integer intent(hide),depend(a) :: n=shape(a,0) |
| 769 |
integer intent(hide),depend(n) :: lda=max(1,n) |
769 |
integer intent(hide),depend(n) :: lda=max(1,n) |
|
Lines 832-840
subroutine <prefix2c>heevr(compute_v,range,lower,n,a,lda,vl,vu,il,iu,abstol,w,z,
Link Here
|
| 832 |
<ftype2> optional,intent(in) :: vl=0.0 |
832 |
<ftype2> optional,intent(in) :: vl=0.0 |
| 833 |
<ftype2> optional,intent(in),check(vu>vl),depend(vl) :: vu=1.0 |
833 |
<ftype2> optional,intent(in),check(vu>vl),depend(vl) :: vu=1.0 |
| 834 |
<ftype2> intent(in) :: abstol=0.0 |
834 |
<ftype2> intent(in) :: abstol=0.0 |
| 835 |
integer optional,intent(in),depend(n),check(lwork>=max(2*n,1)||lwork==-1) :: lwork=max(2*n,1) |
835 |
integer optional,intent(in),depend(n),check(lwork>=(n <= 1 ? 1 : max(1,2*n))||lwork==-1) :: lwork=max(2*n,1) |
| 836 |
integer optional,intent(in),depend(n),check(lrwork>=max(24*n,1)||lrwork==-1) :: lrwork=max(24*n,1) |
836 |
integer optional,intent(in),depend(n),check(lrwork>=(n <= 1 ? 1 : max(1,24*n))||lrwork==-1) :: lrwork=max(24*n,1) |
| 837 |
integer optional,intent(in),depend(n),check(liwork>=max(1,10*n)||liwork==-1):: liwork= max(1,10*n) |
837 |
integer optional,intent(in),depend(n),check(liwork>=(n <= 1 ? 1 : max(1,10*n))||liwork==-1):: liwork= max(1,10*n) |
| 838 |
|
838 |
|
| 839 |
integer intent(hide),depend(a) :: n=shape(a,0) |
839 |
integer intent(hide),depend(a) :: n=shape(a,0) |
| 840 |
integer intent(hide),depend(n) :: lda=max(1,n) |
840 |
integer intent(hide),depend(n) :: lda=max(1,n) |