Author |
Message |
Topic: %gr, metafiles and clipboard |
Kenneth_Smith
Replies: 2
Views: 1203
|
Forum: ClearWin+ Posted: Tue Mar 12, 2024 1:37 pm Subject: |
This works for me. (FTN ver 9.00). After pressing the TOCB menu item, I can paste the graphics region into word etc.
winapp
module s_mod
use clrwin
implicit none
integer gw, gh
contains
... |
Topic: Allocate on assignment to grow an array. |
Kenneth_Smith
Replies: 25
Views: 3766
|
Forum: Support Posted: Wed Jan 31, 2024 1:54 pm Subject: |
John,
It gets interesting if the lower bound of the source array is not 1. Hopefully this example illustrates this particular devilry.
real, allocatable :: a(:), b(:& ... |
Topic: Allocate on assignment to grow an array. |
Kenneth_Smith
Replies: 25
Views: 3766
|
Forum: Support Posted: Sat Jan 27, 2024 9:51 am Subject: |
Thanks Paul, I think that will fix John's issue. |
Topic: Allocate on assignment to grow an array. |
Kenneth_Smith
Replies: 25
Views: 3766
|
Forum: Support Posted: Fri Jan 26, 2024 11:52 am Subject: |
John, Mecej4, Paul, thanks for the suggestions, improvements and feedback on my queries.
John, the following simple example only runs as expected with checkmate for both win32 and x64, so I susp ... |
Topic: Allocate on assignment to grow an array. |
Kenneth_Smith
Replies: 25
Views: 3766
|
Forum: Support Posted: Thu Jan 25, 2024 1:27 pm Subject: |
Paul,
I've opened another can of Ken's worms!
For the original problem, I wondered about the possibility of using the 2003 intrinsic MOVE_ALLOC. Unfortunately, I cannot get this to work, havi ... |
Topic: Allocate on assignment to grow an array. |
Kenneth_Smith
Replies: 25
Views: 3766
|
Forum: Support Posted: Tue Jan 23, 2024 11:31 am Subject: |
Thanks Paul,
In addition using a temporary does not cause the checkmate failure, which is a big plus
As I don't want to inhibit bounds checking (with checkmate) I think I just need to avoid ... |
Topic: Allocate on assignment to grow an array. |
Kenneth_Smith
Replies: 25
Views: 3766
|
Forum: Support Posted: Tue Jan 16, 2024 8:53 pm Subject: Allocate on assignment to grow an array. |
I have been experimenting with allocate on assigment and the following code uses this to to increment the dimensions of an array:
program p
implicit none
real, allocatable :: a(:& ... |
Topic: Intersection of two curves |
Kenneth_Smith
Replies: 9
Views: 1888
|
Forum: General Posted: Wed Jan 10, 2024 11:50 am Subject: |
Lester,
I suspect your problem is related to the %pl options i = winio@('%pl',900,900,[n,n,n_intersects],dble(x1),dble(y1),dble(x2),dble(y2),dble(x ... |
Topic: Intersection of two curves |
Kenneth_Smith
Replies: 9
Views: 1888
|
Forum: General Posted: Tue Jan 09, 2024 10:47 am Subject: |
My first attempt:
winapp
program intersect_between_curves
USE clrwin
integer, parameter :: n=301
integer :: i, j, n_intersects
real :: x1(n), y1(n), x2 ... |
Topic: Set tight axis limits |
Kenneth_Smith
Replies: 4
Views: 1523
|
Forum: ClearWin+ Posted: Mon Jan 08, 2024 8:42 pm Subject: |
Add
call winop@('%pl[x_min=0,x_max=100]')
immediately before
iw = winio@('%pl&',1400,800,k,dble(vec),dble(real_part),dble(imaginary_part)) |
Topic: Basic query about plotting |
Kenneth_Smith
Replies: 10
Views: 2210
|
Forum: General Posted: Sat Dec 30, 2023 8:34 pm Subject: |
Lester,
In your example, you are calling export_image@ before the terminating winio@ call. This is too soon to call export_image@ as the window containing the graphic does not yet exist.
Expo ... |
Topic: Basic query about plotting |
Kenneth_Smith
Replies: 10
Views: 2210
|
Forum: General Posted: Fri Dec 29, 2023 7:55 pm Subject: |
Yes, the plot can be exported to the clipboard via the function GRAPHICS_TO_CLIPBOARD@ and thereafter "pasted" in to a word document, or the function EXPORT_IMAGE@ can used used to save the ... |
Topic: Basic query about plotting |
Kenneth_Smith
Replies: 10
Views: 2210
|
Forum: General Posted: Wed Dec 27, 2023 2:57 pm Subject: |
Does this help? I have added a few lines to your program which allows the phase plane plot to be displayed using the %pl format code. Further details can be found searching the help file for "N ... |
Topic: Couple minor Clearwin problems |
Kenneth_Smith
Replies: 18
Views: 19248
|
Forum: ClearWin+ Posted: Wed Dec 13, 2023 1:35 pm Subject: |
Paul, No problem - it was a "I wonder if ....." moment. |
Topic: Couple minor Clearwin problems |
Kenneth_Smith
Replies: 18
Views: 19248
|
Forum: ClearWin+ Posted: Wed Dec 13, 2023 12:15 pm Subject: |
Paul,
Will the function associated with the reset button be available from the fortran code i.e. to provide a means of undoing all calls to change_plot_dbl@ etc? |
|