external ex
      real ex
      integer in, iarg
      in(iarg) = iabs(iarg)
      write (6,*) in(-3)
      write (6,*) ex(-3)
      end