Symbol Description Uses
nroutine 25


File Line number Procedure Code
./pkg/cal/cal_printerror.F 103 CAL_PRINTERROR 
      nroutine = (calerr - nerrcode)/100
./pkg/cal/cal_printerror.F 106 CAL_PRINTERROR 
      if (nroutine .eq. 0) then
./pkg/cal/cal_printerror.F 120 CAL_PRINTERROR 
      else if (nroutine .eq. 1) then
./pkg/cal/cal_printerror.F 208 CAL_PRINTERROR 
      else if (nroutine .eq. 2) then
./pkg/cal/cal_printerror.F 213 CAL_PRINTERROR 
      else if (nroutine .eq. 3) then
./pkg/cal/cal_printerror.F 218 CAL_PRINTERROR 
      else if (nroutine .eq. 4) then
./pkg/cal/cal_printerror.F 223 CAL_PRINTERROR 
      else if (nroutine .eq. 5) then
./pkg/cal/cal_printerror.F 235 CAL_PRINTERROR 
      else if (nroutine .eq. 6) then
./pkg/cal/cal_printerror.F 247 CAL_PRINTERROR 
      else if (nroutine .eq. 7) then
./pkg/cal/cal_printerror.F 259 CAL_PRINTERROR 
      else if (nroutine .eq. 8) then
./pkg/cal/cal_printerror.F 275 CAL_PRINTERROR 
      else if (nroutine .eq. 9) then
./pkg/cal/cal_printerror.F 287 CAL_PRINTERROR 
      else if (nroutine .eq. 10) then
./pkg/cal/cal_printerror.F 299 CAL_PRINTERROR 
      else if (nroutine .eq. 11) then
./pkg/cal/cal_printerror.F 311 CAL_PRINTERROR 
      else if (nroutine .eq. 12) then
./pkg/cal/cal_printerror.F 323 CAL_PRINTERROR 
      else if (nroutine .eq. 13) then
./pkg/cal/cal_printerror.F 328 CAL_PRINTERROR 
      else if (nroutine .eq. 14) then
./pkg/cal/cal_printerror.F 333 CAL_PRINTERROR 
      else if (nroutine .eq. 15) then
./pkg/cal/cal_printerror.F 338 CAL_PRINTERROR 
      else if (nroutine .eq. 16) then
./pkg/cal/cal_printerror.F 343 CAL_PRINTERROR 
      else if (nroutine .eq. 17) then
./pkg/cal/cal_printerror.F 348 CAL_PRINTERROR 
      else if (nroutine .eq. 18) then
./pkg/cal/cal_printerror.F 404 CAL_PRINTERROR 
      else if (nroutine .eq. 19) then
./pkg/cal/cal_printerror.F 409 CAL_PRINTERROR 
      else if (nroutine .eq. 20) then
./pkg/cal/cal_printerror.F 421 CAL_PRINTERROR 
      else if (nroutine .eq. 21) then
./pkg/cal/cal_printerror.F 426 CAL_PRINTERROR 
      else if (nroutine .eq. 25) then
./pkg/cal/cal_printerror.F 95 CAL_PRINTERROR 
      integer nroutine