double precision replaced by complex*16 [ci skip]

This commit is contained in:
edoapra 2022-04-13 17:29:36 -07:00
parent e62e7e84f9
commit 5be632bbf9
No known key found for this signature in database
GPG key ID: 472C4EBB4F3AEDFA
2 changed files with 2 additions and 2 deletions

View file

@ -6,7 +6,7 @@
#include "y64.fh"
integer ipiv(*)
integer info, lda, m, n
double precision a( lda, * )
complex*16 a( lda, * )
c
INTGR4 m4,n4,info4,lda4
c

View file

@ -8,7 +8,7 @@
character trans
integer ipiv(*)
integer info, lda, ldb, n, nrhs
double precision a( lda, * ), b( ldb, * )
complex*16 a( lda, * ), b( ldb, * )
c
INTGR4 n4,info4,lda4,ldb4,nrhs4
c