anchor.diff:     TYPE(FAST_ExternInitType), OPTIONAL, INTENT(IN) :: ExternInitData !< Initialization input data from an external source (Simulink)
      
      ! local variables      
  +   CHARACTER(1024)                         :: InputFile           !< A CHARACTER string containing the name of the primary FAST input file
  +
      TYPE(ED_InitInputType)                  :: InitInData_ED       ! Initialization input data
      TYPE(ED_InitOutputType)                 :: InitOutData_ED      ! Initialization output data
      
  
positive.code:    m_FAST%NextJacCalcTime = m_FAST%t_global                             ! We want to calculate the Jacobian on the first step
     
     
        ! ... Initialize NWTC Library (open console, set pi constants) ...
     CALL NWTC_Init( ProgNameIN=FAST_ver%Name, EchoLibVer=.FALSE. )       ! sets the pi constants, open console for output, etc...
  
     
        ! set turbine reference position for graphics output
     if (PRESENT(ExternInitData)) then
        p_FAST%TurbinePos = ExternInitData%TurbinePos
     else
        p_FAST%TurbinePos = 0.0_ReKi
     end if
     
     
        ! ... Open and read input files, initialize global parameters. ...
     IF (PRESENT(InFile)) THEN
        IF (PRESENT(ExternInitData)) THEN
           CALL FAST_Init( p_FAST, y_FAST, t_initial, ErrStat2, ErrMsg2, InFile, ExternInitData%TMax, ExternInitData%TurbineID )  ! We have the name of the input file and the simulation length from somewhere else (e.g. Simulink)         
        ELSE         
           CALL FAST_Init( p_FAST, y_FAST, t_initial, ErrStat2, ErrMsg2, InFile )                       ! We have the name of the input file from somewhere else (e.g. Simulink)
        END IF
     ELSE
        CALL FAST_Init( p_FAST, y_FAST, t_initial, ErrStat2, ErrMsg2 )
     END IF
     
     CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
     IF (ErrStat >= AbortErrLev) THEN
        CALL Cleanup()
  
negative.code:    !......................................................
     ! Set the description lines to be printed in the output file
     !......................................................
     y_FAST%FileDescLines(1)  = 'Predictions were generated on '//CurDate()//' at '//CurTime()//' using '//TRIM(GetVersion(FAST_Ver))
     y_FAST%FileDescLines(2)  = 'linked with ' //' '//TRIM(GetNVD(NWTC_Ver            ))  ! we'll get the rest of the linked modules in the section below
     y_FAST%FileDescLines(3)  = 'Description from the FAST input file: '//TRIM(p_FAST%FTitle)
     
  