anchor.diff:     DO i=1,InputFileData%member_total
          READ(UnIn,*) j,InputFileData%kp_member(j)
          IF(InputFileData%kp_member(j) .LT. 3) THEN
  -!           CALL SetErrors(ErrID_Fatal,TRIM(Num2LStr(j))//'th member has less than 3 key points.')    
  +!           CALL SetErrors(ErrID_Fatal,TRIM(Num2LStr(j))//'th member has less than 3 key points.')
              STOP
          ENDIF
          temp_int = temp_int + InputFileData%kp_member(j)
  
positive.code:            Enorm = 0.0D0
             Enorm = SQRT(DOT_PRODUCT(ai_temp,feqv))
             IF(Enorm .LE. Eref) RETURN
         ENDIF    
  !WRITE(*,*) 'inc'
  !WRITE(*,*) ai
             
         IF(i==niter) THEN
             WRITE(*,*) "Solution does not converge after the maximum number of iterations"
             STOP
         ENDIF
     ENDDO
     
     END SUBROUTINE BD_DynamicSolutionGA2
  
     SUBROUTINE BD_GenerateDynamicElementGA2(uuN0,uuNf,vvNf,aaNf,                 &
  
negative.code:                     ,ErrMess = ErrMsg          )
  
     CALL MeshCopy ( SrcMesh  = u%PointLoad      &
                   , DestMesh = y%BldForce       &
                   , CtrlCode = MESH_SIBLING     &
                   , Force           = .TRUE.    &
                   , Moment          = .TRUE.    &
  