! -*- f90 -*- ! Note: the context of this file is case sensitive. python module zgmatv ! in interface ! in :zgmatv subroutine zgcoov(x,y) ! in :zgmatv:zgmatv.f complex*16 dimension(*) :: x complex*16 dimension(*) :: y complex*16 dimension(50000) :: a integer dimension(50000) :: ia integer dimension(50000) :: ja integer :: nz integer :: n common /cmat/ a,ia,ja,nz,n end subroutine zgcoov subroutine zgcrsv(x,y) ! in :zgmatv:zgmatv.f complex*16 dimension(*) :: x complex*16 dimension(*) :: y complex*16 dimension(50000) :: a integer dimension(50000) :: ia integer dimension(50000) :: ja integer :: nz integer :: n common /cmat/ a,ia,ja,nz,n end subroutine zgcrsv subroutine zgccsv(x,y) ! in :zgmatv:zgmatv.f complex*16 dimension(*) :: x complex*16 dimension(*) :: y complex*16 dimension(50000) :: a integer dimension(50000) :: ia integer dimension(50000) :: ja integer :: nz integer :: n common /cmat/ a,ia,ja,nz,n end subroutine zgccsv end interface end python module zgmatv ! This file was auto-generated with f2py (version:2). ! See http://cens.ioc.ee/projects/f2py2e/