anchor.diff:        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 MESSAG(CTIT,int(7800-lentitle-100,4),int(2850,4))
  +
  +      call height(80) ! de los caracteres
  +      write(CTIT,'(a)') '$u_{i}$'
  +      lentitle = NLMESS(CTIT)
  +      call color ('FORE')
  +      CALL MESSAG(CTIT,int(15,4),int(15,4))
         CALL ENDGRF
         !#< r ################################################### ESFUERZOS TANGENCIALES !#>
         CALL DISINI()
  
positive.code:       ! stt = stt/maxstt * MeshVecLen
        call shdpat(int(16,4))
        call PENWID(real(1.0,4))
        call color ('GREY')
        call rlrec(real(minX+(maxX-minX)*0.045,4),&
                   real(maxY-(maxY-minY)*0.055,4),&
                   real(MeshVecLen2*1.1,4),&
  
negative.code:                   real(recVoidonly(:,2),4), &
                    int(2*size(Xcoord_Voidonly(:,1,1)),4))
          end if
          ! normales
          fai = nIpts-nXi-nSabanapts
          faf = nIpts-nXi-nSabanapts+n_topo+n_cont+n_vall
          call color ('CYAN')
          call PENWID(real(2,4))
          CALL HSYMBL(int(60,4))
          do j=fai,faf
          if (allpoints(j)%atBou) then
              call RLVEC(real(allpoints(j)%center%x,4),&
                         real(allpoints(j)%center%z,4),&
                         real(allpoints(j)%center%x+allpoints(j)%normal%x*MeshVecLen2/3,4),&
                         real(allpoints(j)%center%z+allpoints(j)%normal%z*MeshVecLen2/3,4),&
                         int(1111,4))
          end if
          end do!j
  
        !#< r ##################   TANGENCIALES     !#>
        call mypat(45,5,3,1)
        call PENWID(real(2.5,4))
  