! tliba.f90
MODULE T_LIBA
use t_defa
CONTAINS
  SUBROUTINE OV_DT(X,Y)
    IMPLICIT NONE
    !
    type(t_obj), INTENT(IN)    :: Y
    type(t_obj), INTENT(INOUT) :: X
    INTEGER :: I,J
    !
    DO J=1,size(x%r,2)
       DO I=1,size(x%r,1)
          X%r(I,J) = 2.D0*Y%r(I,J)
       ENDDO
    ENDDO
    !
    RETURN
  END SUBROUTINE OV_DT
  SUBROUTINE OV_DT_AN(X,Y)
    IMPLICIT NONE
    !
    type(t_obj), INTENT(IN)    :: Y
    type(t_obj), INTENT(INOUT) :: X
    !
    X%r = 2.D0*Y%r
    !
    RETURN
  END SUBROUTINE OV_DT_AN
END MODULE T_LIBA