anchor.diff:     CHARACTER(ErrMsgLen)                    :: ErrMSg2
      CHARACTER(*), PARAMETER                 :: RoutineName = 'WrVTK_AllMeshes'
   
  -   ! calculate the number of digits in 'y_FAST%NOutSteps' (Maximum number of output steps to be written)
  -   ! this will be used to pad the write-out step in the VTK filename with zeros in calls to MeshWrVTK()
  -   if (y_FAST%NOutSteps==0) then
  +   ! Calculate the number of digits for the maximum number of output steps to be written.
  +   ! This will be used to pad the write-out step in the VTK filename with zeros in calls to MeshWrVTK()
  +   if ( (p_FAST%n_VTKTime>0) .and. (p_FAST%n_TMax_m1+1>0) ) then
  +      Twidth = CEILING( log10( real(p_FAST%n_TMax_m1+1, ReKi) / p_FAST%n_VTKTime ) ) + 1
  +   else
         Twidth = 1
  -   else
  -       Twidth = int(log10(real(y_FAST%NOutSteps))) + 1
      endif
      
      NumBl = 0
  
positive.code:    CHARACTER(ErrMsgLen)                    :: ErrMSg2
     CHARACTER(*), PARAMETER                 :: RoutineName = 'WrVTK_Surfaces'
  
     ! calculate the number of digits in 'y_FAST%NOutSteps' (Maximum number of output steps to be written)
     ! this will be used to pad the write-out step in the VTK filename with zeros in calls to MeshWrVTK_...()
     if (y_FAST%NOutSteps==0) then
        Twidth = 1
     else
        Twidth = int(log10(real(y_FAST%NOutSteps))) + 1
     endif
     
     
  
negative.code:    !.................................................................
     ! write the data that potentially changes each time step:
     !.................................................................
     ! Calculate the number of digits for the maximum number of output steps to be written.
     ! This will be used to pad the write-out step in the VTK filename with zeros in calls to MeshWrVTK()
     if ( (p_FAST%n_VTKTime>0) .and. (p_FAST%n_TMax_m1+1>0) ) then
        Twidth = CEILING( log10( real(p_FAST%n_TMax_m1+1, ReKi) / p_FAST%n_VTKTime ) ) + 1
     else
        Twidth = 1
     endif
  
     VTK_path = get_vtkroot_path( p_FAST%OutFileRoot )
  