Finished version ALLOCA_VARS.f90

Finished!