"Subroutine callgeneration(x,y,z,generation,ind)" 修訂間的差異
出自 DDCC TCAD TOOL Manual
(已建立頁面,內容為 "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." |
於 2017年8月27日 (日) 22: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