anchor.diff:     TYPE(ProgDesc), PARAMETER :: FAST_Ver = ProgDesc( 'FAST', 'v8.00.00a-bjj', '31-March-2013' )                  ! The version number of this module
      INTEGER(B2Ki),  PARAMETER :: OutputFileFmtID = FileFmtID_WithoutTime         ! A format specifier for the binary output file format (1=include time channel as packed 32-bit binary; 2=don't include time channel)
   
  -   INTEGER(IntKi), PARAMETER,private      :: OutStrLen   = 10 !bjj -> decide if this has to go in the NWTC Library...
  +   INTEGER(IntKi), PARAMETER, PRIVATE :: OutStrLen   = 10 !bjj -> decide if this has to go in the NWTC Library...
      
      LOGICAL, PARAMETER :: GenerateAdamsModel = .FALSE. 
   
  
positive.code: 
  
     
     TYPE(FAST_ParameterType)       :: p_FAST                                     ! Parameters for the glue code
  
  
  END MODULE FAST_Types
  
negative.code: 
  USE                             Precision
  
  REAL(ReKi)                   :: HSSBrTrqC                                       ! A copy of the value of HSSBrTrq calculated in SUBROUTINE DrvTrTrq().
  
  END MODULE DriveTrain
  !=======================================================================
  