anchor.diff:  
        ! Nacelle Tuned Mass Damper (StC):
   
  +!FIXME: need to expand this out for more NStC
      INTEGER(IntKi), PARAMETER      :: NStC_XQ   =  8
      INTEGER(IntKi), PARAMETER      :: NStC_XQD  =  9
      INTEGER(IntKi), PARAMETER      :: NStC_YQ   = 10
  
positive.code:          ! put passed string info into the FileInfo_In -- FileInfo structure
        call NWTC_Library_CopyFileInfoType( InitInp%PassedPrimaryInputData, FileInfo_In, MESH_NEWCOPY, ErrStat2, ErrMsg2 )
     endif
        CALL CheckError( ErrStat2, ErrMsg2 )
        IF (ErrStat >= AbortErrLev) RETURN
    
     ! For diagnostic purposes, the following can be used to display the contents
     ! of the FileInfo_In data structure.
  
negative.code:       
     END IF
           
    
        !............................................................................................
        ! Setup and initialize the StC submodule (possibly multiple instances at each location)
        !............................................................................................
     call StC_Nacelle_Setup(InitInp,p,InputFileData,u%NStC,p%NStC,x%NStC,xd%NStC,z%NStC,OtherState%NStC,y%NStC,m%NStC,ErrStat2,ErrMsg2)
        if (Failed())  return;
  
     call StC_Tower_Setup(InitInp,p,InputFileData,u%TStC,p%TStC,x%TStC,xd%TStC,z%TStC,OtherState%TStC,y%TStC,m%TStC,ErrStat2,ErrMsg2)
        if (Failed())  return;
  
     call StC_Blade_Setup(InitInp,p,InputFileData,u%BStC,p%BStC,x%BStC,xd%BStC,z%BStC,OtherState%BStC,y%BStC,m%BStC,ErrStat2,ErrMsg2)
        if (Failed())  return;
  
     call StC_Ptfm_Setup(InitInp,p,InputFileData,u%PtfmStC,p%PtfmStC,x%PtfmStC,xd%PtfmStC,z%PtfmStC,OtherState%PtfmStC,y%PtfmStC,m%PtfmStC,ErrStat2,ErrMsg2)
        if (Failed())  return;
  
  
        !............................................................................................
  