codes/fetk/punc/src/blas/util_f77
