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