!
  !----------------------------------------------------------------
  subroutine error(a,b,n)
  !----------------------------------------------------------------
  !
  character(len=*) a,b
  integer n, ierr
  !
  write(6,1) a,b,n
1 format(//' program ',a,':',a,'.',8x,i8,8x,'stop')
  stop
  !
  end
  !
  !----------------------------------------------------------------
  subroutine errore(a,b,n)
  !----------------------------------------------------------------
  !
  character(len=*) a,b
  integer n, ierr
  !
  write(6,1) a,b,n
1 format(//' program ',a,':',a,'.',8x,i8,8x,'stop')
  stop
  !
  end
  !