I am a PSS / E 34.2.0 user.

The FORTRAN example below is called BESS with droop control applied.

1. I want to create a user-defined model of the secondary controller of CBEST (BESS).
2. I want to put Low Voltage Ride Through function in CBEST auxiliary controller.

So I am learning Fortran 77.

However, the subroutine fortran example (which I have) is hard to understand.

First, I do not know how the variables of the CBEST model and the User-Defined Subroutine model are connected.

Second, where is the main program Fortran file in the top of Subroutine?

Third, what are the MODE1, MODE2, MODE3, MODE4 that most examples have?

Fourth, I could not found meaning of GENCHK at CALL GENCHK( ). What's the GENCHK?

Is there an easy user-defined modeling example?

================================================

  SUBROUTINE WACS(M, J, K, L)

  INCLUDE 'COMON4.INS'

  INTEGER IVAL, IERR
  INTEGER M302
  INTEGER COUNT_DROOP, I_ITER
  REAL P302
  REAL FREQ, FREQ_LAG, BEFORE_P, P_BATMAX
  REAL P_INPUT, FREQ_DROOP, C_DROOP
  REAL DBMAX, DBMIN

  CALL GENCHK             (302, '1', M302, 'IN CONEC')

  P302=PELEC(M302)

  BEFORE_P = 100*P302
  FREQ = BSFREQ(M302)

  DBMAX = 0.017/60
  DBMIN = -0.017/60
  COUNT_DROOP = 0
  P_BATMAX = 30
  C_DROOP = P_BATMAX/(0.005-DBMIN)

  IF (MODE.GT.4) RETURN

  IVAL = K+1
  IF (MODE.EQ.4) THEN
    IF (IVAL.GT.NINTEG) NINTEG=IVAL
    RETURN
  ENDIF

  IF (MODE.EQ.1) THEN

    P_INPUT = 0.0
    COUNT_DROOP = VAR(L+7)

    FREQ_LAG = NWLAG_MODE1(1.0, 0.1, 0.0042, -0.0042, FREQ, K, IERR)
    FREQ_DROOP = 0.0

    IF (TIME.GT.20) THEN
      IF (FREQ.GT.DBMAX) THEN
        COUNT_DROOP = -1*C_DROOP*(FREQ-DBMAX)
      ENDIF
      ELSE IF (FREQ.LT.DBMIN) THEN
        COUNT_DROOP = COUNT_DROOP + 1
        IF (COUNT_DROOP.GT.6) THEN
          FREQ_DROOP = -1*C_DROOP*(FREQ-DBMIN)
        ENDIF
      ELSE
        COUNT_DROOP = 0
        FREQ_DROOP = 0.0
      ENDIF

      VAR(L+7) = COUNT_DROOP
    ENDIF

    VAR(1) = FREQ_DROOP
    VAR(2) = 0.0
    VAR(L+8) = 60+(60*FREQ)

  ENTRY TACS(M, J, K, L)

  RETURN
  END

Hello, I want to use user-defined model with fortran

I use PSS/E V34.2.0

and, I want to make user-defined model

So, I will learn about fortran.

but I don't know what fortran version is used in PSS/E after version 33.0

fortran77? fortran90? fortran95?

here is an example fortran source code

.flx file

  INTEGER   IARG,   ISLOT
  INTRINSIC MAX
  EXTERNAL  BADMID
  INTEGER   I,      J,      K,      JJ,     KK,
 *          IB,     IBUS,   IBPTR
  REAL      VERROR, VR,     DEL2,   FDBK,   SS,    R_TF_KF
  LOGICAL   HIGH,   LOW,    NEW
  CHARACTER CB1*6,  CB2*6
  CHARACTER IM*2,   VLTI*4
  IF (MODE.EQ.8) GO TO 1500                   ! GET DATA DESCRIPTIONS
  I=IARG                                      ! MACHINE ARRAY INDEX
  J=STRTIN(1,ISLOT)                           ! STARTING 'CON'
  K=STRTIN(2,ISLOT)                           ! STARenter code hereTING 'STATE'
  IF (MODE.GT.4) GO TO 1000
  IB=NUMTRM(I)                               ! RETURN IF OFF-LINE
  IF (IB<=0) RETURN                        ! OR SVS OR INDUCTION MACHINE

===============================================================

I think this example is made by fortran77

so, I have to learn fortran77?

please tell me the answer TT