implicit integer*4 (i-n) implicit real*8 (a-h,o-z)