No_truncate problems

Welcome to my devilry occurrences on Saturdays. 😃

Devilry is in that the offending line is very wrong and even more surprising is that the order where it is shown in the error report is hell unusual: it is shown in the beginning of the report while error was actually at the very end. To find this error would take me ages but good i had previous version of the code and quickly found it by comparing texts. Let me know if you will reproduce this error by yourselves, otherwise i will try to make smaller demo

WARNING - 520: ALL_SUBS_BREMMS!YY06TOP has been declared more than once with 
    the same type (see line 923)
WARNING - 520: ALL_SUBS_BREMMS!YY06BOTT has been declared more than once with 
    the same type (see line 923)
1196) integer :: kPlotSpectrumCurveTop=1,kPlotSpectrumCurveTop=1
WARNING - 520: ALL_SUBS_BREMMS!KPLOTSPECTRUMCURVETOP has been declared more 
    than once with the same type (see line 1196)
23284) close(1700,err=1410)
*** Error 1100: Line is longer than 132 characters (because of /NO_TRUNCATE)
        1 ERROR, 3 WARNINGS  [<NUMBERSNUMBERS> FTN95 v8.83.0]
        NO ERRORS  [<ELECTRONCHARGEANDENERGY> FTN95 v8.83.0]
1280) ElChargeBetween = ElChargeBetween + CoordMomE(8, ipartcl, iaxcell) *iReadEveryNth
WARNING - 1220: A 32 bit INTEGER has been converted to REAL with a 24 bit 
    mantissa
        NO ERRORS, 1 WARNING  [<CBELECTRONCHARGEANDENERGY> FTN95 v8.83.0]
1366) En_of_El_eV = 1e6 * En_of_El_MeV
WARNING - 242: Variable EN_OF_EL_EV has been given a value but never used
1397) Power111 = 1. 

Also after posting this message i found in it some other strange warning respect to 32 bit INTEGER which has been converted to REAL with a 24 bit mantissa...The ElChargeBetween and CoordMomE are both real*8 variables

The help says...

/NO_TRUNCATE Characters beyond column 72 (132 for free format files) are treated as an error

so are you using /NO_TRUNCATE and how long is the line that generates the error?

For WARNING - 1220, if you use a 32 bit integer in a 32 bit real expression then it becomes an approximation when it occupies more than 24 bits.

The line was little bit beyond 132 characters in free format. By the way the No_truncate is great option, i recommend to always use it