Symbol Description Uses
currentmonth 27


File Line number Procedure Code
./pkg/cal/cal_daysformonth.F 137 CAL_DAYSFORMONTH 
          currentmonth = firstmonth
./pkg/cal/cal_daysformonth.F 142 CAL_DAYSFORMONTH 
            currentmonth = mod(currentmonth+1,nmonthyear)
./pkg/cal/cal_daysformonth.F 143 CAL_DAYSFORMONTH 
            if ( currentmonth .eq. 0 ) then
./pkg/cal/cal_daysformonth.F 144 CAL_DAYSFORMONTH 
              currentmonth = 12
./pkg/cal/cal_daysformonth.F 146 CAL_DAYSFORMONTH 
            if ( currentmonth .eq. 1 ) then
./pkg/cal/cal_daysformonth.F 150 CAL_DAYSFORMONTH 
            numdays   = numdays + ndaymonth(currentmonth,lycurrent)
./pkg/cal/cal_daysformonth.F 152 CAL_DAYSFORMONTH 
          currentmonth = mod(currentmonth+1,nmonthyear)
./pkg/cal/cal_daysformonth.F 153 CAL_DAYSFORMONTH 
          if ( currentmonth .eq. 0 ) then
./pkg/cal/cal_daysformonth.F 154 CAL_DAYSFORMONTH 
             currentmonth = 12
./pkg/cal/cal_daysformonth.F 156 CAL_DAYSFORMONTH 
          if ( currentmonth .eq. 1 ) then
./pkg/cal/cal_daysformonth.F 161 CAL_DAYSFORMONTH 
          lastday   = numdays + ndaymonth(currentmonth,lycurrent)
./pkg/cal/cal_daysformonth.F 164 CAL_DAYSFORMONTH 
          currentmonth = firstmonth
./pkg/cal/cal_daysformonth.F 169 CAL_DAYSFORMONTH 
            currentmonth = mod(currentmonth+1,nmonthyear)
./pkg/cal/cal_daysformonth.F 170 CAL_DAYSFORMONTH 
            if ( currentmonth .eq. 0 ) then
./pkg/cal/cal_daysformonth.F 171 CAL_DAYSFORMONTH 
              currentmonth = 12
./pkg/cal/cal_daysformonth.F 173 CAL_DAYSFORMONTH 
            if ( currentmonth .eq. 1 ) then
./pkg/cal/cal_daysformonth.F 177 CAL_DAYSFORMONTH 
            numdays   = numdays + ndaymonth(currentmonth,lycurrent)
./pkg/cal/cal_daysformonth.F 180 CAL_DAYSFORMONTH 
          currentmonth = mod(currentmonth+1,nmonthyear)
./pkg/cal/cal_daysformonth.F 181 CAL_DAYSFORMONTH 
          if ( currentmonth .eq. 0 ) then
./pkg/cal/cal_daysformonth.F 182 CAL_DAYSFORMONTH 
             currentmonth = 12
./pkg/cal/cal_daysformonth.F 184 CAL_DAYSFORMONTH 
          if ( currentmonth .eq. 1 ) then
./pkg/cal/cal_daysformonth.F 192 CAL_DAYSFORMONTH 
            lastday  = numdays + ndaymonth(currentmonth,lycurrent)
./pkg/cal/cal_daysformonth.F 63 CAL_DAYSFORMONTH 
      integer currentmonth