_RL myPa_param2
COMMON /MYPA_PARAMS_R/ myPa_param1, myPa_param2
& myPa_param1, myPa_param2,
myPa_param2 = 0. _d 0