forums.silverfrost.com Forum Index forums.silverfrost.com
Welcome to the Silverfrost forums
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Search found 2181 matches
forums.silverfrost.com Forum Index
Author Message
  Topic: New Video
JohnCampbell

Replies: 89
Views: 2010

PostForum: ClearWin+   Posted: Wed Jul 01, 2020 9:35 am   Subject:
Eddie,

I have been gradually transitioning COMMON to MODULE.

The disadvantage of COMMON was they could be (re)defined each time they were used, but this was overcome by only using COMMON in an i ...
  Topic: Suppressing Zero ~ EXCEL type
JohnCampbell

Replies: 11
Views: 262

PostForum: General   Posted: Mon Jun 29, 2020 6:42 am   Subject:
Years ago I actually created a Sudoko solver using 9x9 %rd boxes, each with their own %lc handle. It is so long ago that I have forgotten the details.

The links below are to the program and a sudok ...
  Topic: Corrupted page
JohnCampbell

Replies: 14
Views: 498

PostForum: Suggestions   Posted: Fri Jun 26, 2020 9:24 am   Subject:
Could have a few improvements to the code.
Fixes to new_x, last_x and parameter.
I tried the following adaptation, but it would not compile. I thought RGB@ was a FTN95 intrinsic ?
Anyway, possible ...
  Topic: Finding Variables and COMMONS.
JohnCampbell

Replies: 16
Views: 339

PostForum: Plato   Posted: Fri Jun 26, 2020 5:53 am   Subject:
I have always been too lazy to use projects or make or any other smart build utility. I instead use a .bat file to re-compile or relink. With FTN95 Ver 8.0+ I even gave away static libraries and inste ...
  Topic: error messaging
JohnCampbell

Replies: 27
Views: 566

PostForum: General   Posted: Thu Jun 25, 2020 3:39 am   Subject:
OK ofthechart, here goes for the last time!

Can you:
# generate a minimum reproducer: filename.f,
# a .bat file that demonstrates the different performance which looks like below then
# run the ...
  Topic: error messaging
JohnCampbell

Replies: 27
Views: 566

PostForum: General   Posted: Wed Jun 24, 2020 3:51 am   Subject: Re:
However without /BRIEF, the line number does not show up in the Command window.
I do not agree with this claim. The offending line + line number appears without /brief.
My experience is that it is ...
  Topic: Finding Variables and COMMONS.
JohnCampbell

Replies: 16
Views: 339

PostForum: Plato   Posted: Tue Jun 23, 2020 9:35 am   Subject:
I have placed findstr into a file called tfs.bat which contains
echo findstr %1 > tfs.tce

findstr /i /n /s /c:%1 *.f9? *.in? >> tfs.tce

line_edit tfs.tce < tfs_fix.txt

notepa ...
  Topic: error messaging
JohnCampbell

Replies: 27
Views: 566

PostForum: General   Posted: Tue Jun 23, 2020 9:04 am   Subject:
I am having trouble understanding this thread.

I can not reproduce your problem with the line of code identified producing an error message as you describe or failing to identify the line number.
...
  Topic: error messaging
JohnCampbell

Replies: 27
Views: 566

PostForum: General   Posted: Mon Jun 22, 2020 10:29 am   Subject:
offthechart,

Could you please provide your complete cut down code example in a [code box], together with a trace of the compile option, say as:
ftn95 offthechart.f (your options) /echo > offthe ...
  Topic: Write array to X,Y formatted file
JohnCampbell

Replies: 8
Views: 401

PostForum: Support   Posted: Mon Jun 15, 2020 2:52 pm   Subject: Re:
Even Fortran 77 satisfies the vast majority of Fortraneers, especially those of Anglo-Romanic descent ;-)
Don't think many would agree with that. No Allocate! or System_Clock and lots of others.

Y ...
  Topic: Overriding Intrinsic Functions in Fortran 95
JohnCampbell

Replies: 8
Views: 396

PostForum: General   Posted: Mon Jun 15, 2020 2:37 pm   Subject:
John,

perhaps more confusing ?
complex a, dodovariable
integer dovariable
dodovariable = (1,10)
dodovariable = 1,10
a = dovariable + dodovariable
...
  Topic: Write array to X,Y formatted file
JohnCampbell

Replies: 8
Views: 401

PostForum: Support   Posted: Wed Jun 10, 2020 8:59 am   Subject:
"write (25,'(f15.10,f15.10)') X, Y"

This is equivalent to:
write (25,'(f15.10,f15.10)') (X(i,j),i=1,ny,j=1,nx), (Y(i,j),i=1,ny,j=1,nx)

If you don't like it then re-order the implied d ...
  Topic: Issue with ISHFT and 2 byte integers
JohnCampbell

Replies: 10
Views: 4185

PostForum: Support   Posted: Sat May 23, 2020 3:18 pm   Subject:
Paul,

I can't find recent discussion, but it appears this problem has returned.
The program in the opening post works for
FTN95 /debug /lgo (ok), but
FTN95 /check /lgo (fails)

I have been r ...
  Topic: Complex*32
JohnCampbell

Replies: 9
Views: 2174

PostForum: Support   Posted: Tue May 19, 2020 10:00 am   Subject: Re:
FTN95 x64 has always used the SSE instructions for floating point arithmetic.
Robert, when you say "SSE instructions", do you mean 64-bit (as opposed to 80-bit) ?
I understand FTN95 /OPT ...
  Topic: Use of parameter in ALLOCATE produces ICE
JohnCampbell

Replies: 1
Views: 595

PostForum: 64-bit   Posted: Mon May 04, 2020 3:40 am   Subject: Use of parameter in ALLOCATE produces ICE
When allocating a large array, if the array size is an integer parameter, I get an ICE, but an integer variable works ok.
PROGRAM monster_1
!
integer*8, parameter :: four = 1 ...
 
Page 1 of 146 Goto page 1, 2, 3 ... 144, 145, 146  Next
All times are GMT + 1 Hour
Jump to:  


Powered by phpBB © 2001, 2005 phpBB Group