Hi All,
I have attemted to recompile FAST in its normal state, just to check things have worked, before making any ‘fundamental’ changes to the source code. Below I have shown the DOS output from the downloaded executable (no problems), and the output from the executable created using Compaq Visual Fortran 6.6.B (errors displayed below):
C:\FAST>fast ./Pascal03/Pascal03.fst
Using NWTC Subroutine Library (v1.04.01, 21-Feb-2012).
Running FAST (v7.01.00a-bjj, 16-Feb-2012).
Heading of the FAST input file: Tidal Turbine inputs for FAST with fixed yaw er
ror and steady
wind.
Using NWTC Subroutine Library (v1.04.01, 21-Feb-2012).
Aerodynamic loads calculated using AeroDyn (v13.00.01a-bjj, 16-Feb-2012).
Heading of the AeroDyn input file: NACA48XX blade aerodynamic parameters for FA
ST #3.
Using NWTC Subroutine Library (v1.04.01, 21-Feb-2012).
Using InflowWind (v1.00.01b-bjj, 14-Nov-2011)
Assuming ./Pascal03/Wind/LUKE/05Hz_100mm_067zHub.wnd is a binary FF wind file.
Using NWTC Subroutine Library (v1.04.01, 21-Feb-2012).
Reading a 16x16 grid (1.5 m wide, 0.46 m to 1.96 m above ground) with a charact
erstic wind speed
of 0.9 m/s.
Processed 1080 time steps of 18-Hz full-field data (59.944 seconds).
WARNING: Estimated average wind speed in wind file is less than 8 m/s. Dynami
c Inflow will be
turned off.
Total Real Time: 3.157 seconds
Total CPU Time: 3.1094 seconds
Simulated Time: 20.004 seconds
Time Ratio (Sim/CPU): 6.4334
FAST terminated normally.
C:\FAST>fast2 ./Pascal03/Pascal03.fst
Using NWTC Subroutine Library (v1.04.01, 21-Feb-2012).
Running FAST (v7.01.00a-bjj, 16-Feb-2012).
Heading of the FAST input file: Tidal Turbine inputs for FAST with fixed yaw er
ror and steady
wind.
Using NWTC Subroutine Library (v1.04.01, 21-Feb-2012).
Aerodynamic loads calculated using AeroDyn (v13.00.01a-bjj, 16-Feb-2012).
Heading of the AeroDyn input file: NACA48XX blade aerodynamic parameters for FA
ST #3.
Using NWTC Subroutine Library (v1.04.01, 21-Feb-2012).
Using InflowWind (v1.00.01b-bjj, 14-Nov-2011)
Assuming ./Pascal03/Wind/LUKE/05Hz_100mm_067zHub.wnd is a binary FF wind file.
Using NWTC Subroutine Library (v1.04.01, 21-Feb-2012).
Reading a 16x16 grid (1.5 m wide, 0.46 m to 1.96 m above ground) with a charact
erstic wind speed
of 0.9 m/s.
Processed 1080 time steps of 18-Hz full-field data (59.944 seconds).
WARNING: Estimated average wind speed in wind file is less than 8 m/s. Dynami
c Inflow will be
turned off.
forrtl: severe (157): Program Exception - access violation
Image PC Routine Line Source
FAST2.exe 004EE45C FASTSUBS_mp_RTHS 5167 FAST.f90
FAST2.exe 0051F6AD FASTSUBS_mp_SOLVE 7953 FAST.f90
FAST2.exe 00522411 FASTSUBS_mp_TIMEM 8326 FAST.f90
FAST2.exe 005A2534 FAST 106 FAST_Prog.f90
FAST2.exe 0067AAE9 Unknown Unknown Unknown
FAST2.exe 00669CC2 Unknown Unknown Unknown
kernel32.dll 7C817077 Unknown Unknown Unknown
I assume the error must lie somewhere within the changes I have had to make in order to compile the source code, I will list these below to see if this could explain to anyone why the executable did not run correctly:
- deleted various unnecessary source files (DoublePrec.f90, SysVF.f90 etc.)
- commented out references to UserWind and UD_Wind in InflowWindMod.f90 (I did not have a UserWind module file, but I assume this is irrelevant to the problem since I do not use one?)
- changed SharedTypes to SharedDataTypes in AeroDyn.f90 as per bjj
I will aslo include the compiler build info (with the warnings):
Deleting intermediate files and output files for project ‘FASTrecompile - Win32 Debug’.
--------------------Configuration: FASTrecompile - Win32 Debug--------------------
Compiling Fortran…
C:\FAST\Source\SingPrec.f90
C:\FAST\Source\SysCVF.f90
C:\FAST\Source\SysCVF.f90(515) : Warning: Fortran 95 does not allow this intrinsic procedure. [ISNAN]
Is_NaN = IsNaN( DblNum )
------------^
C:\FAST\Source\SysCVF.f90(632) : Warning: Fortran 95 does not allow this keyword. [CONVERT]
ACTION=‘READ’, CONVERT=‘BIG_ENDIAN’ ) ! Use this for PC systems.
----------------------------------^
C:\FAST\Source\SysCVF.f90(656) : Warning: Fortran 95 does not allow this keyword. [CARRIAGECONTROL]
OPEN ( CU , FILE=‘CON’ , STATUS=‘UNKNOWN’ , CARRIAGECONTROL=‘FORTRAN’, RECL=ConRecL )
-----------------------------------------------^
C:\FAST\Source\SysCVF.f90(676) : Warning: Fortran 95 does not allow this intrinsic procedure. [EXIT]
CALL EXIT ( StatCode )
--------^
C:\FAST\Source\NWTC_IO.f90
C:\FAST\Source\NWTC_Num.f90
C:\FAST\Source\NWTC_Aero.f90
C:\FAST\Source\NWTC_Aero.f90(54) : Warning: Allocatable fields of derived types are non-standard [ALPHA]
REAL(ReKi), ALLOCATABLE :: Alpha ( ! The angle of attack vector.
--------------------------------------^
C:\FAST\Source\NWTC_Aero.f90(55) : Warning: Allocatable fields of derived types are non-standard [CL]
REAL(ReKi), ALLOCATABLE :: Cl ( ! The lift-coefficient vector.
--------------------------------------^
C:\FAST\Source\NWTC_Aero.f90(56) : Warning: Allocatable fields of derived types are non-standard [CD]
REAL(ReKi), ALLOCATABLE :: Cd ( ! The drag-coefficient vector.
--------------------------------------^
C:\FAST\Source\NWTC_Aero.f90(57) : Warning: Allocatable fields of derived types are non-standard [CM]
REAL(ReKi), ALLOCATABLE :: Cm ( ! The pitching-moment-coefficient vector.
--------------------------------------^
C:\FAST\Source\NWTC_Aero.f90(58) : Warning: Allocatable fields of derived types are non-standard [CPMIN]
REAL(ReKi), ALLOCATABLE :: Cpmin ( ! The minimum-pressure-coefficient vector.
--------------------------------------^
C:\FAST\Source\NWTC_Aero.f90(59) : Warning: Allocatable fields of derived types are non-standard [FTB]
REAL(ReKi), ALLOCATABLE :: FTB ( ! The normal-coefficient divided by the Cn slope at zero lift.
--------------------------------------^
C:\FAST\Source\NWTC_Aero.f90(60) : Warning: Allocatable fields of derived types are non-standard [FTBC]
REAL(ReKi), ALLOCATABLE :: FTBC ( ! The chordwise-coefficient divided by the Cn slope at zero lift.
--------------------------------------^
C:\FAST\Source\NWTC_Aero.f90(66) : Warning: Allocatable fields of derived types are non-standard [IND]
INTEGER, ALLOCATABLE :: Ind (:, ! The tables in this supertable.
--------------------------------------^
C:\FAST\Source\NWTC_Aero.f90(71) : Warning: Allocatable fields of derived types are non-standard [TAB]
TYPE(AeroTable), ALLOCATABLE :: Tab ( ! The tables in this supertable.
--------------------------------------^
C:\FAST\Source\NWTC_Library.f90
C:\FAST\Source\UserVSCont_KP.f90
C:\FAST\Source\UserSubs.f90
C:\FAST\Source\SharedInflowDefs.f90
C:\FAST\Source\AeroMods.f90
C:\FAST\Source\GenSubs.f90
C:\FAST\Source\HAWCWind.f90
C:\FAST\Source\CTWind.f90
C:\FAST\Source\FDWind.f90
C:\FAST\Source\HHWind.f90
C:\FAST\Source\FFWind.f90
C:\FAST\Source\InflowWindMod.f90
C:\FAST\Source\AeroSubs.f90
C:\FAST\Source\NWTC_SharedDataTypes.f90
C:\FAST\Source\NWTC_SharedDataTypes.f90(35) : Warning: Allocatable fields of derived types are non-standard [BLADE]
TYPE(Marker), ALLOCATABLE :: Blade(:,
------------------------------------^
C:\FAST\Source\NWTC_SharedDataTypes.f90(36) : Warning: Allocatable fields of derived types are non-standard [HUB]
TYPE(Marker), ALLOCATABLE :: Hub(
------------------------------------^
C:\FAST\Source\NWTC_SharedDataTypes.f90(37) : Warning: Allocatable fields of derived types are non-standard [ROTORFURL]
TYPE(Marker), ALLOCATABLE :: RotorFurl(
------------------------------------^
C:\FAST\Source\NWTC_SharedDataTypes.f90(38) : Warning: Allocatable fields of derived types are non-standard [NACELLE]
TYPE(Marker), ALLOCATABLE :: Nacelle(
------------------------------------^
C:\FAST\Source\NWTC_SharedDataTypes.f90(39) : Warning: Allocatable fields of derived types are non-standard [TOWER]
TYPE(Marker), ALLOCATABLE :: Tower(
------------------------------------^
C:\FAST\Source\NWTC_SharedDataTypes.f90(40) : Warning: Allocatable fields of derived types are non-standard [TAIL]
TYPE(Marker), ALLOCATABLE :: Tail(
------------------------------------^
C:\FAST\Source\NWTC_SharedDataTypes.f90(44) : Warning: Allocatable fields of derived types are non-standard [BLADE]
TYPE(Load), ALLOCATABLE :: Blade(:,
------------------------------------^
C:\FAST\Source\NWTC_SharedDataTypes.f90(45) : Warning: Allocatable fields of derived types are non-standard [HUB]
TYPE(Load), ALLOCATABLE :: Hub(
------------------------------------^
C:\FAST\Source\NWTC_SharedDataTypes.f90(46) : Warning: Allocatable fields of derived types are non-standard [ROTORFURL]
TYPE(Load), ALLOCATABLE :: RotorFurl(
------------------------------------^
C:\FAST\Source\NWTC_SharedDataTypes.f90(47) : Warning: Allocatable fields of derived types are non-standard [NACELLE]
TYPE(Load), ALLOCATABLE :: Nacelle(
------------------------------------^
C:\FAST\Source\NWTC_SharedDataTypes.f90(48) : Warning: Allocatable fields of derived types are non-standard [TOWER]
TYPE(Load), ALLOCATABLE :: Tower(
------------------------------------^
C:\FAST\Source\NWTC_SharedDataTypes.f90(49) : Warning: Allocatable fields of derived types are non-standard [TAIL]
TYPE(Load), ALLOCATABLE :: Tail(
------------------------------------^
C:\FAST\Source\NWTC_SharedDataTypes.f90(54) : Warning: Allocatable fields of derived types are non-standard [BLADE]
TYPE(Marker), ALLOCATABLE :: Blade(
------------------------------------^
C:\FAST\Source\AeroDyn.f90
C:\FAST\Source\AeroDyn.f90(58) : Warning: Allocatable fields of derived types are non-standard [SETMULTABLOC]
LOGICAL ,ALLOCATABLE :: SetMulTabLoc(:,
------------------------------------^
C:\FAST\Source\AeroDyn.f90(59) : Warning: Allocatable fields of derived types are non-standard [MULTABLOC]
REAL(ReKi),ALLOCATABLE :: MulTabLoc(:, ! MulTabLoc from GetElemParams()
------------------------------------^
C:\FAST\Source\FAST_Mods.f90
C:\FAST\Source\SetVersion.f90
C:\FAST\Source\PitchCntrl_ACH.f90
C:\FAST\Source\Noise.f90
C:\FAST\Source\FFTMod.f90
C:\FAST\Source\HydroCalc.f90
C:\FAST\Source\fftpack.f
C:\FAST\Source\fftpack.f(24) : Warning: Fixed form source is an obsolescent feature in Fortran 95.
SUBROUTINE RFFTI (N,WSAVE)
^
C:\FAST\Source\fftpack.f(47) : Warning: The Arithmetic IF statement is obsolete. Use the IF statement or the IF construct
IF (J-4) 102,102,103
^
C:\FAST\Source\fftpack.f(53) : Warning: The Arithmetic IF statement is obsolete. Use the IF statement or the IF construct
IF (NR) 101,105,101
^
C:\FAST\Source\fftpack.f(235) : Warning: The Arithmetic IF statement is obsolete. Use the IF statement or the IF construct
IF (IDO-2) 107,105,102
^
C:\FAST\Source\fftpack.f(310) : Warning: The Arithmetic IF statement is obsolete. Use the IF statement or the IF construct
IF (IDO-2) 107,105,102
^
C:\FAST\Source\fftpack.f(683) : Warning: The Arithmetic IF statement is obsolete. Use the IF statement or the IF construct
IF (N-2) 106,101,102
^
C:\FAST\Source\fftpack.f(857) : Warning: The Arithmetic IF statement is obsolete. Use the IF statement or the IF construct
IF (IDO-2) 107,105,102
^
C:\FAST\Source\fftpack.f(928) : Warning: The Arithmetic IF statement is obsolete. Use the IF statement or the IF construct
IF (IDO-2) 107,105,102
^
C:\FAST\Source\fftpack.f(1304) : Warning: The Arithmetic IF statement is obsolete. Use the IF statement or the IF construct
IF (N-2) 101,102,103
^
C:\FAST\Source\FAST_IO.f90
C:\FAST\Source\FAST.f90
C:\FAST\Source\FAST2ADAMS.f90
C:\FAST\Source\FAST_Lin.f90
C:\FAST\Source\FAST_Prog.f90
C:\FAST\Source\AeroCalc.f90
Linking…
FAST.exe - 0 error(s), 37 warning(s)
Sorry for the very long message but I am completely lost at this stage, so close and yet so far!
Kind regards,
Pascal