「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 subr..." |
無編輯摘要 |
||
| 第5行： | 第5行： | ||
implicit none | implicit none | ||
real*8,intent(in) :: x,y,z ! x,y,z is the position program sent to the subroutine. | 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 | real*8, intent(inout) :: generation ! a returned value (positive value) | ||
integer, intent(in) :: ind ! Node number in the program | integer, intent(in) :: ind ! Node number in the program | ||
generation = 000.0d0 | 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*,x,y,z, generation | ||
! print*, "You should not call ddcc.exe to run callgeneration. You should use 2D-ddcc-dyna.exe to run it." | ! print*, "You should not call ddcc.exe to run callgeneration. You should use 2D-ddcc-dyna.exe to run it." | ||
! stop | ! stop | ||
end subroutine | end subroutine | ||
於 2017年8月27日 (日) 14:45 的最新修訂
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