C     @(#)warn.f	1.4     06/17/98
C
      subroutine warn (msg)
c
c $$$$$ calls VMS library routines $$$$$
c
c   Subroutine warn issues the VMS style warning:
c
c      USRMSG-W-WARN, <string>
c
c   accompanied by a FORTRAN traceback.
c   Warn returns control to the caller after issuing the traceback.
c
c   See also subroutine abort for alternative
c   Programmed on 15 June 1983 by R. Buland.
c   Now modified for use at ISC
c
      character*(*) msg

c      write(0,*) 'warn:',msg
c
      call abort ('warn:'//msg)
c      pause                    ! doesn't seem to work
      return
      end