(self)
| 2670 | return [d for d in dirs if os.path.isdir(d)] |
| 2671 | |
| 2672 | def calc_info(self): |
| 2673 | src_dirs = self.get_src_dirs() |
| 2674 | src_dir = '' |
| 2675 | for d in src_dirs: |
| 2676 | if os.path.isfile(os.path.join(d, 'daxpy.f')): |
| 2677 | src_dir = d |
| 2678 | break |
| 2679 | if not src_dir: |
| 2680 | #XXX: Get sources from netlib. May be ask first. |
| 2681 | return |
| 2682 | blas1 = ''' |
| 2683 | caxpy csscal dnrm2 dzasum saxpy srotg zdotc ccopy cswap drot |
| 2684 | dznrm2 scasum srotm zdotu cdotc dasum drotg icamax scnrm2 |
| 2685 | srotmg zdrot cdotu daxpy drotm idamax scopy sscal zdscal crotg |
| 2686 | dcabs1 drotmg isamax sdot sswap zrotg cscal dcopy dscal izamax |
| 2687 | snrm2 zaxpy zscal csrot ddot dswap sasum srot zcopy zswap |
| 2688 | scabs1 |
| 2689 | ''' |
| 2690 | blas2 = ''' |
| 2691 | cgbmv chpmv ctrsv dsymv dtrsv sspr2 strmv zhemv ztpmv cgemv |
| 2692 | chpr dgbmv dsyr lsame ssymv strsv zher ztpsv cgerc chpr2 dgemv |
| 2693 | dsyr2 sgbmv ssyr xerbla zher2 ztrmv cgeru ctbmv dger dtbmv |
| 2694 | sgemv ssyr2 zgbmv zhpmv ztrsv chbmv ctbsv dsbmv dtbsv sger |
| 2695 | stbmv zgemv zhpr chemv ctpmv dspmv dtpmv ssbmv stbsv zgerc |
| 2696 | zhpr2 cher ctpsv dspr dtpsv sspmv stpmv zgeru ztbmv cher2 |
| 2697 | ctrmv dspr2 dtrmv sspr stpsv zhbmv ztbsv |
| 2698 | ''' |
| 2699 | blas3 = ''' |
| 2700 | cgemm csymm ctrsm dsyrk sgemm strmm zhemm zsyr2k chemm csyr2k |
| 2701 | dgemm dtrmm ssymm strsm zher2k zsyrk cher2k csyrk dsymm dtrsm |
| 2702 | ssyr2k zherk ztrmm cherk ctrmm dsyr2k ssyrk zgemm zsymm ztrsm |
| 2703 | ''' |
| 2704 | sources = [os.path.join(src_dir, f + '.f') \ |
| 2705 | for f in (blas1 + blas2 + blas3).split()] |
| 2706 | #XXX: should we check here actual existence of source files? |
| 2707 | sources = [f for f in sources if os.path.isfile(f)] |
| 2708 | info = {'sources': sources, 'language': 'f77'} |
| 2709 | self.set_info(**info) |
| 2710 | |
| 2711 | |
| 2712 | class x11_info(system_info): |
nothing calls this directly
no test coverage detected