Author |
Message |
Topic: Trigonometric Functions COS and SIN. |
JohnHorspool
Replies: 8
Views: 10759
|
Forum: Support Posted: Mon Oct 31, 2011 3:56 pm Subject: |
Trig functions in fortran use radians not degrees. |
Topic: opengl_printer, opengl_printer |
JohnHorspool
Replies: 7
Views: 12005
|
Forum: ClearWin+ Posted: Mon Oct 31, 2011 11:55 am Subject: |
A quick google search came up with this:-
http://www.ucancode.net/Visual_C_Control/OpenGL-tutorial-print-preview-vc.htm
which appears to be the OpenGL equivalent for off screen (virtual) renderi ... |
Topic: opengl_printer, opengl_printer |
JohnHorspool
Replies: 7
Views: 12005
|
Forum: ClearWin+ Posted: Fri Oct 28, 2011 6:23 pm Subject: |
Get a very high definition monitor, or use GDI graphics ? |
Topic: opengl_printer, opengl_printer |
JohnHorspool
Replies: 7
Views: 12005
|
Forum: ClearWin+ Posted: Fri Oct 28, 2011 3:10 pm Subject: |
I never had any success with opengl_printer@ either.
I use a work around. I convert the OpenGL graphics into a bitmap file. I can then either print the bitmap file using OPEN_PRINTER@ and DIB_PRINT ... |
Topic: If button in one window opens second window, can I use both? |
JohnHorspool
Replies: 4
Views: 5620
|
Forum: Support Posted: Tue Oct 25, 2011 11:39 am Subject: |
Yes, you can. Finish the winio of the first window using:-
winio@(‘%lw[option]’, ctrl)
integer ctrl (output)
See the help file to explain how to use it. |
Topic: help me to understand this |
JohnHorspool
Replies: 11
Views: 12143
|
Forum: Support Posted: Fri Oct 21, 2011 11:55 am Subject: |
Wilfried, I doubt very much that this is newly written code, it is almost certainly legacy code from the 70's or 80's when the use of IMPLICIT REAL*8(A-H,O-Z) was common place.
I for one have never ... |
Topic: Array definition and write problem |
JohnHorspool
Replies: 17
Views: 18434
|
Forum: General Posted: Fri Oct 07, 2011 12:40 pm Subject: |
There is nothing in this block of code that increments the value of NRPM !
DO J=1,8
DO M=2,512
IF(ABS(THETA(2,M)-(RPM*J/120)).LT.0.01)THEN
FX(J,NRPM)=A ... |
Topic: Array definition and write problem |
JohnHorspool
Replies: 17
Views: 18434
|
Forum: General Posted: Thu Oct 06, 2011 4:08 pm Subject: |
Where you assign values to FX as in FX(J,NRPM)=ABS(GENG(31,M)) the second index is fixed at NRPM so for the loop M=2,512 you are just continuously overwriting the same cell.
Whilst when you try to ... |
Topic: Long array:Serious issue-stalk overflow |
JohnHorspool
Replies: 11
Views: 11263
|
Forum: General Posted: Fri Sep 09, 2011 3:48 pm Subject: |
I declare element topology and nodal data as fixed size arrays in COMMON blocks. I have larger arrays than you are trying to use. So you could try using this method instead of dynamic arrays. |
Topic: R6034 |
JohnHorspool
Replies: 33
Views: 31491
|
Forum: Support Posted: Tue Aug 23, 2011 11:46 am Subject: |
Eddie - my preferred editor is also PFE32. But unfortunately I have found that on my 64bit windows 7 laptop it is very flakey and freezes up a lot. As development and support of the editor finished se ... |
Topic: Simple 2D mesher (in Fortran) |
JohnHorspool
Replies: 27
Views: 41059
|
Forum: General Posted: Thu Aug 18, 2011 11:07 am Subject: |
http://img713.imageshack.us/img713/1193/advancingfrontmesh.jpg
Jjgermis, this is what an advancing front mesh looks like in a simple square domain.
"What is the motivation for suggesting ... |
Topic: Simple 2D mesher (in Fortran) |
JohnHorspool
Replies: 27
Views: 41059
|
Forum: General Posted: Wed Aug 17, 2011 10:27 am Subject: |
Hi Eddie,
Meshes composed of triangles are relatively easy to create. As John Campbell said, generating a quad mesh for an arbitrary multi-sided domain is no easy task! I wrote my own paver mesh ro ... |
Topic: Simple 2D mesher (in Fortran) |
JohnHorspool
Replies: 27
Views: 41059
|
Forum: General Posted: Tue Aug 16, 2011 10:59 am Subject: |
Hello Jjgermis,
Your second link outlines pretty well the method behind the advancing front method. Rather than try and implement someone else's code just go ahead and write your own! It is much mo ... |
Topic: Simple 2D mesher (in Fortran) |
JohnHorspool
Replies: 27
Views: 41059
|
Forum: General Posted: Fri Aug 12, 2011 2:55 pm Subject: |
Hello Jjgermis,
I suggest that you try writing your own 2D mesher using the advancing front method. The logic of this is easy to understand and implement. When this is complete use a Laplacian smoo ... |
Topic: Testing for a directory |
JohnHorspool
Replies: 18
Views: 19286
|
Forum: Support Posted: Wed Aug 03, 2011 2:39 pm Subject: |
None of the links below after searching for the Fortran standard for the INQUIRE statement mentions using it for directories.
So I don't think it is a failing of Silverfrost FTN95
Wilfried's sol ... |
|