INTERFACE:
integer function pointer_index ()
Set the current pointer index and increment the value of the index.
ARGUMENTS:
implicit none
Created by Mariana Vertenstein