Generated Code

C
C There are a total of 3 entries in the algebraic variable array.
C There are a total of 1 entries in each of the rate and state variable arrays.
C There are a total of 6 entries in the constant variable array.
C
C
C VOI is x in component main (dimensionless).
C ALGBRC(1) is sin1 in component main (dimensionless).
C STATES(1) is sin2 in component main (dimensionless).
C ALGBRC(3) is sin3 in component main (dimensionless).
C CONSTS(2) is k2_oPi in component main (dimensionless).
C CONSTS(3) is k2Pi in component main (dimensionless).
C CONSTS(4) is kPi_2 in component main (dimensionless).
C CONSTS(5) is kPi in component main (dimensionless).
C CONSTS(6) is kPi_32 in component main (dimensionless).
C ALGBRC(2) is z in component main (dimensionless).
C CONSTS(1) is C in component main (dimensionless).
C RATES(1) is d/dt sin2 in component main (dimensionless).
C
      SUBROUTINE initConsts(CONSTS, RATES, STATES)
      REAL CONSTS(*), RATES(*), STATES(*)
      STATES(1) = 0
      CONSTS(1) = 0.75
      CONSTS(2) = 2.00000/ 3.14159265358979
      CONSTS(3) =  2.00000* 3.14159265358979
      CONSTS(4) =  3.14159265358979/2.00000
      CONSTS(5) =  3.14159265358979
      CONSTS(6) = ( 3.00000* 3.14159265358979)/2.00000
      RETURN
      END
      SUBROUTINE computeRates(VOI, CONSTS,  RATES, STATES, ALGBRC)
      REAL VOI, CONSTS(*), RATES(*), STATES(*), ALGBRC(*)
      RATES(1) = cos(VOI)
      RETURN
      END
      SUBROUTINE computeVariables(VOI, CONSTS, RATES, STATES, ALGBRC)
      REAL VOI, CONSTS(*), RATES(*), STATES(*), ALGBRC(*)
      ALGBRC(1) =  sin(VOI)
      ALGBRC(2) = TERNRY(VOI.LT.CONSTS(4),  VOI*CONSTS(2) - 0.500000, TERNRY(VOI.LT.CONSTS(5),  ( 3.14159265358979 - VOI)*CONSTS(2) - 0.500000, TERNRY(VOI.LT.CONSTS(6),  (VOI -  3.14159265358979)*CONSTS(2) - 0.500000,  (CONSTS(3) - VOI)*CONSTS(2) - 0.500000)
      ALGBRC(3) = TERNRY(VOI.LT.CONSTS(4), - ( ALGBRC(2)*ALGBRC(2))+CONSTS(1)+ALGBRC(2), TERNRY(VOI.LT.CONSTS(5), - ( ALGBRC(2)*ALGBRC(2))+CONSTS(1)+ALGBRC(2), TERNRY(VOI.LT.CONSTS(6), ( ALGBRC(2)*ALGBRC(2) - CONSTS(1)) - ALGBRC(2), ( ALGBRC(2)*ALGBRC(2) - CONSTS(1)) - ALGBRC(2))
      RETURN
      END
      REAL FUNCTION TERNRY(TEST, VALA, VALB)
      LOGICAL TEST
      REAL VALA, VALB
      IF (TEST) THEN
        TERNRY = VALA
      ELSE
        TERNRY = VALB
      ENDIF
      RETURN
      END