anchor.diff:  
   CALL AD_Terminate(   ErrStat )
   CALL HD_Terminate( HydroDyn_data, ErrStat )
  -!CALL Noise_Terminate( )
  +
   IF ( BEEP ) CALL UsrAlarm
   
   
  
positive.code: CALL FAST_Initialize( p_ED, x_ED, y_ED, OtherSt_ED, InputFileData_ED )
  
  
  
     ! Print summary information to "*.fsm"?
  
  IF ( SumPrint )  CALL PrintSum( p_ED, OtherSt_ED )
  
  
  
  !   ! Make the equivalent ADAMS model if selected:
  !
  !IF ( ( ADAMSPrep == 2 ) .OR. ( ADAMSPrep == 3 ) )  THEN  ! Create equivalent ADAMS model.
  !
  !   CALL MakeADM( p_ED, p_SrvD, x_ED, OtherSt_ED, InputFileData_ED  )      ! Make the ADAMS dataset file (.adm).
  !
  !   CALL MakeACF( p_ED )              ! Make the ADAMS control file (.acf) for an ADAMS SIMULATion.
  !
  !   IF ( MakeLINacf )  THEN
  !
  !      IF ( p_ED%DOFs%NActvDOF == 0 )  THEN ! The model has no DOFs
  !         CALL WrScr ( ' NOTE: ADAMS command file '''//TRIM( RootName )//&
  !                      '_ADAMS_LIN.acf'' not created because the model has zero active DOFs.'   )
  !      ELSE                             ! The model has at least one DOF
  !         CALL MakeACF_LIN( p_ED, InputFileData_ED )    ! Make the ADAMS control file (.acf) for an ADAMS/Linear analysis.
  !      ENDIF
  !
  !   ENDIF
  !
  !ENDIF
  
     !...............................................................................................................................
     ! loose coupling
  
negative.code:    IF ( AnalMode == 1 )  THEN ! Run a time-marching simulation.
        
        CALL TimeMarch(  p_ED, p_SrvD, x_ED, OtherSt_ED, u_ED, y_ED, ErrStat, ErrMsg )     
  
     ENDIF
     
  