changed TDL OPERATION to SUBROUTINE