anchor.diff:          OtherState%FAST_FPA(I,3) = OtherState%FAST_FP(I,3)
       END DO 
   
  +    call cleanup()
  +    
  +    return
  +    contains
  +      subroutine cleanup()    
  +         CALL FEAM_DestroyInput(u,ErrStat2,ErrMsg2)    
  +      end subroutine cleanup
  +    
       END SUBROUTINE FEAM_UpdateStates
       !----------------------------------------------------------------------------------------------------------------------------------
       SUBROUTINE FEAM_CalcOutput    ( t, u, p, x, xd, z, OtherState, y, ErrStat, ErrMsg )
  
positive.code:     CALL CheckError( ErrStat2, ErrMsg2 )
      IF (ErrStat >= AbortErrLev) RETURN
  
      InitOut%WriteOutputHdr = p%OutParam(1:p%NumOuts)%Name
      InitOut%WriteOutputUnt = p%OutParam(1:p%NumOuts)%Units     
      InitOut%Ver = FEAM_Ver  
  
      !............................................................................................
  
negative.code:     p%Eps      = InputFileData%Eps           ! Static iteration tolerance
  
      DO I = 1, p%NumLines
          p%GSL        (I,:,:)  = InputFileData%GSL     (I,:,:)  !bjj: todo: Inspector flags this as unintialized
          p%LineCI     (I)      = InputFileData%LineCI  (I)
          p%LineCD     (I)      = InputFileData%LineCD  (I)
          p%Elength    (I)      = InputFileData%LUnstrLen(I)/p%NumElems
  