Symbol Description Uses
nroutine 25


File Line number Procedure Code
./pkg/cal/cal_printerror.F 100 CAL_PRINTERROR 
      nroutine = (calerr - nerrcode)/100
./pkg/cal/cal_printerror.F 103 CAL_PRINTERROR 
      if (nroutine .eq. 0) then
./pkg/cal/cal_printerror.F 113 CAL_PRINTERROR 
      else if (nroutine .eq. 1) then
./pkg/cal/cal_printerror.F 171 CAL_PRINTERROR 
      else if (nroutine .eq. 2) then
./pkg/cal/cal_printerror.F 176 CAL_PRINTERROR 
      else if (nroutine .eq. 3) then
./pkg/cal/cal_printerror.F 181 CAL_PRINTERROR 
      else if (nroutine .eq. 4) then
./pkg/cal/cal_printerror.F 186 CAL_PRINTERROR 
      else if (nroutine .eq. 5) then
./pkg/cal/cal_printerror.F 197 CAL_PRINTERROR 
      else if (nroutine .eq. 6) then
./pkg/cal/cal_printerror.F 207 CAL_PRINTERROR 
      else if (nroutine .eq. 7) then
./pkg/cal/cal_printerror.F 217 CAL_PRINTERROR 
      else if (nroutine .eq. 8) then
./pkg/cal/cal_printerror.F 229 CAL_PRINTERROR 
      else if (nroutine .eq. 9) then
./pkg/cal/cal_printerror.F 239 CAL_PRINTERROR 
      else if (nroutine .eq. 10) then
./pkg/cal/cal_printerror.F 249 CAL_PRINTERROR 
      else if (nroutine .eq. 11) then
./pkg/cal/cal_printerror.F 259 CAL_PRINTERROR 
      else if (nroutine .eq. 12) then
./pkg/cal/cal_printerror.F 269 CAL_PRINTERROR 
      else if (nroutine .eq. 13) then
./pkg/cal/cal_printerror.F 274 CAL_PRINTERROR 
      else if (nroutine .eq. 14) then
./pkg/cal/cal_printerror.F 279 CAL_PRINTERROR 
      else if (nroutine .eq. 15) then
./pkg/cal/cal_printerror.F 284 CAL_PRINTERROR 
      else if (nroutine .eq. 16) then
./pkg/cal/cal_printerror.F 289 CAL_PRINTERROR 
      else if (nroutine .eq. 17) then
./pkg/cal/cal_printerror.F 294 CAL_PRINTERROR 
      else if (nroutine .eq. 18) then
./pkg/cal/cal_printerror.F 332 CAL_PRINTERROR 
      else if (nroutine .eq. 19) then
./pkg/cal/cal_printerror.F 337 CAL_PRINTERROR 
      else if (nroutine .eq. 20) then
./pkg/cal/cal_printerror.F 347 CAL_PRINTERROR 
      else if (nroutine .eq. 21) then
./pkg/cal/cal_printerror.F 352 CAL_PRINTERROR 
      else if (nroutine .eq. 25) then
./pkg/cal/cal_printerror.F 93 CAL_PRINTERROR 
      integer nroutine