character*1 c1
      i=67
      c1=char(i)
      print *,c1
      end