c-------------------------------------
      subroutine TRNSPOSE (A,n,p,q)
c produces AT(NxM) from A(MXN)
c
c
c author: Bill Terilla 6.4.99
c     in:
c    out:
c  calls:
      implicit real(a-h,o-z)
      integer A(n,n)