This CFD project is found on The FEAST site of life. If you can download FeatFlow1.1 program from that site or from featflow.zip.
If you use Digital FORTRAN 5.0 you can download batch files for building FeatFlow libraries, examples and benchmark tests from here. File is named dfwin.zip and zipped with WinZip. You must unzip this file into featflow folder.
If you use MS FORTRAN Power station 4.0 you can download batch files from here. This file is named pfwin.zip.
Some hints for Windows95/98/NT user who will like to build FeatFlow from DeviceStudio with Digital VF 5.0:
- In subroutines xmvb1.f, xmvb0.f, xmva1.f, xmva0.f add line
- In subroutine ZCLEAR add line
- In file xmsb1.f delete last line (it contains character ˇ)
- In subroutine xsa1x.f add line
- In subroutine ylax3.f in line 69 replace KWORKL with KWORK(L
Just add COMMON /ERRCTL/ IER,ICHECK to appropriate place in mgrout.f file.
C *** write unformatted time dep. solution vector
c*** add mb 27.4.99
INSAV1 = 0
IF (INSAV.GT.0) INSAV1=MOD(ITNS,INSAV)
IF ((ITYP.EQ.1).AND.(INSAV.GT.0).AND. INSAV1.EQ.0) THEN
ccccc IF ((ITYP.EQ.1).AND.(INSAV.GT.0).AND.(MOD(ITNS,INSAV).EQ.0)) THEN
Programs cc2d, cc3d from featflow/application/example run correctly on my computer, programs pp2d and pp3d produce run_time error: M6201: MATH† - sqrt: DOMAIN error
Benchmark programs you will find in featflow/application/comp cc2d and cc3d runs correctly on my computer, but programs pp2d, pp3d produce error:†† forrtl: severe(157): Program Exception - access violation †
If you run pp2d and pp3d†with ISLP=1 or ISLP=3 in ppxd.dat banchmarks programs and example programs runs correctly. (Idea of S.Turek)
GKS (Graphics Kernel System)
As an Windows95/98 and Fortran user I often need FORTRANA read and write statement and graphical input and output. Because I don't build commercial application programs, I find myself far away from tasks I want to solve with programming in a full scale Windows application. So I downloaded source code of GKS from STARLINK and wrote workstation drivers for Windows and Windows Enhanced Metafile. All together it is set up in static library which can be linked to Win32 Console application program when one uses Digital VF 5.0 Compiler. I contacted Martin Bly from Starlink who gave me permission to put GKS on this site. I must note that usage of this library is limited by Starlink Software Licence conditions and also that
THIS PORT OF GKS IS NOT SUPPORTED BY STARLINK !!!!!!
You can download GKS library build for Digital VF 5.0 Win32 Console applications from gks.zip This file is zipped with shareware WinZip program and contains
User guide for GKS can be obtain from Starlink . In this version of GKS the Workstation description table gks.wdt contains following workstations types:
Font file gks.dbs contains 15 Harshly fonts:
By default all Aspect Source Flags are set to INDIVIDUAL and not BUNDLE as in original Starlink GKS.
All windows support REQUEST LOCATOR function, with 7 echo types ( 2=Crosshair, 3= Tracking cross, 4=Rubber line, 5=Rectangle, 6=Centered Rectangle, 7= Hor/Ver Line). STROKE INPUT is not supported.
Beside standard functions gks.zip contains several non-standard utility functions (not included in original Starlink GKS):
GUOPKS - Open GKS, assign error output to console and activate first workstation of category OUTIN with workstation identifier 1.
GUCLKS - Close all workstations and GKS
GUMSG( IWKID,CMSG) - Update workstation of category OUTIN, write message CMSG and wait for user click
GUSWNA( ITN, XMIN, XMAX, YMIN, YMAX) - Define isotropic window (eqal scale in X in Y direction)
GUSASF(IFLG) - Define all 13 Aspect source flags to IFLG ( = 0 or = 1)
GUBOX( X1, Y1, X2, Y2) - Draw box with fill current are a style
GULINE( X1, Y1, X2, Y2) - Draw line
Graphics output for Windows workstation is produced indirectly throughout virtual display, so the user must refresh the picture by calling
University of Ljubljana
Faculty of Maritime and Transport