codes/fetk/punc/src/arpack/util_f77
