














































c
c

c
c
c
c
c
c
c
c
c
c

c
c
c
c
c
































































































































 


































































































































































 




































































































































































































































































































































































































































 

























































 










 








































































































































































































































 










                                
                                

                                
                                

                                
                                

                                

























































































	subroutine sgecon_wrapper(norm_int,
     $	                          N, A, LDA, anorm, rcond,
     $	                          WORK, IWORK, info)
	integer norm_int
	integer N, LDA
	real A(LDA,N)
	real anorm, rcond
	real WORK(*)
	integer iwork(*)
	integer info
	return
	end

	subroutine dgecon_wrapper(norm_int,
     $	                          N, A, LDA, anorm, rcond,
     $	                          WORK, IWORK, info)
	integer norm_int
	integer N, LDA
	double precision A(LDA,N)
	double precision anorm, rcond
	double precision WORK(*)
	integer iwork(*)
	integer info
	return
	end
