 character(len=:),allocatable :: string
      write(*,*)trimzeros('123.450000000000')
      write(*,*)trimzeros('12345')
      write(*,*)trimzeros('12345.')
      write(*,*)trimzeros('12345.00e3')
   end program demo_trimzeros
</pre><h2><a class="anchor" id="autotoc_md97"></a>
AUTHOR</h2>
<p>John S. Urban </p>
<h2><a class="anchor" id="autotoc_md98"></a>
LICENSE</h2>
<p>Public Domain </p>
<div class="dynheader">
Here is the caller graph for this function:</div>
<div class="dyncontent">
<div class="center"><