anchor.diff:                   real(0.25*MeshVecLen2,4),&
                    real((maxY-minY)*0.015,4))
         call PENWID(real(5.0,4))
  -      write(CTIT,'(a,ES8.2E2)') 'max. |$U_{ij}$| = ',madmax
  +      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
   
  
positive.code:       tlabel = (i)*real(dt,4)
        write(CTIT,'(a,F9.5,a)') '$t= ',tlabel,' seg$'
        lentitle = NLMESS(CTIT)
        CALL MESSAG(CTIT,int(300,4),int(2850,4))
        CALL ENDGRF
        !#< r ################################################### ESFUERZOS TANGENCIALES !#>
        CALL DISINI()
  
negative.code: 
        call PENWID(real(1.0,4))
        call shdpat(int(16,4))
        call color ('GRAY')
        call rlrec(real(minX+(maxX-minX)*0.045,4),&
                   real(maxY-(maxY-minY)*0.055,4),&
                   real(MeshVecLen2*1.1,4),&
  