INTEGER myPa_index2
COMMON /MYPA_PARAMS_I/ myPa_index1, myPa_index2
& myPa_index1, myPa_index2,
myPa_index2 = 0