Several of the forums on Eng-Tips I have used and found quite helpful. I regret stumbling into this one - Pump Engineering - as it appears to be dominated by a fraternity of pinheads who are more bent on pouncing on technical "gotchas" - pinheads who can't see the forest for the trees...
As I said in the setup,
" You have a [COLOR=red]vacuum pump[/color red] sucking water ..."
See (for example) Hayward Super Pump Series Model SP2607X102S:
http://www.hayward-pool.com/prd/In-Ground-Pool-Pumps-Super-Pump-_10201_10551_13004_-1_14002__I.htm
This conundrum will sound hypothetical, but it represents a real-world problem:
You have a vacuum pump sucking water through the same diameter line from the same level in 2 different places in a pool. One line is 30' long, while the other is 70' long. The lines meet at a diversion valve just...
Thanks XWB but I'm not sure this will help.
What I have in the calling program (f.WinMain) is this:
integer(4) :: MaxInput
character(1200) :: szBuffer
MaxInput = 1200
ret = LoadString(GetModuleHandle(NULL), IDS_String1, szBuffer, MaxInput)
lret = DlgInit(IDD_AboutDlg...
Thanks XWB. Your "solution" seems a bit complicated (as you admitted) and tenuous. Here's a response I got on an IVF forum; what do you think?
I would say that you want to set up an unsorted list in your ComboBox, with the editable entry's location permanently set so that when you select a...
This is for Compaq Visual Fortran (v6x):
As most of you know, for the standard ComboBox has 3 Types (modes):
1. Simple
2. Dropdown
3. Drop List
1&2 are both editable and only differ in the way the choices are displayed (simple exposes all choices; Dropdown hides them until the...
In using the String Table feature in Compaq Visual Fortran (CVF6x) - linking to an About dlg. box - I seem to have noted a total character limit of 1020 (in a note I added to a caption). This is so even when the calling program dimensions szBuffer & MaxInput to (say) 1200 or more.
Can anyone...
Thanks for your reply, IRstuff. I had thought the answer was as I posted above: a Fortran function cannot call another Fortran function.
Your point about the apparent disparity in type specification between my Interface block and fRun itself got me thinking. I could swear that I tried to...
The answer came to me in my sleep, and I'll post it here:
The clue was, indeed, my comment:
When control returns to the calling program, Hint still knows what it should be (2) but fRun has lost its mind. Instead of holding a value of 12, its a long, meaningless string (-2147348), which, oddly...
Here, the "main" program is function WinMain(), and it calls a simple function that "lives" in another *.f90 file (compiled w/ the project. That function is this:
integer*4 function fRun(Nint)
implicit none
integer :: Nint
fRun = Nint + 10
end
An Interface is presented in the...
I'm working w/ Compaq Array Viewer (v1.5) which was bundled w/ CVF6.5. I'm wanting to do a simple 2D contour plot of ASCII data stored in a file. The 3-column data format (X/Y/Z resp.) is very simple: X & Y are position coordinates, & Z is the associated "intensity".
Among the available graph...
Thanks XWB - you were right on. I added:
use kernel32
use gdi32
to function MainWndProc and everything went fine.
I wonder why the author omitted this show-stopping piece.
This is my first post to Eng-Tips.
I'm trying to come up to speed in creating simple Windows apps associated w/ Fortran routines and am using Compaq Visual Fortran v6.6.
I am using the book:
Compaq Visual Fortran - A Guide to Creating Windows Applications by Norman Lawrence (2002).
In Chapter...
