forums.silverfrost.com

Paul
thanks for your suggestion. I tried your code and it doesn't work actually (with the check option). I had to make the Jump_Sub subroutine also recursive, so that the program works. It means, al ...

Moji

You can't use the same code for both Win32 and x64.

For x64 you can start with my template and vary it according to your needs.

If the result does not work then please post a sample.
Pa ...

Moji

LABEL@ and JUMP@ are implemented but not documented for x64.

At first sight it looks like they work like this for x64...

Module MTest
integer LAB1
End Module

Program Test_Label
...

Hello,
I become a run time error in the following test program as I enter the JUMP_Sub for the second time in 64-bit mode. In 32-bit, I can enter the JUMP_Sub recursively without problem, as I expec ...

Paul,
I tested your code. It still gives me an error after running winio@ ('%lw', ctrl4):

Error: Access Violation reading address 0x0000000000000008

Even using the current version (9.06.0.0) di ...

Paul,
I tested your code. It still gives me an error after running winio@ ('%lw', ctrl4):

Error: Access Violation reading address 0x0000000000000008

Even using the current version (9.06.0.0) di ...

Hello,
I get an access violation error message in my Fortran program (32-bit and 64-bit) by calling winio@ ('%lw', ctrl4) after winio@ ('%`gr... . The following sample code is prepared for testing:
...

Moji,
Define ID as INTEGER(KIND=7) and I think that should fix the problem, with the code working correctly for both WIN32 and X64 compilers.
Ken
Thank you Ken for the suggestion. If the input para ...

In the manual, it is stated that get_font_ID@ requires an integer parameter (/64):
PROGRAM GET_FONT_ID_TEST
IMPLICIT NONE
INCLUDE <windows.ins>

INTEGER :: ID
...

Your code does not issue a correct call to the FTN95 routine CHSORT@.

1. The second argument should be a character array with N elements. Your code has a scalar character variable.

2. The third ...

I noticed that chsort@ behaves differently in 32-bit and 64-bit programs, when the last argument is negative. It is ignored in 32-bit, but causes run time error in a 64-bit program.

PROGRAM CHSORT_ ...

Required time for the linking of 64-Bit programs is considerably longer than the 32-Bit alternatives. I did a benchmark to compare the linking time of these two versions on two of our programs (with t ...

Thank you so much.
In get_im_info$ and get_im_info$$, I just changed the declaration to:
integer(C_INT)::width(*),height(*),nb_colours(*)
I guess that shoul ...

Maybe I didn't explain the problem properly. Here is the syntax of the GET_IM_INFO@ subroutine:
SUBROUTINE GET_IM_INFO@( FILENAME, WIDTH, HEIGHT
+ NB_COLOURS, NB_IMAGES, FORMAT, ERROR )
C ...

As mentioned in ClearWin manual (Appendix A.), NEW_PAGE@ is one of the routines that are useful in new programs. However, it has no ClearWin+ alternative and to use this routine for 64-bit, it is nece ...