即将直播：风机的"心脏"和风电研发职业成长的必经之路

!=======================================================================SUBROUTINE DISCON ( avrSWAP, aviFAIL, accINFILE, avcOUTNAME, avcMSG )!DEC$ ATTRIBUTES DLLEXPORT, ALIAS:'DISCON' :: DISCON! This is a control routine for holding the place of a user-specified! Bladed-style DLL controller. Modify this code to create your own! DLL controller.! This congtrol file was writen by Ruiliang.Wang On 2/4/2018,the script! Can be used in commercial style!The Moudle LibraryUSE                                MainSubroutineUSE                                SuperControlUSE                                LOGUSE                                BrakeProgram IMPLICIT NONE!The Passed VariablesREAL(4),    INTENT(INOUT)    :: avrSWAP   (*)                                   ! The swap array, used to pass data to, and receive data from, the DLL controller.INTEGER(4), INTENT(  OUT)    :: aviFAIL                                         ! A flag used to indicate the success of this DLL call set as follows: 0 if the DLL call was successful, >0 if the DLL call was successful but cMessage should be issued as a warning messsage, <0 if the DLL call was unsuccessful or for any other reason the simulation is to be stopped at this point with cMessage as the error message.INTEGER(1), INTENT(IN   )    :: accINFILE (*)                                   ! The address of the first record of an array of 1-byte CHARACTERs giving the name of the parameter input file, 'DISCON.IN'.INTEGER(1), INTENT(  OUT)    :: avcMSG    (*)                                   ! The address of the first record of an array of 1-byte CHARACTERS giving the message contained in cMessage, which will be displayed by the calling program if aviFAIL <> 0.INTEGER(1), INTENT(INOUT)    :: avcOUTNAME(*)                                   ! The address of the first record of an array of 1-byte CHARACTERS giving the simulation run name without extension.!LocalREAL(4), SAVE                ::rPitchDemand REAL(4), SAVE                ::rTorqueDemand                                   ! Desired collective pitch angles returned by this DLL (rad).REAL(4), SAVE                ::rNacDemandRate!REAL(4), SAVE ::rTime                                           ! Current simulation time (sec).INTEGER(4)                    ::I                                               ! Generic index.INTEGER(4)                    ::iStatus                                         ! A status flag set by the simulation as follows: 0 if this is the first call, 1 for all subsequent time steps, -1 if this is the final call at the end of the simulation. INTEGER(1)                   :: iInFile   ( 256)                                ! CHARACTER string cInFile  stored as a 1-byte array.INTEGER(1)                   :: iMessage  ( 256)                                ! CHARACTER string cMessage stored as a 1-byte array.INTEGER(1),SAVE               :: iOutName  (1024)                                ! CHARACTER string cOutName stored as a 1-byte array.CHARACTER( 256)              :: cInFile                                         ! CHARACTER string giving the name of the parameter input file, 'DISCON.IN'CHARACTER( 256)               :: cMessage                                        ! CHARACTER string giving a message that will be displayed by the calling program if aviFAIL <> 0.CHARACTER(1024),SAVE         :: cOutName                                        ! CHARACTER string giving the simulation run name without extensioINTEGER                       ::UnIn=40! Set EQUIVALENCE relationships between INTEGER(1) byte arrays and CHARACTER strings:EQUIVALENCE (iInFile , cInFile )EQUIVALENCE (iMessage, cMessage)EQUIVALENCE (iOutName, cOutName)! StatusiStatus = NINT( avrSWAP( 1) )aviFAIL = 0! InitializationIF ( iStatus == 0 )  THEN  ! Convert byte arrays to CHARACTER strings, for convenience:DO I = 1,MIN(  256, NINT( avrSWAP(50) ) )iInFile (I) = accINFILE (I)   ! Sets cInfile  by EQUIVALENCEENDDODO I = 1,MIN( 1024, NINT( avrSWAP(51) ) )iOutName(I) = avcOUTNAME(I)   ! Sets cOutName by EQUIVALENCEENDDO! READ IN DATA CONTAINED IN FILE cInFile HEREaviFAIL  = 0   ! SET aviFAIL AND cMessage IF ERROR RESULTScMessage = ''  !!InitializationCALL INIT_CONTROLLER(avrSWAP,UnIn,cInFile,cOutName,rPitchDemand,rTorqueDemand)ENDIF!PreprocessorCALL Preprocessor_Controller(avrSWAP)!MonitorCALL Monitor(rPitchDemand,rNacDemandRate)IF( ( iStatus >= 0 ) .AND. ( aviFAIL >= 0 ) )  THEN  aviFAIL  = 0   ! SET aviFAIL AND cMessage IF ERROR RESULTScMessage = ''  !!Main ControllerCALL MainController(iStatus,rPitchDemand,rTorqueDemand)ENDIFCALL BrakeProgram_Controller!OutPut to the wind turbine actuatorCALL Output(avrSWAP,rNacDemandRate)!LoggingCALL LogOutput(avrSWAP,cOutName)!!Return VariableDO I = 1,MIN(  256, NINT( avrSWAP(49) ) )avcMSG(I) = iMessage(I) ! Same as cMessage by EQUIVALENCEENDDORETURNEND SUBROUTINE DISCON