integer testnymd
testnymd=nymd + mmdd
yearnext=testnymd/10000
monthnext=mod(testnymd,10000)/100
testnymd = yearnext*10000 + monthnext*100 + daynext
integer testnymd,testnhms,testndpm
testnymd=nymd0
testnymd=testnymd + nmmdd
year0=testnymd/10000
month0=mod(testnymd,10000)/100
day0 = mod(testnymd,100)
testnymd = testnymd + 1
testnymd = testnymd - testndpm
testnymd = testnymd + 100
testnymd = testnymd + 10000 - 1200
if( (testnymd.gt.nymd) .or.
& (testnymd.eq.testnymd) .and. (testnhms.gt.nhms) )