Suppose all CS101 students are playing football.
Integer, Dimension(500) :: RollNum Character(len=20), Dimension(500) :: Name Real, Dimension(500) :: x, y, z Logical, Dimension(500) :: IsGoodplayer
Integer, Dimension(251:500) :: Batch2 !has 250 elements Integerm, Dimentsoin(-500:-1) :: OldBatch !last year's students2-D (