integer,PARAMETER:: nrevlen=5
      character(len=nrevlen) :: CPREV
      data CPREV/'12.10'/