Working in progess at ALLOCA_VARS.f90

Half done!