disp Subroutine

        subroutine disp(s)
            !< Display the contents of the string
            !
            ! This function trims the string before printing it.
            !-----------------------------------------------------------
        
            implicit none
            character(len=MAX_STRING_LEN), intent(in) :: s

            print *, trim(s)

        end subroutine disp