Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!rutgers!ames!ucbcad!ucbvax!EQL.Caltech.EDU!rankin
From: rankin@EQL.Caltech.EDU (Pat Rankin)
Newsgroups: comp.os.vms
Subject: re: callable sort
Message-ID: <870522133959.01o@EQL.Caltech.Edu>
Date: Fri, 22-May-87 16:40:21 EDT
Article-I.D.: EQL.870522133959.01o
Posted: Fri May 22 16:40:21 1987
Date-Received: Sat, 23-May-87 18:57:17 EDT
Sender: daemon@ucbvax.BERKELEY.EDU
Distribution: world
Organization: The ARPA Internet
Lines: 15

> According to the manuals, this should work.  It doesn't !  Can anyone offer
> clues as to why ?    Much thanks as usual !

>       integer		key(5)
> ...
>       status = sor$begin_sort(keybuf,lrl)

      There are two different problems.  The first is easy:
  you've used two different variables by not spelling the key buffer
  name consistently.  Try adding "IMPLICIT NONE"  to your code or
  compiling with "/WARN=DECLARATIONS".
      The second problem is more subtle: the key buffer argument must
  be an array of words, so you need to declare it "INTEGER *2".

                                    Pat Rankin