Eror 15, attempt to access undefined arguments to routine

Question

I write a program with numbers of subroutines in the module block.

One of them has a Logical variable as an output, this:

subroutine dless ( k, p, q ,