If. you want to know the value of a parameter in your routine you can use
call getparam( par, p_value, error, prt
par = name of parameter, eg, 'p' (in quotes)
p_value = real*8 value returned (always real, can cast as integer)
error = logical -- true if error in getting, otherwise false
par = logical, print value found if .true.