| Quellcodebibliothek Statistik Leitseite products/sources/formale Sprachen/Fortran/f90gl-1.2.15/examples/ (NIST Fortran ©) Datei vom 5.8.2006 mit Größe 3 kB |
|
Quelle mf8nio.bat Sprache: BAT |
|||||||||
|
@echo off
REM This batch file has been tested on REM computer: Intel Pentium 4 REM OS: Windows XP Professional REM compiler: Intel Visual Fortran 9.1 REM C: Microsoft Visual C++.NET 2003 REM OpenGL: Microsoft OpenGL, Glut 3.7.6, f90gl 1.2.12 REM ------------- User configuration parameters --------------- REM modify these for your system REM the directories containing the OpenGL libraries, f90gl libraries, GLUT REM libraries, and f90gl GLUT libraries set OGLLIBDIR=/link /libpath:..\lib REM the directories containing the Windows libraries set WINLIBDIR=F:\Program Files\Microsoft SDK\Lib REM the fortran 90 libraries for OpenGL, including GLUT, GLU and OpenGL set F90GLUTLIB= f90GL.lib f90GLU.lib f90GLUT.lib glut32.lib GLU32.lib OPENGL32.lib REM the Windows libraries set WINLIB= REM the f90 compiler flag for specifying the location of MOD files set MODS=-include:..\lib REM fortran 90 compiler and compiler flags set F90C=ifort set F90FLAGS=/MT /nologo REM fortran 90 compiler flag for fixed source form set FFIXED=-fixed REM ----------- end of user configuration parameters ------------ REM select example to compile; default is all of them if "%1"=="all" goto all if "%1"=="blender" goto blender if "%1"=="checker" goto checker if "%1"=="fbitfont" goto fbitfont if "%1"=="fscene" goto fscene if "%1"=="glutdino" goto glutdino if "%1"=="logo" goto logo if "%1"=="molehill" goto molehill if "%1"=="olympic" goto olympic if "%1"=="plotfunc" goto plotfunc if "%1"=="polyoff" goto polyoff if "%1"=="scube" goto scube if "%1"=="sphere" goto sphere if "%1"=="stars" goto stars if "%1"=="trivial" goto trivial if "%1"=="modview" goto modview if "%1"=="clean" goto clean :all call mf8nio blender call mf8nio checker call mf8nio fbitfont call mf8nio fscene call mf8nio glutdino call mf8nio logo call mf8nio molehill call mf8nio olympic call mf8nio plotfunc call mf8nio polyoff call mf8nio scube call mf8nio sphere call mf8nio stars call mf8nio trivial call mf8nio modview goto done REM blender :blender %F90C% blender.f90 %F90FLAGS% %MODS% %OGLLIBDIR% %F90GLUTLIB% %WINLIB% goto done REM checker :checker %F90C% checker.f90 %F90FLAGS% %MODS% %OGLLIBDIR% %F90GLUTLIB% %WINLIB% goto done REM fbitfont :fbitfont %F90C% fbitfont.f90 %F90FLAGS% %MODS% %OGLLIBDIR% %F90GLUTLIB% %WINLIB% goto done REM fscene :fscene %F90C% fscene.f90 %F90FLAGS% %MODS% %OGLLIBDIR% %F90GLUTLIB% %WINLIB% goto done REM glutdino :glutdino %F90C% glutdino.f90 %F90FLAGS% %MODS% %OGLLIBDIR% %F90GLUTLIB% %WINLIB% goto done REM logo :logo %F90C% logo.f90 %F90FLAGS% %MODS% %OGLLIBDIR% %F90GLUTLIB% %WINLIB% goto done REM molehill :molehill %F90C% molehill.f90 %F90FLAGS% %MODS% %OGLLIBDIR% %F90GLUTLIB% %WINLIB% goto done REM olympic :olympic %F90C% olympic.f90 %F90FLAGS% %MODS% %OGLLIBDIR% %F90GLUTLIB% %WINLIB% goto done REM plotfunc :plotfunc %F90C% plotfunc.f90 %F90FLAGS% %MODS% %OGLLIBDIR% %F90GLUTLIB% %WINLIB% goto done REM polyoff :polyoff %F90C% polyoff.f90 %F90FLAGS% %MODS% %OGLLIBDIR% %F90GLUTLIB% %WINLIB% goto done REM scube :scube %F90C% scube.f90 %F90FLAGS% %MODS% %OGLLIBDIR% %F90GLUTLIB% %WINLIB% goto done REM sphere :sphere %F90C% sphere.f90 %F90FLAGS% %MODS% %OGLLIBDIR% %F90GLUTLIB% %WINLIB% goto done REM stars :stars %F90C% stars.f90 %F90FLAGS% %MODS% %OGLLIBDIR% %F90GLUTLIB% %WINLIB% goto done REM trivial :trivial %F90C% trivial.f90 %F90FLAGS% %MODS% %OGLLIBDIR% %F90GLUTLIB% %WINLIB% goto done REM modview :modview %F90C% modview.f90 %F90FLAGS% %MODS% %OGLLIBDIR% %F90GLUTLIB% %WINLIB% goto done REM clean :clean del *.obj del *.mod del *.exe del *.f9 del fppr.inc :done ¤ Dauer der Verarbeitung: 0.12 Sekunden (vorverarbeitet) ¤*© Formatika GbR, Deutschland |
|
2026-03-28