removed implicit real*8 from bc2amr