anchor.diff:  
            ! calculate the real TrueDate
   
  -         p1a =  (ye1*100+mo1)*100+da1
  -         p1b = ((ho1*100+mi1)*100+se1)*100
  +         p1a(1) =  (ye1*100+mo1)*100+da1
  +         p1b    = ((ho1*100+mi1)*100+se1)*100
   
            ier = newdate( tdateL, p1a,p1b, print2true )
   
  
positive.code: !     are by default always done with the gregorian calendar.
  
        implicit none
        integer CcclxDays_Adjust
  
        ! arguments
  
  
negative.code:                ndays = Calendar_Adjust(tdate1,tdate2,'E',adding)
                 tdate1 = tdate1 + (ndays*24)
               endif
               result=newdate(tdate1,idate,runnum,-6) ; idate1=idate(1)
             else
               result=newdate(tdate1,idate,runnum,-1) ; idate1=idate(1)
             endif
             if (result.ne.0)  then
                print *,'after if adding,if rounding',tdate1
  