real, pointer :: apointer => NULL()