anchor.diff:      CHARACTER(*)                    , INTENT(  OUT) :: ErrMsg     ! Error message if ErrStat /= ErrID_None
   
       ! Local variables
  +!@marco: see my comment in the init routine about initializing variables in their declaration statements
       INTEGER(KIND=C_INT)                             :: status_from_MAP = 0
       CHARACTER(KIND=C_CHAR,len=1024)                 :: message_from_MAP = ""//CHAR(0)
       REAL(KIND=C_FLOAT)                              :: time = 0
  
positive.code: 
      ErrStat = ErrID_None
      ErrMsg  = "" 
  
      ! Initialize the NWTC Subroutine Library
      CALL NWTC_Init( )   
      
  
negative.code:     CHARACTER(*),                    INTENT(  OUT)  :: ErrMsg      ! Error message if ErrStat /= ErrID_None
  
      ! Local variables
      INTEGER( KIND=C_INT )                           :: status_from_MAP 
      CHARACTER( KIND=C_CHAR,LEN=1024 )               :: message_from_MAP 
      !TYPE(ProgDesc)                                  :: MAP_Ver = ProgDesc( 'MAP', 'version', 'date' )
      INTEGER(IntKi)                                  :: i 
      REAL(ReKi)                                      :: Pos(3)
      INTEGER(IntKi)                                  :: NumNodes 
      INTEGER(C_INT)                                  :: numHeaderStr
      CHARACTER(16),DIMENSION(:), ALLOCATABLE, TARGET :: strHdrArray ! Hopefully none of the headers are more than 16 characters long
      TYPE(C_PTR), DIMENSION(:), ALLOCATABLE          :: strHdrPtrs
      CHARACTER(15),DIMENSION(:), ALLOCATABLE, TARGET :: strUntArray ! Hopefully none of the headers are more than 10 characters long
  