SUBROUTINE AAP(NOOT)
      DIMENSION NOOT(*)
      END