Problem with Fortran compiler not recognizing routines used previously

[ivf_ian]

Having problems with the Fortran compiler not recognizing certain routines which had been previously used in the program, more specifically, createwindowex. loadicon and loadmenu.  See drop box.  What happened to them and are there other routines one could use instead?   

[ivf_ian]

For the record opticsoft.f90 is the main function.

[ivf_ian]

Shouldn't have stated latest IVF, rather the IVF version a couple of years ago. 

[andrew_4619]

Steve, I also looked, one that perturbed me was:

interface !lib=ifwin.lib
integer(4) function convertFtoCstring(cstring,fstring);
!DEC$ ATTRIBUTES DEFAULT :: convertFtoCstring
!DEC$ IF DEFINED(_M_IX86)
!DEC$ ATTRIBUTES STDCALL, ALIAS : '_convertFtoCstring@8' :: convertFtoCstring
!DEC$ ELSE
!DEC$ ATTRIBUTES STDCALL, ALIAS :  'convertFtoCstring'   :: convertFtoCstring
!DEC$ ENDIF
!DEC$ ATTRIBUTES REFERENCE::cstring
character *(*)  cstring
integer       fstring 
end function convertFtoCstring
end interface

Which is in IFWBASE.f90 in his code this routine is called with (in effect) loc(fortran string). I am guessing this worked in 32 bit  which suggests to me that this interface is probably bad but not seeing any documentation  then who knows?

[Steve_Lionel]

Yes, that "integer fstring" is certainly suspicious. TBH, I had never run across this routine before - like the rest of IFWBASE its origins are Microsoft Fortran PowerStation. The name of the function is confusing, as it is being used to copy a C string from an OPENFILENAMEA structure to a local character variable (a Fortran string).  None of the provided Windows API samples use it.

In any case, I agree with you that the interface is bad. It would not be difficult to come up with a function written in Fortran to replace it. If I were doing this, I'd add a "rename" to USE IFWBASE to hide the bad interface, for example:

use ifwbase, donotuse => ConvertFtoCstring

then I would declare my own function by that name.

[witwald]

@ivf_ian Is that collection of Optisoft files complete? Can you tell me which file contains the main program? I couldn't find it...