nroutine = (calerr - nerrcode)/100
if (nroutine .eq. 1) then
else if (nroutine .eq. 2) then
else if (nroutine .eq. 3) then
else if (nroutine .eq. 4) then
else if (nroutine .eq. 5) then
else if (nroutine .eq. 6) then
else if (nroutine .eq. 7) then
else if (nroutine .eq. 8) then
else if (nroutine .eq. 9) then
else if (nroutine .eq. 10) then
else if (nroutine .eq. 11) then
else if (nroutine .eq. 12) then
else if (nroutine .eq. 13) then
else if (nroutine .eq. 14) then
else if (nroutine .eq. 15) then
else if (nroutine .eq. 16) then
else if (nroutine .eq. 17) then
else if (nroutine .eq. 18) then
else if (nroutine .eq. 19) then
else if (nroutine .eq. 20) then
else if (nroutine .eq. 21) then
else if (nroutine .eq. 25) then
integer nroutine