print_error.f

来自「fortran原代码,提供各种基本算法的程序.可移植性能很好.」· F 代码 · 共 10 行

      subroutine print_error(tex)
      character *(*) tex
      logical ier
      integer iwr
      common/sixs_ier/iwr,ier
      ier = .TRUE.
      write(iwr,'(a)')tex
      return
      end