82 integer s_wsfe(cilist*), e_wsfe(void), do_fio(integer*, char*, ftnlen),
83     s_wsle(cilist*), do_lio(integer*, integer*, char*, ftnlen),
102 static integer   c__0 = 0;
104 static integer   c__1 = 1;
105 static integer   c__9 = 9;
112 …   dgefa_(real_type*, integer*, integer*, integer*, integer*), dgesl_(real_type*, integer*, intege…
113 int       dmxpy_(integer*, real_type*, integer*, integer*, real_type*, real_type*);
114 int       matgen_(real_type*, integer*, integer*, real_type*, real_type*);
116 real_type ran_(integer*);
117 int       dscal_(integer*, real_type*, real_type*, integer*);
118 int       daxpy_(integer*, real_type*, real_type*, integer*, real_type*, integer*);
119 integer   idamax_(integer*, real_type*, integer*);
120 real_type ddot_(integer*, real_type*, integer*, real_type*, integer*);
121 int       daxpy_(integer*, real_type*, real_type*, integer*, real_type*, integer*);
122 int       dmxpy_(integer*, real_type*, integer*, integer*, real_type*, real_type*);
164    integer   i__1;  in MAIN__()
171    static integer   i__, n;  in MAIN__()
174    static integer   lda;  in MAIN__()
177    static integer   info;  in MAIN__()
179    static integer   ipvt[1000];  in MAIN__()
275    do_fio(&c__1, (char*)&n, (ftnlen)sizeof(integer));  in MAIN__()
285    do_fio(&c__1, (char*)&lda, (ftnlen)sizeof(integer));  in MAIN__()
302 /* Subroutine */ int matgen_(real_type* a, integer* lda, integer* n,  in matgen_()
306    integer   a_dim1, a_offset, i__1, i__2;  in matgen_()
310    static integer i__, j;  in matgen_()
311    static integer init[4];  in matgen_()
359 /* Subroutine */ int dgefa_(real_type* a, integer* lda, integer* n, integer* ipvt, integer* info)  in dgefa_()
362    integer a_dim1, a_offset, i__1, i__2, i__3;  in dgefa_()
365    static integer   j, k, l;  in dgefa_()
367    static integer   kp1, nm1;  in dgefa_()
497 /* Subroutine */ int dgesl_(real_type* a, integer* lda, integer* n, integer* ipvt, real_type* b, in…  in dgesl_()
500    integer a_dim1, a_offset, i__1, i__2;  in dgesl_()
503    static integer   k, l;  in dgesl_()
505    static integer   kb, nm1;  in dgesl_()
658 /* Subroutine */ int daxpy_(integer* n, real_type* da, real_type* dx,  in daxpy_()
659                             integer* incx, real_type* dy, integer* incy)  in daxpy_()
662    integer i__1;  in daxpy_()
665    static integer i__, m, ix, iy, mp1;  in daxpy_()
746 real_type ddot_(integer* n, real_type* dx, integer* incx, real_type* dy,  in ddot_()
747                 integer* incy)  in ddot_()
750    integer   i__1;  in ddot_()
754    static integer   i__, m, ix, iy, mp1;  in ddot_()
834 /* Subroutine */ int dscal_(integer* n, real_type* da, real_type* dx,  in dscal_()
835                             integer* incx)  in dscal_()
838    integer i__1, i__2;  in dscal_()
841    static integer i__, m, mp1, nincx;  in dscal_()
907 integer idamax_(integer* n, real_type* dx, integer* incx)  in idamax_()
910    integer   ret_val, i__1;  in idamax_()
914    static integer   i__, ix;  in idamax_()
990 /* Subroutine */ int mm_(real_type* a, integer* lda, integer* n1, integer* n3, real_type* b, intege…  in mm_()
991                          integer* ldc)  in mm_()
994    integer a_dim1, a_offset, b_dim1, b_offset, c_dim1, c_offset, i__1, i__2;  in mm_()
997    static integer i__, j;  in mm_()
1053 /* Subroutine */ int dmxpy_(integer* n1, real_type* y, integer* n2, integer* ldm, real_type* x, rea…  in dmxpy_()
1056    integer m_dim1, m_offset, i__1, i__2;  in dmxpy_()
1059    static integer i__, j, jmin;  in dmxpy_()
1160 real_type ran_(integer* iseed)  in ran_()
1166    static integer it1, it2, it3, it4;  in ran_()