1 interface 2 subroutine wfn1_ad_dlascl(type,kl,ku,cfrom,cto,m,n,a,lda,info) 3 use wfn1_ad1 4 implicit none 5 character type 6 integer kl,ku,m,n,lda,info 7 type(wfn1_ad_dble) :: cfrom,cto,a(lda,*) 8 end subroutine 9 end interface 10