!--------------------------------------------------------------------------- !--------------------------------------------------------------------------- !--------------------------------------------------------------------------- ! ! Dummy routine for the library. real action routine ! is in the gui version ! subroutine cesrv_show(line) use cesrv_struct use cesrv_interface implicit none character(120) line end subroutine