Symbol Description Uses
nroutine 24



File Line number Procedure Code
./pkg/cal/cal_printerror.F 103 CAL_PRINTERROR
      nroutine = (calerr - nerrcode)/100
./pkg/cal/cal_printerror.F 121 CAL_PRINTERROR
      if (nroutine .eq. 1) then
./pkg/cal/cal_printerror.F 209 CAL_PRINTERROR
      else if (nroutine .eq. 2) then
./pkg/cal/cal_printerror.F 214 CAL_PRINTERROR
      else if (nroutine .eq. 3) then
./pkg/cal/cal_printerror.F 219 CAL_PRINTERROR
      else if (nroutine .eq. 4) then
./pkg/cal/cal_printerror.F 224 CAL_PRINTERROR
      else if (nroutine .eq. 5) then
./pkg/cal/cal_printerror.F 236 CAL_PRINTERROR
      else if (nroutine .eq. 6) then
./pkg/cal/cal_printerror.F 248 CAL_PRINTERROR
      else if (nroutine .eq. 7) then
./pkg/cal/cal_printerror.F 260 CAL_PRINTERROR
      else if (nroutine .eq. 8) then
./pkg/cal/cal_printerror.F 276 CAL_PRINTERROR
      else if (nroutine .eq. 9) then
./pkg/cal/cal_printerror.F 288 CAL_PRINTERROR
      else if (nroutine .eq. 10) then
./pkg/cal/cal_printerror.F 300 CAL_PRINTERROR
      else if (nroutine .eq. 11) then
./pkg/cal/cal_printerror.F 312 CAL_PRINTERROR
      else if (nroutine .eq. 12) then
./pkg/cal/cal_printerror.F 324 CAL_PRINTERROR
      else if (nroutine .eq. 13) then
./pkg/cal/cal_printerror.F 329 CAL_PRINTERROR
      else if (nroutine .eq. 14) then
./pkg/cal/cal_printerror.F 334 CAL_PRINTERROR
      else if (nroutine .eq. 15) then
./pkg/cal/cal_printerror.F 339 CAL_PRINTERROR
      else if (nroutine .eq. 16) then
./pkg/cal/cal_printerror.F 344 CAL_PRINTERROR
      else if (nroutine .eq. 17) then
./pkg/cal/cal_printerror.F 349 CAL_PRINTERROR
      else if (nroutine .eq. 18) then
./pkg/cal/cal_printerror.F 405 CAL_PRINTERROR
      else if (nroutine .eq. 19) then
./pkg/cal/cal_printerror.F 410 CAL_PRINTERROR
      else if (nroutine .eq. 20) then
./pkg/cal/cal_printerror.F 422 CAL_PRINTERROR
      else if (nroutine .eq. 21) then
./pkg/cal/cal_printerror.F 427 CAL_PRINTERROR
      else if (nroutine .eq. 25) then
./pkg/cal/cal_printerror.F 95 CAL_PRINTERROR
      integer nroutine