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*MeshVecLen2,4),&
                   real((maxY-minY)*0.015,4))
        call PENWID(real(5.0,4))
        write(CTIT,'(a,ES8.2E2)') 'max. |$u_{i}$| = ',madmax
        lentitle = NLMESS(CTIT)
        CALL HEIGHT (int(80,4))
        CALL MESSAG(CTIT,int((5230),4),int(2660,4))
        call height(80) ! de los caracteres
        write(CTIT,'(a)') 'hodogram $u_{i}$'
        lentitle = NLMESS(CTIT)
        call color ('FORE')
        CALL MESSAG(CTIT,int(5215,4),int(15,4))
        CALL ENDGRF
        call disfin
  
  