forums.silverfrost.com

Mecej4, Interesting. With my approach printing to the terminal, about a dozen of the characters in you example are not printed correctly (FTN95, gFortran and Ifort)

Clearwin+ has no problems displa ...

This is not a Fortran issue, it is related to the windows settings on your machine.

If the following program does not run correctly on your machine:

CHARACTER(len=2) :: text( ...

Hi John,

Thanks for your feedback.

Well 15 years ago I was definitely a Fortran 77 programmer, but over time I have seen myself using the features of Fortran 95 and later standards.

Using mo ...

This look very similar to the error Robert was asking about concerning select_printer@. While I could replicate that problem, it did not persist after the next windows update. Might be worthwhile ch ...

Paul, thanks for taking the time to implement "back" for these three intrinsics. This will be very useful for future programs.

Try finding: Documents\FTN95 Examples\NET on you machine.

Assuming the data file input.txt is
*
123
*
123
123, abc
*
123
123, abc
123
*
123
*

The following program:
program p
implicit none
integer fileopened, nlines, readstat, i
character& ...

Generalising my previous post:
module string_mod
implicit none
integer, protected, allocatable :: location(:)
contains
subroutine locatechar(instring,searchchar,number&# ...

Does this help? Space_loc(N) holds the location of the Nth occurrence of ichar(' ')

program test
implicit none
character(200) :: stringin
integer, dimension(200) :&# ...

Interesting item appeared on the "Start Page" of my PSCAD-EMTDC installation today.

The latest news coming from the Intel Fortran development team tells us that the future of the Intel 32 ...

Expanding to use subroutines "String2array" and "Array2string":

implicit none
integer i, n
character(len=128) :: a2z, a2zcopy
character(len=1), alloca ...

The recently introduced PROTECTED attribute for module variables works correctly for STATIC variables of both INTRINSIC and USER DEFINED types.

If the PROTECTED variable is an ALLOCATABLE array of ...

implicit none
integer i, n
character(len=26) :: a2z, z2a
character(len=1) :: ch(26)
n = 26
a2z = ''
print'(A)', a2z
do i = 97, 97+n, 1
a2z ...

Zach,

It is not productive to pursue the question “why”, after it was established that the code is not aligned with the rules of Fortran.

In pursuing this, you are drawing incorrect conclusions ...

The behaviour you observe indicates that the memory location the program is using to store the value n was filled with zeros by the program that previously used this location.