toon_1.f
[
plain text
]
SUBROUTINE
AAP(NOOT)
DIMENSION
NOOT(*)
END