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 

Parameters of get_im_info$

 
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> ClearWin+
View previous topic :: View next topic  
Author Message
Moji



Joined: 30 Sep 2020
Posts: 27

PostPosted: Fri Jan 06, 2023 2:33 pm    Post subject: Parameters of get_im_info$ Reply with quote

According to manual, WIDTH, HEIGHT and NB_COLOURS parameters of get_im_info@ should be integer arrays. However, in clrwin$ these parameters (in get_im_info$) are declared as integer. Therefore, third party compilers complain about array arguments and return an error. It would be great, if you could fix this issue.
Back to top
View user's profile Send private message
Moji



Joined: 30 Sep 2020
Posts: 27

PostPosted: Thu Mar 09, 2023 9:02 am    Post subject: Reply with quote

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

However, in the clrwin.f95 the corresponding syntax is:
Code:
subroutine get_im_info$(filename,width,height,nb_colours,nb_images,format,ercode)
  use ISO_C_BINDING
  character(len=*)::filename,format
  integer(C_INT)::width,height,nb_colours,nb_images,ercode

As it can be seen, WIDTH, HEIGHT and NB_COLOURS have different declaration in these subroutines.
Back to top
View user's profile Send private message
PaulLaidler
Site Admin


Joined: 21 Feb 2005
Posts: 7916
Location: Salford, UK

PostPosted: Thu Mar 09, 2023 1:20 pm    Post subject: Reply with quote

moji

Thanks for the feedback. I have made a note that this needs fixing.

In the meantime do you know how to fix it in your copy of clrwin.f95?
Back to top
View user's profile Send private message AIM Address
Moji



Joined: 30 Sep 2020
Posts: 27

PostPosted: Thu Mar 09, 2023 4:28 pm    Post subject: Reply with quote

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

I guess that should do the work.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> ClearWin+ All times are GMT + 1 Hour
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group