1*47949SbosticC 2*47949SbosticC Copyright (c) 1980 The Regents of the University of California. 3*47949SbosticC All rights reserved. 4*47949SbosticC 5*47949SbosticC %sccs.include.proprietary.f% 6*47949SbosticC 7*47949SbosticC @(#)pe.f 5.2 (Berkeley) 04/12/91 8*47949SbosticC 9*47949Sbostic 1043977Sbostic program pe 1143977Sbostic x = 123.456 1243977Sbostic write(*,'(3pe8.1,5x,0pe9.5e0)') x, 123456789e14 1343977Sbostic end 14