I don't know how useful this is for F77 but if I want to output a number I have without any leading spaces, I just do this:
INTEGER :: MyInteger
CHARACTER(LEN=7) :: MyString
WRITE(MyString,'(i7.5)') MyInteger
WRITE(6,*) 'MyInteger: ', TRIM(ADJUSTL(MyString))
Should work for real numbers too...