@ECHO OFF

SET MyCompiler=IVF
SET ROOT_NAME=ADAMS

SET IVF_LOC="C:\Program Files (x86)\Intel\Compiler\11.0\066\fortran\Bin\ia32"

SET NWTC_Lib_Loc=C:\Design Codes\NWTC_Lib_v1.03.01\Source
SET AeroDyn_Loc=C:\Design Codes\AeroDyn\Source
SET Wind_Loc=C:\Design Codes\AeroDyn\Source\InflowWind\Source
SET FAST_Loc=C:\Design Codes\FAST\Source
SET A2AD_Loc=C:\Design Codes\A2AD\Source


REM ----------------------------------------------------------------------------
REM -------------------- LIST OF ALL SOURCE FILES ------------------------------
REM -------- please note that all source files must have a blank line ----------
REM --------   at the end so that they can be concatenated properly   ----------
REM ----------------------------------------------------------------------------

SET NWTC_Files=
SET NWTC_Files=%NWTC_Files%   "%NWTC_Lib_Loc%\SingPrec.f90"
SET NWTC_Files=%NWTC_Files% + "%NWTC_Lib_Loc%\SysIVF.f90"
SET NWTC_Files=%NWTC_Files% + "%NWTC_Lib_Loc%\NWTC_IO.f90"
SET NWTC_Files=%NWTC_Files% + "%NWTC_Lib_Loc%\NWTC_Num.f90"
SET NWTC_Files=%NWTC_Files% + "%NWTC_Lib_Loc%\NWTC_Aero.f90"
SET NWTC_Files=%NWTC_Files% + "%NWTC_Lib_Loc%\NWTC_Library.f90"

SET Wind_Files=
SET Wind_Files=%Wind_Files%   "%Wind_Loc%\SharedInflowDefs.f90"
SET Wind_Files=%Wind_Files% + "%Wind_Loc%\HHWind.f90"
SET Wind_Files=%Wind_Files% + "%Wind_Loc%\FFWind.f90"
SET Wind_Files=%Wind_Files% + "%Wind_Loc%\FDWind.f90"
SET Wind_Files=%Wind_Files% + "%Wind_Loc%\CTWind.f90"
SET Wind_Files=%Wind_Files% + "%Wind_Loc%\UserWind.f90"
SET Wind_Files=%Wind_Files% + "%Wind_Loc%\InflowWindMod.f90"

SET AeroDyn_Files=
SET AeroDyn_Files=%AeroDyn_Files%   "%AeroDyn_Loc%\SharedTypes.f90"
SET AeroDyn_Files=%AeroDyn_Files% + "%AeroDyn_Loc%\AeroMods.f90"
SET AeroDyn_Files=%AeroDyn_Files% + "%AeroDyn_Loc%\GenSubs.f90"
SET AeroDyn_Files=%AeroDyn_Files% + "%AeroDyn_Loc%\AeroSubs.f90"
SET AeroDyn_Files=%AeroDyn_Files% + "%AeroDyn_Loc%\AeroDyn.f90"

SET Fixed_Files =
SET Fixed_Files=%Fixed_Files%   "%FAST_Loc%\fftpack.f"

SET FAST_Files=
SET FAST_Files=%FAST_Files%   "%FAST_Loc%\UserSubs.f90"
SET FAST_Files=%FAST_Files% + "%FAST_Loc%\UserVSCont_KP.f90"
SET FAST_Files=%FAST_Files% + "%FAST_Loc%\PitchCntrl_ACH.f90"
SET FAST_Files=%FAST_Files% + "%FAST_Loc%\FFTMod.f90"
SET FAST_Files=%FAST_Files% + "%FAST_Loc%\HydroCalc.f90"

SET A2AD_Files=
SET A2AD_Files=%A2AD_Files%   "%A2AD_Loc%\FAST_params.f90"
SET A2AD_Files=%A2AD_Files% + "%A2AD_Loc%\A2AD_Mod.f90"
SET A2AD_Files=%A2AD_Files% + "%A2AD_Loc%\Adams_subs.f90"


REM ----------------------------------------------------------------------------
REM ----------- Concatenate them into one file for free-format -----------------
REM ----------- Fortran and one file for fixed-format Fortran  -----------------
REM ----------------------------------------------------------------------------

COPY %NWTC_Files% + %Wind_Files% + %AeroDyn_Files% + %FAST_Files% + %A2AD_Files%  %ROOT_NAME%.f90
COPY %Fixed_Files% %Root_Name%.f


REM ----------------------------------------------------------------------------
REM --------------------- INTEL VISUAL FORTRAN ---------------------------------
REM ---------------------   with MD Adams 2010 ---------------------------------
REM ----------------------------------------------------------------------------
ECHO.
ECHO Using Intel Visual Fortran
ECHO.


REM ............................................................................
REM .................. set compiler internal variables .........................
REM ............................................................................
IF "%INTEL_SHARED%"==""CALL %IVF_LOC%\..\ifortvars.bat ia32


REM ............................................................................
REM ..................... set compiler options .................................
REM ............................................................................
rem SET COPTS= /c /automatic /architecture:pn4 /Ob2 /MD /Gm /O1     /traceback /real_size:32 /assume:byterecl /stand:f95 /check:bounds
rem SET COPTS= /c /automatic /architecture:pn4 /Ob2 /MD /Gm /Ot /O3 /traceback /real_size:32 /assume:byterecl /stand:f95  /Qdiag-disable:5268

SET COPTS= /c /O1 /automatic /MD /Gm /traceback /Qzero /Qsave /real_size:32 /assume:byterecl  /Qdiag-disable:5268


REM ............................................................................
REM ............................ compile .......................................
REM ............................................................................

 ECHO.
 ECHO Compiling ADAMS2AD and AeroDyn routines to create ADAMS.obj:

 CALL %IVF_LOC%\IFORT %COPTS% /object:%ROOT_NAME%.obj %ROOT_NAME%.f90

 cALL %IVF_LOC%\IFORT %COPTS% /object:%ROOT_NAME%f.obj %ROOT_NAME%.f


REM ............................................................................
REM ........................ link with Adams ...................................
REM ............................................................................

ECHO Linking ADAMS2AD and AeroDyn routines with MD ADAMS 2010:
CALL C:\MSC.Software\MD_Adams\2010\common\mdi.bat cr-user n %ROOT_NAME%.obj %ROOT_NAME%f.obj -n %ROOT_NAME%.dll exit < NewLine.txt
pause
GOTO end



REM ----------------------------------------------------------------------------
REM ------------------------- CLEAR MEMORY -------------------------------------
REM ------------- and delete all .mod and .obj files ---------------------------
REM ----------------------------------------------------------------------------
ECHO 

DEL *.mod
DEL *.obj

SET MyCompiler=
SET DF_LOC=
SET IVF_LOC=
SET ROOT_NAME=
SET COPTS=

SET NWTC_Files=
SET Wind_Files=
SET AeroDyn_Files=
SET FAST_Files=
SET A2AD_Files=
SET Fixed_Files=

SET NWTC_Lib_Loc=
SET Wind_Loc=
SET AeroDyn_Loc=
SET A2AD_Loc=
SET FAST_Loc=
pause