檢視 Subroutine callgeneration(x,y,z,generation,ind) 的原始碼

Subroutine callgeneration is activated by $usegenfunc. After activation. The program will call this subroutine. This subroutine is save in file libcallgen.f90

 subroutine callgeneration(x,y,z,generation,ind) 
 use global2d  
 implicit none 
 real*8,intent(in) :: x,y,z  ! x,y,z is the position program sent to the subroutine.
 real*8, intent(inout) :: generation  ! a returned value (positive value)
 integer, intent(in) :: ind   ! Node number in the program
 generation = 000.0d0 ! This is an example to return 0, you can return any positive value depending on your simulation case. 
  ! print*,x,y,z, generation
  ! print*, "You should not call ddcc.exe to run callgeneration. You should use 2D-ddcc-dyna.exe to run it."
  ! stop
 end subroutine