@if not "%1" == ""  goto MARKE1:
@ECHO    /****************************************************************/
@ECHO    /**                     L F 9 5 L I N K                        **/
@ECHO    /**                                                            **/
@ECHO    /** LF95LINK links Fortran 90 programs with DISLIN.            **/
@ECHO    /**                                                            **/
@ECHO    /** Command:  LF95LINK   [option]    main                      **/
@ECHO    /**                                                            **/
@ECHO    /** option    is an optional qualifier that may have one of    **/
@ECHO    /**           the following values:                            **/
@ECHO    /**      -c   to compile programs before linking               **/
@ECHO    /**      -r   to run programs after linking                    **/
@ECHO    /**      -a   to compile, link and run programs.               **/
@ECHO    /**                                                            **/
@ECHO    /** main      is the name of the main program.                 **/
@ECHO    /**                                                            **/
@ECHO    /** Example:  LF95LINK  -a   TEST                              **/
@ECHO    /** Version:  Windows 95, Lahey LF95 5.0                       **/
@ECHO    /****************************************************************/
@goto ENDE
:MARKE1
@if "%DISLIN%" == "" set DISLIN=c:\dislin
@if %1 ==  -c	goto COMPILE
@if %1 ==  -C	goto COMPILE
@if %1 ==  -a	goto COMPILE
@if %1 ==  -A	goto COMPILE
@if %1 ==  -r	goto MARKE2
@if %1 ==  -R	goto MARKE2
@goto  LINK
:COMPILE
lf95 -MOD %DISLIN% %2.f90 %3 %4 %5 %6 %7 %8 %9 -LIBPath %DISLIN% -lib dislf95,disdll
@if %1 ==  -a	goto RUN
@if %1 ==  -A	goto RUN
@goto ENDE
:MARKE2
lf95 %2.obj -MOD %DISLIN% %3 %4 %5 %6 %7 %8 %9 -LIBPath %DISLIN% -lib dislf95,disdll
@if %1 ==  -r	goto RUN
@if %1 ==  -R	goto RUN
@goto ENDE
:LINK
lf95 %1.obj -MOD %DISLIN% %2 %3 %4 %5 %6 %7 %8 -LIBPath %DISLIN% -lib dislf95,disdll
@GOTO ENDE
:RUN
@if not errorlevel 1 goto MARKE3
@goto ENDE
:MARKE3
%2
:ENDE
