Added an allocation for REAL*8, the two REAL*8 routines will have to be replaced by a REAL (KIND=.) routine soon