Quantcast
Channel: Intel® Software - Intel® Fortran Compiler for Linux* and macOS*
Viewing all articles
Browse latest Browse all 2746

Need to suppress leading zero's.

$
0
0

Hey,

I'm migrating FORTRAN programs from HPUX itanium to Redhat Linux and I'm using the Intel ifort compiler.  Unfortunately, real numbers written to the unit 6 output file now have leading zero's that aren't in my HPUX output file.  The HPUX compile used the +io77 option to suppress the leading zero's.  I was unable to find a similar option for the ifort compiler.  This causes a couple problems.  First, my output files are almost 100% different than the HPUX files making validation of the migration process much more difficult.  I now have to exam every line visually vs. using diff.  Second, in many places, output tables only had a single space between columns of data which now contains a leading zero so the data all runs together with no separation between fields.  Obviously, I can spend a lot of time modify every format statement with floating point format descriptors to fix this second problem but I am hoping for a simple compiler fix I may have missed.  Any help for this simple fix would be greatly appreciated.

Sample Linux ifort output with the leading zero's are shown below.

   1.        0.  1.000.10000E+010.50000E-020.00000E+000.00000E+000.42900E+010.86200E+010.10000E+010.10000E+010.10000E+01
   1.   1000.  1.000.10000E+010.50000E-020.00000E+000.00000E+000.42900E+010.86200E+010.10000E+010.10000E+010.10000E+01
   1.   1001.  1.000.42000E+000.33000E-020.00000E+000.00000E+000.34000E+010.66900E+010.10000E+010.10000E+010.10000E+01
   1.   2500.  1.000.42000E+000.33000E-020.00000E+000.00000E+000.34000E+010.66900E+010.10000E+010.10000E+010.10000E+01
   1.   2501.  1.000.30000E+000.20000E-020.00000E+000.00000E+000.34200E+010.81700E+010.10000E+010.10000E+010.10000E+01

What I get from HPUX's f90 compiled executable is,

   1.        0.  1.00 .10000E+01 .50000E-02 .00000E+00 .00000E+00 .42900E+01 .86200E+01 .10000E+01 .10000E+01 .10000E+01
   1.   1000.  1.00 .10000E+01 .50000E-02 .00000E+00 .00000E+00 .42900E+01 .86200E+01 .10000E+01 .10000E+01 .10000E+01
   1.   1001.  1.00 .42000E+00 .33000E-02 .00000E+00 .00000E+00 .34000E+01 .66900E+01 .10000E+01 .10000E+01 .10000E+01
   1.   2500.  1.00 .42000E+00 .33000E-02 .00000E+00 .00000E+00 .34000E+01 .66900E+01 .10000E+01 .10000E+01 .10000E+01
   1.   2501.  1.00 .30000E+00 .20000E-02 .00000E+00 .00000E+00 .34200E+01 .81700E+01 .10000E+01 .10000E+01 .10000E+01

 

 


Viewing all articles
Browse latest Browse all 2746

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>