Subroutine callspecgeneration(nnode,x,y,eg,generation)

subroutine callspecgeneration(nnode,x,y,eg,generation) 
use nrtype ,only : dp,i4b,i8b
use global2d
implicit none
integer(i8b), intent(in) :: nnode
real(dp) , intent(inout) :: x(nnode),y(nnode),eg(nnode),generation(nnode) 
integer :: i,j 
do i=1,nnode
   generation(i)=0.0_dp
end do
print*, "You should not call 2D-ddcc.exe  to run callspecgeneration. You should use 2D-ddcc-dyna.exe to run it."
stop
end subroutine