toon_1.f   [plain text]

      SUBROUTINE AAP(NOOT)
      DIMENSION NOOT(*)
      END