Defining array dimension after a read statement using module or function

Question

Is is possible to define array dimension in the main program, after \'read\' (in this code through \'i\') in a subroutine or function?

I start from this code(I want t