blob: 6b6847c4de5616f2edc96cc8c2a3fac6d51803d2 [file] [log] [blame]
SUBROUTINE AAP(NOOT)
DIMENSION NOOT(*)
END