檢視 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