Dear Sir/Madam,
We are interested in your fortran compiler for
our Dec Alpha (PC264) with Red Hat Linux (v.7.0),
and would like to buy it.
Could you test your fortran compiler with our
test program and send back the results?
Please find three attached files.
Sincerely yours,
Ray
C Last change: MP 29 Nov 2001 12:06 pm
PROGRAM TEST
C
INCLUDE 'common.for'
C
OPEN (UNIT=1,FILE="input")
OPEN (UNIT=2,FILE="out")
CALL RINPUT
PRINT*, CANGLE, RHOF*XNU
END
C------------------------------------------------------------------
SUBROUTINE RINPUT
C
INCLUDE 'common.for'
C
C...... Namelist input
C
NAMELIST /FLUIDP/ RHOF, XNU, SIGMA, CANGLE, GYA, GYB,
& UI, VI, WI, RADIUS, XCENT, YCENT, ZCENT
NAMELIST /TIMEP/ DELT, TWFIN, PLTDT, DMPDT
NAMELIST /FLUIDBC/ KL, KR, KB, KF, KO, KU
NAMELIST /NUMERICP/ ISTART
NAMELIST /MESHP/ XE, DXMN, XMN, NXMN, YE, DYMN, YMN,NYMN,
& ZE, DZMN, ZMN, NZMN
C
C...... Read initial input data; write it out
C
READ (1,FLUIDP)
READ (1,TIMEP)
READ (1,FLUIDBC)
READ (1,NUMERICP)
READ (1,MESHP)
C
WRITE (2,FLUIDP)
WRITE (2,TIMEP)
WRITE (2,FLUIDBC)
WRITE (2,NUMERICP)
WRITE (2,MESHP)
C
ONE=1.D0
PI=ACOS(-ONE)
CANGLE=CANGLE*PI/180.D0
C
RETURN
END
&FLUIDP
RHOF = 998.2D0,
XNU = 1.D-6,
SIGMA = 2.2D-2,
CANGLE = 45.D0,
GYA = 8.D-2,
GYB = 2.D0,
UI = 0.D0,
VI = 0.D0,
WI = 0.D0,
RADIUS = 30.D-3,
XCENT = 0.D0,
YCENT = 60.D-3,
ZCENT = 0.D0
&END
------------------------------------------------------------------
&TIMEP
DELT = 1.D-3,
TWFIN = 15.D0,
PLTDT = 10.D-3,
DMPDT = 1.D0
&END
------------------------------------------------------------------
&FLUIDBC
KL = 1,
KR = 1,
KB = 1,
KF = 1,
KO = 1,
KU = 2
&END
------------------------------------------------------------------
&NUMERICP
ISTART = 0,
&END
------------------------------------------------------------------
&MESHP
XE = 60.D-3,
DXMN = 1.D0,
XMN = 1.D0,
NXMN = 1,
YE = 120.D-3,
DYMN = 1.D0,
YMN = 1.D0,
NYMN = 1,
ZE = 9.D-3,
DZMN = 1.D0,
ZMN = 1.D0,
NZMN = 1
&END
------------------------------------------------------------------
C Last change: MP 29 Nov 2001 11:41 am
C
IMPLICIT REAL*8 (A-H,O-Z)
C
COMMON /MESHR/ XE, YE, ZE, DXMN, DYMN, DZMN, XMN, YMN, ZMN
C
COMMON /MESHI/ NXMN, NYMN, NZMN
C
COMMON /FLDR/ RHOF, XNU, SIGMA, CANGLE, GYA, GYB,
& UI, VI, WI, RADIUS, XCENT,YCENT, ZCENT
& DELT, TWFIN, PLTDT, DMPDT
C
COMMON /FLDI/ KL, KR, KB, KF, KO, KU, ISTART
