Answer
Mar 12, 2020 - 04:32 PM
The following EMTDC example code shows how to use CCIN and GGIN to represent a simple inductor - Construction of a CCIN Current Injection within BEGIN Subroutine.
! SUBROUTINE U_BGN_SIMPLE_L(SS,NA)
!
! Common block and module include files:
! INCLUDE ′nd.h′
INCLUDE ′s1.h′
INCLUDE ′rtconfig.h′
!
! Argument List:
!
INTEGER NA ! EMTDC node number
INTEGER SS ! EMTDC subsystem number
!
! Local Variables:
!
INTEGER MY_NRTCF
!
! Set local pointer values and increment:
!
MY_NRTCF = NRTCF
NRTCF = NRTCF + 1
!
! Initial Branch Definition (t = 0.0):
! ENABCCIN(NA,SS) = .TRUE.
RTCF(MY_NRTCF) = DELT / (2.0*0.001)
!
RETURN END
!
Add New Comment