Symbol Description Uses
present 22


File Line number Procedure Code
./pkg/cal/cal_dayspermonth.F 58 CAL_DAYSPERMONTH 
      integer present
./pkg/cal/cal_dayspermonth.F 69 CAL_DAYSPERMONTH 
      present    = mydate(1)/100
./pkg/cal/cal_getmonthsrec.F 100 CAL_GETMONTHSREC 
     &                  ndaymonth(present,currentdate(3))
./pkg/cal/cal_getmonthsrec.F 112 CAL_GETMONTHSREC 
      midsecs     = float(ndaymonth(present,currentdate(3))*
./pkg/cal/cal_getmonthsrec.F 135 CAL_GETMONTHSREC 
        count0    = mod(present+nmonthyear-2,nmonthyear)+1
./pkg/cal/cal_getmonthsrec.F 153 CAL_GETMONTHSREC 
        count1 = present
./pkg/cal/cal_getmonthsrec.F 162 CAL_GETMONTHSREC 
        count0 = present
./pkg/cal/cal_getmonthsrec.F 165 CAL_GETMONTHSREC 
          prevcount = mod(present+nmonthyear-2,nmonthyear)+1
./pkg/cal/cal_getmonthsrec.F 167 CAL_GETMONTHSREC 
          prevcount = present
./pkg/cal/cal_getmonthsrec.F 175 CAL_GETMONTHSREC 
        count1 = mod(present+1,nmonthyear)
./pkg/cal/cal_getmonthsrec.F 66 CAL_GETMONTHSREC 
      integer present
./pkg/cal/cal_getmonthsrec.F 93 CAL_GETMONTHSREC 
      present         = mod(currentdate(1)/100,100)
./pkg/cal/cal_monthsperyear.F 54 CAL_MONTHSPERYEAR 
      integer present
./pkg/cal/cal_monthsperyear.F 61 CAL_MONTHSPERYEAR 
      present = mydate(1)/10000
./pkg/cal/cal_monthsperyear.F 64 CAL_MONTHSPERYEAR 
      if (present .eq. final) then
./pkg/cal/cal_monthsperyear.F 65 CAL_MONTHSPERYEAR 
        present = mod(mydate(1)/100,100)
./pkg/cal/cal_monthsperyear.F 69 CAL_MONTHSPERYEAR 
        present = mod(mydate(1)/100,100)
./pkg/cal/cal_monthsperyear.F 73 CAL_MONTHSPERYEAR 
      nmonths = final - present + 1
./pkg/cal/cal_stepsperday.F 53 CAL_STEPSPERDAY 
      integer present
./pkg/cal/cal_stepsperday.F 64 CAL_STEPSPERDAY 
      present     = currentdate(1)
./pkg/cal/cal_stepsperday.F 70 CAL_STEPSPERDAY 
      if (present .lt. final) then
./pkg/cal/cal_stepsperday.F 76 CAL_STEPSPERDAY 
      else if (present .eq. final) then