1      SUBROUTINE AAP(NOOT)
2      DIMENSION NOOT(*)
3      END
4