common/rlength/AEXPA,INDAYA,IMONTHA,INYEARA,
     &  LDAYA,LMONTHA,LYEARA,IYEARA,TAUEM, IRESTART
      common/ATMTIME/TAUATM,MONTHATM,JDATEATM,JYEARATM
      character *4 MONTHATM