anchor.diff:        ! stt = stt/maxstt * MeshVecLen
         call shdpat(int(16,4))
         call PENWID(real(1.0,4))
  -      call color ('GREY')
  +      call color ('GRAY')
         call rlrec(real(minX+(maxX-minX)*0.045,4),&
                    real(maxY-(maxY-minY)*0.055,4),&
                    real(MeshVecLen2*1.1,4),&
  
positive.code:                   real(recVoidonly(:,2),4), &
                    int(2*size(Xcoord_Voidonly(:,1,1)),4))
          end if
        !#< r ##################   TANGENCIALES     !#>
        call mypat(45,5,3,1)
        call PENWID(real(2.5,4))
  
negative.code:                  real(0.25*MeshVecLen,4),&
                   real((MeshMaxZ-MeshMinZ)*0.015,4))
        call PENWID(real(5.0,4))
        write(CTIT,'(a,ES8.2E2,a)') 'max. |$u_{i}$| = ',madmax,' '
        CALL HEIGHT (int(80,4))
        CALL MESSAG(CTIT,int((30),4),int(2660,4))
  
  