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 1956 matches
forums.silverfrost.com Forum Index
Author Message
  Topic: Calculating the outer vector product
JohnCampbell

Replies: 37
Views: 1035

PostForum: Support   Posted: Thu Jul 05, 2018 4:51 am   Subject:
Paul,

Run mecej4's test program using FTN95 and gFortran. The following adaptation gives an indication that gFortran is running !
I ran it in PLATO selecting Release Win32 then Release x64 : Tools ...
  Topic: Bad SLINK64 diagnostics
JohnCampbell

Replies: 18
Views: 440

PostForum: 64-bit   Posted: Wed Jul 04, 2018 5:44 am   Subject:
Dan,

Place a del run.exe at the start of you build.bat file.

I actually use:
del %program%.exe
del *.mod
del *.obj

(is run.exe a good name to use ?)
  Topic: Calculating the outer vector product
JohnCampbell

Replies: 37
Views: 1035

PostForum: Support   Posted: Mon Jun 25, 2018 10:32 am   Subject:
I think that it has taken 20 years to identify the problem with SPREAD indicates how little this function is used. I would prefer to write the code using a DO loop approach, rather than check the docu ...
  Topic: Calculating the outer vector product
JohnCampbell

Replies: 37
Views: 1035

PostForum: Support   Posted: Fri Jun 22, 2018 12:42 pm   Subject:
Paul,

Your suggestion of FTN95 may be treating SPREAD as "elemental" is certainly consistent with the timing performance. I hope it can be fixed.

Imagine if Dot_Product had the same pr ...
  Topic: Calculating the outer vector product
JohnCampbell

Replies: 37
Views: 1035

PostForum: Support   Posted: Fri Jun 22, 2018 2:09 am   Subject:
Paul,

As I posted yesterday: See the linked test program that shows SPREAD is very slow.

https://www.dropbox.com/s/4r5kzn5onefvkka/kl2.f90?dl=0

Download it and run this test. I put write ...
  Topic: Calculating the outer vector product
JohnCampbell

Replies: 37
Views: 1035

PostForum: Support   Posted: Thu Jun 21, 2018 12:05 pm   Subject:
The link I provided demonstrates a number of loop alternatives, including array syntax instead of the inner loop, which was the fastest option with FTN95.
As Klaus reported, it also shows that FTN95 ...
  Topic: Calculating the outer vector product
JohnCampbell

Replies: 37
Views: 1035

PostForum: Support   Posted: Thu Jun 21, 2018 7:57 am   Subject: Re:
FTN95 does require an explicit call to MATMUL and this seems right to me. Paul, wouldn't this be a different calculation ?

oops ! The following adaptation still has a delay:
Call elapse_Tim ...
  Topic: Calculating the outer vector product
JohnCampbell

Replies: 37
Views: 1035

PostForum: Support   Posted: Thu Jun 21, 2018 6:34 am   Subject:
Klaus,

I would replace CPU_Time with Elapse_Time, which calls System_Clock or RDTSC_VAL@(). You won't get a meaningful result with CPU_Time for your first test.

I am trying m=n=1000, which certa ...
  Topic: Start using debuggers, people
JohnCampbell

Replies: 55
Views: 4170

PostForum: 64-bit   Posted: Sun Jun 03, 2018 6:52 am   Subject: Re:
To get a proof that /undef is more powerful then "implicit none" take any large code made by someone which never used /undef but used only "implicit none" and make a fun of its au ...
  Topic: Start using debuggers, people
JohnCampbell

Replies: 55
Views: 4170

PostForum: 64-bit   Posted: Sun Jun 03, 2018 3:25 am   Subject:
Dan,

Are you going to make the same mistake 100 times a day for the rest of your life ? ...
Imaging how much time you are wasting having a coffee each day; and all the time you have spent moving a ...
  Topic: Stack Size
JohnCampbell

Replies: 16
Views: 1117

PostForum: 64-bit   Posted: Fri May 25, 2018 11:38 pm   Subject:
davidb & mecej4,

I have now reread your posts on this thread. To me, what you have written is just excuses for what is a very poor/lazy system design.
If the stack is to overflow, there shoul ...
  Topic: changing the stack at runtime?
JohnCampbell

Replies: 5
Views: 307

PostForum: Support   Posted: Fri May 25, 2018 11:16 pm   Subject:
Can we have a new page in ftn95.chm something like "Stack size for dummies", or more "How to manage the stack"

We need actual examples of:
* how to reset the stack when using S ...
  Topic: Side by side versions?
JohnCampbell

Replies: 10
Views: 867

PostForum: General   Posted: Mon May 14, 2018 6:49 am   Subject:
John,

%1 is the first option provided to the batch file.
So assuming the batch file is called set_ftn95.bat
I want to select the version in directory ftn95_8.20F
I would issue the command " ...
  Topic: Error Argument of ichar at (1) must be of length one
JohnCampbell

Replies: 8
Views: 512

PostForum: Support   Posted: Sun May 13, 2018 12:45 pm   Subject:
The use of ICHAR appears to test if the first character of the string read starts with a number. An alternative could be to read the string as a number and use iostat=iostat or test if the character f ...
  Topic: Why we have to declare random@ ?
JohnCampbell

Replies: 15
Views: 930

PostForum: Support   Posted: Wed May 09, 2018 1:21 am   Subject:
Dan,

You should review this above example of using inconsistent kind definitions for reals.
Looks like another piece of devilry waiting to happen when converting to /64
 
Page 1 of 131 Goto page 1, 2, 3 ... 129, 130, 131  Next
All times are GMT + 1 Hour
Jump to:  


Powered by phpBB © 2001, 2005 phpBB Group