print_error.f

来自「遥感6s,用去大气,海洋较真.是不错的软件 遥感6s,用去大气,海洋较真.是不」· 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