real, pointer :: pointertoreal