dcl-7.5.2/0000755000175000017500000000000014760053236012131 5ustar uwabamiuwabamidcl-7.5.2/include/0000755000175000017500000000000014760053155013554 5ustar uwabamiuwabamidcl-7.5.2/include/Makefile0000644000175000017500000000051414760053155015214 0ustar uwabamiuwabami# # Makefile for include # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../Mkinclude install: @-if test $(INCDIR) != $(LINCDIR); then \ $(CP) *$(MODEXT) $(INCDIR)\ ;$(CP) *.h $(INCDIR)\ ; fi clean: clean.local distclean: clean.local clean.lib clean.local: $(RM) *~ *$(MODEXT) *.h dcl-7.5.2/win/0000755000175000017500000000000014760053155012726 5ustar uwabamiuwabamidcl-7.5.2/win/Makefile.win0000644000175000017500000000171214760053155015163 0ustar uwabamiuwabami# # Makefile for Windows # # Copyright (C) 2000 GFD Dennou Club. All rights reserved. # SUBDIRS = src # bin !include MkInclude.win install: install-depend @$(MAKE) /$(MAKEFLAGS) /NOLOGO /S /f makefile.win subdirs \ SUBDIRS_POSTTARGET=install-exec install-depend: build: build-depend @$(MAKE) /$(MAKEFLAGS) /NOLOGO /S /f makefile.win subdirs \ SUBDIRS_PRETARGET=build-exec build-exec: build-depend: @copy config.h.win config.h @copy MkInclude.win MkInclude install-exec-unique: dcl.lib @echo Installing dcl for Fortran $(MV) dcl.lib $(PREFIX)"\lib" IF EXIST *.lib $(RM) *.lib dcl.lib: lib /out:dcl.lib *.obj *.lib -lirc $(GTKLIB_NAME) IF EXIST *.obj $(RM) *.obj clean: $(MAKE) /$(MAKEFLAGS) /NOLOGO /S /f makefile.win subdirs \ SUBDIRS_PRETARGET=clean-exec clean-exec-unique: IF EXIST MkInclude $(RM) MkInclude IF EXIST config.h $(RM) config.h IF EXIST config.bat $(RM) config.bat dcl-7.5.2/win/CONFIG.vbs0000644000175000017500000002072014760053155014410 0ustar uwabamiuwabami'----------------------------------- Option Explicit Dim strKeyroot Dim strCLKeyroot Dim strKeyname Dim KeySet Dim CLKeySet Dim MaxVersion Dim MaxCLVersion Dim strGFDCroot Dim strGFDCname Dim ENV Dim package Dim VFPATH Dim VFENV Dim FC Dim CLPATH Dim CLENV Dim CC Dim WSHShell Dim objFSO ' FileSystemObject Dim objFile ' ファイル書き込み用 Dim strDCLValue Dim strVFValue Dim strCLValue Dim Keyname Dim Ret FC = "ifort.exe /nologo /MD " VFENV = "ifortvars.bat" CC = "cl.exe /nologo /MD /DHAVE_GTK_H /DHAVE_GDK_PIXBUF_H /DWINDOWS" CLENV = "vcvars32.bat" 'Set Registry Key Root Set KeySet = CreateObject("Scripting.Dictionary") If Is64() then strKeyroot = "SoftWare\Wow6432Node\Intel\Compilers\Fortran" strCLKeyroot = "Software\Wow6432Node\Microsoft\VisualStudio" strGFDCroot = "Software\Wow6432Node\GFD_Dennou_Club\Fortran" Else strKeyroot = "SoftWare\Intel\Compilers\Fortran" strCLKeyroot = "Software\Microsoft\VisualStudio" strGFDCroot = "Software\GFD_Dennou_Club\Fortran" End If KeySet = GetRegValueArray(strKeyroot) CLKeySet = GetRegValueArray(strCLKeyroot) MaxVersion = GetMaxVersion(KeySet) MaxCLVersion = GetMaxVersion(CLKeySet) strKeyroot = strKeyroot & "\" & MaxVersion strCLKeyroot = strCLKeyroot & "\" & MaxCLVersion & "\Setup\VC" ' 以下のものを読み出してSETENV.BAT に書き出していくと同時に ' 環境変数に設定する? strDCLValue = Array("DLIB", "DWBIN", "GL:DSPATH") strVFValue = Array("FC", "VFENV", "VFPATH") strCLValue = Array("CC", "CLENV", "CLPATH") Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("config.bat", 2, True) For Each Keyname In strDCLValue Ret = GetRegValue(strGFDCroot,Keyname) If Ret = "" Then Select Case KeyName Case "DLIB" Ret="C:\dcl-fortran\lib" Case "GL:DSPATH" Ret="C:\dcl-fortran\lib" Case "DWBIN" Ret="C:\dcl-fortran\bin" End Select End If objFile.Write("set " & Keyname & "=" & Ret & vbCrLf) Next '今のバージョンではそうなっていないが、ifort が実行できないときだけ '設定するようにしたい。 VFPATH = GetRegValue(strKeyroot,"ProductDir") CLPATH = GetRegValue(strCLKeyroot,"ProductDir") objFile.Write("set " & "FC" & "=" & FC & vbCrLf) objFile.Write("set " & "CC" & "=" & CC & vbCrLf) objFile.Write("set " & "PATH" & "=" & "%PATH%;%DWBIN%" & vbCrLf) objFile.Write("@IF ""%1""==""MACRO"" goto macro" & vbCrLf) objFile.Write("@goto comline"& vbCrLf) objFile.Write(":macro"& vbCrLf) objFile.Write("call """ & VFPATH & "\BIN\" & VFENV & _ """" & " intel64" & vbCrLf) ' """" & " ia32" & vbCrLf) objFile.Write("call """ & CLPATH & "\BIN\" & CLENV & _ """" & vbCrLf) objFile.Write("goto end"& vbCrLf) objFile.Write(":comline"& vbCrLf) objFile.Write("%comspec% /k """ & VFPATH & "\BIN\" & _ VFENV & """" & " intel64" & vbCrLf) ' VFENV & """" & " ia32" & vbCrLf) objFile.Write("call """ & CLPATH & "\BIN\" & CLENV & _ """" & vbCrLf) objFile.Write(":end" & vbCrLf) 'Get EnvironmentValue '' strKeyname = "ProductDir" '' Ret = GetRegValue(strKeyroot,strKeyname) '' strGFDCname = "DLIB" '' Ret = GetRegValue(strGFDCroot,strGFDCname) 'ファイルに出力 "set " & strGFDCname & "=" & Ret objFile.Close ' ファイルハンドルをクローズする。 Set objFile = Nothing Set objFSO = Nothing Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("Mkinclude.win", 2, True) objFile.Write("#" & vbCrLf) objFile.Write("# MkInclude for nmake" & vbCrLf) objFile.Write("#" & vbCrLf) objFile.Write("# Copyright (C) 2004 GFD Dennou Club. All rights reserved." & vbCrLf) objFile.Write("#" & vbCrLf) objFile.Write("" & vbCrLf) objFile.Write("PREFIX = ""C:\dcl-fortran""" & vbCrLf) objFile.Write("" & vbCrLf) objFile.Write("FC = " & FC & vbCrLf) objFile.Write("FCVER = " & MaxVersion & vbCrLf) objFile.Write("CC = " & CC & vbCrLf) objFile.Write("CCVER = " & MaxCLVersion & vbCrLf) objFile.Write("FTOL = " & "FTOL" & vbCrLf) objFile.Write("CP = @copy /y" & vbCrLf) objFile.Write("MV = @move /y" & vbCrLf) objFile.Write("RM = @del" & vbCrLf) objFile.Write("" & vbCrLf) objFile.Write("INTMAX = Z'7FFFFFFF'" & vbCrLf) objFile.Write("REALMAX = Z'7F7FFFFF'" & vbCrLf) objFile.Write("REALMIN = Z'00800000'" & vbCrLf) objFile.Write("REPSL = 1.19221E-06" & vbCrLf) objFile.Write("" & vbCrLf) objFile.Write("IWIDTH = 900" & vbCrLf) objFile.Write("IHEIGHT = 650" & vbCrLf) objFile.Write("DCLNWS = 2" & vbCrLf) objFile.Write("" & vbCrLf) objFile.Write("#DSPATH = $(PREFIX)""\dbase\""" & vbCrLf) objFile.Write("" & vbCrLf) objFile.Write("DSPATH = c:\dcl-fortran\dbase" & vbCrLf) objFile.Write("" & vbCrLf) objFile.Write("MAXNGRID = 4000" & vbCrLf) objFile.Write("" & vbCrLf) objFile.Write("SUFFIX = .obj .mod .f90 .f .c" & vbCrLf) objFile.Write("" & vbCrLf) objFile.Write("all: build" & vbCrLf) objFile.Write("" & vbCrLf) objFile.Write("subdirs:$(SUBDIRS_PRETARGET) $(SUBDIRS) $(SUBDIRS_POSTTARGET)" & vbCrLf) objFile.Write("" & vbCrLf) objFile.Write("!if ""$(SUBDIRS)"" != """"" & vbCrLf) objFile.Write("$(SUBDIRS):subdirs.mak.force-build" & vbCrLf) objFile.Write(" cd $@" & vbCrLf) objFile.Write(" @echo Entering $@" & vbCrLf) objFile.Write(" nmake /NOLOGO /S /$(MAKEFLAGS) /f makefile.win subdirs" & vbCrLf) objFile.Write(" cd .." & vbCrLf) objFile.Write(" @echo Leaving $@" & vbCrLf) objFile.Write("" & vbCrLf) objFile.Write("subdirs.mak.force-build:" & vbCrLf) objFile.Write("" & vbCrLf) objFile.Write("!endif" & vbCrLf) objFile.Write("" & vbCrLf) objFile.Write("install-exec: install-exec-unique" & vbCrLf) objFile.Write(" IF EXIST *.obj $(CP) *.obj $(ROOTDIR)" & vbCrLf) objFile.Write(" IF EXIST *.mod $(CP) *.mod $(ROOTDIR)" & vbCrLf) objFile.Write("" & vbCrLf) objFile.Write("clean-exec: clean-exec-unique" & vbCrLf) objFile.Write(" IF EXIST *.mod $(RM) *.mod" & vbCrLf) objFile.Write(" IF EXIST *.obj $(RM) *.obj" & vbCrLf) objFile.Write(" IF EXIST *.lib $(RM) *.lib" & vbCrLf) objFile.Write(" IF EXIST *.bak $(RM) *.bak" & vbCrLf) objFile.Write("" & vbCrLf) objFile.Write("" & vbCrLf) objFile.Write(".f90.obj:" & vbCrLf) objFile.Write(" @echo $*.f90" & vbCrLf) objFile.Write(" $(FC) /c $*.f90" & vbCrLf) objFile.Write("" & vbCrLf) objFile.Write(".f90.mod:" & vbCrLf) objFile.Write(" @echo $*.f90" & vbCrLf) objFile.Write(" $(FC) /c $*.f90" & vbCrLf) objFile.Write("" & vbCrLf) objFile.Write(".f.obj:" & vbCrLf) objFile.Write(" @echo $*.f" & vbCrLf) objFile.Write(" $(FC) /c $*.f" & vbCrLf) objFile.Write("" & vbCrLf) objFile.Write(".c.obj:" & vbCrLf) objFile.Write(" @echo $*.c" & vbCrLf) objFile.Write(" $(CC) /c $*.c $(CFLAGS)" & vbCrLf) objFile.Close Set objFile = Nothing Set objFSO = Nothing 'この先に関数を並べていく Function GetRegValue(strKeyroot,strKeyname) Dim WshShell Set WshShell = WScript.CreateObject("WScript.Shell") On Error Resume Next GetRegValue = WshShell.RegRead("HKLM" & "\" & strKeyroot & "\" & strKeyname) If Err.Number <>0 Then Err.Clear GetRegValue="" End if On Error Goto 0 Set WshShell = Nothing End Function Function GetRegValueArray(strKeyname) Dim Wcls Dim Locator Dim Service Dim Ret Dim KeySet Dim Key Dim MaxVersion Dim Version Const HKEY_CURRENT_USER = &H80000001 Const HKEY_LOCAL_MACHINE = &H80000002 Set Locator = WScript.CreateObject("WbemScripting.SWbemLocator") Set Service = Locator.ConnectServer(vbNullString, "root\default") Set Wcls = Service.Get("StdRegProv") Wcls.EnumKey HKEY_LOCAL_MACHINE, strKeyname ,KeySet GetRegValueArray=KeySet Set Wcls = Nothing Set Service = Nothing Set Locator = Nothing End Function Function Is64() Dim softwares Dim Key Dim SystemBits SystemBits = False Set softwares = CreateObject("Scripting.Dictionary") softwares = GetRegValueArray("Software") For Each Key In softwares If Key = "Wow6432Node" Then SystemBits = True End If Next Is64 = SystemBits End Function Function GetMaxVersion(KeySet) Dim MaxVersion Dim AsciiMaxVersion Dim Key Dim Ret Dim Version MaxVersion = 0 For Each Key In KeySet Ret = Ret & Key & vbCrLf If IsNumeric(Key) Then Version = CSng(Key) Else Version = 0 End If If Version > MaxVersion Then MaxVersion = Version AsciiMaxVersion = Key End If Next GetMaxVersion = AsciiMaxVersion end Function dcl-7.5.2/win/Mkinclude.win0000644000175000017500000000247014760053155015363 0ustar uwabamiuwabami# # MkInclude for nmake # # Copyright (C) 2004 GFD Dennou Club. All rights reserved. # PREFIX = "C:\dcl-fortran" FC = ifort.exe /nologo /MD FCVER = 150.221 CC = cl.exe /nologo /MD /DHAVE_GTK_H /DHAVE_GDK_PIXBUF_H /DWINDOWS CCVER = 12.0 FTOL = FTOL CP = @copy /y MV = @move /y RM = @del INTMAX = Z'7FFFFFFF' REALMAX = Z'7F7FFFFF' REALMIN = Z'00800000' REPSL = 1.19221E-06 IWIDTH = 900 IHEIGHT = 650 DCLNWS = 2 #DSPATH = $(PREFIX)"\dbase\" DSPATH = c:\dcl-fortran\dbase MAXNGRID = 4000 SUFFIX = .obj .mod .f90 .f .c all: build subdirs:$(SUBDIRS_PRETARGET) $(SUBDIRS) $(SUBDIRS_POSTTARGET) !if "$(SUBDIRS)" != "" $(SUBDIRS):subdirs.mak.force-build cd $@ @echo Entering $@ nmake /NOLOGO /S /$(MAKEFLAGS) /f makefile.win subdirs cd .. @echo Leaving $@ subdirs.mak.force-build: !endif install-exec: install-exec-unique IF EXIST *.obj $(CP) *.obj $(ROOTDIR) IF EXIST *.mod $(CP) *.mod $(ROOTDIR) clean-exec: clean-exec-unique IF EXIST *.mod $(RM) *.mod IF EXIST *.obj $(RM) *.obj IF EXIST *.lib $(RM) *.lib IF EXIST *.bak $(RM) *.bak IF EXIST *.exe $(RM) *.exe .f90.obj: @echo $*.f90 $(FC) /c $*.f90 .f90.mod: @echo $*.f90 $(FC) /c $*.f90 .f.obj: @echo $*.f $(FC) /c $*.f .c.obj: @echo $*.c $(CC) /c $*.c $(CFLAGS) dcl-7.5.2/win/configure.bat0000644000175000017500000000007214760053155015376 0ustar uwabamiuwabamicscript config.vbs %comspec% /k config.bat del config.bat dcl-7.5.2/win/config.h.mingw0000644000175000017500000000066314760053155015471 0ustar uwabamiuwabami/* config.h. Generated from config.h.in by configure. */ /* config.h.in. Generated automatically from configure.in by autoheader. */ /* Define if you have the header file. */ /* #undef HAVE_GTK_H */ /* Define if you have the header file. */ /* #undef HAVE_GDK_PIXBUF_H */ /* Define if you have the header file. */ /* #undef HAVE_GDK_IMLIB_H */ #define DCL_INT int #define DCL_REAL float dcl-7.5.2/win/dclfrtvar.bat0000644000175000017500000000004614760053155015405 0ustar uwabamiuwabami@ECHO OFF @%comspec% /k setenv.bat %* dcl-7.5.2/win/setenv.bat0000644000175000017500000000271314760053155014725 0ustar uwabamiuwabami@SET DCLFRTDIR=%~dp0 @SET VSVER=vs2013 @SET VCVER="Microsoft Visual Studio 12.0" :CL(Visual C) @IF EXIST "c:\Program Files (x86)\"%VCVER%"\VC\bin\vcvars32.bat" call "c:\Program Files (x86)\"%VCVER%"\VC\bin\vcvars32.bat" :IFRT(Intel Fortran) call "C:\Program Files (x86)\Intel\Composer XE\bin\ifortvars.bat" ia32 %VSVER% :DCLFRT @SET DFLIB=%DCLFRTDIR%lib @SET DFINCLUDE=%DCLFRTDIR%include @SET DFWBIN=%DCLFRTDIR%bin @SET DFSRC=%DCLFRTDIR%src @PATH=%DFWBIN%;%PATH% @SET LIB=%DFLIB%;%LIB% @SET INCLUDE=%DFINCLUDE%;%INCLUDE% @SET GL_DSPATH=%DCLFRTDIR%lib\dcldbase\ :GTK @SET PKG_CONFIG_PATH=%DCLFRTDIR%GTK\lib\pkgconfig @SET DllPath=%DCLFRTDIR%GTK\bin @PATH=%DllPath%;%PATH% @SET GTKDIR=C:\dcl-fortran\GTK\lib @SET GTKLIBS=pango-1.0.lib pangoft2-1.0.lib pangowin32-1.0.lib atk-1.0.lib gdk_pixbuf-2.0.lib gdk-win32-2.0.lib gtk-win32-2.0.lib glib-2.0.lib gmodule-2.0.lib gobject-2.0.lib gthread-2.0.lib cairo.lib @FOR /f "DELIMS=" %%A IN ('pkg-config --cflags gtk+-2.0') DO @SET CFLTMP=%%A @FOR /f "DELIMS=" %%A IN ('pkg-config --libs gtk+-2.0') DO @SET GTKTMP=%%A @SET CFLAGS=%CFLTMP:-mms-bitfields=% @SET CFLAGS=%CFLAGS% -Dinline= /link /libpath:%GTKDIR% %GTKLIBS% /stack:10000000 /NODEFAULTLIB:libcd.lib /NODEFAULTLIB:libcmt.lib /NODEFAULTLIB:oldnames.lib @SET FFLAGS=/module:%DFLIB% %CFLAGS% %DFLIB%\dcl.lib %DFLIB%\dcl-f90.lib SET INCLUDE=%INCLUDE%;%DCLFRTDIR%GTK\include :HOME @IF NOT "%HOME%" == "" GOTO :EOF @SET HOME=%HOMEDRIVE%%HOMEPATH% @%HOMEDRIVE% @CD %HOME% :EOF dcl-7.5.2/win/config.h.win0000644000175000017500000000066314760053155015145 0ustar uwabamiuwabami/* config.h. Generated by configure. */ /* config.h.in. Generated automatically from configure.in by autoheader. */ /* Define if you have the header file. */ /* #undef HAVE_GTK_H */ /* Define if you have the header file. */ /* #undef HAVE_GDK_PIXBUF_H */ /* Define if you have the header file. */ /* #undef HAVE_GDK_IMLIB_H */ #define DCL_INT int #define DCL_REAL float #define WIN32 1 dcl-7.5.2/INSTALL0000644000175000017500000004556614760053155013202 0ustar uwabamiuwabami* This document written in UTF-8 地球流体電脳ライブラリー (dcl-6.5) インストール手順 2011/12/26 塩谷 雅人, 鍵本 崇, 乙部 直人, 神代 剛, 辻野 智紀 2014/06/03 乙部直人 -. フォントについて マーカー用TrueTypeフォントのインストールについては まだ,環境ごとにconfig出来るようにはなっていません. Windowsでは src/env1/sysfont の ttfファイルを C:\Windows\Fonts にコピーして下さい. Linux では同じファイルを ~/.fonts 以下か /usr/local/share/fontsの 下にコピーしてfc-cache を実行して下さい.もしくは./configureした後 Mkinclude の下の方の debfontdir を編集すればいいはずです. 0. はじめに ここでは, 「電脳ライブラリ」をインストールする手順について述べる. このバージョンでは図形出力媒体として, CRT (GTK), EPS (エン カプセルドポストスクリプト), PDF (ポータブルドキュメントフォーマット), png (ビットマップ画像) の4つをサポートしている. ウインドウシステムとして X11R4 (以上) が正しくインストールされていなけ ればならない. また、gtk+3(gtk+2)とcairo が利用できる必要がある。 「電脳ライブラリ」をインストール際, それぞれのプラットフォームに対して 適切な Mkinclude ファイルを用意しなければならない. dcl-5.1 以降では, configure スクリプトを用いることによって, Mkinclude ファイルを自動的に 生成できるようになっている. 比較的一般的なプラットフォームについては, configure スクリプトを用いれ ば容易にライブラリの構築は可能である. configure スクリプトを用いたイン ストール方法については「1. configure によるインストール」を参照された い. configure スクリプトによるインストールがうまくいかない場合は, 「2. パスの設定」以降を参照されたい. Windows環境については文末に別に 記述したのでそちらを参照されたい. 1. configure によるインストール configure スクリプトによる初期設定の自動化は, 現在, GNU のソフトウェア はもちろんのこと, さまざまなフリーソフトウェアで実現されている. この confiugre スクリプトにはいくつかのオプションが用意されており, ユーザ自 身でインストール環境をカスタマイズすることも可能である. 具体的なオプショ ンについては以下のようなものがある. < オプションの説明 > % ./configure [options] [options] --help ヘルプメッセージの出力 --quiet, --silent 実行状態の非表示 --prefix=PREFIX インストールディレクトリを PREFIX に設定 デフォルトは /usr/local --with-gtk2 グラフィックライブラリをgtk+2.0に変更 さて, この configure スクリプトを用いた「電脳ライブラリ」の構築方法は 以下の通りである. 0) 必要なソフトウェアをインストールする FortranとCのコンパイラをインストールする。XやGTKの開発用ライブラリをインストールする。 最近のLinuxなどではパッケージで用意されていると思われるので、そのような物を 適宜インストールするのが良い. 1) dcl 本体を展開する % zcat dcl-7.5.0.tar.gz | tar xvf - % cd dcl-7.5.0 2) configure を実行する (例1) 資源を /usr/local/dcl-7.5.0 に構築する % ./configure --prefix=/usr/local/dcl-7.5.0 (例2) configure が捜し出すコンパイラとは異なるものを使用する % export CC=gcc % export FC=gfortran % ./configure (例3) 使用するgtkを 3ではなく2にする % ./configure --with-gtk2 3) あとは make; make install で dcl 本体がインストールされる なお configure に関連するファイルとしては以下のようなものがある. Mkinclude.in : Mkinclude を作成するためのプロトタイプ aclocal.m4 : DCL 用 autoconf マクロ configure : configure スクリプト configure.in : configure スクリプト作成用プロトタイプ ライブラリを構築する作業は make でおこなうが, make が用いる(各所に散ら ばる) Makefile の中では Mkinclude というファイルを取り込んでいる. Mkinclude ファイルはこの INSTALL ファイルと同じ電脳ライブラリのトップ ディレクトリにあって, システムに依存しうるいくつかのマクロ名が定義され ている. configure はこの Mkinclude ファイルを自動的に生成する. もしも configure が生成する Mkinclude ファイルを使ってもうまくインストールで きない場合は, この Mkinclude ファイルを適切に書き換えてやれば (「3. Mkinclude ファイル」参照), 以下に述べるような手順でインストール 作業がおこなえるはずである. 2. パスの設定 make でコンパイルおよびインストールをするために, これから移植しようと する電脳ライブラリが置かれているディレクトリ(この例ではとあるユーザー のホームディレクトリに電脳ライブラリが展開されているとする)を環境変数 DCLDIR に設定しなければならない. ただし, configure によって Mkinclude ファイルが正しく生成されている場合は, その中で DCLDIR は定義されている ので, ふつうはユーザーが環境変数 DCLDIR を設定する必要はない. configure によって Mkinclude ファイルが正しく生成されなかった場合は, Mkinclude ファイルの中の DCLDIR を適切に書くか, 以下のように環境変数と してパスの設定をおこなう必要がある. % export DCLDIR=~/dcl-7.5.0 3. Mkinclude ファイル トップディレクトリ (すなわち cd $DCLDIR ではいったところ) に Mkinclude というファイルがあっていくつかのマクロ名が定義されており, $DCLDIR 以下 の Makefile ではこの情報を include して使っている. また, Mkinclude ファイルの先頭部分にはサフィックスルールが記述されてい る. (ふつうこれらはコメントアウトされていても動作する. ) Mkinclude ファイルの中で注意すべきマクロ名として次のものがある. a) コマンド, ライブラリ等を格納する場所を指定するマクロ BINDIR : dclfrt などのコマンドを格納するディレクトリ LIBDIR : ライブラリを格納するためのディレクトリ INCDIR : include ファイルを格納するためのディレクトリ DBASEDIR : データベース関連のファイルを格納するためのディレクトリ これらのマクロ名は初期設定ではそれぞれ, $(prefix)/bin, $(prefix)/lib, $(prefix)/include, $(LIBDIR)/dcldbase となっている. なおこれらとは別に, 上記のディレクトリを一時的に置くための場所を指定するために, LBINDIR, LLIBDIR, LINCDIR, LDBASEDIR などがある. DCLVERSION : 電脳ライブラリのバージョン (x.x 形式) DCLVERNUM : 電脳ライブラリのバージョン (xx 形式) DCLLANG : どの言語に対するパッケージかを示す configure スクリプトを用いていれば, ここには適切な値が入っているはずで あ. 手作業で Mkinclude を編集しようとして, もしもここに値が定義されて いない場合は, バージョン名(dcl-5.3 なら 53)を書いておいた方がライブラ リの整合性を取りやすい. b)gtkに関するマクロ Gtk に関するマクロとして, GTKVERSION, GTK_CFLAGS, GTK_LIBS などがある. c) 図形出力装置の数に関するマクロ DCLNWS : 図形出力装置の数 通常の構成では, DISP, Files の2つの出力装置をサポートしている. この場 合, DCLNWS は 2 となる. d) ライブラリ構築に際するいくつかの選択に関するマクロ MISC1EXT : misc1 において, 他では用いられないライブラリ名 MISC1EXT には src/misc1 の下にあって, 現在のところ他のライブラリからは 用いられることのないライブラリ名が列記されている. 「0. はじめに」に書 かれているような環境では, これらのライブラリもすべてコンパイル・インス トールが可能であるが, システムによっては MISC1EXT のうちのいくつかがう まく移植できないことがあるかもしれない. そのような場合は, うまく移植で きないライブラリをこのリストから外してやればよい. 例えば, fiolib の移 植がうまくいかない場合, MISC1EXT = clcklib randlib hexlib reallib のように fiolib をリストから外せばよい. e) コマンドおよびそのオプションに関するマクロ CC : C コンパイラ名 CFLAGS : C コンパイラが解釈するオプション FC : Fortran コンパイラ名 FFLAGS : Fortran コンパイラが解釈するオプション RANLIB : ランダムライブラリを作成するコマンド名 C および Fortran のコマンド名およびコンパイラオプションはそれぞれのシ ステムで適切なものを指定すること. システムによってはライブラリをリンク する際に, ライブラリをランダムライブラリ化しなければならない. RANLIB にはそのコマンド名を指定する. この操作が必要でないシステムについては RANLIB として, たとえば touch コマンドなどを指定しておけばよい. (注意) Fortran と C の結合規約 システムに依存するルーチンや X 関連のルーチンは C 言語を用いて書かれて いる. Fortran と C との結合に際しては, SunFORTRAN で使われているように 「C 側の関数名に '_' (アンダースコアー)を付け加えることで, Fortran 側 からは '_' なしのサブルーチン(あるいは関数)として呼ぶことができる」と いうルールに従っている. これは言い換えると Fortran プログラムのコンパイル時に, ルーチン名に対 してアンダースコアーを付け加えることにほかならない. SunFORTRAN で使わ れているこのような結合規約に従っていないシステムもあるが, そのようなシ ステムでも多くの場合 Fortran のコンパイラオプションとしてアンダースコ アーを付加するオプション(たとえば IBM AIX XL Fortran/6000 (xlf) では -qextname) が用意されていることが多いので, マニュアルなどを注意深く参 照されたい. Fortran 側にアンダースコアーを付加するオプションがない場合は, C 側の関 数名からアンダースコアーを取ってやればよい. f) math1/syslib/glpget.f で用いられるマクロ INTMAX REALMAX REALMIN REPSL これらの詳細については src/math1/syslib の NOTE を参照されたい. g) misc1/clcklib/clckst.c で用いられるマクロ CLK_PER_SEC (CLOCKS_PER_SEC) CLK_RSL_TCK (CLK_TCK) これらはカッコ内に示された識別子に対応する. ANSI 対応の C コンパイラで はふつう, カッコ内に示された識別子が定義されているのでこれらのマクロを 指定する必要はない. 詳しくは src/misc1/clcklib の NOTE を参照されたい. h) math1/oslib で用いられるマクロ OSQARN OSGARG 双方ともに、Fortran2003 が使用可能な場合にはF2003が指定される。 使用できない場合には, OSQARN については iargc または dummy の 2 つが指定可能で ある. システムが iargc を持つ場合は iargc を, 持たない場合は dummy を 指定する. OSGARG については getarg または dummy の 2 つが指定可能である. システ ムが getarg を持つ場合は getarg を, 持たない場合は dummy を指定する. これの詳細については src/math1/oslib の NOTE を参照されたい. i) grph1/csgi で用いられるマクロ CSGI ICHAR が0 から 255 の間の整数値を返す場合 general, -127 から 127 の間 の値を返す場合 other を指定する. 詳しくは src/misc1/clcklib の NOTE を参照されたい. j) grph1/swpack で用いられるマクロ IWIDTH : X で表示するウインドウの横幅 IHEIGHT : X で表示するウインドウの縦幅 初期値はそれぞれ 900, 650 となっている. k) grph2/uwpack で用いられるマクロ MAXNGRID : 作業領域の大きさ 初期値は 4000 となっている. 4. make - プログラムのコンパイル ここまで準備したら, トップディレクトリで (つまり cd $DCLDIR ではいった ところ) % make とすれば以下の作業が行われる. (カッコ内には, make の具体的なターゲット 名を記す.) コンパイル(object), ライブラリの作成(library), データベースの 作成(dbase), , および $DCLDIR/bin ディレクトリにある基本コマンドの作成(script) env2 にあるアプリケーションプログラムの作成(exec),exec は明示的に指定する必要がある. % make exec 5. make - インストール コンパイルがすんだらインストールをおこなう. % make install とすれば, ライブラリ, データベース, アプリケーションプログラムとコマン ドコマンド群を適当なディレクトリにコピーする. 6. デモプログラムの作成 ここまでで必要な作業は終わっているので, 次に $DCLDIR/demo に移動してデ モプログラムを作成する. % cd $DCLDIR/demo % make make 終了後, 各ディレクトリを下がってデモプログラムを実行してみるとよ い. グラフィック出力を含むものの実行例は次節参照のこと. 7. 使用例 電脳ライブラリを利用するには dclfrt コマンドを用いる. これは基本的に Mkinclude のマクロ名 FC で指定した Fortran コンパイラのコマンドと同じ で, ここまでの操作によって作成されたライブラリをあらかじめリンクするよ うになっている. このコマンドを利用するためには, Mkinclude のなかの BINDIR で指定されているディレクトリ名をシェル変数 $path に書き加えてお かなければならない. これは .cshrc などの設定ファイルに書き加えておけば 簡単である. たとえば test01.f というグラフィックを含む次のようなプログ ラムがあったとすると(ふつうの Fortran コンパイラでは -o オプションで実 行形式ファイル名を指定する), PROGRAM TEST01 WRITE(*,*) 'WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL SGOPN(IWS) CALL SGFRM CALL SGSVPT(0.1,0.9,0.1,0.9) CALL SGSWND(0.0,10.0,0.0,10.0) CALL SGSTRN(1) CALL SGSTRF CALL SLPWWR(1) CALL SLPVPR(1) CALL SGTXZU(5.0,5.0,'TEST FOR GRPH1',0.03,0,0,3) CALL SGCLS END % dclfrt -o test01 test01.f によって test01 という実行ファイルが作られる. (以下は標準ライブラリに おける例である.) % ./test01 といれると WORKSTATION ID (I) ? ; 1:X, 2:PS, 3:Tek ; ときいてくる (ワークステーション名のリストは SGPWNS によって出力してい る) ので, X ウインドウシステムが起動されている状態で1を入力するとウイ ンドウが現れ, ウインドウの位置を確定すると描画がはじまる. 改ページ, 図 形表示の終了はクリックでおこなう. 2 (PS)を指定すると, dcl.ps というファ イルがカレントディレクトリにできるので, 適当な出力コマンドを用いてプリ ンターに出力する. たとえば, % lpr dcl.ps とする. また3 (Tek)を指定するとテクトロ端末での描画が可能である. 8. 後始末 ディスクスペースに余裕がなければ, インストール途中に作成されたオブジェ クトファイル, あるいはデモプログラムを消去する. トップディレクトリで % make clean とすると不用なファイルが消去される. なお, % make distclean とすると, ローカルに生成したライブラリなどもすべて消去される. A. Windowsでのインストール パッケージを任意の場所に展開する. 展開されたトップディレクトリにある dclfrtvar.bat をダブルクリックする. スタートメニューに登録するとよい. 必要な環境が設定されるはずであるが、されない場合は setenv.bat 内を確認する. Intel Fortran のディレクトリなどが標準的でないか確認する. A.1 Windows 上での DCL の Build Microsoft Visual C++ がある場合は、nmake -f Makefile.win とすると ビルドされ、 nmake -f Makefile.win install とすることでインストールされる. インストール先などは トップディレクトリの Mkinclude.win に記述する. A.2 Mingw環境 config.h がうまく作成されないので cp config.h.mingw config.h を手動で行う必要がある. B. CHECK インストールが正しくおこなわれているかどうかは, たとえば以下の点に注意 する. (システムが用意する電脳ライブラリのコマンド類と区別するために, それぞれのディレクトリに移って作業すること. ) B.1. $BINDIR (Mkinclude 参照) にあるいくつかのコマンドを実行してみる. % ./dclclr カラーマップが正しく表示されるか % ./dcldate; date 日付情報が正しく表示されるか(date コマンドの出力と同じ か) % ./dcldbs データベースファイルのありかは正しいか % ./dclfont フォントのリストが正しく表示されるか % ./dclfont -sg:ifont=2 コマンドラインオプションが通るか % ./dclver 電脳ライブラリのバージョンは正しいか % ./repsl Mkinclude で指定した REPSL の値に近いか B.2. $DCLDIR/demo/math1/oslib のチェック % ./oslb01 osgenv が正しく動作しているか(printenv HOME と同じパス を示すか) % ./oslb02 osexec が正しく動作しているか(ls の結果と同じか) B.3. $DCLDIR/demo/misc1/clcklib のチェック % time ./clck01 clckst.c が正しく動作しているか(time で出力される実行 時間とだいたい等しいか - CPU の遅いマシンだと時間がか かるので注意!) B.4. $DCLDIR/demo/misc1/randlib のチェック % ./rand01 rngu0.c が正しく動作しているか(円周率 - 3.14 - に近い 値が出力されるか) B.5. $DCLDIR/demo/grph2/umpack のチェック % ./test05 すべての地図投影が正しく表示されるか dcl-7.5.2/changelog0000644000175000017500000002042014760053155014001 0ustar uwabamiuwabami* This document written in UTF-8 *** 6.0 リリース以降の履歴 2015/05/01頃 乙部(otobe@gfd-dennou.org) * 6.0 をリリース 2015/06/30 乙部(otobe@gfd-dennou.org) * ファイルの出力はpdfをデフォルトにした. * LSEP に合わせてPDFの分割出力に対応 * SHTLIB のパラメータをチェックするようにした * 5番の地図投影の定義域を正しく取得するように * rngu0 がコンパイルされていなかったのを修正 * osgarg? osqarn? も同時に修正された? * Windows 版で colormap1/2.x11 を掃除するようにした * fiolib がコンパイルされていなかった 2015/12/15 乙部(otobe@gfd-dennou.org) * PDFでiwidth,iheightを参照するようにした(report:horinout@gfd-dennou.org) * いくつかの設定変数の文字数が変だったのを修正 * Colormapがすぐに変更できなくなっていたのを修正(report/FIX:樫村) * 文字数のカウントにバグがあったのを修正(report/FIX:辻野) * SW_RLWFACT を導入.PDFの線幅のファクター.999.で画面に似せる * デフォルトの線幅を 1.0 から 0.5刻みに変更 2015/12/18 乙部(otobe@gfd-dennou.org) * 6.0.3 をリリース 2016/01/28 乙部(otobe@gfd-dennou.org) * Image描画で枠を書いていたのをやめた(report:yot@gfd-dennou.org) * 6.0.4 をリリース 2016/04/06 乙部・樫村 * SYSTEM FONT をつかえるようになった. SW_SYSFONTで切り替え SW_FONTNAME でフォントを指定可能 * USPK08 の ℃のバグ修正 * 新しいマークアップ法を導入した 2016/04/17 乙部・樫村 * マーカー用のフォントを作成した * マーカーフォントのインストール可能(Windows以外) 2016/04/29 乙部・樫村・塩谷 * 新しい機能用のdemoを用意した * フォント名を確認するコマンドを用意した. * 6.5.0,6.5.1 リリース 2016/05/22 乙部・柏村・塩谷・松嶋 * SWFLSH(強制画面描画フラッシュ) * dc-cache にオプションをつけた * 6.5.2 リリース 2016/05/24 乙部 * 非rootユーザーでもfontがインストールできるようにした。 * 6.5.3 リリース 2016/05/29 乙部 * メモリリークバグ修正(パッチ作成:松嶋) * 6.5.4 リリース 2016/06/19 乙部 * 7.0.0 リリース 2016/07/11 乙部 * イメージ描画の描画領域設定忘れ修正 * 文字数制限を1024BYTEに緩和 * ページの初期化をせずにページを閉じた時にdumpするのを修正 * 2バイト系文字の使用のために、DCLでの拡張した文字を使用する関数USGI を追加 * いくつかのUnicode文字を追加し、もともとのストロークフォントの分をカバーした * 7.0.1 リリース 2016/07/24 乙部 * UWPACK に初期化ルーチンを加えた(horinout@gfd-dennou.org) * PDF の縦横サイズを SW_IWIDTH,SW_IHWIGHT を参考にするように * マイナーなバグフィックス * 7.0.2 リリース 2016/08/01 乙部 * SW_RLWFACT を 0.2 から 0.5 に変更。 * SGTNXU(R,V)でベタ塗り出来なかったのを修正 * 7.0.3 リリース 2016/08/03 乙部 * フルカラーでトーンが書けなくなっていたのを修正 * 7.0.4 リリース 2016/08/12 乙部 * ベタ塗りがソフトフィルになっていたのを修正 * 7.0.5 リリース 2016/08/30 乙部 * 変数の名前変更 SYSFONT -> LSYSFNT * 変数の名前変更 MARKFONT -> LMRKFNT * マニュアルの修正 * コントロール文字は新タイプをデフォルトに * コントロールの解釈の不具合修正 * 7.1.0 リリース 2016/09/15 乙部 * IBGCLI を考慮していなかったのを修正 * dclcc の man を追加 *7.1.1 リリース 2016/09/26 乙部 * 単位の指数表示が正しく処理されていなかったケースを修正 * BOM が付いているファイルから除去 * テキストにはBOMを追加 * 文字列の長さ計測のバグを修正 *7.1.2 リリース 2016/11/25 乙部 * GTK+3.0 に対応しデフォルトにした。 2017/03/08 乙部 * ラベル付きラインがうまく機能していなかった * ファイル名の文字列を1024文字に拡張 * マップでイメージ描画がはみ出すのを修正 * ファイル名の文字数を1024文字に緩和 2017/03/24 乙部 * 7.2.0 リリース 2017/04/09 乙部 * UETONC/F の座標正規化修正 * SLDIV の分割可能数を増やした * 7.2.2 リリース 2017/05/17 乙部 * UETONC/F の座標正規化再修正 * 7.2.3 リリース 2017/12/23 乙部 * USPACK LOG軸オートスケールでの自動FACTOR計算ミスの修正 * 7.3.0 リリース 2018/02/02 乙部 * f2c の制限のためにtmpackを無効化 * 7.3.1 リリース 2018/06/10 * gtk3 描画領域の不具合修正 * SGOPN 前にカラーマップが変更できなくなっていたのを修正 * 7.3.3 リリース 2018/08/15 * システムフォント時に描画が欠けることがあるのを修正 * 7.3.4 リリース 2020/06/11 * 7.4.0 リリース 2020/08/16 * LSTDOUT->LSTDOT(TYPO)を修正 2021/01/04 * RUBYのCSGI/USGIに対処した * RAVEのCインターフェースを準備した * Cインターフェースの自動生成しない物を分けた * glrqnp の BOZ literal を仕様に合わせた * GTK3 のときにLALTでは描画されなくなっていたのを修正 2021/01/16 * 7.4.1 をリリース 2021/03/11 * Cインターフェースの修正(神代さん報告) * 7.4.2 をリリース 2021/03/30 * Macで gtk3 のキー取得が出来ない問題に対処 * Cインターフェースの修正2(神代さん報告) * 7.4.3 をリリース 2021/04/04 * 極座標でイメージ描画では塗られないのを修正(辻野さん報告) 2021/04/20 * Ruby-DCLの方に文字列を返すときに元の文字列を上書きするとSEGVすることがあるので必要がないときには行わないようにした。(藤原さん報告) 2021/07/21 * SET 系の関数でも元の文字列を上書きしないようにした。 * dclsrvを起動し続けるスクリプトを追加した(竹広さん作) * dclsrvでは、手許の方のcolormapのパスを受け取るようにした。 (パッチは竹広さん作) 2022/01/11 * UETONx のイメージ描画が格子点で定義する座標系でも動作するようにした.(パッチは鍵本さん作) * 7.4.6 リリース 2022/01/18 * gfortran Ver9 以上でエラーになる箇所を修正 2022/03/08 * TMPACK のヘッダーファイルを追加(神代さん作) * RSAT 使用時の正射図法の計算に逆変換にミスがあったためにイメージ描画が      正しくなかったのを修正 2022/03/18 * 7.4.7 リリース * dcl_param のLogicalの取得のバグフィックス * with-gtk4オプションの追加(gtk4には未対応) 2022/03/23 * with-gtk4オプションの追加(gtk4には未対応) * gtkのドライバに混入していた不具合を修正 * 7.4.8 リリース * gfortran10 でエラーが出る箇所を修正 * with-gtk2 のオプションに不具合あったのを修正 2022/04/02 乙部 * カラーマップを追加(辻野) * デバイスオープン時にカラーマップの設定が無視されていたのを修正 2022/10/08 乙部 * 複数レイアウト表示でうまく色が塗られないことがある(西澤さんの報告 鍵本さんの修正) * 7.5.0 リリース 2025/02/27 乙部 * ruby-dclに対応するためにC版のmsgdmpを取り込んだ * configureの修正 * gcc 14に対応(佐々木さんのパッチ) * 7.5.2 リリースdcl-7.5.2/NOTE0000644000175000017500000000274114760053155012625 0ustar uwabamiuwabami* This document written in UTF-8 このパッケージには, 以下の NOTE ファイルがある. これらのファイルには, 機種依存性や移植の際の注意が書かれているので必ず目を通すようにしていた だきたい. ./NOTE ./sys/NOTE ./dvlop/NOTE ./src/math1/oslib/NOTE ./src/math1/syslib/NOTE ./src/misc1/bitlib/NOTE ./src/misc1/chglib/NOTE ./src/misc1/chklib/NOTE ./src/misc1/clcklib/NOTE ./src/misc1/datelib/NOTE ./src/misc1/fiolib/NOTE ./src/misc1/misclib/NOTE ./src/misc1/randlib/NOTE ./src/misc1/timelib/NOTE ./src/grph1/csgi/NOTE ./src/env1/bitmap/NOTE ./src/env1/cl2tnmap/NOTE ./src/env1/colormap/NOTE ./src/env1/fonts/NOTE ./src/env1/mapdata/NOTE ./src/math2/fftlib/NOTE Windows 用の注意事項 config.hは本来configureで作られるが Intel/Windowsの用にconfig.h.winを置いておく。 まず、config.h.win を config.h にリネーム(コピー) MSVC の コマンドプロンプトを立ち上げる。 intel の 設定コマンドを起動する。 標準的には c:\program files (x86)\intel\compiler\fortran\11.0\065\bin\ifortvars.bat ia32 のようなコマンドで起動できる。 以上で、nmake する環境が整うはずなので nmake -f Makefile.win nmake -f Makefile.win install で、できあがってインストールされる。 インストール先はc:\dcl-fortran\ になるはずだから、先にパッケージ版のdcl-fortran をインストールしておけば よい。 nmake -f Makefile.win clean dcl-7.5.2/NEWS0000644000175000017500000001450514760053155012635 0ustar uwabamiuwabami* This document written in UTF-8 ■7.4での変更点  FORTRAN90のインターフェースを統合しました。  流線関数のルーチンを追加した現在TMPACKという名前になって  misc2 の下にあります。正式採用時には名前を変更する可能性もあります。  Cインターフェースを統合しました。これによりdcl-c は廃止とします。  開発者のための情報ですが、以前とは関数の後ろに付く _の個数が  1つ増え sgline__()のように2つになっていることに注意して下さい。 ■7.3での変更点 足回りのライブラリをgtk+2.0 -> gtk+3.0 に変更  libgtk+-3-dev などをインストールしてください。 ./configure --with-gtk2 でgtk+2も引き続き使用可能です。 ■7.1での変更点 DCLの命名法に従っていなかった  システムフォントを使うための変数名を   SYSFONT -> LSYSFNT に変更しました.  また、DCLMARKER フォントを使うかどうかのフラグも   MARKFONT -> LMRKFNT に変更しました.  LCNTLという、旧マークアップを有効にするフラグの  デフォルトを.FALSE. にしました.  これは、それが正しい仕様だったのですが、GROPNでは .TRUE.  にセットされてしまっていたので、DCLの本来の仕様通りにすると同時に  新仕様の使用をお願いするものです.  また、旧マークアップで仕様が曖昧なところがありました.  上下付の開始と終了は、必ずしもセットでなくてもよかったのですが  セットで使用することとします. □インストール システムフォントのインストール Linux,MAC についてはsudo できるならいままでと取り立てて違いはありません. make install を sudo なしで実行した場合 オリジナルのフォントが ~/.fontsにインストールされます. Windows では src/env1/sysfon の中の Mac のつかない拡張子 ttf のファイルをC:\Windows\Fonts にコピーしてください. うまくいかない場合は MACでは同じディレクトリの -Mac.ttf ファイルを /Library/Fonts にコピーしてください. Linux では,Macのつかない 拡張子 ttf のファイルを ~/.fonts にコピーした後,fc-cache -vfを実行してください. □ DCLの文字を番号で指定する場合旧来の CSGI ではなく USGI を使用してください. 2バイト文字を使用できるようにした結果、以前の拡張コードはぶつかってしまっています. 装飾記号 \x をつける必要がありますが、 それをする関数を用意しました.  以前は   CHARACTER CSGI*1 で宣言していましたが、USGIは装飾分長くなって CHARACTER USGI*3  であることに注意してください.  機械的には宣言の CSGI*1 -> USGI*3 の変更と、ソースコードのCSGI -> USGI でうまく動作するはずです. □システムフォントの使用法は SWPACK の LOGICAL 変数 LSYSFNT で判別されます LSYSFNT = T のときシステムフォントを使います. □フォント名 使用できるシステムフォントの名前は dclfontlist で確認できます. dclsysfont ではサンプルを見ながら確認できます. デフォルトでは FONTNO=1 の場合 Sans(日本語ではゴシック) になっています. Sansはシステム依存ですがもっとも標準的なSanSerifを使うという意味です. FONTNO=2 の場合はSerifを使います. Monospace などの名前もシステムで割り振られます.この3つはシステムごとに  デフォルトのフォントに割り振られています. それ以外のフォントは直接名前で指定します. □上付き,下付き,Over,Under 少し小さめの文字を右肩や右下に書く制御文字が変更になりました. 現在は以前のものも解釈しますがいずれ解釈しなくなる予定です. 上付きは \^ です(\はバックスラッシュもしくは半角の¥マークです) 下付きは \_ です \o と \u はその文字の真上もしくは真下に描画します. \o \u はストロークフォントでは使用できません. C言語などでは\\と2個にして初めて\記号になることに注意してください. 基本的には次の文字が影響を受けます.以前の制御文字にあった 終了文字はありません. 複数文字を制御したい場合は A\^{x=0} のように{} でくくってください.この場合A の右肩に x=0 が丸ごと乗っかります. また \o \u も続けて{} で描画できますが,複数文字は上下に移動しません. これは,上や下に線を簡易に引くための機能です.ですので,- や ~のような 平たい文字を1つだけ制御することを想定しています. p\o- などで,pの平均のような表現とするイメージです. のっかる高さ方向の位置は文字ごとにばらけますので,まとめて引いたイメージにはなりません. □新しい制御文字は常に解釈されます.また,ストローク文字(旧来の描画法)  では新制御文字は旧制御文字に変換されます.ですので,LCNTL=F の場合,思わぬ描画になる  場合があります.また,LCNTL=T をデフォルトに変更されました. □ また,UTF-8は利用出来ます.ので日本語も表示出来るようになりました □ dclfontlist, dclsysfont, dclfontdialog コマンドで使用出来るフォントを確認出来ます. □ demo/grph2/sysfont に新しくなった機能を使用したデモを置いてあります. □重要な新機能 ・画面の強制フラッシュ  メインループで長い処理を行っていると、DCLの処理が溜まって  画面が更新されません.適切なタイミングで CALL SWFLSH を呼んでいただけると、たまっている描画がなされます. たとえば、他のウィンドウでかくされたものを前に出すなどできます. Ruby-DCL に移植されれば、irb で明示的に再描画指示を出せるようになります. dcl-7.5.2/demo/0000755000175000017500000000000014760053155013055 5ustar uwabamiuwabamidcl-7.5.2/demo/misc1/0000755000175000017500000000000014760053155014071 5ustar uwabamiuwabamidcl-7.5.2/demo/misc1/timelib/0000755000175000017500000000000014760053155015516 5ustar uwabamiuwabamidcl-7.5.2/demo/misc1/timelib/Makefile0000644000175000017500000000050514760053155017156 0ustar uwabamiuwabami# # Makefile for timelib (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = timelib LIBSRCS = time01.f time02.f LIBDEMO = time01 time02 LIBEXEC = time01$(EXT) time02$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ core *.trace dcl-7.5.2/demo/misc1/timelib/time02.f0000644000175000017500000000222414760053155016765 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM TIME02 CHARACTER CFORM*24 WRITE(*,*) '*** TEST FOR CHARACTER TIME & TIME INQUIRY' WRITE(*,*) '*** TYPE-1' CFORM='HH,MM,SS' WRITE(*,*) 'CFORM = ',CFORM CALL TIMEQ1(ITIME) CALL TIMEC1(CFORM,ITIME) WRITE(*,*) 'AFTER CALLING TIMEQ1(ITIME)' WRITE(*,*) ' AND TIMEC1(CFORM,ITIME)' WRITE(*,*) 'CFORM = ',CFORM WRITE(*,*) '*** TYPE-2' CFORM='HHhMMmSSs' WRITE(*,*) 'CFORM = ',CFORM CALL TIMEQ2(ITT) CALL TIMEC2(CFORM,ITT) WRITE(*,*) 'AFTER CALLING TIMEQ2(ITT)' WRITE(*,*) ' AND TIMEC2(CFORM,ITT)' WRITE(*,*) 'CFORM = ',CFORM WRITE(*,*) '*** TYPE-3' CFORM='HH:MM:SS' WRITE(*,*) 'CFORM = ',CFORM CALL TIMEQ3(IH,IM,IS) CALL TIMEC3(CFORM,IH,IM,IS) WRITE(*,*) 'AFTER CALLING TIMEQ3(IH,IM,IS)' WRITE(*,*) ' AND TIMEC3(CFORM,IH,IM,IS)' WRITE(*,*) 'CFORM = ',CFORM END dcl-7.5.2/demo/misc1/timelib/time01.f0000644000175000017500000000151314760053155016764 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM TIME01 WRITE(*,*) '*** TEST FOR TIME CONVERSION' ITIME=100930 WRITE(*,*) 'ITIME = ',ITIME CALL TIME12(ITIME,ITT) WRITE(*,*) 'AFTER CALLING TIME12(ITIME,ITT)' WRITE(*,*) 'ITT = ',ITT CALL TIME21(JTIME,ITT) WRITE(*,*) 'AFTER CALLING TIME21(JTIME,ITT)' WRITE(*,*) 'JTIME = ',JTIME CALL TIME13(JTIME,IH,IM,IS) WRITE(*,*) 'AFTER CALLING TIME13(JTIME,IH,IM,IS)' WRITE(*,*) 'IH = ',IH,' : IM = ',IM,' : IS = ',IS CALL TIME31(KTIME,IH,IM,IS) WRITE(*,*) 'AFTER CALLING TIME31(KTIME,IH,IM,IS)' WRITE(*,*) 'KTIME = ',KTIME END dcl-7.5.2/demo/misc1/chglib/0000755000175000017500000000000014760053155015321 5ustar uwabamiuwabamidcl-7.5.2/demo/misc1/chglib/Makefile0000644000175000017500000000043414760053155016762 0ustar uwabamiuwabami# # Makefile for chglib (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = chglib LIBSRCS = chgl01.f LIBDEMO = chgl01 LIBEXEC = chgl01$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ core *.trace dcl-7.5.2/demo/misc1/chglib/chgl01.f0000644000175000017500000000104614760053155016547 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM CHGL01 CHARACTER CH*16 CH='ABCDefgh' WRITE(*,'(A,A)') ' CH = ',CH CALL CUPPER(CH) WRITE(*,'(A)') ' AFTER CALLING CUPPER' WRITE(*,'(A,A)') ' CH = ',CH CH='ABCDefgh' CALL CLOWER(CH) WRITE(*,'(A)') ' AFTER CALLING CLOWER' WRITE(*,'(A,A)') ' CH = ',CH END dcl-7.5.2/demo/misc1/clcklib/0000755000175000017500000000000014760053155015474 5ustar uwabamiuwabamidcl-7.5.2/demo/misc1/clcklib/clck01.f0000644000175000017500000000106514760053155016722 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM CLCK01 WRITE(*,*) '*** TEST FOR MEASURING RUNTIME' CALL CLCKST ISEED=1 X=RNGU1(ISEED) DO 10 I=1,10000000 X=RNGU1(ISEED) SX=SIN(X) 10 CONTINUE CALL CLCKGT(TIME) CALL CLCKDT(DT0) WRITE(*,*) '*** EXECUTION TIME = ',TIME WRITE(*,*) '*** PRECISION = ',DT0 END dcl-7.5.2/demo/misc1/clcklib/Makefile0000644000175000017500000000043614760053155017137 0ustar uwabamiuwabami# # Makefile for clcklib (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = clcklib LIBSRCS = clck01.f LIBDEMO = clck01 LIBEXEC = clck01$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ core *.trace dcl-7.5.2/demo/misc1/hexlib/0000755000175000017500000000000014760053155015344 5ustar uwabamiuwabamidcl-7.5.2/demo/misc1/hexlib/hexl01.f0000644000175000017500000000075014760053155016616 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM HEXL01 CHARACTER CHEX*8 CHEX='ABCD' LH=LENC(CHEX) CALL HEXDCI(CHEX(1:LH),IHEX) WRITE(*,*) 'CHEX = ',CHEX(1:LH) WRITE(*,*) 'IHEX = ',IHEX CALL HEXDIC(IHEX,CHEX(1:LH)) WRITE(*,*) 'CHEX = ',CHEX(1:LH) END dcl-7.5.2/demo/misc1/hexlib/Makefile0000644000175000017500000000043414760053155017005 0ustar uwabamiuwabami# # Makefile for hexlib (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = hexlib LIBSRCS = hexl01.f LIBDEMO = hexl01 LIBEXEC = hexl01$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ core *.trace dcl-7.5.2/demo/misc1/Makefile0000644000175000017500000000101114760053155015522 0ustar uwabamiuwabami# # Makefile for misc1 # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../Mkinclude SUBDIRS = bitlib chglib chklib chnlib clcklib datelib fmtlib \ hexlib misclib randlib timelib clsplib all: @for i in $(SUBDIRS) ; do \ cd $$i ; \ echo "Making $$i" ; \ $(MAKE) ; \ cd .. ; \ done clean: clean.local clean.dir clean.local: $(RM) *~ clean.dir: @for i in $(SUBDIRS) ; do \ cd $$i ; \ echo "Cleaning $$i" ; \ $(MAKE) clean ; \ cd .. ; \ done dcl-7.5.2/demo/misc1/datelib/0000755000175000017500000000000014760053155015475 5ustar uwabamiuwabamidcl-7.5.2/demo/misc1/datelib/Makefile0000644000175000017500000000062314760053155017136 0ustar uwabamiuwabami# # Makefile for datelib (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = datelib LIBSRCS = date01.f date02.f date03.f date04.f LIBDEMO = date01 date02 date03 date04 LIBEXEC = date01$(EXT) date02$(EXT) date03$(EXT) date04$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ core *.trace dcl-7.5.2/demo/misc1/datelib/date04.f0000644000175000017500000000226014760053155016725 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM DATE04 CHARACTER CFORM*24 WRITE(*,*) '*** TEST FOR CHARACTER DATE & DATE INQUIRY' WRITE(*,*) '*** TYPE-1' CFORM='YYYY,MM,DD' WRITE(*,*) 'CFORM = ',CFORM CALL DATEQ1(IDATE) CALL DATEC1(CFORM,IDATE) WRITE(*,*) 'AFTER CALLING DATEQ1(IDATE)' WRITE(*,*) ' AND DATEC1(CFORM,IDATE)' WRITE(*,*) 'CFORM = ',CFORM WRITE(*,*) '*** TYPE-2' CFORM='CCCCCCCCC DD,YYYY' WRITE(*,*) 'CFORM = ',CFORM CALL DATEQ2(IY,ITD) CALL DATEC2(CFORM,IY,ITD) WRITE(*,*) 'AFTER CALLING DATEQ2(IY,ITD)' WRITE(*,*) ' AND DATEC2(CFORM,IY,ITD)' WRITE(*,*) 'CFORM = ',CFORM WRITE(*,*) '*** TYPE-3' CFORM='YY/MM/DD (WWW)' WRITE(*,*) 'CFORM = ',CFORM CALL DATEQ3(IY,IM,ID) CALL DATEC3(CFORM,IY,IM,ID) WRITE(*,*) 'AFTER CALLING DATEQ3(IY,IM,ID)' WRITE(*,*) ' AND DATEC3(CFORM,IY,IM,ID)' WRITE(*,*) 'CFORM = ',CFORM END dcl-7.5.2/demo/misc1/datelib/date02.f0000644000175000017500000000256414760053155016732 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM DATE02 WRITE(*,*) '*** TEST FOR DATE COUNT' WRITE(*,*) '*** TYPE-1' IDATE=19890215 WRITE(*,*) 'IDATE = ',IDATE CALL DATEF1(500,IDATE,JDATE) WRITE(*,*) 'AFTER CALLING DATEF1(500,IDATE,JDATE)' WRITE(*,*) 'JDATE = ',JDATE CALL DATEG1(ND,IDATE,JDATE) WRITE(*,*) 'AFTER CALLING DATEG1(ND,IDATE,JDATE)' WRITE(*,*) 'ND = ',ND WRITE(*,*) '*** TYPE-2' IY=1989 ITD=46 WRITE(*,*) 'IY = ',IY,' : ITD = ',ITD CALL DATEF2(-80,IY,ITD,JY,JTD) WRITE(*,*) 'AFTER CALLING DATEF2(-80,IY,ITD,JY,JTD)' WRITE(*,*) 'JY = ',JY,' : JTD = ',JTD CALL DATEG2(ND,IY,ITD,JY,JTD) WRITE(*,*) 'AFTER CALLING DATEG1(ND,IY,ITD,JY,JTD)' WRITE(*,*) 'ND = ',ND WRITE(*,*) '*** TYPE-3' IY=1989 IM=2 ID=15 WRITE(*,*) 'IY = ',IY,' : IM = ',IM,' : ID = ',ID CALL DATEF3(120,IY,IM,ID,JY,JM,JD) WRITE(*,*) 'AFTER CALLING DATEF3(120,IY,IM,ID,JY,JM,JD)' WRITE(*,*) 'JY = ',JY,' : JM = ',JM,' : JD = ',JD CALL DATEG3(ND,IY,IM,ID,JY,JM,JD) WRITE(*,*) 'AFTER CALLING DATEG3(ND,IY,IM,ID,JY,JM,JD)' WRITE(*,*) 'ND = ',ND END dcl-7.5.2/demo/misc1/datelib/date01.f0000644000175000017500000000154714760053155016731 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM DATE01 WRITE(*,*) '*** TEST FOR DATE CONVERSION' IDATE=19890215 WRITE(*,*) 'IDATE = ',IDATE CALL DATE12(IDATE,IY,ITD) WRITE(*,*) 'AFTER CALLING DATE12(IDATE,IY,ITD)' WRITE(*,*) 'IY = ',IY,' : ITD = ',ITD CALL DATE21(JDATE,IY,ITD) WRITE(*,*) 'AFTER CALLING DATE21(JDATE,IY,ITD)' WRITE(*,*) 'JDATE = ',JDATE CALL DATE13(JDATE,IY,IM,ID) WRITE(*,*) 'AFTER CALLING DATE13(JDATE,IY,IM,ID)' WRITE(*,*) 'IY = ',IY,' : IM = ',IM,' : ID = ',ID CALL DATE31(KDATE,IY,IM,ID) WRITE(*,*) 'AFTER CALLING DATE31(KDATE,IY,IM,ID)' WRITE(*,*) 'KDATE = ',KDATE END dcl-7.5.2/demo/misc1/datelib/date03.f0000644000175000017500000000140314760053155016722 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM DATE03 CHARACTER CWEEK*9 CALL DATEQ3(IY,IM,ID) CALL DATE31(IDATE,IY,IM,ID) CALL DATE32(IY,IM,ID,ITD) WRITE(*,*) '*** TYPE-1' WRITE(*,*) 'DATE = ',IDATE,' ;' WRITE(*,*) 'WEEK = ',CWEEK(IWEEK1(IDATE)) WRITE(*,*) '*** TYPE-2' WRITE(*,*) 'YEAR = ',IY,' ; TOTAL DAYS = ',ITD,' ;' WRITE(*,*) 'WEEK = ',CWEEK(IWEEK2(IY,ITD)) WRITE(*,*) '*** TYPE-3' WRITE(*,*) 'YEAR = ',IY,' ; MONTH = ',IM,' ; DAY = ',ID,' ;' WRITE(*,*) 'WEEK = ',CWEEK(IWEEK3(IY,IM,ID)) END dcl-7.5.2/demo/misc1/randlib/0000755000175000017500000000000014760053155015504 5ustar uwabamiuwabamidcl-7.5.2/demo/misc1/randlib/Makefile0000644000175000017500000000043614760053155017147 0ustar uwabamiuwabami# # Makefile for randlib (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = randlib LIBSRCS = rand01.f LIBDEMO = rand01 LIBEXEC = rand01$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ core *.trace dcl-7.5.2/demo/misc1/randlib/rand01.f0000644000175000017500000000072214760053155016741 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM RAND01 PARAMETER (NMAX=10000) ISEED=1 X=RNGU0(ISEED) NN=0 DO 10 I=1,NMAX Y=X X=RNGU0(ISEED) IF (X*X+Y*Y.LE.1) NN=NN+1 10 CONTINUE WRITE(*,*) 'PI = ',4.0*NN/NMAX END dcl-7.5.2/demo/misc1/misclib/0000755000175000017500000000000014760053155015513 5ustar uwabamiuwabamidcl-7.5.2/demo/misc1/misclib/fncl01.f0000644000175000017500000000120514760053155016743 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM FNCL01 CHARACTER CNS*1,CVER*12 WRITE(*,'(A)') ' *** TEST FOR DCLVNM' CALL DCLVNM(CVER) WRITE(*,'(2A)') ' VERSION NAME = ',CVER WRITE(*,'(A)') ' *** TEST FOR IUFOPN' IUNIT=IUFOPN() WRITE(*,'(A,I2)') ' AVAILABLE UNIT NUMBER = ',IUNIT WRITE(*,'(A)') ' *** TEST FOR CNS' WRITE(*,'(2A)') ' CNS(+1) = ',CNS(+1) WRITE(*,'(2A)') ' CNS(-1) = ',CNS(-1) END dcl-7.5.2/demo/misc1/misclib/Makefile0000644000175000017500000000043414760053155017154 0ustar uwabamiuwabami# # Makefile for fnclib (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = fnclib LIBSRCS = fncl01.f LIBDEMO = fncl01 LIBEXEC = fncl01$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ core *.trace dcl-7.5.2/demo/misc1/chklib/0000755000175000017500000000000014760053155015325 5ustar uwabamiuwabamidcl-7.5.2/demo/misc1/chklib/chkl01.f0000644000175000017500000000431314760053155016557 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM CHKL01 LOGICAL LCHRB,LCHRC,LCHRS,LCHRL,LCHRD,LCHRA,LCHRF,LCHR CHARACTER CH*4,CHAR*8,CREF*8 EXTERNAL LCHRB,LCHRC,LCHRS,LCHRL,LCHRD,LCHRA,LCHRF,LCHR WRITE(*,100) ' *** TEST FOR LCHRB' CH=' ' WRITE(*,200) ' CH = ''',CH,'''',' : LCHRB = ',LCHRB(CH) CH='1 A' WRITE(*,200) ' CH = ''',CH,'''',' : LCHRB = ',LCHRB(CH) WRITE(*,100) ' *** TEST FOR LCHRC' CH='$$$$' WRITE(*,200) ' CH = ''',CH,'''',' : LCHRC = ',LCHRC(CH) CH='$$$A' WRITE(*,200) ' CH = ''',CH,'''',' : LCHRC = ',LCHRC(CH) WRITE(*,100) ' *** TEST FOR LCHRS' CH='*.(/' WRITE(*,200) ' CH = ''',CH,'''',' : LCHRS = ',LCHRS(CH) CH='2.(/' WRITE(*,200) ' CH = ''',CH,'''',' : LCHRS = ',LCHRS(CH) WRITE(*,100) ' *** TEST FOR LCHRL' CH='ABCD' WRITE(*,200) ' CH = ''',CH,'''',' : LCHRL = ',LCHRL(CH) CH='AB+D' WRITE(*,200) ' CH = ''',CH,'''',' : LCHRL = ',LCHRL(CH) WRITE(*,100) ' *** TEST FOR LCHRD' CH='9876' WRITE(*,200) ' CH = ''',CH,'''',' : LCHRD = ',LCHRD(CH) CH='987A' WRITE(*,200) ' CH = ''',CH,'''',' : LCHRD = ',LCHRD(CH) WRITE(*,100) ' *** TEST FOR LCHRA' CH='AS23' WRITE(*,200) ' CH = ''',CH,'''',' : LCHRA = ',LCHRA(CH) CH='A 23' WRITE(*,200) ' CH = ''',CH,'''',' : LCHRA = ',LCHRA(CH) WRITE(*,100) ' *** TEST FOR LCHRF' CH='A*2=' WRITE(*,200) ' CH = ''',CH,'''',' : LCHRF = ',LCHRF(CH) CH='A#2=' WRITE(*,200) ' CH = ''',CH,'''',' : LCHRF = ',LCHRF(CH) WRITE(*,100) ' *** TEST FOR LCHR' CHAR='A=B*2+12' CREF='LSLSDSAF' WRITE(*,300) ' CHAR = ''',CHAR,'''' WRITE(*,300) ' CREF = ''',CREF,'''' WRITE(*,400) ' LCHR = ',LCHR(CHAR,CREF) CHAR='A=B*2+12' CREF='LSDSDSAF' WRITE(*,300) ' CHAR = ''',CHAR,'''' WRITE(*,300) ' CREF = ''',CREF,'''' WRITE(*,400) ' LCHR = ',LCHR(CHAR,CREF) 100 FORMAT(A) 200 FORMAT(4A,L4) 300 FORMAT(3A) 400 FORMAT(A,L4) END dcl-7.5.2/demo/misc1/chklib/Makefile0000644000175000017500000000043414760053155016766 0ustar uwabamiuwabami# # Makefile for chklib (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = chklib LIBSRCS = chkl01.f LIBDEMO = chkl01 LIBEXEC = chkl01$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ core *.trace dcl-7.5.2/demo/misc1/fmtlib/0000755000175000017500000000000014760053155015346 5ustar uwabamiuwabamidcl-7.5.2/demo/misc1/fmtlib/Makefile0000644000175000017500000000043414760053155017007 0ustar uwabamiuwabami# # Makefile for fmtlib (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = fmtlib LIBSRCS = fmtl01.f LIBDEMO = fmtl01 LIBEXEC = fmtl01$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ core *.trace dcl-7.5.2/demo/misc1/fmtlib/fmtl01.f0000644000175000017500000000136114760053155016621 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM FMTL01 PARAMETER (N=3) REAL VAL(N) CHARACTER CVAL*8 DATA VAL / 0.0, -0.012, 1230000 / DO 10 I=1,N WRITE(*,*) 'VAL = ',VAL(I) CALL CHVAL('A',VAL(I),CVAL) WRITE(*,*) 'OPTION=A : VAL = ',CVAL CALL CHVAL('B',VAL(I),CVAL) WRITE(*,*) 'OPTION=B : VAL = ',CVAL CALL CHVAL('C',VAL(I),CVAL) WRITE(*,*) 'OPTION=C : VAL = ',CVAL CALL CHVAL('D',VAL(I),CVAL) WRITE(*,*) 'OPTION=D : VAL = ',CVAL 10 CONTINUE END dcl-7.5.2/demo/misc1/clsplib/0000755000175000017500000000000014760053155015521 5ustar uwabamiuwabamidcl-7.5.2/demo/misc1/clsplib/Makefile0000644000175000017500000000043614760053155017164 0ustar uwabamiuwabami# # Makefile for clsplib (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = clsplib LIBSRCS = cslb01.f LIBDEMO = cslb01 LIBEXEC = cslb01$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ core *.trace dcl-7.5.2/demo/misc1/clsplib/cslb01.f0000644000175000017500000000207714760053155016762 0ustar uwabamiuwabami program cslib01 PARAMETER (NX=100, NY=100, LEVEL=256) REAL R(NX,NY),B(NX,NY),G(NX,NY) REAL RC(NX,NY),BC(NX,NY),GC(NX,NY) INTEGER I do i=1,nx do j=1,ny r(i,j) = exp(-((i-nx/2. )**2. + (j-ny/2.)**2. ) / 5000.) g(i,j) = exp(-((i-nx/1.1)**2. + (j-ny/1.2)**2.) / 1000.) b(i,j) = exp(-((i-ny/3. )**2. + (j-ny/5.)**2. ) / 3000.) end do end do CALL RNORML(R,RC,NX,NY,0.0,1.0) CALL RNORML(G,GC,NX,NY,0.2,1.0) CALL RNORML(B,BC,NX,NY,0.0,1.0) CALL SWISET('WINDOW_HEIGHT', 300) CALL SWISET('WINDOW_WIDTH', 300) WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL GROPN(IWS) CALL GRFRM CALL GRSWND( -1., 1., -1., 1.) CALL GRSVPT(.1, .9, .1, .9) CALL GRSTRN(1) CALL GRSTRF call prcopn('DclPaintGrid3') call uipda3(rc, gc, bc, nx, nx, ny) call prccls('DclPaintGrid3') CALL UXAXDV('T', .1, .5) CALL UXAXDV('B', .1, .5) CALL UYAXDV('L', .1, .5) CALL UYAXDV('R', .1, .5) CALL GRCLS end dcl-7.5.2/demo/misc1/bitlib/0000755000175000017500000000000014760053155015336 5ustar uwabamiuwabamidcl-7.5.2/demo/misc1/bitlib/Makefile0000644000175000017500000000043414760053155016777 0ustar uwabamiuwabami# # Makefile for bitlib (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = bitlib LIBSRCS = bitl01.f LIBDEMO = bitl01 LIBEXEC = bitl01$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ core *.trace dcl-7.5.2/demo/misc1/bitlib/bitl01.f0000644000175000017500000000113314760053155016576 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM BITL01 CHARACTER CP*32 DATA IP/255/ CALL BITPIC(IP,CP) CALL BITPCI(CP,JP) WRITE(*,'(A,I8)') ' INTEGER CONSTANT IP = ',IP WRITE(*,'(A)') ' AFTER CALLING BITPIC(IP,CP)' WRITE(*,'(A,A)') ' BIT PATTERN CP = ',CP WRITE(*,'(A)') ' AFTER CALLING BITPCI(CP,JP)' WRITE(*,'(A,I8)') ' INTEGER CONSTANT JP = ',JP END dcl-7.5.2/demo/misc1/chnlib/0000755000175000017500000000000014760053155015330 5ustar uwabamiuwabamidcl-7.5.2/demo/misc1/chnlib/chnl02.f0000644000175000017500000000124114760053155016563 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM CHNL02 CHARACTER CTEXT*80,CA*8,CFMT*16 CTEXT='ERROR NUMBER = ###.' CA='###' II=12 CFMT='(I3.3)' WRITE(*,*) 'CTEXT = ',CTEXT(1:LENC(CTEXT)) WRITE(*,*) 'CA = ',CA WRITE(*,*) 'II = ',II WRITE(*,*) 'CFMT = ',CFMT WRITE(*,*) 'AFTER CALLING CHNGI(CTEXT,CA,II,CFMT)' CALL CHNGI(CTEXT(1:LENC(CTEXT)),CA(1:LENC(CA)),II,CFMT) WRITE(*,*) 'CTEXT = ',CTEXT(1:LENC(CTEXT)) END dcl-7.5.2/demo/misc1/chnlib/Makefile0000644000175000017500000000055214760053155016772 0ustar uwabamiuwabami# # Makefile for chnlib (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = chnlib LIBSRCS = chnl01.f chnl02.f chnl03.f LIBDEMO = chnl01 chnl02 chnl03 LIBEXEC = chnl01$(EXT) chnl02$(EXT) chnl03$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ core *.trace dcl-7.5.2/demo/misc1/chnlib/chnl01.f0000644000175000017500000000115514760053155016566 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM CHNL01 CHARACTER CTEXT*80,CA*8,CB*8 CTEXT='THIS MONTH IS ###.' CA='###' CB='APR' WRITE(*,*) 'CTEXT = ',CTEXT(1:LENC(CTEXT)) WRITE(*,*) 'CA = ',CA WRITE(*,*) 'CB = ',CB CALL CHNGC(CTEXT(1:LENC(CTEXT)),CA(1:LENC(CA)),CB(1:LENC(CB))) WRITE(*,*) 'AFTER CALLING CHNGC(CTEXT,CA,CB)' WRITE(*,*) 'CTEXT = ',CTEXT(1:LENC(CTEXT)) END dcl-7.5.2/demo/misc1/chnlib/chnl03.f0000644000175000017500000000126014760053155016565 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM CHNL03 CHARACTER CTEXT*80,CA*8,CFMT*16 CTEXT='CONTOUR INTERVAL = ########.' CA='########' RR=1.2 CFMT='(F8.4)' WRITE(*,*) 'CTEXT = ',CTEXT(1:LENC(CTEXT)) WRITE(*,*) 'CA = ',CA WRITE(*,*) 'RR = ',RR WRITE(*,*) 'CFMT = ',CFMT WRITE(*,*) 'AFTER CALLING CHNGI(CTEXT,CA,RR,CFMT)' CALL CHNGR(CTEXT(1:LENC(CTEXT)),CA(1:LENC(CA)),RR,CFMT) WRITE(*,*) 'CTEXT = ',CTEXT(1:LENC(CTEXT)) END dcl-7.5.2/demo/grph2/0000755000175000017500000000000014760053155014077 5ustar uwabamiuwabamidcl-7.5.2/demo/grph2/g2pack/0000755000175000017500000000000014760053155015246 5ustar uwabamiuwabamidcl-7.5.2/demo/grph2/g2pack/Makefile0000644000175000017500000000054314760053155016710 0ustar uwabamiuwabami# # Makefile for g2pack (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = g2pack LIBSRCS = g2pk01.f g2pk02.f LIBDEMO = g2pk01 g2pk02 LIBEXEC = g2pk01$(EXT) g2pk02$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ *.ps core *.trace *.eps *.svg *.pdf a.out dcl-7.5.2/demo/grph2/g2pack/g2pk01.f0000644000175000017500000000351414760053155016424 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM G2PK01 PARAMETER(NX=15,NY=15) REAL UX(NX), UY(NY) REAL UYW(NX), UXW(NY) REAL CX(NX,NY), CY(NX,NY) REAL Z(NX,NY) * / SET PARAMETERS / DO 10 I=1,NX UX(I)=(I-1.0)/(NX-1.0) 10 CONTINUE DO 15 J=1,NY UY(J)=(J-1.0)/(NY-1.0) 15 CONTINUE DO 25 J=1,NY DO 20 I=1,NX CX(I,J) = UX(I) + 0.1*UY(J) CY(I,J) = 0.2*UX(I) + UY(J) 20 CONTINUE 25 CONTINUE CXMIN = 0.0 CXMAX = 1.1 CYMIN = 0.0 CYMAX = 1.1 * / GRAPHIC / WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL GROPN(IWS) CALL GRFRM CALL GRSVPT(0.15,0.85,0.15,0.85) CALL GRSWND(UX(1),UX(NX),UY(1),UY(NY)) CALL G2SCTR(NX,NY,UX,UY,CX,CY) CALL GRSTRN(51) CALL SGSCWD(CXMIN,CXMAX,CYMIN,CYMAX) CALL GRSTRF CALL SGLSET('LCLIP',.TRUE.) * / TONE / DO 35 J=1,NY DO 30 I=1,NX Z(I,J) = UX(I) + UY(J) 30 CONTINUE 35 CONTINUE CALL UELSET('LTONE',.TRUE.) CALL UWSGXA(UX,NX) CALL UWSGYA(UY,NY) CALL UETONE(Z, NX, NX, NY) * / GRID LINES / DO 45 J=1,NY DO 40 I=1,NX UYW(I) = UY(J) 40 CONTINUE CALL SGPLU(NX,UX,UYW) 45 CONTINUE DO 55 I=1,NX DO 50 J=1,NY UXW(J) = UX(I) 50 CONTINUE CALL SGPLU(NY,UXW,UY) 55 CONTINUE * / AXES (Switch to ITR==1) / CALL GRSWND(CXMIN,CXMAX,CYMIN,CYMAX) CALL GRSTRN(1) CALL GRSTRF CALL USDAXS CALL UXSTTL('T','BOTH X & Y TRANSFORMED',0.0) CALL GRCLS END dcl-7.5.2/demo/grph2/g2pack/g2pk02.f0000644000175000017500000000352614760053155016430 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM G2PK02 PARAMETER(NX=15,NY=15) REAL UX(NX), UY(NY) REAL UYW(NX), UXW(NY) REAL CX(NX,NY), CY(NX,NY) REAL Z(NX,NY) REAL TERRAIN(NX) * / SET PARAMETERS / CALL GLRGET('RUNDEF',RUNDEF) DO 10 I=1,NX UX(I)=(I-1.0)/(NX-1.0) - 0.5 TERRAIN(I) = 0.1 * EXP(-24*UX(I)**2) 10 CONTINUE DO 15 J=1,NY UY(J)=(J-1.0)/(NY-1.0) 15 CONTINUE CX(1,1) = RUNDEF DO 25 J=1,NY DO 20 I=1,NX CY(I,J) = UY(J)*(1.0-TERRAIN(I)) + TERRAIN(I) 20 CONTINUE 25 CONTINUE * / GRAPHIC / WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL GROPN(IWS) CALL GRFRM CALL GRSVPT(0.15,0.85,0.15,0.85) CALL GRSWND(UX(1),UX(NX),UY(1),UY(NY)) CALL GRSTRN(51) CALL G2SCTR(NX, NY, UX,UY, CX,CY) CALL GRSTRF * / TONE / DO 35 J=1,NY DO 30 I=1,NX Z(I,J) = UX(I) * (1-UY(J)) 30 CONTINUE 35 CONTINUE CALL UELSET('LTONE',.TRUE.) CALL UWSGXA(UX,NX) CALL UWSGYA(UY,NY) CALL UETONE(Z, NX, NX, NY) * / GRID LINES / DO 45 J=1,NY DO 40 I=1,NX UYW(I) = UY(J) 40 CONTINUE CALL SGPLU(NX,UX,UYW) 45 CONTINUE DO 55 I=1,NX DO 50 J=1,NY UXW(J) = UX(I) 50 CONTINUE CALL SGPLU(NY,UXW,UY) 55 CONTINUE * / AXES (Switch to ITR==1) / CALL G2QCTM(CXMIN, CXMAX, CYMIN, CYMAX) CALL GRSWND(CXMIN,CXMAX,CYMIN,CYMAX) CALL GRSTRN(1) CALL GRSTRF CALL USDAXS CALL UXSTTL('T','TERRAIN FOLLOWING',0.0) CALL GRCLS END dcl-7.5.2/demo/grph2/ximage/0000755000175000017500000000000014760053155015351 5ustar uwabamiuwabamidcl-7.5.2/demo/grph2/ximage/Makefile0000644000175000017500000000045514760053155017015 0ustar uwabamiuwabami# # Makefile for ximage (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = ximage LIBSRCS = ximg01.f LIBDEMO = ximg01 LIBEXEC = ximg01$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ *.ps *.gif *.xwd core *.trace dcl-7.5.2/demo/grph2/ximage/ximg01.f0000644000175000017500000000760514760053155016635 0ustar uwabamiuwabami*----------------------------------------------------------------------- * TOMS OZONE DISTRIBUTION (MONTHLY MEAN CLIMATOLOGY) *----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM XIMG01 PARAMETER (KXBK=12,IXBK=KXBK*2+1,JXBK=37) PARAMETER (IXBG=73,JXBG=37) PARAMETER (IXGX=361,JXGX=181) PARAMETER (NCL=100, NCL1=NCL+1) INTEGER IPATN(NCL) REAL BKDATA(IXBK,JXBK),BGDATA(IXBG,JXBG),GXDATA(IXGX,JXGX), + TLEVN(NCL1) CHARACTER CDSN*80 EXTERNAL ISGTRC DO 10 I=1, NCL IPATN(I) = MAX(11, I) *1000 + 999 10 CONTINUE DO 20 I=1,NCL+1 TLEVN(I) = I*3.0 + 200 20 CONTINUE CDSN='tomsclm.dat' OPEN(11,FILE=CDSN,FORM='FORMATTED') CALL SWLSTX('LWAIT', .TRUE.) CALL SWLSTX('LWAIT0', .FALSE.) CALL SWLSTX('LALT', .FALSE.) CALL SWISTX('IPOSX', 200) CALL SWISTX('IPOSY', 200) CALL SWISTX('IWIDTH', 800) CALL SWISTX('IHEIGHT', 400) CALL SGPWSN READ(*,*) IWS CALL GROPN(IWS) CALL GLLSET('LMISS', .TRUE.) CALL GLRGET('RMISS', RMISS) CALL SGLSET('LFULL', .TRUE.) CALL SGLSET('LSOFTF', .FALSE.) CALL UMLSET('LGLOBE', .TRUE.) CALL SLRAT(1.0, 0.5) DO 100 M=1, 12 READ(11,'(TR9,I2)') MON DO 30 J=1,JXBK READ(11,'(F8.3,8F8.3,2(/TR8,8F8.3))') + (BKDATA(I,J),I=1,IXBK) 30 CONTINUE CALL BKTOBG(BKDATA,BGDATA) CALL RSET0(GXDATA,IXGX*JXGX,1,RMISS) DO 40 J=1,JXBG JJ=(J-1)*5+1 CALL VRSET(BGDATA(1,J),GXDATA(1,JJ),IXBG,1,5) CALL VRINTR(GXDATA(1,JJ),IXGX,1) 40 CONTINUE DO 50 I=1,IXGX CALL VRINTR(GXDATA(I,1),JXGX,IXGX) 50 CONTINUE CALL GRFRM CALL GRSWND(0., 360., -90., 90.) CALL GRSMPL(180., 90., 0.) CALL GRSTRN(ISGTRC('HMR')) CALL UMPFIT CALL GRSTRF CALL UEITLV CALL UESTLN(TLEVN, IPATN, NCL) CALL UETONF(GXDATA, IXGX, IXGX, JXGX) CALL SLPWWR(1) CALL SLPWWR(1) CALL UMPGRD CALL UMPLIM CALL UMPMAP('coast_world') 100 CONTINUE CALL GRCLS END *----------------------------------------------------------------------- * BKTOBG *----------------------------------------------------------------------- SUBROUTINE BKTOBG(BKDATA,BGDATA) PARAMETER (IXBG=73,JXBG=37) REAL BKDATA(*),BGDATA(IXBG,JXBG) CALL GLRGET('RMISS',RMISS) * CALL DTPGET('MAXWN',KX) KX=12 IXBK=KX*2+1 JXBK=JXBG DO 10 J=1,JXBG IDXBK=IXBK*(J-1)+1 IF (BKDATA(IDXBK).EQ.RMISS) THEN CALL RSET0(BGDATA(1,J),IXBG,1,RMISS) ELSE CALL FFTEZB(BKDATA(IDXBK),KX,BGDATA(1,J),IXBG-1) BGDATA(IXBG,J)=BGDATA(1,J) END IF 10 CONTINUE END *----------------------------------------------------------------------- SUBROUTINE FFTEZB(FC,MAXWN,X,NX) REAL X(NX),FC(0:MAXWN*2) PARAMETER (NMAX=512,NWORK=NMAX*2+15) REAL Y(NMAX+1),WSAVE(NWORK) CHARACTER CMSG*80 SAVE DATA NN/0/ IF (NX.GT.NMAX) THEN CMSG='WORKING AREA IS NOT ENOUGH / NX SHOULD BE .LE. ####.' WRITE(CMSG(48:51),'(I4)') NMAX CALL MSGDMP('E','FFTEZB',CMSG) END IF IF (NX.LT.MAXWN*2) THEN CMSG='MAXWN CANNOT BE CALCULATED / NX SOULD BE .GE. MAXWN*2.' CALL MSGDMP('E','FFTEZB',CMSG) END IF IF (NX.NE.NN) THEN CALL RFFTI(NX,WSAVE) NN=NX END IF CALL RSET0(Y,NX+1,1,0.0) CALL VRSET(FC,Y,MAXWN*2+1,1,1) CALL RMLT0(Y(2),MAXWN,2,+0.5) CALL RMLT0(Y(3),MAXWN,2,-0.5) CALL RFFTB(NX,Y,WSAVE) CALL VRSET(Y,X,NX,1,1) END dcl-7.5.2/demo/grph2/ximage/MEMO0000644000175000017500000000110514760053155016026 0ustar uwabamiuwabami# このディレクトリに含まれるデモプログラムの説明 このディレクトリには以下のファイルがある. ximg01.f : ビットイメージで表現するためのテストプログラム. tomsclmt.dat : ximg01.f で用いるデータ. TOMS の月平均オゾン全量データ (月ごと12カ月分) MEMO : このメモ. 実行時に ximg01 -sw:ldump=.true. とすると, dcl_NNN.xwd というダンプファイルを生成する. その後 animate *.xwd などによって, アニメーションが可能である. dcl-7.5.2/demo/grph2/ximage/tomsclm.dat0000644000175000017500000027614414760053155017537 0ustar uwabamiuwabami month = 1 308.089 0.312 1.073 0.150 -0.379 0.211 0.142 -0.059 -0.138 0.088 0.039 -0.016 -0.123 -0.059 0.005 -0.034 0.013 0.059 0.024 -0.013 -0.076 0.008 0.007 -0.001 -0.060 311.893 -0.950 0.698 1.378 -1.094 -0.096 -0.320 -0.391 0.488 0.197 0.043 0.042 -0.229 -0.164 -0.067 -0.152 0.046 0.122 0.068 -0.007 -0.132 0.008 0.053 0.004 -0.139 316.274 -2.655 0.599 3.058 -3.255 -1.281 -0.779 -0.400 0.782 -0.110 -0.092 0.371 -0.358 -0.304 -0.157 -0.193 -0.077 -0.107 0.320 0.074 -0.122 0.059 0.056 -0.170 -0.128 321.974 -0.680 2.536 0.073 -2.427 -0.695 0.588 0.074 -0.486 0.521 -0.634 0.122 0.093 0.285 0.280 -0.628 -0.529 -0.147 -0.407 0.076 -0.315 -0.044 0.068 -0.195 0.209 329.505 3.507 5.417 -1.692 -0.527 -0.056 1.870 -0.114 0.646 0.512 0.224 -0.082 0.265 0.601 0.180 -0.597 -0.806 0.307 -0.617 0.107 0.014 0.303 0.143 0.091 0.053 336.813 5.829 7.359 -3.584 0.576 1.657 0.979 -0.090 1.098 -0.172 -0.642 0.151 0.005 0.570 -0.135 -0.038 -0.451 -0.385 0.049 -0.274 -0.004 -0.017 0.010 0.257 0.067 341.979 9.278 8.386 -3.174 1.671 2.733 0.829 0.322 0.554 -0.328 -0.852 -0.399 -0.117 0.195 0.271 -0.080 0.071 -0.020 -0.124 -0.047 -0.012 -0.127 0.026 -0.133 -0.017 339.849 10.733 8.221 -2.181 1.648 4.308 0.444 0.853 0.497 -0.651 -0.987 -0.711 -0.382 0.106 0.303 -0.114 0.215 0.201 -0.166 -0.101 0.021 0.014 -0.128 -0.178 -0.025 330.153 9.647 7.430 -0.629 0.731 4.692 0.289 1.327 0.505 -0.934 -0.851 -1.008 -0.121 0.049 0.436 -0.029 0.165 0.197 -0.144 -0.028 -0.009 0.017 -0.129 0.012 0.132 316.525 5.983 4.038 0.664 -0.076 3.642 -0.148 1.268 0.629 -0.639 -0.282 -1.087 -0.017 0.355 0.514 -0.021 0.202 0.110 -0.140 -0.104 -0.003 0.050 -0.035 -0.053 0.175 303.624 1.440 1.031 1.165 -0.155 1.972 -0.821 0.858 0.655 -0.544 -0.137 -0.898 -0.070 0.437 0.538 0.000 0.115 0.046 0.020 -0.014 -0.009 -0.025 -0.134 -0.112 -0.010 293.565 -0.555 0.561 1.574 0.551 0.573 -1.561 0.552 0.106 -0.763 0.116 -1.001 -0.165 0.525 0.663 -0.053 0.202 0.336 0.009 0.074 -0.230 -0.155 -0.057 -0.058 0.039 284.560 -0.459 0.722 1.389 0.975 -0.014 -1.395 0.600 -0.888 -0.821 0.350 -1.089 -0.123 0.937 0.267 0.299 0.433 0.562 0.026 0.227 -0.205 -0.116 0.233 -0.237 0.166 276.744 1.255 0.249 1.576 1.421 0.390 -0.923 0.621 -1.619 -0.552 0.283 -0.913 -0.136 0.648 -0.028 0.423 0.456 0.743 -0.232 0.191 -0.174 -0.065 0.386 -0.271 0.340 271.425 3.258 -0.461 1.685 0.908 1.960 -0.683 0.585 -1.993 -0.336 -0.186 -0.556 -0.325 0.239 0.169 0.348 0.551 0.736 -0.430 0.192 -0.023 -0.015 0.399 0.064 0.515 267.462 5.035 -1.000 2.014 -0.317 3.195 -1.184 0.232 -1.787 -0.219 -0.517 0.070 -0.413 0.422 0.277 0.548 0.400 0.444 -0.184 0.082 0.258 0.234 0.620 0.453 0.395 263.389 6.039 -1.446 2.125 -0.986 2.453 -1.476 -0.195 -0.857 0.058 -0.191 0.311 -0.279 0.254 0.206 0.481 0.292 0.195 0.218 -0.057 0.287 0.181 0.332 0.159 0.073 258.678 6.233 -1.406 2.628 -0.402 1.531 -1.388 0.081 -0.332 -0.061 0.370 0.253 -0.102 0.309 0.478 0.240 0.177 0.173 0.200 -0.335 0.122 -0.237 -0.030 -0.170 0.115 254.347 6.439 -1.006 2.520 0.727 1.447 -0.800 0.553 -0.596 0.269 0.060 0.070 0.063 0.309 0.208 0.332 0.285 0.048 0.060 -0.209 -0.123 -0.342 0.036 -0.236 0.063 251.099 5.631 -0.831 1.872 1.419 1.524 -0.843 0.750 -1.090 0.323 -0.340 0.130 0.211 0.401 0.327 0.269 0.087 0.041 0.001 -0.116 -0.052 -0.162 -0.042 -0.011 -0.110 248.139 3.960 -1.901 1.225 1.855 0.743 -1.635 0.266 -0.837 0.359 -0.059 0.228 0.101 0.118 0.446 0.136 0.314 -0.185 0.156 -0.216 -0.031 0.053 -0.059 0.121 -0.046 248.790 3.401 -4.413 0.537 2.169 0.127 -2.491 -0.789 -0.978 -0.225 -0.039 0.214 0.142 -0.081 0.446 0.163 0.446 0.094 0.196 -0.154 0.084 0.047 0.132 0.083 0.044 253.963 5.108 -6.697 0.435 2.176 1.522 -4.436 -1.349 -1.083 -1.064 -0.417 0.151 -0.108 -0.654 0.770 -0.380 0.477 0.275 -0.589 0.003 0.085 -0.037 0.547 0.277 -0.257 264.882 8.740 -5.269 0.136 2.990 3.815 -4.656 -0.849 -1.487 -1.231 -1.238 0.490 -0.210 -0.895 0.833 -0.566 -0.083 0.421 -0.636 -0.543 0.414 -0.260 0.407 0.535 -0.604 283.602 9.708 -0.281 0.466 3.663 5.080 -0.907 -0.359 0.002 -1.328 -3.028 0.915 0.330 -1.128 1.553 -1.049 -0.012 0.185 -0.966 -0.093 0.367 -0.434 0.992 -0.282 -0.249 310.978 1.714 9.025 1.061 1.492 1.926 6.017 -0.357 2.650 -0.125 -4.261 0.400 0.619 -1.110 1.128 -0.825 0.423 0.100 -0.498 -0.159 0.094 -0.176 0.109 0.172 -0.214 341.379 -14.608 18.051 1.018 -6.683 -4.029 13.017 0.481 4.679 2.226 -4.065 0.136 1.040 -0.398 0.985 -0.065 0.739 -0.857 0.000 -0.657 -0.249 0.268 -0.132 0.562 -0.098 364.722 -28.859 22.135 0.201 -14.462 -7.899 16.627 0.388 5.750 3.559 -3.527 -0.037 1.504 -0.226 1.288 -0.046 -0.064 -0.488 -0.415 -0.549 0.094 0.098 0.141 0.567 -0.250 378.082 -39.037 20.093 -0.399 -19.925 -8.284 17.283 -1.449 5.616 3.549 -3.034 0.013 2.070 0.381 0.970 0.149 -0.583 -0.378 -0.366 -0.065 0.478 -0.052 0.012 -0.098 -0.194 381.717 -46.145 13.380 -1.381 -21.764 -6.653 14.534 -1.290 4.903 3.351 -2.847 -0.313 2.198 -0.192 0.664 0.810 -0.072 -0.218 -0.133 0.358 -0.072 -0.342 0.104 -0.320 0.104 376.607 -52.317 4.804 -1.625 -19.113 -2.953 10.321 0.394 2.901 1.841 -2.684 -0.191 1.499 -0.729 0.088 0.493 0.261 0.055 0.099 0.116 0.035 -0.062 0.183 -0.153 0.055 373.535 -55.724 -1.685 -0.295 -12.192 0.019 6.449 0.878 0.721 0.468 -1.699 -0.215 0.769 -0.662 -0.397 -0.176 0.159 -0.140 0.116 0.116 0.454 0.135 0.007 0.155 0.091 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 month = 2 286.873 -1.015 2.756 0.444 -0.364 0.183 0.077 0.005 -0.106 0.023 -0.082 -0.074 -0.075 -0.029 0.009 -0.094 0.021 0.091 0.024 -0.008 -0.051 0.016 0.002 -0.007 -0.037 292.093 -3.868 4.964 2.865 -1.502 0.245 0.314 -0.199 0.271 0.237 0.042 0.036 -0.206 -0.215 -0.149 -0.164 0.031 0.067 0.085 0.018 -0.088 0.028 0.006 -0.021 -0.147 298.353 -5.849 7.161 5.658 -3.866 -1.253 0.409 -0.554 0.276 0.253 -0.087 0.357 -0.075 -0.217 -0.177 -0.187 -0.069 -0.158 0.261 0.123 0.007 0.078 0.059 -0.141 -0.155 305.216 -3.764 10.039 3.243 -1.965 -1.736 1.672 0.327 -0.779 0.430 -0.901 0.168 0.273 -0.025 0.436 -0.584 -0.361 -0.200 -0.354 0.242 -0.276 -0.159 0.201 -0.064 0.213 316.325 0.812 12.255 1.638 0.105 -0.555 2.963 1.099 0.367 0.502 0.265 -0.077 0.604 -0.114 0.400 -0.654 -0.342 0.148 -0.534 0.270 0.069 -0.044 0.249 0.186 0.159 325.447 3.953 13.435 -1.744 -1.451 1.229 3.452 0.192 0.999 0.461 0.445 0.083 0.547 -0.017 -0.007 -0.015 0.047 -0.199 0.106 -0.247 -0.022 -0.106 0.073 0.091 -0.075 327.572 7.569 12.056 -3.177 -2.164 3.548 4.278 -0.259 1.417 0.262 0.347 0.072 0.264 -0.283 -0.035 -0.022 -0.132 0.166 -0.026 -0.150 -0.175 0.076 -0.116 -0.064 -0.140 323.642 9.518 9.877 -3.291 -1.780 5.768 4.168 0.661 1.945 0.089 0.091 -0.143 -0.086 -0.410 0.018 0.044 0.018 0.056 -0.098 -0.267 -0.063 -0.100 -0.167 0.006 0.001 314.989 8.348 6.511 -1.883 -1.032 6.113 2.627 1.601 2.050 0.232 0.282 0.111 0.071 -0.090 0.308 0.113 0.105 0.065 -0.121 -0.307 -0.180 -0.206 -0.043 -0.003 0.246 304.698 3.986 2.881 -0.509 -0.316 4.424 0.633 1.933 1.798 0.280 0.318 0.448 0.340 0.248 0.424 -0.176 -0.017 0.043 -0.067 -0.191 0.061 -0.106 0.027 -0.031 0.153 295.329 -0.044 0.800 0.625 0.220 1.953 -0.584 1.596 1.138 0.049 0.255 0.313 -0.128 0.073 0.329 -0.131 -0.039 0.196 0.166 -0.072 -0.131 -0.009 0.008 -0.124 0.078 286.899 -1.160 0.903 1.405 0.795 -0.019 -1.175 1.168 0.263 -0.049 0.730 -0.040 -0.264 0.100 0.018 -0.006 0.043 0.252 0.062 -0.012 -0.270 0.032 -0.135 -0.153 0.074 278.313 0.196 0.523 1.332 0.978 -0.617 -0.828 0.728 -0.807 0.175 0.746 -0.316 -0.278 0.444 -0.316 0.162 0.355 0.207 0.055 0.134 -0.106 0.049 0.202 -0.365 0.264 271.441 2.729 -0.534 1.147 1.106 0.485 -0.203 0.149 -1.241 -0.024 0.412 -0.473 -0.092 0.480 -0.192 0.214 0.523 0.450 -0.148 0.325 -0.021 -0.023 0.372 -0.235 0.512 267.044 4.712 -1.438 1.008 0.669 2.416 -0.604 0.050 -1.327 -0.219 -0.368 -0.378 -0.099 0.376 0.022 0.183 0.620 0.554 -0.255 0.332 0.042 0.009 0.296 0.200 0.553 264.547 5.649 -1.991 1.306 -0.303 3.159 -1.515 -0.063 -1.210 -0.410 -0.777 -0.071 -0.184 0.516 0.086 0.509 0.354 0.434 -0.066 0.143 0.276 0.051 0.342 0.479 0.359 262.058 6.202 -1.665 1.634 -0.905 2.107 -1.547 -0.047 -0.536 -0.100 -0.381 0.177 -0.213 0.327 -0.008 0.521 0.247 0.250 0.233 0.010 0.249 0.083 0.233 0.079 0.096 258.681 6.294 -0.844 2.248 -0.261 1.186 -1.014 0.295 -0.022 0.024 0.214 0.242 -0.244 0.284 0.324 0.195 0.131 0.245 0.136 -0.273 0.149 -0.321 -0.140 -0.213 0.105 255.113 6.052 -0.382 2.141 1.037 0.946 -0.692 0.764 -0.346 0.443 0.119 0.144 -0.005 0.294 0.128 0.398 0.271 0.180 0.135 -0.196 0.007 -0.315 -0.113 -0.270 0.064 251.727 5.671 -0.183 1.485 1.530 0.901 -1.066 0.814 -0.877 0.502 -0.153 0.268 0.162 0.236 0.207 0.406 0.207 0.164 0.098 -0.160 0.027 -0.173 -0.097 0.006 0.016 249.218 4.064 -1.013 0.795 1.855 0.100 -1.751 0.429 -0.700 0.362 -0.113 0.186 0.195 0.065 0.277 0.138 0.400 -0.158 0.300 -0.113 -0.090 -0.030 -0.086 0.056 0.031 251.843 2.869 -3.627 0.291 1.953 -0.578 -2.810 -0.718 -0.707 -0.620 0.217 -0.065 0.090 0.083 0.237 0.009 0.406 -0.060 0.278 -0.026 -0.022 0.018 0.165 -0.042 0.045 260.535 4.472 -7.070 0.559 1.411 0.707 -5.453 -1.155 -0.757 -1.860 -0.075 0.281 -0.295 -0.476 0.662 -0.639 0.427 0.158 -0.690 0.131 0.155 -0.141 0.612 0.213 -0.312 273.931 8.072 -5.638 1.036 2.065 3.572 -6.242 -1.691 -0.844 -2.014 -1.198 0.556 0.146 -0.910 1.095 -0.532 -0.093 0.336 -0.901 -0.596 0.438 -0.352 0.288 0.418 -0.616 294.848 7.626 -0.573 1.617 3.945 5.066 -1.631 -1.224 0.243 -1.592 -2.929 0.455 0.727 -0.799 1.395 -1.035 -0.162 0.105 -1.232 -0.147 0.156 -0.262 0.927 -0.405 -0.295 325.754 0.525 8.530 3.136 1.355 1.918 6.898 -1.445 1.977 0.304 -3.439 0.291 1.305 -0.642 0.622 -1.162 -0.281 -0.082 -1.058 -0.076 0.053 0.280 0.210 0.080 -0.216 360.061 -13.239 16.245 4.035 -7.867 -3.153 13.757 -1.993 3.270 1.679 -1.635 0.345 1.613 0.287 0.640 -0.086 -0.296 -0.673 -0.463 -0.396 -0.040 0.519 0.199 0.518 -0.104 388.371 -23.006 19.838 0.762 -16.425 -7.128 16.111 -3.202 3.588 3.039 -0.444 -0.252 1.606 0.111 0.951 0.741 -0.257 -0.076 -1.126 -0.311 0.095 0.110 -0.141 0.593 -0.474 406.003 -29.407 18.026 -3.232 -20.712 -7.922 15.932 -4.624 2.825 2.762 -0.705 -0.168 1.947 0.620 0.712 0.674 -0.669 0.185 -1.476 0.558 0.687 -0.151 -0.301 0.013 -0.085 414.090 -34.415 11.010 -5.715 -23.412 -6.695 12.972 -3.513 4.017 1.773 -0.424 -2.565 1.670 -0.257 0.434 0.528 0.026 0.163 -0.658 0.818 0.080 -0.473 -0.020 -0.463 0.077 415.721 -38.448 4.345 -7.258 -21.180 -3.942 8.850 -0.754 3.199 0.563 -0.939 -2.766 1.034 -0.532 -0.246 -0.668 0.137 0.468 -0.120 0.221 0.038 0.179 0.063 0.011 0.167 414.653 -42.425 0.267 -8.119 -15.251 -1.011 6.520 0.312 0.666 0.589 -1.339 -1.539 -0.125 -0.587 -0.747 -0.737 -0.004 0.406 -0.160 -0.104 0.366 0.499 0.241 0.220 0.164 417.626 -45.761 -4.025 -5.808 -8.441 1.048 4.584 0.889 -0.151 1.320 -0.492 0.228 -0.767 0.265 -0.929 -0.277 -0.218 -0.507 -0.448 -0.410 0.223 0.115 0.244 0.016 0.425 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 month = 3 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 267.599 -7.128 0.606 1.268 -1.198 -0.156 -0.147 -0.347 0.052 0.228 -0.122 0.031 -0.341 -0.210 -0.192 -0.173 0.101 0.112 0.092 -0.026 -0.110 0.033 0.009 -0.055 -0.165 283.092 -12.436 0.388 3.435 -2.334 -1.927 -1.333 -0.968 0.241 -0.254 -0.025 0.252 -0.153 -0.354 -0.135 -0.147 -0.115 -0.310 0.294 0.159 0.033 0.015 0.067 -0.137 -0.210 300.282 -14.455 2.888 3.453 -0.873 -2.284 -0.517 -0.069 -1.518 -0.169 -0.694 0.271 0.434 -0.228 0.711 -0.386 -0.509 -0.280 -0.232 0.312 -0.186 -0.123 0.154 -0.058 0.131 310.644 -12.962 4.461 3.415 1.136 0.059 0.625 0.893 -0.852 0.459 0.254 -0.070 0.685 -0.398 0.665 -0.686 -0.420 0.173 -0.510 0.403 0.063 0.109 0.228 0.050 0.173 317.573 -9.306 8.438 0.729 -0.274 1.964 0.922 0.230 0.141 0.439 0.336 -0.230 0.411 -0.195 0.326 -0.309 -0.119 -0.031 -0.022 0.006 0.069 -0.013 0.206 0.101 -0.042 317.505 -1.990 11.060 -1.349 -0.815 3.471 1.042 -0.119 0.413 -0.112 0.299 -0.385 0.196 -0.034 0.045 -0.005 0.135 -0.010 -0.070 -0.040 0.084 0.044 0.007 0.023 -0.066 312.483 4.941 10.716 -1.395 -0.748 4.593 1.120 -0.085 0.556 -0.719 0.178 -0.675 0.060 -0.015 0.465 0.255 -0.035 0.053 -0.086 -0.102 -0.050 -0.060 -0.013 -0.037 -0.006 304.291 7.814 6.304 -1.033 -0.823 4.594 1.010 0.123 1.057 -1.317 0.399 -0.581 0.332 0.039 0.772 0.184 0.022 0.045 -0.011 -0.193 -0.019 -0.107 0.073 0.081 0.055 295.681 5.724 1.725 -0.985 -0.773 3.965 -0.463 0.525 1.306 -1.322 0.774 -0.205 0.098 0.101 0.571 0.031 0.167 0.145 -0.047 -0.297 -0.044 -0.218 0.071 -0.016 0.213 289.239 0.617 0.339 -0.568 -0.156 2.242 -1.341 0.749 0.585 -0.811 0.825 -0.533 -0.252 0.102 0.526 -0.009 0.203 0.127 0.180 -0.260 -0.095 -0.089 0.099 -0.055 0.124 283.455 -1.768 1.363 0.000 -0.061 0.312 -0.985 0.606 0.005 -0.310 0.739 -0.904 -0.253 0.021 0.643 0.089 0.104 0.218 0.164 -0.012 -0.097 -0.086 0.027 -0.016 0.105 276.455 -0.242 2.014 0.178 0.230 -0.121 -0.133 0.727 -0.852 0.003 0.293 -0.753 -0.194 0.459 0.385 0.289 0.218 0.358 0.234 0.210 0.043 -0.111 0.389 -0.195 0.278 269.746 2.240 1.448 0.834 0.814 0.348 0.252 0.499 -1.255 -0.075 0.095 -0.513 -0.242 0.528 0.171 0.206 0.128 0.528 0.019 0.349 -0.026 -0.101 0.488 -0.168 0.425 265.329 4.163 0.596 1.414 0.634 1.645 0.032 0.551 -1.234 -0.139 -0.424 -0.407 -0.395 0.394 0.406 0.009 0.246 0.682 -0.204 0.298 -0.056 0.030 0.463 0.116 0.586 263.281 5.439 -0.055 1.752 -0.169 2.435 -1.000 0.616 -1.175 -0.125 -0.814 -0.085 -0.290 0.589 0.387 0.312 0.164 0.566 -0.192 0.152 0.183 0.280 0.526 0.483 0.455 261.974 6.168 -0.784 1.473 -0.798 1.686 -1.382 0.517 -0.629 0.191 -0.562 0.252 -0.197 0.443 0.144 0.314 0.138 0.175 0.135 -0.059 0.221 0.166 0.238 0.128 0.133 260.631 6.665 -0.413 1.558 0.071 0.853 -0.789 0.635 -0.178 0.162 0.023 0.184 -0.240 0.405 0.328 0.072 0.106 0.240 0.127 -0.287 0.126 -0.179 -0.071 -0.201 0.158 259.224 6.794 0.563 1.366 1.106 0.639 -0.045 0.714 -0.341 0.438 -0.113 0.072 -0.154 0.328 0.166 0.285 0.361 0.188 0.155 -0.166 0.017 -0.266 0.000 -0.290 0.052 258.027 6.338 1.100 1.205 1.236 0.511 -0.181 0.907 -0.550 0.629 -0.512 0.231 -0.104 0.110 0.305 0.206 0.226 0.198 0.083 -0.092 -0.037 -0.164 -0.072 -0.088 0.031 257.908 4.196 0.095 1.068 0.852 -0.417 -1.430 0.725 -0.478 0.488 -0.383 0.098 0.043 -0.001 0.235 -0.115 0.302 -0.202 0.125 -0.130 -0.110 -0.025 -0.147 0.009 -0.008 262.696 2.101 -2.873 1.555 0.776 -1.389 -3.351 -0.102 -0.298 -0.449 0.023 0.020 0.110 0.218 0.047 -0.020 0.204 -0.181 0.020 0.029 -0.011 -0.013 0.101 -0.001 0.078 272.570 1.620 -5.812 2.449 1.051 -0.755 -5.959 -1.196 0.164 -1.113 0.129 0.181 -0.414 -0.168 0.588 -0.415 0.282 0.127 -0.715 0.234 -0.024 -0.106 0.558 0.247 -0.217 287.037 3.875 -6.667 3.455 2.132 2.230 -6.850 -2.013 0.242 -0.947 -0.455 0.589 -0.704 -0.654 0.800 -0.442 -0.274 0.529 -0.860 -0.413 0.505 -0.433 0.286 0.603 -0.571 308.054 6.103 -4.575 3.709 3.450 5.655 -1.331 -2.503 1.728 -1.026 -0.851 0.677 -0.872 -0.701 1.305 -0.996 -0.259 0.015 -1.235 -0.207 0.526 -0.421 1.060 -0.293 -0.134 336.831 2.206 2.064 3.278 2.243 3.989 8.349 -4.564 2.727 -0.136 -0.928 1.158 -0.398 -0.813 1.293 -1.510 -0.086 -0.391 -0.853 -0.436 0.395 0.025 0.597 0.009 -0.437 368.031 -10.333 10.851 2.089 -3.989 -0.453 14.249 -4.931 3.946 0.958 0.023 1.389 -0.020 -0.255 0.740 -0.578 0.156 -0.488 -0.097 -1.045 0.378 0.212 0.186 0.399 0.114 394.778 -22.548 18.545 0.267 -11.813 -3.821 14.907 -3.805 3.902 3.201 0.132 1.672 0.587 -0.143 0.605 0.280 -0.199 -0.187 -0.719 -0.066 0.366 0.155 0.202 0.666 -0.111 414.166 -27.327 20.694 -2.106 -16.372 -4.529 13.378 -3.074 3.823 4.165 -1.432 1.309 1.843 0.179 0.619 0.798 -0.107 -0.197 -0.609 0.550 0.383 0.057 0.155 0.137 0.034 426.454 -27.451 13.651 -4.549 -21.563 -3.181 11.695 -0.213 5.406 3.496 -2.129 -1.232 1.363 -0.165 0.499 0.606 0.822 -0.173 -0.648 0.833 0.203 -0.402 0.452 -0.518 -0.262 436.229 -26.411 1.449 -8.301 -22.673 -1.184 9.309 2.986 5.281 0.850 -2.649 -2.286 0.638 -0.135 -0.058 0.136 0.411 0.267 -0.465 0.572 -0.114 0.100 0.218 -0.265 -0.005 444.364 -25.307 -6.128 -13.337 -18.898 0.595 6.169 4.540 3.504 -0.742 -2.064 -0.743 0.059 -0.500 -1.474 -0.418 -0.053 -0.035 0.013 0.289 0.037 0.331 0.405 -0.236 -0.196 449.802 -26.221 -9.438 -15.281 -12.390 1.287 2.689 4.023 1.897 1.019 -0.719 0.559 -0.780 -0.432 -1.904 -0.425 -0.447 -0.847 -0.039 -0.386 0.202 -0.204 0.428 0.067 0.282 453.759 -25.768 -8.947 -13.000 -6.449 1.270 1.358 2.904 1.559 1.552 -0.366 0.811 -1.137 -0.566 -1.122 -0.389 -0.413 -0.663 -0.020 -0.498 0.182 0.015 0.074 -0.228 0.039 458.366 -20.678 -7.240 -8.413 -2.476 0.743 1.324 1.361 0.380 0.409 -0.521 -0.099 -0.428 -0.166 -0.399 0.062 -0.210 -0.242 0.108 -0.072 -0.071 -0.008 0.023 -0.162 -0.074 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 month = 4 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 282.374 -14.580 1.257 3.870 -0.831 -2.985 -0.270 -0.058 -0.683 -0.254 -0.390 -0.130 0.416 0.006 0.491 -0.271 -0.433 -0.090 0.006 0.085 -0.263 -0.108 0.159 -0.083 0.126 300.597 -12.137 3.009 4.207 0.559 -1.473 0.303 0.446 -0.494 -0.097 0.268 -0.182 0.588 -0.318 0.649 -0.498 -0.482 0.195 -0.610 0.301 0.083 0.054 0.224 0.048 0.154 315.495 -7.318 7.712 2.007 -0.136 0.861 -0.701 -0.539 -0.202 -0.291 -0.048 -0.220 0.365 -0.252 0.272 -0.215 -0.106 -0.055 -0.133 0.062 0.150 0.049 -0.039 0.044 -0.027 319.301 -1.638 8.540 0.759 -0.047 2.856 -1.883 -0.440 0.040 -0.734 -0.260 0.105 0.014 -0.396 0.153 -0.035 0.001 0.018 -0.014 0.045 -0.003 0.027 -0.058 -0.024 0.014 315.054 1.003 7.665 0.152 0.505 3.751 -2.258 0.347 0.673 -0.710 -0.175 -0.198 -0.432 -0.220 0.223 -0.144 -0.081 0.047 -0.138 -0.135 0.081 -0.028 -0.004 -0.128 0.158 306.406 1.566 5.923 0.740 0.329 3.645 -1.214 0.321 1.188 -0.781 -0.564 -0.411 -0.289 0.076 0.353 0.082 0.020 0.155 -0.205 -0.082 0.067 -0.120 0.002 -0.037 0.121 296.420 2.131 3.366 1.294 -0.592 3.449 -0.573 0.297 1.790 -0.799 -0.734 -0.509 -0.105 0.223 0.200 0.062 0.041 0.192 -0.296 -0.067 0.044 -0.159 -0.117 0.094 0.161 288.100 1.700 0.611 0.794 -1.851 2.861 -1.238 0.276 1.768 -0.591 -0.212 -0.397 -0.191 0.089 -0.002 -0.185 0.214 0.053 -0.025 -0.120 -0.170 -0.180 0.142 -0.004 0.080 282.570 -0.551 -0.528 -0.476 -1.967 1.556 -1.422 1.000 0.826 -0.566 0.056 -0.369 -0.255 -0.057 -0.126 -0.122 0.671 0.112 0.082 0.007 -0.195 -0.066 0.290 0.012 0.249 276.980 -2.047 0.631 -0.764 -0.375 0.037 -0.848 1.202 -0.359 -0.453 -0.113 -0.356 -0.081 0.366 -0.198 0.342 0.737 0.308 0.166 0.129 -0.037 -0.169 0.330 -0.083 0.334 270.687 -0.138 2.044 0.030 0.342 -0.071 0.069 0.949 -0.935 -0.233 -0.209 -0.360 -0.067 0.442 -0.342 0.366 0.526 0.401 0.072 0.212 -0.010 -0.092 0.410 -0.044 0.415 265.468 2.500 2.280 0.061 0.723 0.870 0.368 0.627 -1.040 -0.141 -0.587 -0.310 -0.275 0.152 -0.014 0.463 0.547 0.532 -0.071 0.276 -0.007 -0.068 0.224 0.118 0.541 262.758 3.804 1.870 0.492 0.869 1.548 -0.051 0.303 -1.131 -0.082 -0.868 0.028 -0.153 0.379 0.389 0.687 0.212 0.447 -0.084 0.179 0.096 0.088 0.366 0.403 0.482 262.140 4.963 1.423 0.731 0.871 1.334 -0.621 0.322 -0.725 0.263 -0.544 0.412 -0.141 0.454 0.283 0.566 0.074 0.224 0.149 0.035 0.206 0.136 0.227 0.153 0.286 261.972 5.597 1.425 1.093 1.404 0.684 -0.634 0.652 -0.534 0.241 -0.230 0.312 -0.084 0.487 0.385 0.253 0.104 0.168 0.235 -0.313 0.240 -0.099 -0.004 -0.073 0.202 262.506 5.969 1.798 0.863 1.600 0.580 -0.156 0.592 -0.542 0.472 -0.350 0.193 0.061 0.402 0.285 0.373 0.379 0.046 0.214 -0.238 0.031 -0.277 0.016 -0.178 -0.008 264.431 5.467 2.436 0.699 0.926 0.459 0.032 0.496 -0.573 0.620 -0.760 0.318 -0.038 0.072 0.477 0.204 0.345 0.160 0.061 -0.106 -0.080 -0.130 -0.126 -0.031 0.004 268.521 2.117 1.838 0.833 -0.142 -0.687 -0.305 0.575 -0.510 0.634 -0.489 0.289 0.121 -0.020 0.589 -0.258 0.247 -0.208 0.070 -0.148 -0.076 0.026 -0.145 0.137 -0.136 275.834 -3.290 -0.537 1.733 -0.342 -2.417 -1.550 -0.322 -0.064 0.073 0.097 -0.114 0.145 0.018 0.587 0.000 0.067 -0.053 -0.034 0.029 0.029 0.066 0.107 0.192 0.021 286.579 -6.356 -5.158 2.677 -0.296 -2.562 -4.150 -1.973 0.339 -0.632 0.370 -0.109 -0.476 -0.689 0.809 -0.297 0.335 0.411 -0.471 0.184 -0.099 -0.071 0.595 0.426 -0.126 301.310 -4.900 -9.152 4.211 -0.563 -1.080 -6.527 -3.204 0.413 -1.321 -0.240 -0.236 -1.255 -1.603 0.816 -0.826 0.034 0.637 -0.530 -0.363 0.305 -0.572 0.529 0.723 -0.665 318.845 -0.632 -12.191 6.285 -1.892 3.321 -4.228 -3.766 2.347 -1.494 -1.765 -0.550 -1.425 -2.799 0.728 -1.564 -0.484 0.348 -1.049 -0.056 0.125 -0.481 1.175 -0.061 -0.411 340.778 1.862 -9.994 7.411 -4.912 6.831 3.160 -4.310 4.997 0.628 -2.259 -0.177 -1.521 -3.106 -0.059 -1.546 -0.975 0.075 -1.129 -0.189 -0.134 -0.174 0.432 0.240 -0.335 365.469 -2.376 -3.037 6.450 -10.108 5.959 8.766 -4.017 6.567 3.496 -1.604 -0.091 -1.357 -1.878 -0.218 -0.295 -0.855 -0.561 -0.330 -0.877 0.036 0.077 -0.013 0.419 -0.107 387.377 -12.528 3.064 7.555 -13.967 3.284 10.499 -3.623 6.776 4.598 -0.762 0.036 -1.241 -0.922 -0.300 0.002 -1.081 -0.087 -0.600 -0.239 -0.162 0.248 0.061 0.554 -0.013 404.044 -20.873 7.999 7.674 -13.638 0.672 8.059 -2.185 6.309 4.199 -0.232 0.745 -0.934 -0.403 0.728 0.750 -0.576 0.003 -0.668 0.232 -0.164 -0.212 -0.075 0.076 -0.009 417.307 -23.205 9.746 2.713 -13.361 -1.715 6.442 0.606 7.558 3.640 -0.583 -0.576 -0.795 -0.681 1.362 1.508 0.739 -0.203 -0.726 0.407 -0.021 -0.430 0.109 -0.181 -0.040 428.189 -22.142 7.901 -4.602 -12.611 -4.382 5.956 4.282 6.442 1.562 -1.338 -1.763 -0.802 -0.290 1.335 1.007 0.477 0.173 -0.181 0.543 0.547 0.040 0.354 -0.035 -0.107 438.193 -19.290 7.665 -11.133 -10.568 -5.892 4.178 5.596 2.600 -0.891 -0.472 -0.084 0.472 -1.142 -0.467 -0.039 0.040 0.180 0.006 0.411 0.244 0.412 0.212 -0.365 -0.303 446.935 -17.929 6.692 -13.394 -5.051 -5.502 2.131 3.891 0.285 1.505 -0.647 -0.082 -0.059 -0.673 -0.810 -0.607 -0.750 -0.792 0.035 -0.530 0.491 -0.204 0.346 0.413 0.095 450.676 -15.618 5.135 -12.132 -1.133 -2.362 2.008 2.215 -0.137 1.641 -1.200 0.066 -1.029 0.012 -1.069 -0.843 -0.607 -0.914 -0.069 -0.564 0.136 -0.006 0.254 -0.106 0.103 445.990 -8.279 5.893 -7.389 1.132 0.013 1.020 0.529 -0.701 0.568 -0.558 -0.468 -0.655 -0.177 -0.833 -0.440 -0.611 -0.281 -0.246 -0.326 -0.235 0.016 -0.050 -0.018 -0.030 443.826 -2.325 4.132 -3.497 0.247 -0.197 0.041 0.097 -0.259 0.061 -0.129 -0.138 0.149 0.165 0.005 0.088 -0.300 0.027 -0.063 -0.077 -0.098 -0.054 0.080 0.000 0.020 444.743 -0.897 1.330 -0.948 0.109 -0.157 -0.002 -0.072 -0.145 0.129 0.029 -0.049 -0.081 0.001 -0.008 -0.020 -0.016 -0.057 -0.040 -0.051 -0.005 0.035 -0.083 -0.046 -0.034 month = 5 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 305.084 -12.493 8.892 1.084 3.440 0.028 -1.192 0.162 -0.125 0.173 0.154 -0.352 0.601 0.135 0.060 -0.173 0.097 -0.010 -0.227 -0.027 -0.047 -0.044 -0.085 0.040 0.064 317.235 -7.618 11.632 -0.123 3.820 1.721 -2.286 0.998 0.855 -0.008 -0.120 -0.210 0.583 0.252 -0.149 -0.082 -0.011 -0.052 0.030 0.012 0.036 0.048 -0.145 -0.005 0.177 321.429 -1.668 10.073 -0.690 3.158 2.681 -2.962 1.420 1.593 -0.231 -0.496 0.078 0.400 0.243 -0.146 0.020 -0.031 -0.022 0.022 -0.046 0.071 -0.026 -0.034 0.033 0.153 318.781 0.789 6.781 -0.070 1.925 2.514 -2.448 1.303 1.556 -0.489 -0.734 -0.106 0.411 0.267 0.012 0.140 0.211 0.055 -0.015 0.021 0.009 -0.062 -0.097 0.129 0.221 310.909 0.461 4.680 0.634 0.707 1.831 -2.120 1.677 0.868 -0.102 -1.077 -0.076 0.417 0.073 -0.018 0.283 0.022 0.025 -0.077 -0.224 -0.118 -0.167 -0.002 0.025 0.306 300.389 -0.843 3.952 1.427 -0.758 0.888 -2.070 1.289 0.870 0.134 -1.351 0.015 0.348 0.109 0.060 0.291 0.062 0.336 0.181 -0.201 -0.185 -0.172 0.103 -0.038 0.280 288.925 -0.674 3.195 1.553 -2.648 -0.336 -1.103 0.868 1.179 0.416 -1.122 0.273 0.190 0.182 0.000 0.097 0.147 0.361 -0.072 -0.090 -0.268 -0.271 0.106 0.055 0.260 279.201 -0.686 -0.386 -0.377 -2.944 -1.269 -0.309 1.143 0.745 0.168 -1.112 0.219 -0.025 0.409 -0.384 0.349 0.241 0.327 -0.193 0.012 0.150 -0.211 0.321 0.053 0.342 271.845 -2.251 -1.999 -1.657 -1.321 -0.823 0.715 1.115 -0.158 -0.060 -0.530 -0.060 -0.484 0.273 -0.234 0.463 0.293 0.300 -0.101 0.066 0.131 -0.061 0.360 -0.056 0.356 265.857 -1.400 0.720 -1.784 0.526 0.111 0.853 1.057 -0.576 0.258 -0.468 -0.194 -0.701 0.210 0.179 0.370 0.520 0.455 -0.064 0.294 0.030 -0.061 0.203 0.061 0.400 261.331 1.073 2.039 -0.638 1.307 1.019 0.766 0.715 -0.706 0.215 -0.688 -0.067 -0.364 0.430 0.405 0.645 0.288 0.402 -0.029 0.076 0.205 -0.018 0.434 0.211 0.426 260.151 3.483 2.141 0.648 1.579 1.512 0.247 0.532 -0.279 0.358 -0.509 0.441 -0.061 0.492 0.315 0.502 0.078 0.250 0.294 0.026 0.325 0.057 0.383 0.140 0.309 260.783 4.952 1.604 1.650 2.396 1.661 -0.085 1.037 -0.238 0.332 -0.098 0.393 0.086 0.483 0.446 0.187 0.200 0.159 0.457 -0.304 0.414 -0.164 0.170 -0.138 0.253 262.436 5.148 1.257 1.380 2.147 1.400 0.055 1.129 -0.472 0.395 -0.144 0.162 0.130 0.333 0.256 0.301 0.403 0.083 0.363 -0.252 0.131 -0.252 0.084 -0.284 0.066 266.952 4.581 2.040 0.640 0.818 1.248 0.158 0.827 -0.405 0.228 -0.515 0.314 -0.034 0.250 0.367 0.310 0.137 0.251 0.020 -0.067 -0.044 -0.199 0.050 -0.143 -0.022 273.886 2.371 2.577 0.059 -0.806 0.364 0.294 0.490 -0.494 0.487 -0.372 0.482 0.335 0.025 0.542 -0.183 0.155 -0.122 0.008 -0.198 0.014 -0.137 -0.021 0.061 -0.233 281.721 -2.394 2.278 0.522 -0.863 -1.925 0.338 -0.261 -0.250 0.253 -0.095 0.296 0.391 -0.234 0.420 -0.240 0.128 -0.004 0.036 -0.117 0.081 -0.026 -0.021 0.102 -0.172 292.164 -6.710 -1.893 1.559 -0.866 -3.339 -1.786 -1.574 0.589 -0.239 0.671 -0.024 -0.062 -1.087 0.573 -0.651 0.473 0.516 -0.228 0.119 -0.136 0.135 0.130 0.498 -0.209 305.927 -6.038 -9.199 2.780 -2.092 -2.089 -2.991 -2.899 1.423 -0.980 0.408 -0.093 -0.814 -2.913 0.443 -1.278 0.373 0.821 -0.261 -0.053 0.113 -0.298 0.165 0.687 -0.720 320.085 -0.910 -15.453 6.413 -3.191 0.733 -0.757 -4.223 2.096 -1.221 -1.109 0.187 -0.607 -4.186 0.444 -2.214 -0.392 0.543 -1.176 0.442 0.253 -0.388 1.048 -0.015 -0.372 336.794 3.258 -13.980 10.160 -4.767 3.432 3.066 -4.471 3.207 0.338 -2.763 0.509 -0.032 -4.154 -0.225 -1.755 -1.136 0.439 -1.248 0.022 -0.006 -0.081 0.278 0.352 -0.382 357.422 -1.170 -5.850 11.953 -8.114 2.967 5.583 -3.756 3.125 3.244 -3.421 0.969 0.414 -2.452 -1.018 -0.293 -0.341 -0.144 -0.687 -0.577 -0.392 0.277 -0.200 0.538 -0.283 376.639 -9.745 0.220 14.082 -10.129 0.600 4.413 -2.697 2.686 4.506 -2.151 1.146 0.084 -1.266 -1.008 0.416 -0.420 0.405 -1.477 0.061 -0.631 0.765 -0.109 0.332 -0.033 390.092 -14.783 3.383 13.374 -10.191 -1.489 0.200 -1.171 2.614 4.706 -1.702 0.980 -0.169 -1.090 0.292 0.415 -0.317 0.514 -0.972 0.477 0.063 0.381 0.136 0.024 -0.256 398.926 -14.527 4.097 7.502 -11.869 -3.855 -2.620 1.635 3.941 4.213 -2.201 -0.212 -0.868 -1.422 1.315 0.852 0.444 -0.058 -0.561 0.479 -0.234 0.053 0.084 -0.183 0.000 404.221 -10.908 2.321 -1.127 -13.395 -5.562 -1.097 5.918 3.549 3.213 -2.535 -1.222 -1.331 -0.633 1.423 0.641 0.281 0.293 -0.397 0.458 0.238 -0.170 0.032 0.165 -0.399 406.935 -8.175 2.534 -8.863 -12.721 -5.165 1.127 8.388 -0.180 0.159 -1.490 0.283 -0.030 -0.820 -0.419 -0.138 -0.094 0.213 -0.036 0.777 0.110 0.626 -0.093 -0.509 -0.812 410.359 -9.400 4.200 -11.112 -6.537 -3.379 0.894 5.059 -1.759 1.435 -0.787 0.333 0.011 -0.786 -0.984 -1.166 -0.641 -0.452 0.204 -0.100 0.455 0.322 -0.068 0.491 0.414 407.952 -7.174 4.561 -8.012 -2.722 0.338 1.285 2.345 -0.187 1.602 -0.534 0.301 -0.915 -0.099 -1.123 -0.940 -1.070 -1.029 -0.097 -0.554 0.230 0.070 0.001 0.195 0.167 402.778 -2.433 2.719 -3.287 0.662 0.991 0.762 0.388 -0.428 0.564 -0.373 0.119 -0.768 -0.479 -0.867 -0.464 -0.710 -0.526 -0.350 -0.113 -0.154 0.014 -0.095 0.013 -0.136 401.493 -0.173 0.976 -1.024 0.043 0.086 -0.206 -0.074 -0.019 0.209 0.179 0.099 0.140 0.071 -0.059 0.029 -0.235 -0.035 -0.118 -0.101 -0.038 -0.090 0.029 -0.037 0.061 401.394 0.009 0.627 -0.421 -0.271 -0.004 -0.119 -0.047 -0.044 0.047 0.046 -0.004 0.025 0.028 0.010 -0.061 -0.018 0.001 0.003 -0.018 -0.021 0.040 0.005 -0.004 -0.028 month = 6 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 307.070 -15.960 6.085 3.282 3.235 0.084 -1.280 0.466 0.625 -0.007 -0.440 -0.303 0.311 0.018 -0.016 -0.017 0.026 -0.111 -0.033 0.027 -0.211 -0.135 0.093 -0.034 0.027 313.836 -11.580 6.689 3.218 3.521 0.606 -2.799 0.176 1.003 -0.108 -0.285 -0.241 0.352 0.130 0.038 0.306 -0.045 -0.162 -0.077 0.103 0.028 -0.224 0.033 -0.005 0.022 323.965 -6.968 7.803 2.829 1.898 1.659 -4.256 0.166 1.125 -0.220 0.120 -0.177 0.380 0.190 0.143 0.122 0.053 -0.139 -0.021 0.140 -0.147 -0.259 0.207 0.012 0.028 328.008 -6.681 6.492 2.530 1.400 1.838 -4.663 -0.456 0.816 0.095 -0.082 -0.465 0.413 0.521 0.370 -0.006 0.268 0.295 0.215 0.001 -0.095 -0.149 0.208 -0.046 0.180 324.505 -7.474 4.106 2.034 1.109 1.837 -3.822 -0.278 1.048 0.464 0.073 -1.020 0.266 0.464 0.158 0.142 0.392 0.284 -0.068 -0.127 -0.238 0.202 0.152 0.058 0.151 314.944 -8.413 1.104 2.741 -1.324 1.570 -3.037 0.387 1.082 1.017 0.164 -0.898 -0.197 0.531 0.384 0.247 -0.007 -0.043 0.129 0.023 -0.214 0.147 0.071 -0.121 0.300 302.066 -6.954 -0.760 2.622 -2.838 -0.052 -1.550 0.763 0.834 0.884 0.050 -0.835 -0.829 0.692 0.170 0.162 0.027 -0.109 -0.104 -0.205 -0.291 -0.100 -0.057 0.026 0.174 287.505 -3.798 -2.652 0.614 -2.918 -0.564 0.280 0.932 0.457 0.565 -0.094 -0.729 -0.771 1.202 -0.121 0.450 -0.047 0.428 -0.026 -0.146 0.224 -0.255 0.322 0.087 0.447 275.890 -2.123 -3.841 -1.829 -1.156 -0.410 1.220 1.149 -0.038 0.717 -0.022 -0.441 -0.399 0.781 -0.095 0.434 0.157 0.444 -0.180 0.100 0.193 -0.038 0.313 0.150 0.524 267.961 -2.221 -1.597 -2.134 0.709 0.227 1.566 1.464 -0.256 0.402 -0.579 -0.282 -0.290 0.560 0.001 0.393 0.412 0.574 -0.034 0.294 0.200 0.003 0.218 0.172 0.507 261.781 0.291 0.591 -0.962 1.115 1.008 0.728 1.134 -0.653 0.432 -0.407 -0.197 -0.003 0.574 0.178 0.667 0.403 0.514 0.058 0.066 0.216 -0.075 0.451 0.277 0.548 259.292 3.697 -0.622 1.248 1.187 1.529 0.315 0.696 -0.053 0.814 -0.258 0.441 0.228 0.403 0.273 0.700 0.513 0.343 0.432 0.005 0.375 0.022 0.549 0.156 0.456 260.902 6.427 -0.845 2.488 2.316 1.439 -0.019 1.133 0.045 0.510 0.108 0.386 0.208 0.164 0.366 0.291 0.441 0.147 0.566 -0.332 0.433 -0.168 0.235 -0.126 0.274 264.548 6.966 -0.129 2.234 2.160 1.270 -0.020 1.430 -0.360 0.634 -0.108 0.119 0.016 0.146 0.288 0.423 0.586 0.161 0.510 -0.260 0.287 -0.310 0.152 -0.323 0.181 270.683 6.408 1.273 0.996 1.510 1.211 -0.037 1.288 -0.801 0.386 -0.765 0.258 -0.456 0.525 0.137 0.722 0.177 0.279 0.002 -0.106 0.042 -0.231 0.077 -0.237 -0.069 277.410 5.782 0.720 0.288 0.873 0.765 -0.269 0.647 -0.769 0.094 -0.529 0.608 -0.287 0.410 0.408 0.111 0.472 -0.190 -0.020 -0.154 0.047 -0.117 -0.077 0.044 -0.146 283.750 3.155 -0.237 0.903 0.138 -0.813 0.643 0.139 -0.573 0.004 -0.054 0.691 -0.328 -0.114 -0.090 -0.309 0.623 -0.012 0.103 -0.131 0.138 0.038 -0.097 -0.068 0.010 291.504 -0.150 -3.031 1.583 -0.576 -2.474 0.106 -0.692 0.064 0.274 0.621 0.886 -0.093 -0.403 -0.230 -0.499 0.516 0.521 -0.330 -0.119 -0.105 0.119 0.110 0.176 0.106 300.297 -1.424 -7.230 2.451 -1.932 -2.315 -1.448 -2.231 0.603 0.357 0.452 0.436 -0.022 -1.313 0.654 -0.695 0.240 0.667 -0.455 -0.514 0.076 -0.340 0.242 0.262 -0.341 309.212 -0.379 -12.800 6.259 -4.126 1.074 -0.304 -4.472 1.130 0.614 -0.649 0.638 -0.138 -2.954 1.556 -1.679 -0.012 0.509 -1.574 -0.337 0.125 -0.657 1.081 -0.572 -0.399 320.767 0.822 -13.153 10.688 -6.798 4.139 2.027 -5.356 2.543 1.848 -1.299 0.272 -0.350 -4.238 1.034 -1.460 -0.511 0.526 -1.792 -1.145 -0.272 -0.370 0.194 0.024 -0.713 338.805 -3.424 -5.524 13.296 -8.331 2.180 3.352 -4.387 2.972 4.148 -0.328 -0.379 -0.284 -4.061 0.399 -0.824 -0.640 -0.082 -0.657 -1.265 -0.189 0.305 -0.150 0.109 -0.496 357.961 -9.929 -0.832 13.985 -6.110 -3.229 2.142 -2.494 3.270 4.362 1.377 -0.323 -1.234 -2.465 0.154 -0.505 -0.817 0.374 -0.958 -0.500 -0.098 0.453 -0.048 0.024 -0.240 369.973 -12.453 -1.798 12.200 -4.369 -5.895 -0.699 0.447 3.998 3.414 1.885 -0.382 -1.486 -0.919 1.178 0.077 -0.437 0.655 -0.737 -0.077 0.399 -0.116 -0.095 -0.073 -0.100 373.314 -9.681 -3.249 8.683 -4.500 -6.814 -1.933 2.607 3.764 2.081 1.171 -1.249 -1.364 -0.416 0.863 1.051 0.316 0.063 -0.301 0.369 0.330 -0.638 -0.228 -0.086 0.307 370.199 -4.442 -5.176 1.989 -7.096 -6.958 -1.305 4.271 3.148 0.851 -0.810 -0.848 -1.341 -0.667 0.741 0.971 0.266 0.178 0.119 0.553 -0.028 -0.610 -0.276 0.332 0.059 363.419 0.954 -5.303 -3.494 -8.204 -6.120 0.550 4.831 2.191 -0.464 -0.806 0.872 0.175 -0.586 0.071 0.747 0.465 0.656 0.080 0.414 0.258 0.104 -0.367 -0.178 -0.113 364.121 0.018 -2.861 -4.692 -3.937 -3.933 1.614 4.510 0.135 -0.123 -0.709 0.864 0.675 0.200 0.311 -0.210 -0.075 -0.398 0.165 0.312 0.584 0.454 -0.303 0.040 0.378 366.471 -2.294 0.372 -2.577 -0.928 -0.397 1.396 2.469 -0.522 0.331 -0.234 0.299 -0.075 0.434 -0.021 -0.662 -0.788 -1.085 -0.317 -0.351 0.290 0.132 0.141 0.197 0.159 365.582 0.497 1.045 -0.200 0.530 1.309 0.665 0.755 -0.953 0.122 -0.171 0.179 0.118 -0.017 -0.391 -0.379 -0.690 -0.644 -0.285 -0.129 0.022 0.137 0.001 0.004 -0.086 368.515 3.145 -0.285 -0.045 0.335 0.563 0.185 0.185 0.003 0.180 0.068 0.139 0.054 0.164 -0.026 0.079 -0.259 -0.076 -0.222 -0.152 -0.137 -0.094 0.011 -0.067 0.068 369.608 1.985 -0.416 -0.249 -0.043 0.029 0.024 -0.046 -0.019 0.006 0.018 -0.011 -0.007 -0.001 0.010 -0.010 -0.023 -0.015 0.030 -0.011 -0.045 -0.022 0.033 0.003 -0.012 month = 7 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 306.269 -9.544 2.786 1.005 3.590 0.256 -1.571 0.592 0.013 -0.034 -0.466 -0.273 0.064 -0.043 -0.042 -0.208 0.073 0.184 0.114 0.103 -0.062 0.030 -0.129 -0.020 -0.049 319.832 -5.693 5.905 1.113 3.290 1.960 -3.509 1.616 0.883 -0.062 -0.198 -0.316 0.345 0.128 0.085 0.126 0.112 0.471 0.055 0.039 0.221 0.062 -0.061 -0.020 -0.047 330.994 -5.987 6.840 0.672 2.803 2.538 -4.159 1.923 1.507 -0.431 -0.743 -0.360 0.090 0.129 -0.163 -0.072 0.139 0.142 0.017 0.012 0.192 0.024 -0.126 0.083 0.003 336.883 -8.550 3.991 0.353 2.033 2.676 -3.234 1.720 0.840 -0.586 -1.093 -0.684 0.106 0.161 -0.067 0.204 0.132 -0.012 0.014 -0.081 -0.114 -0.261 0.018 0.099 -0.036 336.584 -11.395 1.691 0.800 1.364 2.037 -1.983 1.694 0.714 -0.254 -1.261 -0.669 0.077 0.300 0.020 0.032 0.046 0.048 0.007 -0.204 -0.167 -0.205 0.095 0.001 -0.016 329.444 -12.723 0.390 2.807 -0.359 0.985 -0.843 2.436 1.035 -0.130 -1.234 -0.858 0.165 0.384 0.158 0.145 0.100 0.092 0.109 -0.273 -0.120 -0.184 0.084 -0.101 0.165 315.580 -9.963 -1.196 3.087 -2.749 0.184 -1.010 2.075 0.960 -0.043 -1.885 -0.905 0.034 0.281 -0.247 0.233 0.224 0.220 -0.029 -0.167 -0.073 -0.269 0.173 -0.045 0.196 297.769 -4.653 -2.777 0.999 -3.096 -0.287 -1.221 1.075 0.439 0.109 -1.753 -0.803 -0.050 0.448 -0.267 0.411 0.180 0.506 0.044 0.090 0.031 -0.334 0.531 -0.142 0.458 282.736 -0.385 -2.862 -0.859 -1.579 -0.286 -0.445 1.051 -0.241 0.106 -1.014 -0.451 -0.602 0.690 -0.329 0.699 0.297 0.423 -0.072 0.137 -0.001 -0.183 0.471 -0.013 0.488 272.429 1.948 -1.510 -1.533 0.388 0.743 0.839 1.230 -0.799 0.203 -0.598 -0.287 -0.736 0.494 -0.005 0.632 0.425 0.666 -0.029 0.352 0.036 -0.131 0.286 0.085 0.533 264.781 4.483 -0.315 -0.195 1.215 1.687 0.921 1.245 -0.392 0.650 -0.617 0.231 -0.386 0.702 0.525 0.993 0.622 0.902 -0.033 0.273 0.214 -0.120 0.666 0.247 0.774 261.711 6.684 -2.006 1.613 1.069 1.858 0.421 1.522 0.145 0.840 -0.462 0.462 -0.138 0.744 0.583 1.088 0.577 0.614 0.265 0.047 0.368 0.045 0.700 0.295 0.613 263.934 8.386 -3.013 2.500 1.676 1.502 0.052 1.318 -0.118 0.486 0.058 0.092 0.016 0.331 0.379 0.469 0.332 0.184 0.366 -0.329 0.372 -0.173 0.340 0.021 0.374 268.883 8.747 -2.393 2.179 1.413 1.393 -0.161 1.344 -0.525 0.635 -0.096 0.054 0.108 0.111 0.359 0.402 0.600 0.132 0.585 -0.320 0.229 -0.375 0.144 -0.291 0.210 274.623 8.244 -1.650 1.112 1.009 1.686 -0.315 1.307 -1.227 0.500 -0.745 0.483 -0.320 0.779 0.076 0.744 0.003 0.301 0.084 0.014 0.079 -0.117 0.106 -0.127 -0.005 280.051 7.173 -3.032 0.041 0.300 0.989 -0.684 0.320 -1.151 0.154 -0.577 0.534 -0.239 0.701 0.437 0.300 0.213 -0.046 0.070 -0.084 -0.027 0.021 -0.058 0.102 -0.114 284.454 5.634 -4.287 -0.096 -0.623 -0.316 -0.176 -0.041 -1.058 -0.101 -0.107 0.435 -0.591 -0.055 0.447 -0.087 0.391 -0.068 0.121 -0.071 0.009 0.060 0.042 -0.073 0.114 289.549 3.106 -5.959 0.334 -0.875 -0.948 0.194 0.187 -0.750 -0.021 0.059 1.187 -0.603 -0.900 0.252 -0.109 0.533 0.151 -0.516 -0.107 -0.380 0.110 0.422 0.090 0.128 295.776 0.994 -8.700 1.571 -1.156 -1.529 0.120 -0.654 0.173 -0.081 -0.479 1.152 0.002 -0.790 0.306 -0.267 0.501 -0.010 -1.044 -0.435 -0.269 0.097 0.423 0.212 -0.460 301.654 -0.109 -12.912 4.797 -2.492 -0.336 0.624 -2.702 0.937 0.104 -1.525 0.633 -0.030 -1.489 1.582 -1.384 0.523 0.037 -1.880 -0.259 0.097 -0.338 1.298 -0.387 -0.490 308.216 -1.064 -13.776 8.933 -5.736 1.566 1.257 -3.188 1.742 1.634 -1.339 -0.300 -1.265 -2.697 1.761 -1.401 0.309 -0.351 -2.058 -1.053 -0.072 -0.301 0.539 0.011 -0.732 319.680 -3.947 -8.613 11.040 -7.936 0.973 1.333 -1.510 2.170 4.194 1.190 -1.289 -2.093 -3.325 1.172 -0.800 0.050 -0.889 -1.330 -1.482 -0.142 0.414 -0.341 0.285 -0.697 333.935 -5.444 -4.415 10.896 -6.451 -1.320 0.478 -0.893 3.301 3.788 4.169 -1.268 -2.816 -3.044 -0.065 -0.459 -0.796 -0.297 -1.926 -0.375 -0.104 0.735 0.037 0.562 -0.451 345.165 -4.793 -4.436 8.997 -3.402 -3.231 -1.454 0.256 4.186 2.530 4.473 -0.816 -2.265 -2.147 0.207 0.053 -0.138 0.160 -1.409 0.392 0.551 -0.100 -0.097 0.215 -0.094 349.497 -1.256 -6.803 5.948 -3.177 -4.948 -1.932 2.088 3.439 1.478 2.625 -1.097 -1.337 -0.978 0.437 0.860 0.338 -0.665 -0.686 0.608 0.349 -0.333 -0.474 -0.029 0.257 344.977 3.573 -9.598 3.662 -5.977 -6.230 -1.332 3.422 1.882 0.081 0.357 -0.147 -0.652 -0.198 0.092 0.165 -0.007 -0.260 -0.375 0.753 0.076 -0.285 -0.448 0.165 0.095 334.923 7.509 -10.735 1.900 -7.284 -4.604 -0.539 3.178 0.321 -0.064 -0.405 0.884 0.362 0.291 -0.313 0.045 0.041 0.647 -0.345 0.286 0.137 0.169 -0.147 -0.071 -0.004 329.067 5.986 -10.374 1.348 -5.079 -2.594 0.780 1.859 -0.502 1.186 0.023 0.628 0.115 0.697 0.001 0.624 -0.225 0.147 -0.084 0.345 0.168 0.455 -0.044 -0.158 -0.254 326.780 1.897 -8.664 1.165 -1.779 -1.430 0.398 1.250 -0.118 0.936 0.741 0.439 0.205 0.286 0.249 0.128 -0.523 -0.298 -0.073 -0.343 0.128 0.068 -0.004 0.105 0.214 324.672 0.811 -5.651 -0.303 0.027 0.065 -0.367 0.593 -0.523 -0.120 0.565 0.261 0.233 -0.043 -0.166 -0.356 -0.207 -0.422 0.006 -0.156 0.049 0.102 0.081 0.035 -0.056 326.080 1.460 -3.802 -0.321 0.664 -0.214 -0.132 0.014 -0.147 -0.008 0.092 0.090 0.165 0.142 -0.033 0.158 -0.134 0.078 -0.105 -0.055 -0.156 -0.093 -0.037 -0.085 -0.016 327.488 0.880 -1.739 -0.178 0.073 0.008 -0.085 0.037 -0.133 0.048 0.037 0.012 -0.047 0.001 -0.004 -0.024 0.032 0.002 0.021 0.001 0.016 -0.027 -0.021 0.014 0.020 month = 8 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 287.776 -7.577 1.263 6.897 3.243 -0.630 0.799 1.015 -0.614 -0.173 0.531 -0.407 0.225 -0.440 0.469 -0.663 -0.356 0.517 -0.415 0.419 -0.175 0.014 -0.007 -0.163 0.146 310.885 -9.366 8.604 5.415 1.018 -0.031 0.271 0.168 -0.039 0.407 -0.007 -0.453 0.061 -0.007 0.098 -0.130 -0.036 0.178 -0.001 0.181 -0.170 0.072 -0.088 -0.065 -0.001 334.976 -6.075 16.599 3.209 -0.593 2.291 -1.459 0.873 0.579 0.527 0.736 -0.044 0.497 0.156 0.285 0.286 0.334 0.289 0.237 0.082 0.041 0.106 0.044 -0.041 -0.016 349.477 -4.261 19.599 0.715 -1.569 3.231 -2.968 1.174 0.588 -1.064 0.369 0.202 0.611 -0.177 0.418 0.027 -0.044 0.123 -0.137 0.061 -0.086 0.047 -0.131 -0.056 0.146 354.785 -5.903 15.599 1.874 -2.656 2.694 -3.393 1.700 0.157 -1.544 -0.520 -0.034 0.634 0.069 0.598 0.159 0.211 -0.004 -0.327 -0.076 -0.067 -0.064 0.057 -0.062 0.048 354.058 -8.253 8.328 2.899 -3.285 1.849 -2.508 1.276 0.325 -1.227 -0.866 0.104 0.357 0.271 0.589 0.297 0.255 0.150 -0.231 -0.114 0.005 -0.163 0.045 -0.121 0.116 345.808 -10.273 2.310 3.461 -3.156 1.692 -1.699 1.061 0.230 -0.729 -0.437 -0.158 -0.059 0.058 0.362 0.503 0.183 0.078 0.005 -0.154 -0.133 -0.052 -0.107 -0.155 0.062 329.518 -10.295 -0.636 3.784 -2.714 0.915 -0.783 1.237 0.109 -0.016 0.006 -0.365 -0.340 0.080 0.492 0.446 0.213 0.079 0.171 -0.060 -0.024 -0.103 -0.037 -0.064 0.253 308.238 -5.255 -2.060 2.195 -1.885 -0.216 -0.546 1.430 -0.521 0.287 0.194 -0.250 -0.407 0.522 0.570 0.661 0.242 0.361 0.058 0.131 0.246 0.021 0.283 -0.150 0.408 290.069 0.256 -2.108 0.163 -0.243 -0.296 -0.213 1.807 -0.922 0.450 0.014 -0.470 -0.648 0.777 0.229 0.670 0.222 0.548 -0.080 0.200 -0.047 -0.067 0.414 -0.113 0.530 277.053 4.360 -0.973 -0.351 1.181 0.444 0.720 1.758 -0.927 0.488 -0.081 -0.042 -0.649 0.552 0.031 0.659 0.497 0.876 -0.032 0.443 -0.099 -0.001 0.304 0.048 0.594 269.231 7.244 -0.436 1.104 0.910 1.406 0.785 1.501 -0.390 1.006 -0.540 0.564 -0.358 0.789 0.414 1.192 0.474 0.921 0.089 0.139 0.212 0.001 0.739 0.413 0.816 266.535 9.174 -2.784 2.366 0.607 1.828 0.489 1.563 0.331 0.967 -0.313 0.825 -0.231 0.927 0.373 1.121 0.283 0.601 0.207 -0.063 0.270 0.129 0.594 0.469 0.551 268.749 9.547 -4.380 2.520 1.234 1.323 0.110 1.257 0.405 0.334 0.297 0.296 0.039 0.659 0.343 0.517 0.250 0.137 0.216 -0.428 0.269 -0.223 0.347 0.047 0.363 272.927 8.873 -4.193 1.635 1.252 1.377 0.060 1.547 -0.057 0.449 -0.150 0.086 0.183 0.490 0.615 0.608 0.683 0.202 0.336 -0.369 0.152 -0.506 0.298 -0.300 0.326 276.944 7.812 -3.619 0.543 0.812 1.874 -0.331 1.697 -1.044 0.559 -0.871 0.644 -0.147 1.035 0.227 0.800 0.090 0.329 -0.089 0.087 0.048 -0.144 0.136 -0.118 0.058 280.696 6.062 -4.280 -0.724 0.561 1.194 -0.601 0.656 -0.755 0.444 -0.539 0.677 -0.190 0.650 0.338 0.251 0.304 -0.041 0.048 -0.040 -0.082 -0.011 -0.042 0.108 -0.038 283.029 5.297 -4.846 -1.202 0.034 -0.003 -0.316 0.142 -0.724 0.002 -0.181 0.530 -0.389 0.072 0.257 -0.171 0.353 -0.111 0.090 -0.005 -0.170 0.118 -0.042 -0.163 0.110 286.132 3.715 -5.798 -0.670 -0.200 -0.402 0.066 0.191 -0.987 0.034 0.095 1.222 -0.376 -0.746 0.242 -0.325 0.512 0.283 -0.680 -0.031 -0.317 0.130 0.383 0.067 0.203 291.265 1.572 -7.626 1.209 -0.741 -0.670 0.445 -0.600 -0.318 -0.276 -0.322 1.387 -0.063 -0.760 0.415 -0.415 0.430 0.267 -1.142 -0.332 -0.098 -0.142 0.393 0.267 -0.257 296.525 0.136 -11.030 4.619 -1.794 0.385 1.228 -1.980 1.018 -0.227 -1.376 1.269 -0.363 -1.293 1.696 -1.443 0.536 0.274 -1.850 -0.237 0.191 -0.433 1.106 -0.218 -0.224 301.406 0.492 -12.655 7.860 -3.006 1.773 0.991 -2.023 2.706 0.704 -1.476 0.843 -1.607 -1.984 2.333 -1.400 0.383 0.232 -1.966 -1.152 0.006 -0.144 0.461 0.124 -0.736 308.433 1.121 -9.239 8.227 -2.908 0.568 -0.273 -0.137 3.583 1.972 0.309 0.393 -2.183 -1.990 2.028 -0.679 0.563 -0.402 -1.230 -1.572 0.001 0.558 -0.255 0.284 -0.706 317.465 2.353 -5.279 6.340 -1.961 -2.295 -0.909 0.697 4.045 1.336 1.918 0.543 -2.362 -1.747 0.612 -0.418 -0.249 0.204 -1.563 -0.777 -0.284 0.937 0.090 0.198 -0.268 325.100 3.129 -3.458 3.822 -2.649 -4.147 -2.192 1.691 3.622 0.822 1.935 0.558 -1.760 -1.284 0.661 0.082 -0.294 0.558 -0.929 0.085 0.314 0.128 -0.045 -0.024 -0.135 328.638 4.371 -3.721 2.308 -3.869 -5.722 -3.013 1.963 2.419 0.389 0.997 -0.224 -0.637 -0.365 0.360 0.840 0.150 -0.181 -0.650 0.474 0.284 -0.131 -0.405 -0.098 0.197 326.158 7.185 -4.728 0.776 -5.566 -5.962 -2.934 1.818 1.851 -0.314 -0.501 0.106 0.337 -0.060 0.186 0.129 0.236 0.124 -0.099 0.199 -0.101 -0.062 -0.304 0.025 0.258 317.766 8.810 -5.047 -0.956 -5.810 -5.151 -1.270 1.706 0.966 -0.578 -1.497 0.513 0.511 -0.376 0.032 0.101 0.170 0.666 -0.278 -0.081 0.041 0.288 -0.327 0.142 0.010 308.602 6.086 -5.552 -1.035 -3.945 -3.715 0.399 1.230 0.480 0.570 -1.063 0.675 -0.190 -0.187 -0.079 0.076 -0.563 0.473 -0.229 0.028 0.142 0.178 -0.119 0.002 -0.028 301.047 2.591 -6.943 -0.599 -0.766 -2.228 0.487 1.000 0.483 0.574 0.211 0.601 -0.407 -0.055 -0.250 -0.051 -0.602 -0.089 0.128 -0.088 0.185 0.034 0.005 0.099 0.138 295.360 0.915 -6.485 -1.108 0.316 -0.312 0.113 0.485 -0.272 0.180 0.324 0.138 -0.048 0.132 -0.127 -0.174 -0.180 -0.167 0.092 -0.124 0.173 0.083 0.023 -0.018 0.036 293.847 1.765 -4.295 -0.405 0.603 -0.181 0.083 0.228 0.144 0.250 0.186 0.051 0.138 0.167 0.024 0.162 -0.090 0.089 -0.130 -0.084 -0.104 -0.114 0.026 -0.070 0.033 293.059 1.063 -1.594 -0.106 0.301 -0.131 -0.020 0.049 -0.070 0.067 0.058 0.002 -0.050 -0.027 -0.045 -0.006 0.001 0.014 -0.013 0.002 0.038 -0.012 0.000 0.015 0.006 month = 9 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 244.894 -5.986 3.579 3.831 0.862 -1.570 -1.102 -0.743 0.543 -0.116 -0.177 0.192 -0.334 -0.340 -0.240 -0.181 -0.154 -0.272 0.318 0.100 0.046 0.082 0.021 -0.216 -0.206 252.334 -10.301 5.017 3.676 2.513 -2.641 -1.008 0.147 -0.584 -0.543 -0.535 -0.053 0.149 -0.209 0.610 -0.458 -0.505 -0.265 0.023 0.196 -0.360 -0.008 0.292 -0.091 0.160 276.288 -16.677 11.680 5.087 3.917 -1.847 0.645 1.160 -0.353 0.003 0.629 -0.304 0.133 -0.559 0.597 -0.705 -0.518 0.327 -0.783 0.381 -0.047 0.064 0.224 -0.025 0.214 315.512 -22.556 26.873 3.437 1.767 -1.083 1.567 -0.284 -0.064 0.063 -0.338 -0.197 0.209 -0.225 0.048 -0.016 0.134 0.138 -0.180 -0.031 -0.128 0.035 0.059 -0.041 0.063 352.124 -13.877 37.815 2.537 3.822 2.435 2.283 0.797 0.954 0.529 0.328 0.413 0.949 0.372 0.201 0.326 0.484 0.329 0.164 -0.161 0.056 -0.028 -0.005 -0.253 -0.131 370.123 -5.185 35.823 2.325 3.856 3.851 0.378 0.957 1.005 -0.127 -0.332 0.143 0.812 0.138 0.547 0.087 0.396 0.261 -0.075 -0.180 0.174 -0.034 -0.112 0.135 0.116 372.763 -3.848 25.595 3.087 2.142 3.860 -2.335 1.243 0.020 -0.285 -0.875 -0.279 0.050 -0.447 0.424 0.023 0.044 0.193 -0.244 -0.168 0.050 -0.215 -0.165 0.287 0.213 366.965 -5.131 14.276 3.616 1.616 3.313 -3.135 1.449 -0.022 0.174 -0.932 -0.213 -0.295 -0.071 0.369 0.057 0.300 0.291 -0.320 -0.083 0.132 -0.072 -0.042 0.037 0.056 355.229 -7.095 4.919 4.055 0.830 2.129 -2.623 1.270 -0.667 0.322 -1.113 -0.033 -0.497 -0.089 0.447 0.047 0.318 0.270 -0.108 -0.138 -0.092 0.001 0.020 -0.245 0.146 338.130 -7.233 0.270 3.564 -0.030 0.464 -2.180 1.623 -0.960 0.103 -1.245 -0.063 -1.000 -0.272 0.675 0.024 0.535 0.173 -0.075 -0.048 -0.084 -0.034 0.040 -0.150 0.354 317.808 -4.157 -0.446 1.981 -0.200 -0.762 -1.581 1.574 -1.359 -0.256 -1.143 -0.315 -1.314 0.192 0.340 0.358 0.491 0.496 -0.011 0.159 0.013 -0.025 0.358 0.017 0.481 300.049 -0.093 0.765 0.876 0.653 -1.102 -0.463 1.125 -1.436 -0.389 -0.514 -0.414 -1.192 0.441 0.317 0.690 0.625 0.785 -0.118 0.429 -0.161 -0.072 0.421 -0.005 0.542 286.474 4.602 2.486 0.752 0.315 0.146 0.887 0.833 -0.885 0.124 -0.469 -0.288 -0.965 0.591 0.421 1.003 0.578 0.996 -0.183 0.501 -0.135 -0.029 0.356 0.148 0.628 277.098 9.123 1.070 1.568 -0.230 1.985 0.829 0.834 -0.170 0.736 -0.579 0.444 -0.582 1.253 0.235 1.524 0.311 0.955 -0.152 0.177 0.017 0.028 0.669 0.484 0.699 272.745 11.026 -2.262 2.494 -0.008 2.065 0.515 1.142 0.651 0.859 -0.402 0.746 -0.442 1.076 -0.039 1.446 -0.112 0.696 0.014 -0.090 0.175 0.150 0.563 0.386 0.468 272.667 10.602 -4.472 2.666 0.725 1.482 -0.045 1.236 0.903 0.262 0.447 0.390 0.125 0.779 0.293 0.839 0.149 0.168 0.225 -0.555 0.362 -0.373 0.463 -0.098 0.434 274.276 8.879 -4.681 1.631 0.649 1.403 -0.104 1.490 0.122 0.208 -0.161 -0.046 -0.112 0.540 0.473 0.797 0.579 0.212 0.142 -0.456 0.014 -0.557 0.319 -0.327 0.313 275.873 7.272 -4.086 0.607 0.276 1.800 -0.335 1.447 -0.885 0.415 -0.712 0.390 -0.471 0.781 0.016 0.723 -0.128 0.311 -0.202 -0.047 -0.153 -0.141 0.053 -0.036 0.037 278.052 5.575 -3.823 -0.267 0.079 1.439 -0.452 0.747 -0.690 0.562 -0.301 0.514 -0.271 0.310 0.333 0.080 0.298 -0.161 0.094 -0.215 -0.075 -0.043 -0.111 0.102 -0.094 278.955 4.999 -3.596 -0.015 -0.004 0.180 0.063 0.213 -0.460 0.048 -0.133 0.777 -0.445 -0.018 0.260 -0.121 0.318 -0.228 0.262 -0.058 -0.018 -0.040 -0.070 -0.017 0.023 280.000 3.370 -4.053 1.045 -0.300 -0.610 0.214 0.033 -0.176 -0.085 -0.130 1.301 -0.273 -0.511 0.339 -0.382 0.445 0.261 -0.482 -0.049 -0.177 0.035 0.252 0.155 -0.054 283.199 2.160 -5.077 2.279 -0.775 -0.916 -0.681 -0.622 0.457 0.055 -0.509 1.120 -0.166 -0.767 0.940 -0.628 0.382 0.455 -0.925 -0.453 0.005 -0.137 0.421 0.253 -0.617 287.396 2.065 -7.856 4.446 -1.008 0.830 -0.322 -1.804 1.654 0.132 -1.397 1.230 -0.388 -1.685 2.233 -1.351 0.224 0.473 -1.612 -0.340 0.322 -0.410 1.248 -0.218 -0.476 292.021 2.843 -7.871 5.730 -1.202 2.960 0.374 -1.717 2.854 0.438 -1.471 1.465 -0.576 -2.350 2.294 -0.926 0.467 0.182 -1.497 -1.056 -0.049 -0.209 0.691 0.272 -0.568 298.548 1.315 -1.915 3.029 -2.646 2.554 0.379 -0.169 3.444 0.368 -1.112 1.617 -0.104 -2.583 1.962 -0.109 0.496 0.037 -0.430 -1.376 0.096 0.130 -0.090 0.533 -0.358 306.447 -2.748 3.894 0.375 -5.812 -0.439 1.180 -0.532 3.983 -0.488 -1.666 1.323 0.355 -2.413 0.552 0.375 -0.187 0.516 -0.460 -0.658 -0.105 0.382 0.087 0.382 -0.073 312.854 -7.015 4.728 0.850 -9.394 -3.472 0.860 -0.999 3.098 -0.464 -1.877 0.704 0.748 -1.460 -0.030 0.183 -0.184 0.544 -0.264 0.155 0.070 -0.065 0.087 0.112 -0.062 315.931 -7.563 2.836 2.434 -9.465 -5.839 -0.243 -0.364 1.630 -0.102 -1.765 -0.919 0.686 -0.451 0.127 0.541 -0.199 -0.323 -0.359 0.270 -0.035 -0.251 -0.013 0.103 0.155 314.203 -4.792 -0.297 3.735 -7.684 -5.800 -0.669 0.740 0.458 -0.345 -2.071 -0.797 0.771 -0.015 -0.292 0.514 -0.193 0.045 -0.432 0.194 -0.024 -0.270 -0.125 0.282 0.218 307.040 -2.033 -2.828 3.942 -4.788 -3.246 -0.101 1.477 -0.402 -0.644 -1.606 0.266 0.625 0.037 -0.879 0.247 -0.066 0.362 -0.443 -0.064 0.139 0.069 -0.235 0.218 -0.013 298.807 -2.895 -3.387 4.537 -2.456 -1.138 -0.547 1.232 0.218 0.085 -0.769 0.661 0.073 0.090 -0.807 0.337 -0.279 0.111 -0.279 -0.259 -0.067 -0.114 0.037 -0.010 0.131 290.329 -4.137 -3.109 4.541 0.020 -0.547 -1.078 0.734 0.736 0.457 0.351 0.389 -0.614 -0.032 -0.490 -0.005 -0.335 -0.268 -0.141 -0.184 -0.076 -0.027 0.206 -0.012 0.149 276.512 -1.275 -2.742 2.749 0.024 -0.183 -0.909 0.218 -0.111 0.304 0.114 0.242 -0.198 -0.069 -0.469 -0.173 -0.169 -0.092 0.061 -0.162 -0.032 -0.049 -0.009 0.013 0.050 266.050 0.862 -1.441 0.861 -0.257 -0.031 -0.245 0.299 0.050 0.032 0.244 -0.075 0.074 0.121 -0.053 0.102 -0.173 -0.009 -0.085 -0.059 -0.099 -0.046 0.032 -0.048 0.012 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 month = 10 218.818 -4.700 1.597 0.215 0.112 0.104 0.156 0.016 -0.010 0.121 -0.119 -0.057 -0.117 -0.073 -0.003 -0.077 0.047 0.063 -0.023 -0.057 -0.061 -0.009 -0.016 0.013 -0.043 224.732 -12.611 2.786 2.059 -0.027 -0.397 -0.115 -0.212 0.418 0.283 -0.071 0.010 -0.267 -0.275 -0.176 -0.178 0.085 0.131 0.068 -0.006 -0.122 -0.001 0.015 0.001 -0.131 239.811 -25.817 4.329 5.849 -1.504 -2.080 -1.127 -0.682 0.599 -0.286 0.025 0.431 -0.290 -0.326 -0.181 -0.151 0.006 -0.109 0.335 0.109 -0.036 0.083 0.000 -0.221 -0.132 264.451 -41.729 9.099 8.080 -1.590 -3.495 -0.893 0.427 -0.765 -0.556 -0.735 0.114 0.497 -0.309 0.623 -0.403 -0.464 -0.146 -0.150 0.267 -0.410 -0.087 0.304 -0.125 0.151 303.931 -54.266 19.248 10.387 -0.263 -2.431 1.066 1.204 -0.121 0.519 0.191 -0.399 0.592 -0.547 0.391 -0.790 -0.542 0.535 -0.986 0.357 0.010 0.059 0.223 -0.175 0.264 346.146 -53.980 34.290 6.921 1.621 -0.587 0.210 -0.539 0.676 0.426 -0.448 -0.139 -0.011 -0.002 -0.027 -0.148 -0.047 -0.066 -0.047 0.080 -0.048 -0.078 -0.139 -0.115 0.102 376.378 -34.907 41.610 4.184 5.397 3.828 -0.554 0.317 1.533 0.858 0.950 0.153 0.578 0.056 0.556 0.080 0.654 0.093 0.372 -0.172 0.024 -0.177 -0.141 -0.110 0.002 385.363 -18.474 37.216 2.455 5.047 5.375 -2.180 -0.069 0.413 -0.363 0.212 -0.365 0.213 -0.208 0.598 0.093 0.328 0.098 -0.052 -0.216 -0.026 -0.047 -0.076 -0.095 0.142 379.582 -11.308 27.546 3.197 2.045 4.464 -3.441 -0.107 0.493 -0.880 -0.341 -0.832 -0.294 -0.294 0.351 0.246 0.188 0.017 -0.235 0.069 0.031 0.080 -0.108 0.189 0.264 367.497 -9.893 17.091 3.451 -0.557 3.185 -3.404 -0.175 0.635 -0.428 -0.101 -0.782 -0.210 0.038 0.467 0.270 0.204 -0.053 -0.209 -0.079 0.061 -0.125 -0.125 -0.081 0.308 352.351 -9.456 9.070 3.186 -1.815 1.604 -3.113 0.469 0.133 -0.408 -0.504 -0.608 -0.653 0.083 0.901 0.464 0.145 -0.034 -0.006 -0.181 0.055 -0.282 0.013 -0.174 0.216 334.871 -8.538 5.127 1.960 -1.170 0.433 -2.611 1.134 -0.683 -0.526 -0.996 -1.074 -0.797 0.162 0.847 0.553 0.412 0.042 0.032 -0.053 -0.002 -0.164 0.053 -0.192 0.313 316.740 -5.739 3.742 1.275 0.862 -0.166 -1.589 1.557 -1.799 -0.753 -1.201 -1.383 -0.698 0.583 0.697 0.789 0.693 0.509 0.193 0.184 0.214 0.032 0.391 -0.089 0.452 301.131 -1.584 3.322 1.457 2.285 0.185 -0.624 1.412 -2.309 -0.788 -0.800 -1.062 -0.306 1.019 0.572 1.102 0.359 0.927 -0.117 0.484 0.094 0.050 0.348 0.012 0.607 288.417 2.859 3.414 2.014 2.193 1.067 0.057 0.860 -1.924 -0.394 -0.781 -0.532 -0.662 0.845 0.533 1.084 0.425 1.259 -0.165 0.651 -0.100 0.017 0.102 0.187 0.578 278.323 7.693 2.431 2.675 0.573 2.143 0.484 0.301 -1.415 -0.023 -1.036 -0.012 -0.575 1.204 0.320 1.631 0.299 1.169 -0.156 0.409 0.114 0.029 0.561 0.524 0.583 272.209 10.459 -0.370 2.641 -0.378 2.302 0.019 0.000 0.011 0.153 -0.645 0.518 -0.363 1.091 0.070 1.648 -0.129 0.885 0.176 0.218 0.223 0.258 0.563 0.312 0.431 269.432 10.548 -2.490 2.352 -0.329 1.121 -0.876 -0.075 0.747 -0.368 0.519 0.566 0.273 1.170 0.413 1.062 -0.062 0.537 0.058 -0.348 0.177 -0.280 0.376 -0.185 0.536 267.878 8.847 -2.763 1.260 0.015 0.718 -0.469 0.231 -0.013 -0.296 -0.223 0.067 -0.101 0.723 0.214 0.797 0.191 0.407 -0.144 -0.256 -0.192 -0.458 0.132 -0.296 0.270 267.525 7.300 -1.456 0.507 0.305 1.244 0.195 0.580 -0.647 -0.084 -0.502 0.366 -0.101 0.773 -0.039 0.552 -0.216 0.264 -0.208 -0.064 -0.139 -0.144 -0.105 -0.115 -0.015 268.320 6.215 -1.018 0.210 0.348 0.693 0.256 0.660 -0.329 0.367 -0.136 0.623 -0.057 0.264 0.403 -0.020 0.122 -0.067 -0.036 -0.163 -0.109 -0.009 -0.097 0.060 -0.114 268.377 4.364 -0.927 0.610 0.340 -1.085 0.288 0.210 -0.234 0.073 -0.218 0.735 -0.162 0.070 0.567 -0.280 -0.064 -0.087 0.010 -0.092 -0.070 -0.047 0.010 -0.035 0.025 269.802 2.044 -2.299 1.540 0.130 -1.781 -0.953 -0.434 0.011 -0.228 -0.395 0.792 -0.151 -0.493 0.773 -0.448 -0.156 0.299 -0.622 0.015 -0.199 0.001 0.241 0.226 0.001 273.542 1.647 -4.911 2.772 0.347 -0.902 -2.399 -0.925 -0.024 0.038 -0.582 0.626 -0.355 -1.123 0.746 -0.276 -0.134 0.568 -0.717 -0.368 -0.026 -0.217 0.324 0.348 -0.479 277.650 3.437 -7.911 3.697 1.852 2.622 -1.706 -1.318 0.847 -0.150 -1.608 0.987 -0.292 -1.650 1.467 -1.015 -0.186 0.455 -1.449 0.081 0.141 -0.447 1.004 -0.341 -0.395 281.803 5.715 -4.900 1.804 0.961 4.558 1.205 -0.822 2.025 0.392 -2.945 0.742 0.145 -1.989 1.242 -0.629 -0.282 0.033 -1.310 -0.519 -0.134 -0.222 0.324 0.299 -0.421 289.550 2.940 3.288 -1.125 -3.508 1.878 2.944 -0.942 3.619 2.270 -4.484 -0.063 0.582 -2.033 0.744 0.305 0.011 -0.173 -0.581 -0.874 -0.231 0.092 -0.167 0.415 -0.238 300.141 -5.056 7.451 -0.665 -9.089 -0.903 4.085 -1.983 3.446 3.066 -4.602 -0.708 0.307 -1.372 -0.317 0.580 0.215 0.113 -0.431 -0.392 -0.222 0.275 -0.114 0.193 0.103 309.859 -13.639 6.652 2.728 -13.133 -3.566 3.663 -2.249 1.963 3.064 -3.903 -1.028 0.866 -0.174 -0.098 0.432 -0.167 0.127 -0.290 0.046 0.273 0.213 0.055 -0.026 -0.107 315.302 -19.256 4.160 6.697 -13.644 -4.228 1.680 -2.202 1.342 1.971 -2.647 -1.787 0.797 0.475 -0.080 0.403 -0.242 -0.516 -0.102 0.281 0.311 -0.210 -0.055 -0.182 -0.083 315.227 -22.897 -0.104 9.196 -11.497 -3.576 0.363 -0.921 0.605 0.415 -2.281 -1.344 0.541 0.027 -0.177 0.301 -0.250 0.010 -0.043 0.092 0.060 -0.335 -0.218 0.123 0.110 308.388 -24.342 -3.381 9.373 -6.948 -1.590 0.199 0.424 0.158 -0.259 -2.052 -0.296 0.219 -0.336 -0.518 -0.062 -0.152 0.136 0.000 -0.128 0.193 0.109 -0.100 0.084 -0.119 297.489 -26.603 -3.882 9.342 -2.091 -0.359 0.906 1.041 0.182 0.497 -0.971 -0.199 -0.175 0.093 -0.390 -0.074 -0.331 -0.127 -0.212 -0.390 -0.011 -0.264 0.022 -0.036 0.158 284.017 -24.880 -2.756 8.892 0.519 0.034 0.443 1.018 -0.273 0.542 -0.049 0.090 -0.539 0.268 -0.428 -0.095 -0.379 -0.293 -0.247 -0.237 0.015 -0.162 0.059 -0.083 0.144 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 month = 11 295.560 -4.602 0.781 -0.090 -0.561 0.201 0.254 0.051 -0.077 0.093 -0.123 -0.153 -0.115 -0.043 0.065 0.005 -0.021 0.040 0.021 -0.009 -0.029 -0.003 -0.008 0.027 -0.023 300.858 -14.656 0.673 1.133 -0.671 -0.366 -0.393 -0.094 0.642 0.326 -0.007 -0.032 -0.335 -0.282 -0.032 -0.105 -0.024 0.057 0.060 -0.059 -0.161 0.018 0.070 0.005 -0.174 310.303 -28.446 0.545 2.332 -0.664 -1.623 -1.440 -0.408 0.216 -0.184 0.002 0.170 -0.191 -0.326 0.033 -0.196 -0.134 -0.133 0.414 0.102 -0.187 0.055 0.050 -0.197 -0.171 326.053 -39.592 1.942 0.628 1.596 -1.716 -1.135 -0.304 -1.493 -0.217 -0.348 -0.132 0.285 -0.236 0.630 -0.589 -0.480 -0.082 -0.217 0.173 -0.403 0.097 0.171 -0.228 0.181 349.673 -42.572 6.417 0.125 2.609 -0.241 0.661 -0.487 -0.617 0.415 0.797 -0.332 0.311 -0.623 0.452 -0.473 -0.672 0.543 -0.831 0.535 -0.096 0.024 0.248 0.012 0.261 368.620 -36.363 14.478 -2.596 2.019 1.109 -0.377 -1.360 -0.188 -0.553 0.488 -0.301 -0.075 -0.271 0.215 0.102 -0.531 0.000 0.016 -0.103 -0.248 0.157 -0.113 -0.023 0.160 375.907 -22.514 17.990 -2.893 2.251 2.306 1.195 0.425 0.603 0.093 0.963 0.227 0.451 0.170 0.785 0.214 0.093 -0.246 0.192 -0.086 -0.128 -0.009 -0.112 -0.167 -0.097 371.070 -11.540 17.691 -3.173 2.385 1.804 0.416 -0.268 -0.062 -0.482 0.018 -0.293 -0.345 0.075 0.558 0.371 0.147 0.007 0.080 0.059 -0.074 -0.161 -0.022 -0.166 -0.092 358.652 -5.581 15.063 -1.079 1.951 1.983 -0.752 -0.189 -0.575 -1.027 -0.213 -0.487 -0.584 -0.100 0.351 0.266 0.217 0.109 0.100 -0.136 -0.261 -0.181 -0.117 -0.087 0.112 343.929 -4.384 11.228 -0.245 0.656 1.231 -1.248 -0.190 -0.347 -0.972 -0.021 -0.539 -0.185 -0.265 0.655 -0.075 0.250 0.256 -0.155 -0.077 -0.050 -0.108 -0.048 -0.214 0.252 330.366 -5.587 7.143 0.001 -0.405 0.537 -1.676 -0.035 -0.267 -0.798 -0.159 -0.492 -0.411 0.016 0.786 -0.055 0.122 0.417 0.027 -0.155 -0.204 -0.170 0.054 -0.147 0.222 317.990 -6.317 4.275 0.510 0.017 0.379 -2.230 0.322 -0.481 -0.993 -0.131 -0.717 -0.291 0.529 0.875 -0.161 0.356 0.455 0.024 -0.044 -0.207 -0.039 0.023 0.071 0.209 305.146 -5.081 2.822 0.961 1.365 -0.081 -2.057 0.869 -1.539 -0.984 -0.482 -0.877 -0.573 1.240 0.583 0.372 0.626 0.662 0.119 0.254 0.053 0.030 0.273 -0.078 0.342 293.493 -1.770 2.106 1.567 2.295 -0.114 -1.004 0.914 -2.069 -0.744 -0.665 -1.018 -0.425 1.335 0.344 0.809 0.585 0.876 -0.156 0.403 0.001 0.068 0.462 -0.061 0.534 283.462 2.041 2.057 1.913 1.785 0.946 0.082 0.729 -1.990 -0.306 -1.123 -0.645 -0.505 1.146 0.344 0.772 0.666 0.980 -0.215 0.540 -0.112 -0.021 0.375 0.172 0.651 274.864 5.618 1.064 2.410 0.170 2.271 0.290 0.037 -1.579 -0.032 -1.579 -0.080 -0.411 1.442 0.101 1.344 0.424 0.958 -0.283 0.297 0.064 0.147 0.608 0.568 0.628 268.572 7.539 -0.652 2.425 -0.874 2.199 -0.341 -0.459 -0.322 0.274 -1.166 0.486 -0.174 1.104 -0.305 1.386 -0.024 0.617 -0.064 0.195 0.254 0.311 0.501 0.321 0.346 263.705 7.989 -1.984 2.183 -1.103 1.026 -1.142 -0.744 0.475 -0.101 -0.043 0.482 0.358 0.990 0.118 0.885 -0.243 0.431 -0.159 -0.328 0.171 -0.166 0.250 -0.042 0.397 260.043 7.965 -1.691 1.893 -0.385 0.900 -0.436 0.004 0.079 0.041 -0.140 -0.048 0.253 0.636 0.278 0.760 0.313 0.299 -0.076 -0.340 -0.060 -0.438 0.160 -0.216 0.250 258.501 7.391 -0.460 1.569 0.336 1.353 0.233 0.636 -0.433 -0.074 -0.346 -0.012 0.377 0.477 0.472 0.495 0.089 0.121 -0.165 -0.080 -0.145 -0.181 -0.055 -0.093 -0.062 257.285 5.396 0.158 1.770 0.445 0.437 -0.121 0.317 -0.247 0.222 -0.185 0.275 0.170 0.087 0.509 0.027 0.204 -0.183 -0.092 -0.141 -0.081 -0.024 -0.079 0.103 -0.114 256.290 3.049 -1.645 1.865 0.419 -1.411 -0.593 -0.483 -0.113 0.070 -0.176 0.307 -0.077 0.016 0.480 -0.152 0.124 -0.074 -0.114 0.001 0.137 -0.067 0.130 0.028 -0.066 258.568 2.170 -5.244 2.528 0.265 -1.564 -2.593 -1.141 -0.282 -0.144 -0.170 0.423 -0.278 -0.447 0.576 -0.324 -0.078 0.312 -0.505 0.134 0.045 -0.053 0.198 0.329 -0.087 263.608 5.566 -7.245 2.960 1.224 0.345 -4.449 -0.834 0.000 -0.405 -0.209 0.682 -0.245 -0.898 0.416 -0.234 -0.251 0.391 -0.534 -0.283 0.226 -0.116 0.180 0.309 -0.421 270.326 10.318 -4.722 2.700 2.013 4.334 -2.191 -0.948 1.617 -1.771 -1.205 1.076 0.231 -0.873 1.004 -0.919 -0.257 0.198 -1.201 0.151 0.366 -0.243 0.860 -0.442 -0.352 280.581 8.647 3.235 0.451 0.881 5.983 2.028 -1.402 3.540 -1.822 -2.544 0.626 0.659 -0.859 1.128 -0.499 -0.309 0.197 -0.941 -0.352 0.243 -0.129 0.152 0.104 -0.337 296.009 -2.088 10.270 -2.902 -3.883 4.299 4.703 -2.478 3.714 -0.104 -2.950 0.257 1.197 -0.693 0.725 0.197 -0.038 -0.340 -0.343 -0.918 -0.022 0.192 -0.104 0.134 -0.155 311.790 -17.439 10.072 -2.722 -9.257 0.505 7.223 -3.311 2.301 0.800 -2.495 -0.392 0.682 -0.223 0.272 0.335 -0.236 0.076 -0.439 -0.633 -0.038 -0.009 0.158 0.163 -0.089 323.163 -31.056 4.540 -0.102 -12.167 -2.425 8.875 -2.889 0.953 1.040 -1.749 -0.847 1.025 -0.290 0.062 0.463 -0.589 0.364 -0.349 -0.164 0.298 -0.125 0.094 0.018 0.174 327.509 -39.764 -5.212 2.021 -12.723 -4.139 8.971 -2.031 1.237 1.244 -1.619 -1.422 0.822 -0.583 0.260 0.343 -0.136 0.094 -0.359 0.241 0.266 -0.261 0.092 -0.279 -0.037 325.284 -45.101 -17.464 3.942 -11.453 -3.799 8.661 -0.783 -0.104 0.775 -1.398 -1.042 0.593 -0.489 0.014 -0.052 -0.220 0.167 -0.361 0.342 0.207 -0.047 -0.039 -0.057 -0.024 317.858 -47.988 -28.361 5.533 -7.123 -2.897 6.800 0.619 -1.197 0.140 -0.687 -0.199 0.275 -0.549 -0.413 -0.365 -0.246 -0.039 -0.192 0.053 0.339 0.147 0.086 -0.001 0.070 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 month = 12 337.185 0.030 1.122 0.248 -0.395 0.064 0.107 0.051 -0.074 0.031 -0.036 -0.042 -0.097 -0.036 -0.003 -0.059 -0.017 0.092 0.013 0.008 -0.042 0.001 0.011 -0.014 -0.060 339.317 -2.140 0.671 1.593 -1.374 -0.402 -0.335 -0.311 0.485 0.239 0.078 0.142 -0.263 -0.121 -0.175 -0.158 0.021 0.098 0.117 -0.030 -0.133 -0.021 0.046 -0.001 -0.150 341.535 -4.636 0.542 2.988 -3.363 -1.832 -0.736 -0.072 0.069 -0.004 -0.115 0.383 -0.259 -0.142 -0.138 -0.134 -0.122 -0.139 0.438 0.201 -0.086 0.068 0.071 -0.154 -0.085 345.354 -4.621 1.398 0.292 -2.161 -1.556 0.557 0.664 -1.333 0.587 -0.666 -0.421 -0.060 0.322 0.452 -0.672 -0.554 -0.140 -0.350 0.151 -0.297 0.151 0.035 -0.244 0.244 351.071 -1.728 4.300 -0.471 -0.737 -0.875 1.816 0.476 0.102 0.713 0.505 -0.915 -0.288 0.000 0.562 -0.359 -0.267 0.472 -0.719 0.347 -0.011 0.329 0.073 -0.070 0.198 353.911 1.575 7.520 -2.119 -0.457 1.268 0.345 -0.479 0.407 0.175 0.151 -0.704 -0.774 0.007 -0.056 0.165 -0.130 -0.288 0.003 -0.458 -0.076 0.020 -0.210 0.100 -0.013 354.196 6.511 9.454 -1.701 0.969 3.361 0.626 0.221 -0.167 0.123 0.451 -0.277 -0.454 -0.184 0.533 0.217 0.259 0.062 -0.076 -0.274 0.179 -0.048 0.038 -0.066 -0.124 348.802 9.305 9.999 -1.796 0.763 4.400 0.218 -0.009 -0.566 -0.612 -0.196 -0.452 -0.566 -0.273 0.529 0.029 0.052 0.234 -0.164 -0.132 0.012 -0.080 -0.049 -0.092 0.202 337.732 8.638 8.344 -0.841 -0.211 4.582 0.355 -0.043 -0.334 -1.257 -0.195 -0.705 -0.513 -0.199 0.455 0.092 0.056 0.265 -0.053 -0.082 -0.001 -0.134 -0.254 -0.039 0.051 323.340 4.148 5.021 0.369 -1.412 3.783 0.093 -0.089 0.145 -1.476 -0.134 -0.682 -0.834 0.107 0.585 0.048 0.175 0.388 -0.031 -0.266 0.078 -0.145 -0.160 -0.167 0.066 309.951 -0.914 2.291 1.271 -1.339 1.956 -0.494 -0.324 0.385 -1.179 -0.165 -0.943 -0.771 0.448 0.778 0.071 0.108 0.145 0.055 -0.173 0.017 -0.099 0.019 -0.034 0.083 299.615 -3.275 1.657 1.656 0.229 0.611 -1.393 -0.044 0.304 -1.220 -0.187 -1.100 -0.377 0.771 0.951 0.008 0.111 0.319 0.010 0.040 -0.192 -0.137 -0.004 0.002 0.175 291.002 -2.638 1.504 1.436 1.590 -0.009 -1.672 0.878 -0.847 -1.065 -0.295 -1.159 -0.297 1.211 0.517 0.423 0.361 0.536 -0.030 0.155 -0.052 -0.026 0.258 -0.204 0.373 282.493 0.006 1.097 1.498 2.175 0.275 -1.125 1.352 -1.958 -0.736 -0.413 -1.085 -0.379 1.227 0.166 0.583 0.498 0.621 -0.320 0.267 -0.064 -0.125 0.378 -0.094 0.594 275.596 2.797 0.464 1.873 1.687 1.480 -0.369 1.140 -2.506 -0.311 -0.758 -0.750 -0.433 0.813 0.297 0.547 0.680 0.830 -0.411 0.321 -0.010 -0.041 0.366 0.236 0.625 269.767 4.711 -0.146 2.346 0.112 2.670 -0.612 0.321 -2.396 -0.049 -0.961 0.131 -0.380 0.855 0.250 0.927 0.440 0.711 -0.304 0.230 0.189 0.268 0.554 0.586 0.464 264.111 6.353 -1.293 2.300 -0.709 2.338 -1.210 -0.450 -1.248 0.032 -0.537 0.674 -0.270 0.624 0.084 0.986 0.058 0.268 0.067 0.053 0.344 0.307 0.324 0.201 0.165 258.868 7.120 -1.693 2.684 -0.443 1.533 -1.316 -0.543 -0.289 -0.038 0.266 0.606 0.026 0.628 0.443 0.535 -0.099 0.195 0.056 -0.322 0.288 -0.216 0.119 -0.073 0.230 254.853 7.538 -1.028 2.755 0.703 1.426 -0.437 0.127 -0.185 0.092 0.155 -0.016 0.113 0.430 0.324 0.396 0.219 0.086 -0.058 -0.259 -0.096 -0.318 0.173 -0.197 0.168 252.311 6.719 -0.472 2.061 1.366 1.376 -0.307 0.672 -0.548 -0.185 -0.175 -0.010 0.194 0.454 0.575 0.309 0.115 0.005 -0.107 -0.106 -0.110 -0.103 -0.006 -0.054 -0.018 249.144 4.495 -1.345 1.510 1.590 0.468 -0.862 0.173 -0.374 0.108 -0.030 0.410 0.087 0.096 0.574 0.007 0.340 -0.062 -0.034 -0.234 -0.008 -0.028 -0.078 0.144 -0.124 248.284 3.160 -3.691 0.760 1.799 -0.665 -1.801 -0.848 -0.343 -0.438 -0.141 0.426 -0.062 -0.305 0.471 -0.141 0.321 0.309 -0.025 -0.201 0.166 -0.023 0.193 0.135 -0.062 251.933 3.876 -6.592 0.568 1.944 0.500 -4.118 -1.953 -0.624 -0.868 -0.665 0.706 -0.314 -0.798 0.297 -0.317 0.288 0.610 -0.493 -0.199 0.033 0.039 0.430 0.376 -0.137 260.137 7.481 -6.845 1.281 3.095 3.056 -4.880 -1.055 -1.108 -0.957 -1.195 0.924 -0.084 -0.533 0.387 -0.140 0.170 0.359 -0.444 -0.447 0.297 -0.108 0.318 0.317 -0.368 273.382 10.204 -1.404 1.959 4.316 5.116 -0.882 -0.115 1.586 -1.939 -3.100 1.563 0.208 -0.523 1.495 -0.957 0.449 0.329 -0.844 -0.174 0.504 -0.307 1.014 -0.524 -0.243 292.767 5.381 8.142 1.351 2.230 4.038 4.350 -1.297 4.814 -1.390 -4.546 2.109 1.207 -0.988 0.856 -0.844 0.423 0.258 -0.369 -0.503 0.152 0.092 0.109 0.029 -0.018 315.718 -7.700 14.831 0.985 -5.775 -0.329 9.001 -2.365 5.121 0.535 -4.953 1.313 1.973 -0.687 0.336 -0.023 0.858 -0.739 -0.213 -0.759 -0.105 0.385 0.089 0.248 -0.143 335.224 -21.282 15.195 2.050 -13.475 -5.218 11.152 -2.793 3.944 1.063 -4.276 0.562 1.831 -0.419 0.287 0.201 0.059 -0.186 -0.545 -0.329 0.458 -0.004 0.102 0.398 -0.345 345.887 -29.825 9.543 4.093 -18.129 -7.147 11.369 -2.878 2.879 1.164 -2.984 0.118 1.935 -0.060 0.067 0.475 -0.476 0.063 -0.503 -0.017 0.308 -0.054 0.034 -0.037 0.015 347.066 -34.009 0.756 5.744 -17.947 -6.946 10.165 -0.717 2.080 1.321 -1.709 -1.059 1.623 -0.411 0.420 0.339 -0.088 0.001 -0.412 0.029 -0.156 -0.379 -0.031 -0.083 0.132 340.548 -36.425 -7.294 8.586 -14.180 -4.644 7.718 0.659 0.499 0.036 -1.353 -1.047 1.136 -0.414 0.265 0.314 -0.065 0.275 -0.346 -0.051 -0.039 -0.116 -0.010 0.056 0.041 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 999.000 dcl-7.5.2/demo/grph2/ucpack/0000755000175000017500000000000014760053155015345 5ustar uwabamiuwabamidcl-7.5.2/demo/grph2/ucpack/Makefile0000644000175000017500000000066014760053155017007 0ustar uwabamiuwabami# # Makefile for ucpack (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = ucpack LIBSRCS = ucpk01.f ucpk02.f ucpk03.f ucpk04.f LIBDEMO = ucpk01 ucpk02 ucpk03 ucpk04 LIBEXEC = ucpk01$(EXT) ucpk02$(EXT) ucpk03$(EXT) ucpk04$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ *.ps core *.trace *.eps *.svg *.pdf a.out dcl-7.5.2/demo/grph2/ucpack/ucpk02.f0000644000175000017500000000404314760053155016621 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM UCPK02 PARAMETER (JD0=19920401) CHARACTER CTL*32 WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL SGOPN(+ABS(IWS)) CALL SGLSET('LFULL',.TRUE.) CALL UZFACT(0.7) CALL SLRAT(1.0,0.75) CALL SLDIV('Y',7,1) CALL SGFRM CALL UZINIT ND=30 CALL SGSWND(0.0,1.0,0.0,REAL(ND)) CALL SGSVPT(0.13,0.14,0.1,0.9) CALL SGSTRN(1) CALL SGSTRF CALL UCYACL('L',JD0,ND) CALL SGFRM CALL UZINIT ND=90 CALL SGSWND(0.0,1.0,0.0,REAL(ND)) CALL SGSVPT(0.13,0.14,0.1,0.9) CALL SGSTRN(1) CALL SGSTRF CALL UCYACL('L',JD0,ND) CALL SGFRM CALL UZINIT ND=180 CALL SGSWND(0.0,1.0,0.0,REAL(ND)) CALL SGSVPT(0.13,0.14,0.1,0.9) CALL SGSTRN(1) CALL SGSTRF CALL UCYACL('L',JD0,ND) CALL SGFRM CALL UZINIT ND=400 CALL SGSWND(0.0,1.0,0.0,REAL(ND)) CALL SGSVPT(0.13,0.14,0.1,0.9) CALL SGSTRN(1) CALL SGSTRF CALL UCYACL('L',JD0,ND) CALL SGFRM CALL UZINIT ND=60 CALL SGSWND(0.0,1.0,0.0,REAL(ND)) CALL SGSVPT(0.13,0.14,0.1,0.9) CALL SGSTRN(1) CALL SGSTRF CALL UCYADY('L',JD0,ND) CTL='UCYADY (ND=60)' CALL UYSTTL('L',CTL,0.0) CALL SGFRM CALL UZINIT ND=120 CALL SGSWND(0.0,1.0,0.0,REAL(ND)) CALL SGSVPT(0.13,0.14,0.1,0.9) CALL SGSTRN(1) CALL SGSTRF CALL UCYAMN('L',JD0,ND) CTL='UCYAMN (ND=120)' CALL UYSTTL('L',CTL,0.0) CALL SGFRM CALL UZINIT ND=2000 CALL SGSWND(0.0,1.0,0.0,REAL(ND)) CALL SGSVPT(0.13,0.14,0.1,0.9) CALL SGSTRN(1) CALL SGSTRF CALL UCYAYR('L',JD0,ND) CTL='UCYAYR (ND=2000)' CALL UYSTTL('L',CTL,0.0) CALL SGCLS END dcl-7.5.2/demo/grph2/ucpack/ucpk04.f0000644000175000017500000000355614760053155016633 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM UCPK02 PARAMETER (JD0=19920401) CHARACTER CTL*32 WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL SGOPN(IWS) CALL SGLSET('LFULL',.TRUE.) CALL UZFACT(0.7) CALL SLRAT(1.0,1.0) CALL SLDIV('Y',7,1) CALL SGFRM CALL UZINIT ND=30 CALL SGSWND(0.0,1.0,0.0,REAL(ND)) CALL SGSVPT(0.13,0.14,0.1,0.9) CALL SGSTRN(1) CALL SGSTRF CALL UCYACL('L',JD0,ND) CALL SGFRM CALL UZINIT ND=90 CALL SGSWND(0.0,1.0,0.0,REAL(ND)) CALL SGSVPT(0.13,0.14,0.1,0.9) CALL SGSTRN(1) CALL SGSTRF CALL UCYACL('L',JD0,ND) CALL SGFRM CALL UZINIT ND=180 CALL SGSWND(0.0,1.0,0.0,REAL(ND)) CALL SGSVPT(0.13,0.14,0.1,0.9) CALL SGSTRN(1) CALL SGSTRF CALL UCYACL('L',JD0,ND) CALL SGFRM CALL UZINIT ND=400 CALL SGSWND(0.0,1.0,0.0,REAL(ND)) CALL SGSVPT(0.13,0.14,0.1,0.9) CALL SGSTRN(1) CALL SGSTRF CALL UCYACL('L',JD0,ND) CALL SGFRM CALL UZINIT ND=1000 CALL SGSWND(0.0,1.0,0.0,REAL(ND)) CALL SGSVPT(0.13,0.14,0.1,0.9) CALL SGSTRN(1) CALL SGSTRF CALL UCYACL('L',JD0,ND) CALL SGFRM CALL UZINIT ND=3000 CALL SGSWND(0.0,1.0,0.0,REAL(ND)) CALL SGSVPT(0.13,0.14,0.1,0.9) CALL SGSTRN(1) CALL SGSTRF CALL UCYACL('L',JD0,ND) CALL SGFRM CALL UZINIT ND=9000 CALL SGSWND(0.0,1.0,0.0,REAL(ND)) CALL SGSVPT(0.13,0.14,0.1,0.9) CALL SGSTRN(1) CALL SGSTRF CALL UCYACL('L',JD0,ND) CALL SGCLS END dcl-7.5.2/demo/grph2/ucpack/ucpk01.f0000644000175000017500000000403414760053155016620 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM UCPK01 PARAMETER (JD0=19920401) CHARACTER CTL*32 WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL SGOPN(-ABS(IWS)) CALL SGLSET('LFULL',.TRUE.) CALL UZFACT(0.7) CALL SLRAT(0.75,1.0) CALL SLDIV('T',1,7) CALL SGFRM CALL UZINIT ND=30 CALL SGSWND(0.0,REAL(ND),0.0,1.0) CALL SGSVPT(0.1,0.9,0.1,0.11) CALL SGSTRN(1) CALL SGSTRF CALL UCXACL('B',JD0,ND) CALL SGFRM CALL UZINIT ND=90 CALL SGSWND(0.0,REAL(ND),0.0,1.0) CALL SGSVPT(0.1,0.9,0.1,0.11) CALL SGSTRN(1) CALL SGSTRF CALL UCXACL('B',JD0,ND) CALL SGFRM CALL UZINIT ND=180 CALL SGSWND(0.0,REAL(ND),0.0,1.0) CALL SGSVPT(0.1,0.9,0.1,0.11) CALL SGSTRN(1) CALL SGSTRF CALL UCXACL('B',JD0,ND) CALL SGFRM CALL UZINIT ND=400 CALL SGSWND(0.0,REAL(ND),0.0,1.0) CALL SGSVPT(0.1,0.9,0.1,0.11) CALL SGSTRN(1) CALL SGSTRF CALL UCXACL('B',JD0,ND) CALL SGFRM CALL UZINIT ND=60 CALL SGSWND(0.0,REAL(ND),0.0,1.0) CALL SGSVPT(0.1,0.9,0.1,0.11) CALL SGSTRN(1) CALL SGSTRF CALL UCXADY('B',JD0,ND) CTL='UCXADY (ND=60)' CALL UXSTTL('B',CTL,0.0) CALL SGFRM CALL UZINIT ND=120 CALL SGSWND(0.0,REAL(ND),0.0,1.0) CALL SGSVPT(0.1,0.9,0.1,0.11) CALL SGSTRN(1) CALL SGSTRF CALL UCXAMN('B',JD0,ND) CTL='UCXAMN (ND=120)' CALL UXSTTL('B',CTL,0.0) CALL SGFRM CALL UZINIT ND=2000 CALL SGSWND(0.0,REAL(ND),0.0,1.0) CALL SGSVPT(0.1,0.9,0.1,0.11) CALL SGSTRN(1) CALL SGSTRF CALL UCXAYR('B',JD0,ND) CTL='UCXAYR (ND=2000)' CALL UXSTTL('B',CTL,0.0) CALL SGCLS END dcl-7.5.2/demo/grph2/ucpack/ucpk03.f0000644000175000017500000000354714760053155016632 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM UCPK01 PARAMETER (JD0=19920401) CHARACTER CTL*32 WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL SGOPN(IWS) CALL SGLSET('LFULL',.TRUE.) CALL UZFACT(0.7) CALL SLRAT(1.0,1.0) CALL SLDIV('T',1,7) CALL SGFRM CALL UZINIT ND=30 CALL SGSWND(0.0,REAL(ND),0.0,1.0) CALL SGSVPT(0.1,0.9,0.1,0.11) CALL SGSTRN(1) CALL SGSTRF CALL UCXACL('B',JD0,ND) CALL SGFRM CALL UZINIT ND=90 CALL SGSWND(0.0,REAL(ND),0.0,1.0) CALL SGSVPT(0.1,0.9,0.1,0.11) CALL SGSTRN(1) CALL SGSTRF CALL UCXACL('B',JD0,ND) CALL SGFRM CALL UZINIT ND=180 CALL SGSWND(0.0,REAL(ND),0.0,1.0) CALL SGSVPT(0.1,0.9,0.1,0.11) CALL SGSTRN(1) CALL SGSTRF CALL UCXACL('B',JD0,ND) CALL SGFRM CALL UZINIT ND=400 CALL SGSWND(0.0,REAL(ND),0.0,1.0) CALL SGSVPT(0.1,0.9,0.1,0.11) CALL SGSTRN(1) CALL SGSTRF CALL UCXACL('B',JD0,ND) CALL SGFRM CALL UZINIT ND=1000 CALL SGSWND(0.0,REAL(ND),0.0,1.0) CALL SGSVPT(0.1,0.9,0.1,0.11) CALL SGSTRN(1) CALL SGSTRF CALL UCXACL('B',JD0,ND) CALL SGFRM CALL UZINIT ND=3000 CALL SGSWND(0.0,REAL(ND),0.0,1.0) CALL SGSVPT(0.1,0.9,0.1,0.11) CALL SGSTRN(1) CALL SGSTRF CALL UCXACL('B',JD0,ND) CALL SGFRM CALL UZINIT ND=9000 CALL SGSWND(0.0,REAL(ND),0.0,1.0) CALL SGSVPT(0.1,0.9,0.1,0.11) CALL SGSTRN(1) CALL SGSTRF CALL UCXACL('B',JD0,ND) CALL SGCLS END dcl-7.5.2/demo/grph2/uipack/0000755000175000017500000000000014760053155015353 5ustar uwabamiuwabamidcl-7.5.2/demo/grph2/uipack/uipk02.f0000644000175000017500000000166214760053155016641 0ustar uwabamiuwabami PROGRAM SAMPLE02 PARAMETER (NX = 50, NY = 50) REAL Z(NX,NY) DO I = 1, NX DO J = 1, NY Z(I,J) = - (I - NX / 2.)**2 - (J - NY / 2.)**2 END DO END DO CALL UILSET('LCELLX',.TRUE.) CALL UILSET('LCELLY',.TRUE.) CALL SWISET('WINDOW_HEIGHT', 600) CALL SWISET('WINDOW_WIDTH', 600) WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL GROPN(IWS) CALL GRFRM CALL GRSWND(-1., 1., -1., 1.) CALL GRSVPT(.125, .875, .2, .95) CALL GRSTRN(1) CALL GRSTRF CALL UIPDAT(Z, NX, NX, NY) CALL UXAXDV('T', .1, .5) CALL UXAXDV('B', .1, .5) CALL UYAXDV('L', .1, .5) CALL UYAXDV('R', .1, .5) CALL USPSET("MXDGTX",5) CALL UIQCRG(ZMIN, ZMAX) CALL UIXBAR(0.3, 0.7, 0.1, 0.14, ZMIN, ZMAX, "B") CALL UXSTTL("B","color scale",0.0) CALL GRCLS END dcl-7.5.2/demo/grph2/uipack/Makefile0000644000175000017500000000057714760053155017024 0ustar uwabamiuwabami# # Makefile for uipack (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = uipack LIBSRCS = uipk01.f uipk02.f uipk03.f LIBDEMO = uipk01 uipk02 uipk03 LIBEXEC = uipk01$(EXT) uipk02$(EXT) uipk03$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ *.ps core *.trace *.eps *.svg *.pdf a.out dcl-7.5.2/demo/grph2/uipack/uipk01.f0000644000175000017500000000136314760053155016636 0ustar uwabamiuwabami PROGRAM UIPK01 REAL A(2), B(2) CALL SWISET('WINDOW_HEIGHT', 300) CALL SWISET('WINDOW_WIDTH', 300) WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL GROPN(IWS) CALL GRFRM CALL GRSWND(0., 256., 0., 256.) CALL GRSVPT(.1, .9, .1, .9) CALL GRSTRN(1) CALL GRSTRF DO I = 1, 255 A(1) = 1. * I A(2) = 1. * I DO J = 1, 255 B(1) = 1. * (J - 1) B(2) = 1. * J CALL SGPLXU(2, A, B, 1, 1, ISGRGB(I,J,0)) END DO END DO CALL UXAXDV('T', 16., 64.) CALL UXAXDV('B', 16., 64.) CALL UYAXDV('L', 16., 64.) CALL UYAXDV('R', 16., 64.) CALL GRCLS END dcl-7.5.2/demo/grph2/uipack/uipk03.f0000644000175000017500000000207614760053155016642 0ustar uwabamiuwabami program UIPK03 PARAMETER (NX=100, NY=100, LEVEL=256) REAL R(NX,NY),B(NX,NY),G(NX,NY) REAL RC(NX,NY),BC(NX,NY),GC(NX,NY) INTEGER I do i=1,nx do j=1,ny r(i,j) = exp(-((i-nx/2. )**2. + (j-ny/2.)**2. ) / 5000.) g(i,j) = exp(-((i-nx/1.1)**2. + (j-ny/1.2)**2.) / 1000.) b(i,j) = exp(-((i-ny/3. )**2. + (j-ny/5.)**2. ) / 3000.) end do end do CALL RNORML(R,RC,NX,NY,0.0,1.0) CALL RNORML(G,GC,NX,NY,0.2,1.0) CALL RNORML(B,BC,NX,NY,0.0,1.0) CALL SWISET('WINDOW_HEIGHT', 300) CALL SWISET('WINDOW_WIDTH', 300) WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL GROPN(IWS) CALL GRFRM CALL GRSWND( -1., 1., -1., 1.) CALL GRSVPT(.1, .9, .1, .9) CALL GRSTRN(1) CALL GRSTRF call prcopn('DclPaintGrid3') call uipda3(rc, gc, bc, nx, nx, ny) call prccls('DclPaintGrid3') CALL UXAXDV('T', .1, .5) CALL UXAXDV('B', .1, .5) CALL UYAXDV('L', .1, .5) CALL UYAXDV('R', .1, .5) CALL GRCLS end dcl-7.5.2/demo/grph2/Makefile0000644000175000017500000000100414760053155015532 0ustar uwabamiuwabami# # Makefile for grph2 # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../Mkinclude SUBDIRS = grpack ucpack udegpk ulpack umpack uspack uupack \ uxyzpk ximage g2pack uipack sysfont all: @for i in $(SUBDIRS) ; do \ cd $$i ; \ echo "Making $$i" ; \ $(MAKE) ; \ cd .. ; \ done clean: clean.local clean.dir clean.local: $(RM) *~ clean.dir: @for i in $(SUBDIRS) ; do \ cd $$i ; \ echo "Cleaning $$i" ; \ $(MAKE) clean ; \ cd .. ; \ done dcl-7.5.2/demo/grph2/umpack/0000755000175000017500000000000014760053155015357 5ustar uwabamiuwabamidcl-7.5.2/demo/grph2/umpack/test02.f0000644000175000017500000000275114760053155016654 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM TEST02 PARAMETER ( NX=19, NY=19 ) PARAMETER ( XMIN= 0, XMAX=360, YMIN=-90, YMAX=+90 ) PARAMETER ( PI=3.141592, DRAD=PI/180, DZ=0.05, DP=0.2 ) REAL P(NX,NY) DO 20 J = 1, NY DO 10 I = 1, NX ALON = ( XMIN + (XMAX-XMIN) * (I-1) / (NX-1) ) * DRAD ALAT = ( YMIN + (YMAX-YMIN) * (J-1) / (NY-1) ) * DRAD SLAT = SIN(ALAT) P(I,J) = COS(ALON) * (1-SLAT**2) * SIN(2*PI*SLAT) + DZ 10 CONTINUE 20 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GLRGET( 'RMISS', RMISS ) CALL SGLSET( 'LSOFTF', .FALSE. ) CALL GRFRM CALL GRSWND( XMIN, XMAX, YMIN, YMAX ) CALL GRSVPT( 0.1, 0.9, 0.1, 0.9 ) CALL GRSSIM( 0.4, 0.0, 0.0 ) CALL GRSMPL( 165.0, 60.0, 0.0 ) CALL GRSTXY( -180.0, 180.0, 0.0, 90.0 ) CALL GRSTRN( 30 ) CALL GRSTRF CALL SGLSET( 'LCLIP', .TRUE. ) CALL UESTLV( RMISS, -DP, 201 ) CALL UESTLV( DP, DP*2, 401 ) CALL UESTLV( DP*2, RMISS, 402 ) CALL UETONE( P, NX, NX, NY ) CALL UDGCLB( P, NX, NX, NY, DP ) CALL UDCNTR( P, NX, NX, NY ) CALL UMPMAP( 'coast_world' ) CALL UMPGLB CALL GRCLS END dcl-7.5.2/demo/grph2/umpack/umpk01.f0000644000175000017500000000315214760053155016644 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM UMPK01 PARAMETER (NP=14) INTEGER NTR(NP) REAL FCT(NP) CHARACTER CTTL*32 DATA NTR / 10, 11, 12, 13, 14, 15, + 20, 21, 22, 23, 30, 31, 32, 33/ DATA FCT / 0.12, 0.12, 0.14, 0.14, 0.14, 0.14, + 0.11, 0.16, 0.12, 0.12, 0.40, 0.12, 0.12, 0.17/ WRITE(*,*) ' WORKSTATION IS (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL SGOPN( -ABS(IWS) ) CALL SLRAT( 2.0, 3.0 ) CALL SLDIV( 'Y', 2, 3 ) CALL SGRSET( 'STLAT1', 45.0 ) CALL SGRSET( 'STLAT2', 30.0 ) CALL UMLSET( 'LGRIDMN', .FALSE. ) CALL UMISET( 'INDEXMJ', 1 ) DO 10 I=1,NP CALL SGFRM CALL SGSSIM( FCT(I), 0.0, 0.0 ) CALL SGSMPL( 0.0, 90.0, 0.0 ) CALL SGSVPT( 0.1, 0.9, 0.1, 0.9 ) IF ( NTR(I).EQ.30 ) THEN CALL SGSTXY( -180.0, 180.0, 0.0, 90.0 ) ELSE CALL SGSTXY( -180.0, 180.0, -90.0, 90.0 ) END IF CALL SGSTRN( NTR(I) ) CALL SGSTRF CALL SGLSET( 'LCLIP', .TRUE. ) CALL SLPWWR( 1 ) CALL SLPVPR( 1 ) CALL SGTRNL( NTR(I), CTTL ) CALL SGTXZR( 0.5, 0.95, CTTL, 0.03, 0, 0, 3 ) CALL UMPMAP( 'coast_world' ) CALL UMPGLB IF ( NTR(I).EQ.23 ) THEN CALL SGFRM CALL SGFRM END IF 10 CONTINUE CALL SGCLS END dcl-7.5.2/demo/grph2/umpack/Makefile0000644000175000017500000000162314760053155017021 0ustar uwabamiuwabami# # Makefile for umpack (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = umpack LIBSRCS = test01.f test02.f test03.f test04.f \ test05.f test06.f test07.f test08.f \ test09.f umpk01.f umpk02.f umpk03.f \ umpk04.f umpk05.f test10.f LIBDEMO = test01 test02 test03 test04 \ test05 test06 test07 test08 \ test09 umpk01 umpk02 umpk03 \ umpk04 umpk05 test10 LIBEXEC = test01$(EXT) test02$(EXT) test03$(EXT) test04$(EXT) \ test05$(EXT) test06$(EXT) test07$(EXT) test08$(EXT) \ test09$(EXT) umpk01$(EXT) umpk02$(EXT) umpk03$(EXT) \ umpk04$(EXT) umpk05$(EXT) test10$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ *.ps core *.trace *.eps *.svg *.pdf a.out dcl-7.5.2/demo/grph2/umpack/test10.f0000644000175000017500000000307714760053155016655 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM TEST10 PARAMETER (NP=20) REAL FCT(NP) CHARACTER CTTL*32, CTR(NP)*3 EXTERNAL ISGTRC DATA CTR /'CYL','MER','MWD','HMR','EK6','KTD', + 'MIL','RBS','SIN','VDG', + 'CON','COA','COC','BON','PLC', + 'OTG','PST','AZM','AZA','GNO'/ DATA FCT / 0.12, 0.12, 0.14, 0.14, 0.14, 0.14, + 0.12, 0.12, 0.12, 0.12, + 0.11, 0.16, 0.12, 0.12, 0.12, + 0.40, 0.12, 0.12, 0.17, 0.20/ WRITE(*,*) ' WORKSTATION IS (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL SGOPN(IWS) CALL SGRSET( 'STLAT1', 45.0 ) CALL SGRSET( 'STLAT2', 30.0 ) DO 10 I=1,NP CALL SGFRM CALL SGSSIM( FCT(I), 0.0, 0.0 ) CALL SGSMPL( 0.0, 90.0, 0.0 ) CALL SGSVPT( 0.1, 0.9, 0.1, 0.9 ) IF ( CTR(I).EQ.'OTG' .OR. CTR(I).EQ.'GNO' ) THEN CALL SGSTXY( -180.0, 180.0, 0.0, 90.0 ) ELSE CALL SGSTXY( -180.0, 180.0, -90.0, 90.0 ) END IF CALL SGSTRN( ISGTRC(CTR(I)) ) CALL SGSTRF CALL SGLSET( 'LCLIP', .TRUE. ) CALL SLPWWR( 1 ) CALL SLPVPR( 1 ) CALL SGTRNL( ISGTRC(CTR(I)), CTTL ) CALL SGTXZR( 0.5, 0.95, CTTL, 0.03, 0, 0, 3 ) CALL UMPMAP( 'coast_world' ) CALL UMPGLB 10 CONTINUE CALL SGCLS END dcl-7.5.2/demo/grph2/umpack/test01.f0000644000175000017500000000305414760053155016650 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM TEST01 PARAMETER ( NX=19, NY=19 ) PARAMETER ( XMIN= 0, XMAX=360, YMIN=-90, YMAX=+90 ) PARAMETER ( DX1=20, DX2=60, DY1=10, DY2=30 ) PARAMETER ( PI=3.141592, DRAD=PI/180, DZ=0.05, DP=0.2 ) REAL P(NX,NY) DO 20 J = 1, NY DO 10 I = 1, NX ALON = ( XMIN + (XMAX-XMIN) * (I-1) / (NX-1) ) * DRAD ALAT = ( YMIN + (YMAX-YMIN) * (J-1) / (NY-1) ) * DRAD SLAT = SIN(ALAT) P(I,J) = COS(ALON) * (1-SLAT**2) * SIN(2*PI*SLAT) + DZ 10 CONTINUE 20 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GLRGET( 'RMISS', RMISS ) CALL SGLSET( 'LSOFTF', .FALSE. ) CALL GRFRM CALL GRSWND( XMIN, XMAX, YMIN, YMAX ) CALL GRSVPT( 0.2, 0.8, 0.2, 0.8 ) CALL GRSTRN( 1 ) CALL GRSTRF CALL UESTLV( RMISS, -DP, 201 ) CALL UESTLV( DP, DP*2, 401 ) CALL UESTLV( DP*2, RMISS, 402 ) CALL UETONE( P, NX, NX, NY ) CALL UXAXDV( 'B', DX1, DX2 ) CALL UXAXDV( 'T', DX1, DX2 ) CALL UXSTTL( 'B', 'LONGITUDE', 0.0 ) CALL UYAXDV( 'L', DY1, DY2 ) CALL UYAXDV( 'R', DY1, DY2 ) CALL UYSTTL( 'L', 'LATITUDE', 0.0 ) CALL UDGCLB( P, NX, NX, NY, DP ) CALL UDCNTR( P, NX, NX, NY ) CALL GRCLS END dcl-7.5.2/demo/grph2/umpack/test04.f0000644000175000017500000000305214760053155016651 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM TEST04 PARAMETER (NP=20) REAL FCT(NP) CHARACTER CTTL*32, CTR(NP)*3 EXTERNAL ISGTRC DATA CTR /'CYL','MER','MWD','HMR','EK6','KTD', + 'MIL','RBS','SIN','VDG', + 'CON','COA','COC','BON','PLC', + 'OTG','PST','AZM','AZA','GNO'/ DATA FCT / 0.12, 0.12, 0.14, 0.14, 0.14, 0.14, + 0.12, 0.12, 0.12, 0.12, + 0.11, 0.16, 0.12, 0.12,0.12 , + 0.40, 0.12, 0.12, 0.17,0.18/ WRITE(*,*) ' WORKSTATION IS (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL SGOPN(IWS) CALL SGRSET( 'STLAT1', 45.0 ) CALL SGRSET( 'STLAT2', 30.0 ) DO 10 I=1,NP CALL SGFRM CALL SGSSIM( FCT(I), 0.0, 0.0 ) CALL SGSMPL( 0.0, 90.0, 0.0 ) CALL SGSVPT( 0.1, 0.9, 0.1, 0.9 ) IF (CTR(I).EQ.'OTG') THEN CALL SGSTXY( -180.0, 180.0, 0.0, 90.0 ) ELSE CALL SGSTXY( -180.0, 180.0, -90.0, 90.0 ) END IF CALL SGSTRN( ISGTRC(CTR(I)) ) CALL SGSTRF CALL SGLSET( 'LCLIP', .TRUE. ) CALL SLPWWR( 1 ) CALL SLPVPR( 1 ) CALL SGTRNL( ISGTRC(CTR(I)), CTTL ) CALL SGTXZR( 0.5, 0.95, CTTL, 0.03, 0, 0, 3 ) CALL UMPMAP( 'coast_world' ) CALL UMPGLB 10 CONTINUE CALL SGCLS END dcl-7.5.2/demo/grph2/umpack/umpk04.f0000644000175000017500000000274614760053155016657 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM UMPK04 PARAMETER ( NX=19, NY=19 ) PARAMETER ( XMIN= 0, XMAX=360, YMIN=-90, YMAX=+90 ) PARAMETER ( PI=3.141592, DRAD=PI/180, DZ=0.05, DP=0.2 ) REAL P(NX,NY) DO 20 J = 1, NY DO 10 I = 1, NX ALON = ( XMIN + (XMAX-XMIN) * (I-1) / (NX-1) ) * DRAD ALAT = ( YMIN + (YMAX-YMIN) * (J-1) / (NY-1) ) * DRAD SLAT = SIN(ALAT) P(I,J) = COS(ALON) * (1-SLAT**2) * SIN(2*PI*SLAT) + DZ 10 CONTINUE 20 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GLRGET( 'RMISS', RMISS ) CALL SGLSET( 'LSOFTF', .FALSE. ) CALL GRFRM CALL GRSWND( XMIN, XMAX, YMIN, YMAX ) CALL GRSVPT( 0.1, 0.9, 0.1, 0.9 ) CALL GRSSIM( 0.4, 0.0, 0.0 ) CALL GRSMPL( 165.0, 60.0, 0.0 ) CALL GRSTXY( -180.0, 180.0, 0.0, 90.0 ) CALL GRSTRN( 30 ) CALL GRSTRF CALL SGLSET( 'LCLIP', .TRUE. ) CALL UESTLV( RMISS, -DP, 201 ) CALL UESTLV( DP, DP*2, 401 ) CALL UESTLV( DP*2, RMISS, 402 ) CALL UETONE( P, NX, NX, NY ) CALL UDGCLB( P, NX, NX, NY, DP ) CALL UDCNTR( P, NX, NX, NY ) CALL UMPMAP( 'coast_world' ) CALL UMPGLB CALL GRCLS END dcl-7.5.2/demo/grph2/umpack/umpk05.f0000644000175000017500000000406214760053155016651 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM UMPK05 PARAMETER ( NX=37, NY=37 ) PARAMETER ( XMIN= 0, XMAX=360, YMIN=-90, YMAX=+90 ) PARAMETER ( PI=3.141592, DRAD=PI/180, DZ=0.05 ) PARAMETER ( FACT=10 ) REAL P(NX,NY), U(NX,NY), V(NX,NY), ALON(NX), ALAT(NY) EXTERNAL IMOD CALL GLRGET( 'RMISS', RMISS ) CALL GLLSET( 'LMISS', .TRUE. ) DO 10 I = 1, NX ALON(I) = XMIN + (XMAX-XMIN) * (I-1) / (NX-1) 10 CONTINUE DO 20 J = 1, NY ALAT(J) = YMIN + (YMAX-YMIN) * (J-1) / (NY-1) 20 CONTINUE DO 40 J = 1, NY DO 30 I = 1, NX SLAT = SIN(ALAT(J)*DRAD) P(I,J) = COS(ALON(I)*DRAD) * (1-SLAT**2) * SIN(2*PI*SLAT) + + DZ 30 CONTINUE 40 CONTINUE DO 60 J = 1, NY DO 50 I = 1, NX IF (J.EQ.1 .OR. J.EQ.NY) THEN U(I,J) = RMISS V(I,J) = RMISS ELSE U(I,J) = ( P(I,J-1) - P(I,J+1) ) * FACT V(I,J) = ( P(IMOD(I,NX-1)+1,J) - P(IMOD(I-2,NX-1)+1,J) ) + * FACT END IF 50 CONTINUE 60 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL GRSWND( XMIN, XMAX, YMIN, YMAX ) CALL GRSVPT( 0.1, 0.9, 0.1, 0.9 ) CALL GRSSIM( 0.4, 0.0, 0.0 ) CALL GRSMPL( 165.0, 60.0, 0.0 ) CALL GRSTXY( -180.0, 180.0, 0.0, 90.0 ) CALL GRSTRN( 30 ) CALL GRSTRF CALL SGLSET( 'LCLIP', .TRUE. ) CALL UMPMAP( 'coast_world' ) CALL UMPGLB CALL UDCNTR( P, NX, NX, NY ) DO 80 J=1,NY DO 70 I=1,NX IF (.NOT.(U(I,J).EQ.RMISS .OR. V(I,J).EQ.RMISS)) THEN CALL SGLAZU(ALON(I),ALAT(J),ALON(I)+U(I,J),ALAT(J)+V(I,J), + 1, 3 ) END IF 70 CONTINUE 80 CONTINUE CALL GRCLS END dcl-7.5.2/demo/grph2/umpack/umpk03.f0000644000175000017500000000204214760053155016643 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM UMPK03 PARAMETER (NP=2) CHARACTER CTTL*32, CTR(NP)*3 EXTERNAL ISGTRC DATA CTR /'MER','CON'/ WRITE(*,*) ' WORKSTATION IS (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL GROPN( ABS(IWS) ) CALL SLRAT( 2.0, 1.0 ) CALL SLDIV( 'Y', 2, 1 ) DO 10 I=1,NP CALL GRFRM CALL GRSWND( 123.0, 147.0, 30.0, 46.0) CALL GRSVPT( 0.1, 0.9, 0.1, 0.9 ) CALL GRSTRN( ISGTRC(CTR(I)) ) CALL UMPFIT CALL GRSTRF CALL SGLSET( 'LCLIP', .TRUE. ) CALL SLPWWR( 1 ) CALL SLPVPR( 1 ) CALL SGTRNL( ISGTRC(CTR(I)), CTTL ) CALL SGTXZR( 0.5, 0.95, CTTL, 0.03, 0, 0, 3 ) * CALL UMPMAP( 'coast_japan' ) CALL UMPMAP( 'coast_world' ) CALL UMPGLB 10 CONTINUE CALL GRCLS END dcl-7.5.2/demo/grph2/umpack/test07.f0000644000175000017500000000204514760053155016655 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM TEST07 PARAMETER (NP=14) CHARACTER CTTL*32, CTR(NP)*3 EXTERNAL ISGTRC DATA CTR /'CYL','MER','MWD','HMR','EK6','KTD', + 'CON','COA','COC','BON', + 'OTG','PST','AZM','AZA'/ WRITE(*,*) ' WORKSTATION IS (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL GROPN(IWS) DO 10 I=1,NP CALL GRFRM CALL GRSWND( 123.0, 147.0, 30.0, 46.0) CALL GRSVPT( 0.1, 0.9, 0.1, 0.9 ) CALL GRSTRN( ISGTRC(CTR(I)) ) CALL UMPFIT CALL GRSTRF CALL SGLSET( 'LCLIP', .TRUE. ) CALL SLPWWR( 1 ) CALL SLPVPR( 1 ) CALL SGTRNL( ISGTRC(CTR(I)), CTTL ) CALL SGTXZR( 0.5, 0.95, CTTL, 0.03, 0, 0, 3 ) CALL UMPMAP( 'coast_japan' ) CALL UMPGLB 10 CONTINUE CALL GRCLS END dcl-7.5.2/demo/grph2/umpack/t811231.dat0000644000175000017500000005262014760053155017001 0ustar uwabamiuwabami 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.107 245.104 245.102 245.098 245.089 245.072 245.048 245.020 244.992 244.970 244.961 244.968 244.993 245.031 245.078 245.124 245.161 245.179 245.175 245.149 245.107 245.057 245.014 244.987 244.987 245.019 245.083 245.172 245.276 245.384 245.481 245.559 245.612 245.637 245.638 245.619 245.589 245.553 245.516 245.480 245.446 245.410 245.371 245.328 245.281 245.232 245.186 245.147 245.118 245.104 245.103 245.116 245.137 245.161 245.185 245.203 245.214 245.218 245.216 245.212 245.206 245.202 245.200 245.199 245.196 245.192 245.183 245.171 245.156 245.139 245.125 245.114 245.107 244.757 244.750 244.742 244.729 244.707 244.675 244.636 244.597 244.565 244.549 244.554 244.583 244.633 244.698 244.767 244.828 244.871 244.891 244.887 244.863 244.830 244.800 244.786 244.799 244.845 244.924 245.030 245.153 245.281 245.400 245.500 245.575 245.622 245.643 245.641 245.622 245.591 245.552 245.504 245.449 245.385 245.311 245.228 245.138 245.047 244.960 244.882 244.819 244.773 244.745 244.733 244.734 244.744 244.758 244.774 244.792 244.811 244.834 244.860 244.890 244.922 244.951 244.974 244.986 244.984 244.967 244.938 244.900 244.859 244.821 244.791 244.770 244.757 244.196 244.182 244.167 244.146 244.119 244.088 244.056 244.030 244.015 244.017 244.037 244.074 244.125 244.181 244.238 244.287 244.327 244.355 244.374 244.391 244.411 244.441 244.484 244.544 244.617 244.700 244.787 244.872 244.949 245.016 245.069 245.109 245.138 245.157 245.166 245.164 245.150 245.121 245.075 245.009 244.925 244.826 244.715 244.600 244.486 244.378 244.282 244.197 244.125 244.064 244.011 243.968 243.933 243.909 243.899 243.908 243.936 243.985 244.050 244.128 244.208 244.283 244.344 244.385 244.402 244.397 244.374 244.339 244.301 244.264 244.235 244.212 244.196 243.383 243.383 243.381 243.373 243.361 243.347 243.334 243.327 243.328 243.340 243.363 243.393 243.426 243.459 243.490 243.516 243.540 243.565 243.594 243.633 243.684 243.746 243.819 243.897 243.974 244.044 244.100 244.139 244.160 244.163 244.151 244.128 244.097 244.062 244.023 243.981 243.935 243.884 243.827 243.765 243.698 243.629 243.558 243.485 243.410 243.330 243.242 243.143 243.033 242.912 242.787 242.664 242.557 242.475 242.431 242.430 242.476 242.565 242.688 242.832 242.981 243.121 243.239 243.329 243.387 243.416 243.423 243.416 243.403 243.391 243.384 243.382 243.383 242.257 242.346 242.427 242.490 242.530 242.546 242.540 242.518 242.489 242.460 242.438 242.426 242.425 242.433 242.447 242.465 242.483 242.500 242.517 242.533 242.550 242.567 242.583 242.597 242.605 242.606 242.596 242.575 242.543 242.500 242.447 242.388 242.322 242.253 242.179 242.104 242.027 241.952 241.883 241.822 241.775 241.743 241.725 241.717 241.711 241.697 241.663 241.598 241.498 241.361 241.194 241.013 240.836 240.685 240.581 240.538 240.566 240.663 240.816 241.009 241.218 241.421 241.599 241.741 241.842 241.906 241.944 241.970 241.998 242.038 242.096 242.171 242.257 240.703 240.885 241.055 241.198 241.300 241.352 241.353 241.310 241.234 241.142 241.051 240.977 240.929 240.913 240.926 240.959 241.001 241.037 241.054 241.044 241.003 240.932 240.839 240.734 240.628 240.532 240.452 240.390 240.344 240.305 240.264 240.210 240.136 240.038 239.920 239.789 239.659 239.546 239.464 239.423 239.430 239.481 239.564 239.661 239.749 239.806 239.812 239.752 239.624 239.435 239.202 238.950 238.707 238.503 238.363 238.302 238.327 238.433 238.606 238.824 239.061 239.295 239.504 239.678 239.813 239.914 239.992 240.063 240.143 240.243 240.372 240.528 240.703 238.692 238.960 239.211 239.418 239.558 239.616 239.591 239.493 239.343 239.171 239.005 238.874 238.796 238.779 238.817 238.894 238.988 239.072 239.122 239.122 239.063 238.951 238.797 238.621 238.444 238.285 238.158 238.066 238.005 237.964 237.926 237.876 237.801 237.696 237.563 237.413 237.265 237.138 237.054 237.027 237.063 237.158 237.298 237.458 237.610 237.725 237.777 237.748 237.632 237.435 237.176 236.883 236.590 236.331 236.136 236.028 236.016 236.098 236.260 236.480 236.727 236.975 237.199 237.384 237.526 237.630 237.712 237.792 237.891 238.027 238.209 238.434 238.692 236.370 236.644 236.891 237.087 237.210 237.252 237.213 237.105 236.951 236.778 236.613 236.484 236.407 236.391 236.435 236.526 236.643 236.764 236.865 236.925 236.934 236.888 236.792 236.659 236.504 236.346 236.198 236.069 235.962 235.872 235.791 235.708 235.614 235.503 235.380 235.252 235.134 235.046 235.003 235.020 235.100 235.236 235.413 235.603 235.775 235.896 235.939 235.886 235.734 235.491 235.183 234.842 234.508 234.218 234.004 233.885 233.868 233.945 234.096 234.294 234.510 234.716 234.893 235.031 235.132 235.207 235.276 235.358 235.474 235.635 235.845 236.095 236.370 233.932 234.178 234.391 234.549 234.639 234.657 234.607 234.505 234.369 234.224 234.091 233.989 233.932 233.927 233.975 234.068 234.196 234.344 234.498 234.642 234.761 234.847 234.891 234.893 234.852 234.776 234.669 234.541 234.397 234.245 234.089 233.932 233.777 233.630 233.495 233.380 233.297 233.255 233.264 233.328 233.446 233.608 233.795 233.981 234.138 234.233 234.245 234.156 233.967 233.689 233.351 232.988 232.641 232.348 232.141 232.034 232.032 232.118 232.269 232.452 232.635 232.790 232.901 232.964 232.988 232.992 233.000 233.035 233.117 233.255 233.447 233.680 233.932 231.848 232.031 232.185 232.296 232.356 232.365 232.329 232.258 232.167 232.070 231.980 231.911 231.870 231.866 231.902 231.979 232.094 232.243 232.418 232.607 232.797 232.974 233.124 233.235 233.297 233.305 233.258 233.160 233.018 232.842 232.642 232.432 232.224 232.030 231.863 231.733 231.652 231.627 231.661 231.752 231.892 232.064 232.247 232.412 232.533 232.584 232.548 232.418 232.200 231.914 231.589 231.260 230.965 230.735 230.590 230.539 230.575 230.678 230.821 230.973 231.106 231.200 231.248 231.250 231.223 231.185 231.159 231.167 231.221 231.325 231.475 231.655 231.848 230.311 230.439 230.536 230.597 230.624 230.622 230.598 230.561 230.519 230.478 230.444 230.420 230.409 230.415 230.441 230.490 230.565 230.665 230.790 230.934 231.088 231.245 231.391 231.516 231.611 231.667 231.680 231.646 231.565 231.441 231.277 231.084 230.871 230.653 230.447 230.271 230.143 230.077 230.079 230.151 230.280 230.447 230.625 230.782 230.888 230.919 230.861 230.716 230.496 230.230 229.952 229.698 229.499 229.379 229.344 229.389 229.494 229.632 229.772 229.886 229.956 229.972 229.941 229.876 229.799 229.733 229.700 229.711 229.772 229.877 230.013 230.164 230.311 229.189 229.280 229.353 229.406 229.439 229.454 229.453 229.440 229.418 229.391 229.365 229.345 229.336 229.343 229.368 229.413 229.474 229.545 229.622 229.698 229.767 229.828 229.881 229.928 229.972 230.012 230.047 230.071 230.075 230.046 229.975 229.855 229.687 229.480 229.254 229.033 228.845 228.716 228.663 228.691 228.792 228.945 229.118 229.274 229.382 229.415 229.364 229.234 229.046 228.829 228.621 228.454 228.353 228.331 228.384 228.497 228.643 228.794 228.923 229.008 229.041 229.023 228.967 228.891 228.815 228.757 228.733 228.746 228.797 228.878 228.978 229.086 229.189 228.429 228.462 228.493 228.523 228.553 228.581 228.602 228.613 228.610 228.595 228.572 228.549 228.534 228.537 228.561 228.606 228.665 228.727 228.779 228.809 228.810 228.784 228.738 228.685 228.641 228.622 228.633 228.675 228.735 228.794 228.829 228.818 228.746 228.612 228.425 228.208 227.993 227.810 227.688 227.643 227.677 227.776 227.914 228.060 228.181 228.252 228.260 228.208 228.109 227.988 227.873 227.789 227.752 227.768 227.830 227.921 228.022 228.111 228.173 228.201 228.195 228.165 228.125 228.091 228.073 228.080 228.110 228.160 228.221 228.283 228.341 228.389 228.429 227.844 227.793 227.754 227.734 227.736 227.758 227.791 227.826 227.854 227.870 227.875 227.875 227.878 227.895 227.932 227.991 228.067 228.148 228.220 228.266 228.274 228.239 228.166 228.067 227.960 227.867 227.804 227.781 227.798 227.844 227.902 227.949 227.964 227.933 227.853 227.731 227.584 227.435 227.309 227.225 227.196 227.221 227.292 227.390 227.495 227.587 227.651 227.680 227.678 227.652 227.616 227.581 227.558 227.551 227.559 227.575 227.593 227.607 227.613 227.612 227.609 227.612 227.629 227.662 227.714 227.777 227.842 227.899 227.937 227.948 227.932 227.894 227.844 227.499 227.359 227.248 227.178 227.153 227.171 227.221 227.291 227.364 227.430 227.481 227.516 227.539 227.558 227.582 227.620 227.673 227.741 227.813 227.879 227.924 227.937 227.910 227.842 227.741 227.618 227.493 227.381 227.299 227.255 227.251 227.282 227.334 227.390 227.435 227.454 227.439 227.389 227.312 227.219 227.129 227.057 227.018 227.022 227.072 227.162 227.283 227.419 227.552 227.664 227.742 227.775 227.760 227.700 227.605 227.488 227.369 227.264 227.191 227.164 227.187 227.261 227.376 227.519 227.669 227.805 227.908 227.961 227.957 227.896 227.788 227.649 227.499 227.455 227.270 227.122 227.026 226.984 226.994 227.046 227.128 227.224 227.322 227.410 227.482 227.535 227.572 227.597 227.617 227.639 227.666 227.698 227.730 227.755 227.760 227.736 227.673 227.570 227.429 227.262 227.089 226.932 226.812 226.749 226.751 226.817 226.933 227.078 227.222 227.335 227.394 227.385 227.309 227.180 227.026 226.879 226.775 226.741 226.791 226.925 227.124 227.360 227.592 227.781 227.896 227.918 227.843 227.688 227.482 227.265 227.075 226.950 226.911 226.968 227.112 227.320 227.561 227.797 227.994 228.125 228.175 228.139 228.028 227.860 227.661 227.455 227.528 227.386 227.284 227.224 227.202 227.213 227.248 227.301 227.368 227.442 227.520 227.595 227.662 227.716 227.750 227.763 227.755 227.728 227.687 227.637 227.579 227.513 227.437 227.343 227.226 227.084 226.919 226.744 226.576 226.438 226.352 226.335 226.395 226.525 226.703 226.896 227.065 227.172 227.192 227.115 226.952 226.733 226.504 226.316 226.214 226.229 226.369 226.619 226.940 227.279 227.577 227.785 227.871 227.825 227.665 227.431 227.176 226.954 226.814 226.785 226.875 227.069 227.334 227.624 227.893 228.102 228.225 228.251 228.189 228.058 227.886 227.701 227.528 227.430 227.368 227.351 227.369 227.408 227.454 227.496 227.528 227.551 227.569 227.589 227.614 227.645 227.676 227.701 227.711 227.697 227.655 227.582 227.482 227.360 227.221 227.070 226.910 226.743 226.571 226.397 226.231 226.083 225.969 225.906 225.906 225.974 226.102 226.272 226.454 226.613 226.712 226.727 226.646 226.478 226.252 226.011 225.807 225.686 225.684 225.812 226.060 226.392 226.755 227.091 227.346 227.484 227.493 227.386 227.200 226.986 226.800 226.690 226.685 226.793 226.997 227.261 227.540 227.788 227.966 228.055 228.050 227.967 227.832 227.679 227.537 227.430 227.232 227.243 227.293 227.367 227.444 227.506 227.542 227.546 227.523 227.482 227.436 227.397 227.372 227.362 227.364 227.368 227.364 227.339 227.287 227.202 227.085 226.938 226.766 226.575 226.374 226.171 225.975 225.798 225.653 225.553 225.509 225.528 225.609 225.741 225.905 226.073 226.214 226.299 226.307 226.232 226.082 225.883 225.675 225.499 225.398 225.399 225.515 225.735 226.031 226.359 226.671 226.921 227.080 227.135 227.096 226.991 226.861 226.748 226.690 226.708 226.808 226.973 227.176 227.379 227.548 227.657 227.692 227.657 227.570 227.458 227.349 227.269 227.232 227.030 227.043 227.093 227.168 227.250 227.320 227.361 227.361 227.318 227.239 227.137 227.030 226.936 226.871 226.842 226.849 226.883 226.928 226.962 226.964 226.914 226.802 226.624 226.389 226.113 225.821 225.543 225.307 225.139 225.054 225.057 225.143 225.293 225.481 225.675 225.843 225.957 226.000 225.966 225.862 225.709 225.536 225.377 225.265 225.226 225.274 225.412 225.627 225.893 226.181 226.456 226.689 226.862 226.964 227.003 226.992 226.957 226.921 226.908 226.930 226.991 227.086 227.198 227.307 227.393 227.439 227.439 227.394 227.314 227.219 227.128 227.060 227.030 227.348 227.280 227.250 227.257 227.297 227.355 227.411 227.445 227.443 227.396 227.309 227.195 227.075 226.973 226.910 226.896 226.929 226.991 227.054 227.080 227.035 226.891 226.639 226.285 225.859 225.405 224.975 224.621 224.385 224.288 224.332 224.495 224.737 225.006 225.251 225.427 225.507 225.483 225.365 225.183 224.975 224.785 224.650 224.599 224.646 224.790 225.019 225.309 225.634 225.967 226.282 226.564 226.800 226.987 227.128 227.230 227.301 227.352 227.395 227.437 227.486 227.543 227.608 227.674 227.734 227.777 227.794 227.778 227.728 227.647 227.547 227.441 227.348 228.249 228.128 228.034 227.979 227.966 227.989 228.030 228.068 228.085 228.066 228.011 227.929 227.839 227.766 227.729 227.736 227.782 227.841 227.872 227.827 227.662 227.344 226.868 226.253 225.548 224.825 224.161 223.632 223.293 223.170 223.253 223.498 223.837 224.186 224.468 224.621 224.611 224.437 224.130 223.744 223.348 223.009 222.786 222.715 222.809 223.062 223.445 223.922 224.452 224.998 225.529 226.024 226.472 226.867 227.206 227.493 227.728 227.917 228.064 228.177 228.265 228.338 228.405 228.471 228.536 228.596 228.641 228.662 228.647 228.592 228.500 228.380 228.249 229.122 229.013 228.923 228.865 228.845 228.857 228.889 228.925 228.949 228.955 228.944 228.930 228.931 228.965 229.044 229.161 229.291 229.388 229.394 229.247 228.894 228.310 227.500 226.510 225.420 224.332 223.355 222.587 222.093 221.896 221.971 222.248 222.625 222.989 223.235 223.284 223.096 222.681 222.086 221.395 220.705 220.113 219.700 219.519 219.591 219.908 220.433 221.119 221.910 222.754 223.609 224.439 225.224 225.947 226.598 227.170 227.659 228.064 228.386 228.632 228.816 228.951 229.055 229.142 229.221 229.294 229.356 229.399 229.412 229.388 229.325 229.232 229.122 228.870 228.868 228.875 228.894 228.923 228.955 228.978 228.984 228.971 228.947 228.931 228.953 229.042 229.223 229.502 229.863 230.256 230.610 230.834 230.838 230.545 229.916 228.956 227.722 226.317 224.876 223.544 222.450 221.685 221.285 221.221 221.411 221.728 222.027 222.173 222.062 221.642 220.920 219.957 218.858 217.754 216.774 216.030 215.601 215.522 215.789 216.363 217.184 218.180 219.282 220.429 221.573 222.680 223.724 224.688 225.559 226.323 226.972 227.503 227.915 228.219 228.430 228.568 228.655 228.713 228.756 228.792 228.825 228.852 228.870 228.878 228.876 228.870 226.187 226.330 226.487 226.642 226.776 226.872 226.917 226.906 226.849 226.771 226.715 226.735 226.889 227.223 227.760 228.489 229.354 230.263 231.093 231.710 231.990 231.847 231.246 230.218 228.857 227.308 225.739 224.318 223.178 222.396 221.979 221.861 221.922 222.009 221.965 221.662 221.022 220.033 218.750 217.282 215.772 214.373 213.222 212.422 212.028 212.047 212.444 213.156 214.106 215.214 216.413 217.650 218.886 220.094 221.252 222.340 223.334 224.212 224.951 225.534 225.954 226.217 226.341 226.355 226.294 226.195 226.089 226.003 225.952 225.946 225.986 226.068 226.187 221.082 221.316 221.563 221.798 221.995 222.132 222.193 222.171 222.079 221.950 221.842 221.830 222.003 222.443 223.210 224.325 225.755 227.412 229.152 230.801 232.175 233.109 233.490 233.278 232.511 231.304 229.825 228.269 226.819 225.615 224.728 224.153 223.810 223.568 223.270 222.771 221.965 220.809 219.327 217.610 215.790 214.025 212.461 211.219 210.372 209.945 209.916 210.233 210.826 211.621 212.556 213.583 214.667 215.781 216.899 217.994 219.029 219.962 220.749 221.354 221.755 221.950 221.959 221.820 221.586 221.311 221.049 220.843 220.718 220.687 220.746 220.884 221.082 214.367 214.560 214.761 214.955 215.127 215.261 215.344 215.364 215.321 215.235 215.151 215.146 215.319 215.784 216.648 217.986 219.823 222.111 224.729 227.489 230.162 232.505 234.306 235.415 235.771 235.412 234.466 233.127 231.614 230.135 228.847 227.830 227.078 226.510 225.991 225.368 224.506 223.319 221.787 219.958 217.942 215.883 213.935 212.231 210.867 209.890 209.298 209.052 209.090 209.348 209.768 210.307 210.937 211.641 212.399 213.188 213.968 214.693 215.309 215.765 216.028 216.088 215.959 215.682 215.316 214.924 214.567 214.289 214.116 214.053 214.089 214.202 214.367 207.670 207.714 207.761 207.819 207.893 207.982 208.076 208.158 208.211 208.230 208.237 208.289 208.480 208.931 209.779 211.144 213.105 215.670 218.766 222.234 225.841 229.318 232.392 234.831 236.482 237.290 237.309 236.681 235.609 234.317 233.007 231.822 230.828 230.011 229.286 228.530 227.611 226.424 224.915 223.092 221.025 218.826 216.634 214.581 212.775 211.284 210.134 209.309 208.768 208.457 208.321 208.317 208.410 208.580 208.805 209.064 209.330 209.566 209.737 209.809 209.760 209.590 209.315 208.970 208.601 208.254 207.966 207.760 207.640 207.592 207.596 207.628 207.670 202.215 202.097 201.970 201.868 201.822 201.852 201.954 202.112 202.295 202.473 202.638 202.811 203.055 203.475 204.203 205.376 207.110 209.469 212.444 215.940 219.780 223.725 227.506 230.862 233.581 235.531 236.674 237.066 236.842 236.181 235.275 234.287 233.329 232.446 231.616 230.768 229.807 228.637 227.195 225.459 223.464 221.285 219.031 216.823 214.769 212.953 211.422 210.186 209.223 208.488 207.927 207.485 207.114 206.778 206.452 206.117 205.763 205.383 204.974 204.541 204.094 203.651 203.236 202.876 202.593 202.400 202.298 202.270 202.289 202.320 202.330 202.297 202.215 198.360 198.164 197.949 197.762 197.651 197.647 197.760 197.976 198.264 198.588 198.916 199.242 199.592 200.031 200.657 201.590 202.944 204.809 207.227 210.171 213.545 217.190 220.899 224.449 227.629 230.272 232.275 233.608 234.311 234.482 234.248 233.744 233.083 232.339 231.543 230.682 229.712 228.578 227.231 225.646 223.834 221.840 219.740 217.628 215.600 213.737 212.097 210.703 209.550 208.601 207.803 207.094 206.413 205.714 204.963 204.149 203.277 202.369 201.458 200.585 199.793 199.120 198.597 198.240 198.049 198.006 198.078 198.217 198.371 198.490 198.537 198.493 198.360 195.633 195.454 195.264 195.113 195.044 195.087 195.255 195.538 195.911 196.340 196.792 197.246 197.705 198.202 198.793 199.559 200.587 201.957 203.726 205.908 208.474 211.344 214.394 217.477 220.431 223.109 225.392 227.204 228.515 229.344 229.742 229.785 229.550 229.108 228.508 227.773 226.906 225.892 224.713 223.358 221.831 220.157 218.384 216.575 214.801 213.130 211.612 210.277 209.128 208.140 207.267 206.450 205.631 204.758 203.797 202.737 201.593 200.401 199.215 198.095 197.103 196.288 195.684 195.301 195.126 195.124 195.244 195.426 195.610 195.746 195.800 195.759 195.633 193.604 193.533 193.472 193.455 193.509 193.652 193.889 194.214 194.608 195.052 195.526 196.019 196.533 197.086 197.710 198.448 199.347 200.452 201.794 203.385 205.213 207.242 209.412 211.644 213.852 215.948 217.854 219.505 220.860 221.899 222.623 223.049 223.206 223.126 222.840 222.375 221.750 220.976 220.063 219.021 217.861 216.604 215.277 213.915 212.557 211.241 209.999 208.851 207.803 206.846 205.954 205.094 204.227 203.316 202.338 201.282 200.158 198.994 197.833 196.726 195.726 194.879 194.216 193.751 193.474 193.358 193.363 193.439 193.539 193.622 193.664 193.655 193.604 192.255 192.293 192.372 192.505 192.699 192.955 193.265 193.617 193.998 194.399 194.815 195.254 195.730 196.268 196.893 197.629 198.495 199.497 200.630 201.876 203.207 204.590 205.988 207.368 208.700 209.962 211.135 212.206 213.163 213.992 214.683 215.221 215.595 215.796 215.819 215.667 215.349 214.881 214.283 213.579 212.793 211.946 211.059 210.146 209.220 208.294 207.374 206.469 205.583 204.719 203.875 203.047 202.226 201.401 200.562 199.700 198.815 197.914 197.011 196.131 195.300 194.548 193.899 193.368 192.961 192.670 192.478 192.363 192.300 192.267 192.250 192.244 192.255 192.232 192.335 192.487 192.685 192.925 193.198 193.492 193.796 194.101 194.405 194.717 195.050 195.430 195.881 196.427 197.083 197.848 198.710 199.640 200.597 201.541 202.430 203.238 203.948 204.565 205.104 205.591 206.053 206.509 206.969 207.428 207.866 208.254 208.560 208.753 208.815 208.739 208.532 208.215 207.813 207.356 206.865 206.357 205.838 205.304 204.747 204.159 203.536 202.877 202.192 201.495 200.802 200.129 199.486 198.877 198.299 197.741 197.192 196.642 196.085 195.523 194.963 194.421 193.914 193.458 193.068 192.750 192.506 192.333 192.225 192.175 192.178 192.232 194.079 194.161 194.275 194.418 194.581 194.755 194.931 195.102 195.263 195.418 195.574 195.745 195.951 196.211 196.539 196.944 197.423 197.958 198.525 199.089 199.615 200.073 200.444 200.722 200.916 201.049 201.150 201.251 201.377 201.544 201.754 201.993 202.240 202.465 202.640 202.745 202.768 202.709 202.581 202.402 202.191 201.966 201.737 201.508 201.273 201.022 200.744 200.431 200.080 199.697 199.293 198.885 198.491 198.123 197.791 197.495 197.228 196.978 196.733 196.480 196.210 195.922 195.621 195.317 195.022 194.751 194.514 194.321 194.177 194.082 194.037 194.037 194.079 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 dcl-7.5.2/demo/grph2/umpack/test08.f0000644000175000017500000000143114760053155016654 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM TEST08 EXTERNAL ISGTRC WRITE(*,*) ' WORKSTATION IS (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL SGLSET('LFULL', .TRUE.) CALL GROPN(IWS) CALL SLRAT(1., 0.6) CALL GRFRM CALL GRSMPL(140., 90., 0.) CALL GRSTRN(ISGTRC('HMR')) CALL UMPFIT CALL GRSTRF CALL UMPGLB CALL UMISET('INDEXOUT',3) CALL UMPMAP('coast_world') CALL UMISET('INDEXOUT',30) CALL UMPMAP('border_world') CALL UMISET('INDEXOUT',20) CALL UMPMAP('plate_world') CALL GRCLS END dcl-7.5.2/demo/grph2/umpack/umpk02.f0000644000175000017500000000232414760053155016645 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM UMPK02 PARAMETER (NP=14) INTEGER NTR(NP) CHARACTER CTTL*32 DATA NTR / 10, 11, 12, 13, 14, 15, + 20, 21, 22, 23, 30, 31, 32, 33/ WRITE(*,*) ' WORKSTATION IS (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL GROPN( -ABS(IWS) ) CALL SLRAT( 2.0, 3.0 ) CALL SLDIV( 'Y', 2, 3 ) CALL UMISET( 'INDEXMJ', 1 ) CALL UMISET( 'ITYPEMN', 1 ) DO 10 I=1,NP CALL GRFRM * CALL GRSMPL( 0.0, 90.0, 0.0 ) CALL GRSVPT( 0.1, 0.9, 0.1, 0.9 ) CALL GRSTRN( NTR(I) ) CALL UMPFIT CALL GRSTRF CALL SGLSET( 'LCLIP', .TRUE. ) CALL SLPWWR( 1 ) CALL SLPVPR( 1 ) CALL SGTRNL( NTR(I), CTTL ) CALL SGTXZR( 0.5, 0.95, CTTL, 0.03, 0, 0, 3 ) CALL UMPMAP( 'coast_world' ) CALL UMPGLB IF ( NTR(I).EQ.23 ) THEN CALL GRFRM CALL GRFRM END IF 10 CONTINUE CALL GRCLS END dcl-7.5.2/demo/grph2/umpack/test06.f0000644000175000017500000000203314760053155016651 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM TEST06 PARAMETER (NP=14) CHARACTER CTTL*32, CTR(NP)*3 EXTERNAL ISGTRC DATA CTR /'CYL','MER','MWD','HMR','EK6','KTD', + 'CON','COA','COC','BON', + 'OTG','PST','AZM','AZA'/ WRITE(*,*) ' WORKSTATION IS (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL GROPN(IWS) CALL UMLSET('LGLOBE', .TRUE.) DO 10 I=1,NP CALL GRFRM CALL GRSVPT( 0.1, 0.9, 0.1, 0.9 ) CALL GRSTRN( ISGTRC(CTR(I)) ) CALL UMPFIT CALL GRSTRF CALL SGLSET( 'LCLIP', .TRUE. ) CALL SLPWWR( 1 ) CALL SLPVPR( 1 ) CALL SGTRNL( ISGTRC(CTR(I)), CTTL ) CALL SGTXZR( 0.5, 0.95, CTTL, 0.03, 0, 0, 3 ) CALL UMPMAP( 'coast_world' ) CALL UMPGLB 10 CONTINUE CALL GRCLS END dcl-7.5.2/demo/grph2/umpack/test03.f0000644000175000017500000000420214760053155016646 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM TEST03 PARAMETER ( NX=37, NY=37 ) PARAMETER ( XMIN= 0, XMAX=360, YMIN=-90, YMAX=+90 ) PARAMETER ( PI=3.141592, DRAD=PI/180, DZ=0.05 ) PARAMETER ( FACT=10 ) REAL P(NX,NY), U(NX,NY), V(NX,NY), ALON(NX), ALAT(NY) EXTERNAL IMOD CALL GLRGET( 'RMISS', RMISS ) CALL GLLSET( 'LMISS', .TRUE. ) DO 10 I = 1, NX ALON(I) = XMIN + (XMAX-XMIN) * (I-1) / (NX-1) 10 CONTINUE DO 20 J = 1, NY ALAT(J) = YMIN + (YMAX-YMIN) * (J-1) / (NY-1) 20 CONTINUE DO 40 J = 1, NY DO 30 I = 1, NX SLAT = SIN(ALAT(J)*DRAD) P(I,J) = COS(ALON(I)*DRAD) * (1-SLAT**2) * SIN(2*PI*SLAT) + + DZ 30 CONTINUE 40 CONTINUE DO 60 J = 1, NY DO 50 I = 1, NX IF (J.EQ.1 .OR. J.EQ.NY) THEN U(I,J) = RMISS V(I,J) = RMISS ELSE U(I,J) = ( P(I,J-1) - P(I,J+1) ) * FACT V(I,J) = ( P(IMOD(I,NX-1)+1,J) - P(IMOD(I-2,NX-1)+1,J) ) + * FACT END IF 50 CONTINUE 60 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL GRSWND( XMIN, XMAX, YMIN, YMAX ) CALL GRSVPT( 0.1, 0.9, 0.1, 0.9 ) CALL GRSSIM( 0.4, 0.0, 0.0 ) CALL GRSMPL( 165.0, 60.0, 0.0 ) CALL GRSTXY( -180.0, 180.0, 0.0, 90.0 ) CALL GRSTRN( 30 ) CALL GRSTRF CALL SGLSET( 'LCLIP', .TRUE. ) CALL UMLSET( 'LGRIDMJ', .FALSE. ) CALL UMRSET( 'DGRIDMN', 30.0 ) CALL UMPMAP( 'coast_world' ) CALL UMPGLB CALL UDCNTR( P, NX, NX, NY ) DO 80 J=1,NY DO 70 I=1,NX IF (.NOT.(U(I,J).EQ.RMISS .OR. V(I,J).EQ.RMISS)) THEN CALL SGLAZU(ALON(I),ALAT(J),ALON(I)+U(I,J),ALAT(J)+V(I,J), + 1, 3 ) END IF 70 CONTINUE 80 CONTINUE CALL GRCLS END dcl-7.5.2/demo/grph2/umpack/test05.f0000644000175000017500000000420014760053155016646 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM TEST05 PARAMETER ( NP=14 ) PARAMETER ( NX=73, NY=37 ) PARAMETER ( XMIN=0, XMAX=360, YMIN=-90, YMAX=90 ) REAL FCT(NP), P(NX,NY) CHARACTER CTTL*32, CTR(NP)*3 EXTERNAL ISGTRC DATA CTR /'CYL','MER','MWD','HMR','EK6','KTD', + 'CON','COA','COC','BON', + 'OTG','PST','AZM','AZA'/ DATA FCT / 0.12, 0.12, 0.14, 0.14, 0.14, 0.14, + 0.11, 0.16, 0.12, 0.12, + 0.40, 0.12, 0.12, 0.17/ WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS OPEN(11,FILE='t811231.dat',FORM='FORMATTED') DO 10 J=1,NY READ(11,'(10F8.3)') (P(I,J),I=1,NX) 10 CONTINUE CLOSE(11) DO 20 IR=190,245,5 R=IR AMIN=R AMAX=R+5 * IDX=(R-180)*1.4*1000+999 IDX=INT((R-170)*1.25)*1000+999 CALL UESTLV(AMIN,AMAX,IDX) 20 CONTINUE CALL SGOPN( IWS ) CALL SGLSET( 'LSOFTF', .FALSE. ) CALL SGRSET( 'STLAT1', 75.0 ) CALL SGRSET( 'STLAT2', 60.0 ) CALL UMLSET( 'LGRIDMJ', .FALSE. ) CALL UMRSET( 'DGRIDMN', 30.0 ) DO 30 I=1,NP CALL SGFRM CALL SGSSIM( FCT(I), 0.0, 0.0 ) CALL SGSMPL( 165.0, 60.0, 0.0 ) CALL SGSVPT( 0.1, 0.9, 0.1, 0.9 ) CALL SGSWND(XMIN, XMAX, YMIN, YMAX) IF (CTR(I).EQ.'OTG') THEN CALL SGSTXY( -180.0, 180.0, 0.0, 90.0 ) ELSE CALL SGSTXY( -180.0, 180.0, -90.0, 90.0 ) END IF CALL SGSTRN( ISGTRC(CTR(I)) ) CALL SGSTRF CALL SGLSET( 'LCLIP', .TRUE. ) CALL SLPWWR( 1 ) CALL SLPVPR( 1 ) CALL SGTRNL( ISGTRC(CTR(I)), CTTL ) CALL SGTXZR( 0.5, 0.95, CTTL, 0.03, 0, 0, 3 ) CALL UETONE( P, NX, NX, NY ) CALL UDCNTR( P, NX, NX, NY ) CALL UMPMAP( 'coast_world' ) CALL UMPGLB CALL SLPVPR( 1 ) 30 CONTINUE CALL SGCLS END dcl-7.5.2/demo/grph2/umpack/test09.f0000644000175000017500000000447514760053155016670 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM TEST09 PARAMETER ( NP=14 ) PARAMETER ( NX=73, NY=37 ) PARAMETER ( XMIN=0, XMAX=360, YMIN=-90, YMAX=90 ) REAL FCT(NP), P(NX,NY) CHARACTER CTTL*32, CTR(NP)*3 EXTERNAL ISGTRC DATA CTR /'CYL','MER','MWD','HMR','EK6','KTD', + 'CON','COA','COC','BON', + 'OTG','PST','AZM','AZA'/ DATA FCT / 0.12, 0.12, 0.14, 0.14, 0.14, 0.14, + 0.11, 0.16, 0.12, 0.12, + 0.40, 0.12, 0.12, 0.17/ WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS OPEN(11,FILE='t811231.dat',FORM='FORMATTED') DO 10 J=1,NY READ(11,'(10F8.3)') (P(I,J),I=1,NX) 10 CONTINUE CLOSE(11) DO 20 IR=190,245,5 R=IR AMIN=R AMAX=R+5 * IDX=(R-180)*1.4*1000+999 IDX=INT((R-170)*1.25)*1000+999 CALL UESTLV(AMIN,AMAX,IDX) 20 CONTINUE CALL SGLSET( 'LSOFTF', .FALSE. ) CALL SWLSET( 'LCMCH', .TRUE. ) CALL SGRSET( 'STLAT1', 75.0 ) CALL SGRSET( 'STLAT2', 60.0 ) CALL UMLSET( 'LGRIDMJ', .FALSE. ) CALL UMRSET( 'DGRIDMN', 30.0 ) CALL SGQCMN(NN) CALL SGSCMN(1) CALL SGOPN( IWS ) DO 30 I=1,NP ICN=MOD(I-1,NN)+1 CALL SGSCMN(I) CALL SGFRM CALL SGSSIM( FCT(I), 0.0, 0.0 ) CALL SGSMPL( 165.0, 60.0, 0.0 ) CALL SGSVPT( 0.1, 0.9, 0.1, 0.9 ) CALL SGSWND(XMIN, XMAX, YMIN, YMAX) IF (CTR(I).EQ.'OTG') THEN CALL SGSTXY( -180.0, 180.0, 0.0, 90.0 ) ELSE CALL SGSTXY( -180.0, 180.0, -90.0, 90.0 ) END IF CALL SGSTRN( ISGTRC(CTR(I)) ) CALL SGSTRF CALL SGLSET( 'LCLIP', .TRUE. ) CALL SLPWWR( 1 ) CALL SLPVPR( 1 ) CALL SGTRNL( ISGTRC(CTR(I)), CTTL ) CALL SGTXZR( 0.5, 0.95, CTTL, 0.03, 0, 0, 3 ) CALL UETONE( P, NX, NX, NY ) CALL UDCNTR( P, NX, NX, NY ) CALL UMFMAP( 'coast_world' ) CALL UMPMAP( 'coast_world' ) CALL UMPGLB CALL SLPVPR( 1 ) 30 CONTINUE CALL SWPCLS CALL SGCLS END dcl-7.5.2/demo/grph2/uspack/0000755000175000017500000000000014760053155015365 5ustar uwabamiuwabamidcl-7.5.2/demo/grph2/uspack/uspk05.f0000644000175000017500000000251414760053155016665 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM USPK05 PARAMETER(N=200, M=5) REAL X(N), Y0(N), Y1(N), Y2(N), A(M) *----------------------------------------------------------------------- DT = 1./(N-1) PI = 3.14159 DO 50 J=1, M JJ = J*2-1 A(J) = (-1)**J *2./(JJ*PI) 50 CONTINUE DO 100 I=1, N T = DT*(I-1)*2*PI X(I) = DT*(I-1) Y2(I) = 0. DO 150 J=1, M JJ = J*2-1 YY = A(J)*COS(JJ*T) Y2(I) = Y2(I) + YY 150 CONTINUE Y1(I) = A(1)*COS(T) IF(T.LT.PI/2. .OR. T.GE.PI*3./2.) THEN Y0(I) = -0.5 ELSE Y0(I) = 0.5 ENDIF 100 CONTINUE *----------------------------------------------------------------------- WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN(IWS) CALL GRFRM CALL USSPNT(N, X, Y0) CALL USSPNT(N, X, Y1) CALL USSPNT(N, X, Y2) CALL USPFIT CALL GRSTRF CALL USDAXS CALL UULINZ(N, X, Y0, 1, 5) CALL UULINZ(N, X, Y1, 3, 1) CALL UULINZ(N, X, Y2, 2, 2) CALL GRCLS END dcl-7.5.2/demo/grph2/uspack/uspk04.f0000644000175000017500000000241014760053155016657 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM USPK04 PARAMETER(N=200, M=5) REAL X(N), Y0(N), Y1(N), Y2(N), A(M) *----------------------------------------------------------------------- DT = 1./(N-1) PI = 3.14159 DO 50 J=1, M JJ = J*2-1 A(J) = (-1)**J *2./(JJ*PI) 50 CONTINUE DO 100 I=1, N T = DT*(I-1)*2*PI X(I) = DT*(I-1) Y2(I) = 0. DO 150 J=1, M JJ = J*2-1 YY = A(J)*COS(JJ*T) Y2(I) = Y2(I) + YY 150 CONTINUE Y1(I) = A(1)*COS(T) IF(T.LT.PI/2. .OR. T.GE.PI*3./2.) THEN Y0(I) = -0.5 ELSE Y0(I) = 0.5 ENDIF 100 CONTINUE *----------------------------------------------------------------------- WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN(IWS) CALL GRFRM CALL USSPNT(N, X, Y1) CALL USSPNT(N, X, Y2) CALL UUSLNI(5) CALL USGRPH(N, X, Y0) CALL UULINZ(N, X, Y1, 3, 1) CALL UULINZ(N, X, Y2, 2, 2) CALL GRCLS END dcl-7.5.2/demo/grph2/uspack/uspk12.f0000644000175000017500000000177714760053155016675 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM USPK12 PARAMETER(NT=51, NZ=21, ZMIN=20., ZMAX=50., TMAX=5.) PARAMETER(DZ=(ZMAX-ZMIN)/(NZ-1), DT=TMAX/(NT-1)) REAL U(NT, NZ) DO 20 J=1, NZ Z = DZ*(J-1) UZ = EXP(-0.2*Z)*(Z**0.5) DO 10 I=1, NT T = DT*(I-1) - 2*EXP(-0.1*Z) U(I,J) = UZ*SIN(3.*T) 10 CONTINUE 20 CONTINUE *----------------------------------------------------------------------- WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN(IWS) CALL GRFRM CALL GRSWND(0., TMAX, ZMIN, ZMAX) CALL GRSVPT(0.2, 0.8, 0.2, 0.8) CALL GRSTRN(1) CALL GRSTRF CALL USSTTL('TIME', 'YEAR', 'HEIGHT', 'km') CALL USDAXS CALL UDCNTR(U, NT, NT, NZ) CALL GRCLS END dcl-7.5.2/demo/grph2/uspack/Makefile0000644000175000017500000000141414760053155017025 0ustar uwabamiuwabami# # Makefile for uspack (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = uspack LIBSRCS = uspk01.f uspk02.f uspk03.f uspk04.f \ uspk05.f uspk06.f uspk07.f uspk08.f \ uspk09.f uspk10.f uspk11.f uspk12.f LIBDEMO = uspk01 uspk02 uspk03 uspk04 \ uspk05 uspk06 uspk07 uspk08 \ uspk09 uspk10 uspk11 uspk12 LIBEXEC = uspk01$(EXT) uspk02$(EXT) uspk03$(EXT) uspk04$(EXT) \ uspk05$(EXT) uspk06$(EXT) uspk07$(EXT) uspk08$(EXT) \ uspk09$(EXT) uspk10$(EXT) uspk11$(EXT) uspk12$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ *.ps core *.trace *.eps *.svg *.pdf a.out dcl-7.5.2/demo/grph2/uspack/uspk10.f0000644000175000017500000000207514760053155016663 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM USPK10 PARAMETER (N=400) REAL X(N), Y(N) PI = 3.14159 DT = 2*PI/(N-1) DO 100 I=1, N T = DT*(I-1) X(I) = T Y(I) = 10.*SIN(2.*T) 100 CONTINUE *---------------------------- 1ST PAGE --------------------------------- WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN(IWS) CALL GRFRM CALL USGRPH(N, X, Y) *---------------------------- 2ND PAGE --------------------------------- CALL GLRGET('RUNDEF', RUNDEF) CALL GRFRM CALL GRSWND(0., 2.*PI, RUNDEF, RUNDEF) CALL USRSET('DXL' , 1.25) CALL USRSET('DXT' , 0.25) CALL USRSET('XFAC', 0.1) CALL USRSET('YFAC', 10.) CALL USGRPH(N, X, Y) *----------------------------------------------------------------------- CALL GRCLS END dcl-7.5.2/demo/grph2/uspack/uspk11.f0000644000175000017500000000331714760053155016664 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM USPK11 PARAMETER(N=181, N1=26, N2=7, NC=4) REAL T(N), Y(N), UX1(N1), UX2(N2) DOUBLE PRECISION R, A CHARACTER*(NC) CH(N2) DATA CH /'JAN', 'FEB', 'MAR', 'APL', 'JUN', 'JULY', ' '/ DATA UX2 / 0., 31., 59., 90., 120., 151., 181./ R = 0.2D0 A = 4.D0 Y(1) = 120. T(1) = 0.5 DO 10 I=2, N R = A*R*(1.D0-R) Y(I) = Y(I-1) + (R-0.46)*2 T(I) = I - 0.5 10 CONTINUE DO 20 I=1, N1 UX1(I) = (I-1)*7 + 1 20 CONTINUE *----------------------------------------------------------------------- WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GLRGET('RUNDEF',RUNDEF) CALL USLSET('LYINV',.TRUE.) CALL GROPN(IWS) CALL GRFRM CALL GRSWND(0., 181., RUNDEF, RUNDEF) CALL GRSVPT(0.2, 0.8, 0.2, 0.8) CALL GRSTRN(1) CALL USSPNT(N, RUNDEF, Y) CALL USPFIT CALL GRSTRF *------------------------------- Y-AXIS -------------------------------- CALL USYAXS('L') CALL USYAXS('R') CALL UYSTTL('L', 'YEN/DOLLAR', 0.) *------------------------------- X-AXIS -------------------------------- CALL UZLSET('LBTWN', .TRUE.) CALL UXAXLB('B', UX1, N1, UX2, CH, NC, N2) CALL UXAXLB('T', UX1, N1, UX2, CH, NC, N2) CALL UXSTTL('T', 'EXCHANGE RATE', 0.) *-------------------------------- LINE --------------------------------- CALL SGPLU(N, T, Y) CALL GRCLS END dcl-7.5.2/demo/grph2/uspack/uspk08.f0000644000175000017500000000211514760053155016665 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM USPK08 PARAMETER(N=200) CHARACTER USGI*3 REAL T(N), Z(N) LOGICAL LSFNT DOUBLE PRECISION R, A R = 0.2D0 A = 4.0D0 DO 10 I=1, N R = A*R*(1.D0-R) Z2 = (FLOAT(I-5)/40.)**2 T(I) = 20.*EXP(-Z2) + R*2. Z(I) = I*2 10 CONTINUE *----------------------------------------------------------------------- WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN(IWS) CALL GRFRM * --- OMAJINAI --- CALL USLSET('LYINV' , .TRUE.) CALL UZLSET('LABELXT' , .TRUE.) CALL USCSET('CYSPOS' , 'B') CALL USCSET('CXSIDE' , 'T') CALL USCSET('CYSIDE' , 'L') CALL SWLGET('LSYSFNT',LSFNT) CALL USSTTL('TEMPERATURE', '\^'//USGI(228)//'C', 'DEPTH', 'm') CALL USGRPH(N, T, Z) CALL GRCLS END dcl-7.5.2/demo/grph2/uspack/uspk06.f0000644000175000017500000000213414760053155016664 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM USPK06 PARAMETER(N=200) DOUBLE PRECISION X, Y, Z, DX, DY, DZ, DT, S, R, B REAL T(N), A(N) DATA X, Y, Z, S, R, B, DT / # 0.D0, 1.D0, 1.D0, 10.D0, 26.D0, 2.6D0, 0.01D0 / *----------------------------------------------------------------------- DO 10 I=1, N DO 20 J=1, 8 DX = -S*X + S*Y DY = -X*Z + R*X - Y DZ = X*Y - B*Z X = X + DX*DT Y = Y + DY*DT Z = Z + DZ*DT 20 CONTINUE T(I) = (I-1)*1000 A(I) = Y + 20. 10 CONTINUE *----------------------------------------------------------------------- WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN(IWS) CALL GRFRM CALL USSTTL('TIME', 'SEC', 'HEAT FLUX', 'W/m\^2') CALL USGRPH(N, T, A) CALL GRCLS END dcl-7.5.2/demo/grph2/uspack/uspk02.f0000644000175000017500000000203614760053155016661 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM USPK02 PARAMETER (N=100) DOUBLE PRECISION A, R REAL X(N), Y(N) *---------------------------- DATA DEFINITION -------------------------- R = 0.2D0 A = 3.6D0 R0 = 0. DO 100 I=1, N R = A*R*(1.D0-R) R0 = R0 + R*4 - 2.58 X2 = (I-50)**2 REXP = 4.*I/N X(I) = 10**REXP Y(I) = 1.E5*EXP(-X2) + 10.**R0 100 CONTINUE Y(20) = 1.E4 Y(40) = 2.E3 Y(65) = 3.E4 Y(70) = 5.E2 *----------------------------- GRAPH ----------------------------------- WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN(IWS) CALL GRFRM CALL GRSTRN(4) CALL USGRPH(N, X, Y) CALL GRCLS *----------------------------------------------------------------------- END dcl-7.5.2/demo/grph2/uspack/uspk01.f0000644000175000017500000000154714760053155016666 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM USPK01 PARAMETER (N=400) REAL X(N), Y(N) *---------------------------- DATA DEFINITION -------------------------- DT = 3.14159 / (N-1) A = 1.E5 B = 1.E-4 C = 1. DO 100 I=1, N T = DT*(I-1) X(I) = A*SIN(6.*T) Y(I) = B*COS(14.*T) + C 100 CONTINUE *----------------------------- GRAPH ----------------------------------- WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN(IWS) CALL GRFRM CALL USGRPH(N, X, Y) CALL GRCLS *----------------------------------------------------------------------- END dcl-7.5.2/demo/grph2/uspack/uspk09.f0000644000175000017500000000370014760053155016667 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM USPK09 PARAMETER(N=200, M=5) REAL X(N), Y(N), YC(N,M), A(M) DT = 1./(N-1) PI = 3.14159 DO 50 J=1, M JJ = J*2-1 A(J) = (-1)**J *2./(JJ*PI) 50 CONTINUE DO 100 I=1, N T = DT*(I-1)*2*PI X(I) = DT*(I-1) Y(I) = 0. DO 150 J=1, M JJ = J*2-1 YC(I,J) = A(J)*COS(JJ*T) Y(I) = Y(I) + YC(I,J) 150 CONTINUE 100 CONTINUE *--------------------------- 1ST PAGE ---------------------------------- WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GLRGET('RUNDEF',RUNDEF) CALL GROPN(IWS) CALL GRFRM CALL GRSVPT(0.2, 0.8, 0.2, 0.6) CALL USSPNT(N*M, RUNDEF, YC) CALL USSTTL('X-AXIS', ' ', 'COMPONENTS', ' ') CALL USGRPH(N, X, YC) DO 200 J=2,M IP = MOD(J-1,4) + 1 CALL UULINZ(N, X, YC(1,J), 1, IP) 200 CONTINUE * --- NEW FIG --- CALL GRFIG CALL GRSVPT(0.2, 0.8, 0.62, 0.82) CALL UZLSET('LABELXB', .FALSE.) CALL USSTTL('X-AXIS', ' ', 'TOTAL', ' ') CALL USGRPH(N, X, Y) *--------------------------- 2ND PAGE ---------------------------------- CALL GRFRM CALL GRSVPT(0.2, 0.8, 0.2, 0.6) CALL UZFACT(0.5) CALL UZLSET('LABELXB', .TRUE.) CALL USSPNT(N*M, RUNDEF, YC) CALL USSTTL('X-AXIS', ' ', 'COMPONENTS', ' ') CALL USGRPH(N, X, YC) DO 300 J=2,M IP = MOD(J-1,4) + 1 CALL UULINZ(N, X, YC(1,J), 1, IP) 300 CONTINUE * --- NEW FIG --- CALL GRFIG CALL GRSVPT(0.2, 0.8, 0.62, 0.82) CALL UZLSET('LABELXB', .FALSE.) CALL USSTTL('X-AXIS', ' ', 'TOTAL', ' ') CALL USGRPH(N, X, Y) CALL GRCLS END dcl-7.5.2/demo/grph2/uspack/uspk03.f0000644000175000017500000000160514760053155016663 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM USPK03 PARAMETER (N=30) DOUBLE PRECISION A, R REAL Y(N) *---------------------------- DATA DEFINITION -------------------------- R = 0.2D0 A = 3.7D0 DO 100 I=1, N R = A*R*(1.D0-R) Y(I) = R 100 CONTINUE *----------------------------- GRAPH ----------------------------------- WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GLRGET('RUNDEF',RUNDEF) CALL GROPN(IWS) CALL GRFRM CALL GRSWND(0.0, 1.0, RUNDEF, RUNDEF) CALL USGRPH(N, RUNDEF, Y) CALL GRCLS *----------------------------------------------------------------------- END dcl-7.5.2/demo/grph2/uspack/uspk07.f0000644000175000017500000000251314760053155016666 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM USPK07 PARAMETER(N=200, M=10) REAL X(N), Y(N), A(M) *----------------------------------------------------------------------- DT = 1./(N-1) PI = 3.14159 DO 50 J=1, M JJ = J*2-1 A(J) = (-1)**J *2./(JJ*PI) 50 CONTINUE DO 100 I=1, N T = DT*(I-1)*2*PI X(I) = DT*(I-1) YY = 0. DO 150 J=1, M JJ = J*2-1 YD = A(J)*COS(JJ*T) YY = YY + YD 150 CONTINUE Y(I) = YY*2. 100 CONTINUE *----------------------------------------------------------------------- WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN(IWS) CALL GRFRM * --- X AXIS --- CALL UZRSET('UYUSER' , 0.) CALL USCSET('CXSIDE' , 'U') * --- Y AXIS --- CALL UZISET('IROTLYL' , 1) CALL UZISET('ICENTYL' , 0) CALL USCSET('CYSIDE' , 'L') * --- etc. --- CALL UZISET('INNER' , -1) CALL USCSET('CBLKT' , '[]') CALL USSTTL('TIME', 'SEC', 'VOLTAGE', 'mV') CALL USGRPH(N, X, Y) CALL GRCLS END dcl-7.5.2/demo/grph2/uxyzpk/0000755000175000017500000000000014760053155015451 5ustar uwabamiuwabamidcl-7.5.2/demo/grph2/uxyzpk/uxyz06.f0000644000175000017500000000163114760053155017006 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM UXYZ06 PARAMETER ( ID0=19811201, ND=720 ) WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL GROPN( IWS ) CALL UZFACT( 0.7 ) CALL GRFRM RND=ND CALL SGSWND( -180.0, 180.0, RND, 0.0 ) CALL SGSVPT( 0.2, 0.8, 0.2, 0.8 ) CALL SGSTRN( 1 ) CALL SGSTRF CALL UXAXDV( 'B', 10.0, 60.0 ) CALL UXAXDV( 'T', 10.0, 60.0 ) CALL UXSTTL( 'B', 'LONGITUDE', 0.0 ) CALL UCYACL( 'L', ID0, ND ) CALL UZLSET( 'LABELYR', .TRUE. ) CALL UYAXDV( 'R', 20.0, 100.0 ) CALL UYSTTL( 'R', 'DAY NUMBER', 0.0 ) CALL UXMTTL( 'T', 'UXAXDV/UCYACL', 0.0 ) CALL GRCLS END dcl-7.5.2/demo/grph2/uxyzpk/uxyz10.f0000644000175000017500000000260514760053155017003 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM UXYZ10 PARAMETER ( ID0=19811201, ND=180, RND=ND ) WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL GROPN( IWS ) CALL UZFACT( 0.7 ) CALL UZLSET( 'LOFFSET',.TRUE.) CALL GRFRM CALL SGSWND( 0.0, RND, 0.0, 100.0 ) CALL SGSVPT( 0.4, 0.9, 0.3, 0.8 ) CALL SGSTRN( 1 ) CALL SGSTRF CALL SLPVPR( 1 ) CALL UCXACL( 'B', ID0, ND ) CALL UXSAXS( 'B' ) CALL UXAXDV( 'B', 10.0, 20.0 ) CALL UXSTTL( 'B', 'DAY NUMBER', 0.0 ) CALL UCXACL( 'T', ID0, ND ) CALL UYAXDV( 'L', 5.0, 10.0 ) CALL UYAXDV( 'R', 5.0, 10.0 ) CALL UYSTTL( 'L', 'CELSIUS SCALE', 0.0 ) CALL UYSAXS( 'L' ) CALL UZRSET( 'YOFFSET', 273.15 ) CALL UZRSET( 'YFACT ', 1.0 ) CALL UYAXDV( 'L', 5.0, 10.0 ) CALL UYSTTL( 'L', 'KELVIN SCALE', 0.0 ) CALL UYSAXS( 'L' ) CALL UZRSET( 'YOFFSET', 32.0 ) CALL UZRSET( 'YFACT ', 1.8 ) CALL UYAXDV( 'L', 10.0, 20.0 ) CALL UYSTTL( 'L', 'FAHRENHEIT SCALE', 0.0 ) CALL UXSTTL( 'T', '( LOFSET=.TRUE. )', 0.0 ) CALL UXSTTL( 'T', 'UXSAXS/UYSAXS', 0.0 ) CALL GRCLS END dcl-7.5.2/demo/grph2/uxyzpk/uxyz07.f0000644000175000017500000000153414760053155017011 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM UXYZ07 WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL SGSWND( 1985.0, 1990.0, -2.0, +2.0 ) CALL SGSVPT( 0.2, 0.8, 0.3, 0.7 ) CALL SGSTRN( 1 ) CALL SGSTRF CALL UZRSET( 'UYUSER', 0.0 ) CALL UZLSET( 'LBTWN', .TRUE. ) CALL UXSFMT( '(I4)' ) CALL UXAXDV( 'U', 0.25, 1.0 ) CALL UZLSET( 'LBTWN', .FALSE. ) CALL UXSTTL( 'U', 'YEAR', +1.0 ) CALL UYAXDV( 'L', 0.25, 1.0 ) CALL UYSTTL( 'L', 'S.O.I.', 0.0 ) CALL UXMTTL( 'T', 'UXAXDV/UYAXDV', 0.0 ) CALL GRCLS END dcl-7.5.2/demo/grph2/uxyzpk/Makefile0000644000175000017500000000127614760053155017117 0ustar uwabamiuwabami# # Makefile for uxyzpk (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = uxyzpk LIBSRCS = uxyz01.f uxyz02.f uxyz03.f uxyz04.f \ uxyz05.f uxyz06.f uxyz07.f uxyz08.f \ uxyz09.f uxyz10.f LIBDEMO = uxyz01 uxyz02 uxyz03 uxyz04 \ uxyz05 uxyz06 uxyz07 uxyz08 \ uxyz09 uxyz10 LIBEXEC = uxyz01$(EXT) uxyz02$(EXT) uxyz03$(EXT) uxyz04$(EXT) \ uxyz05$(EXT) uxyz06$(EXT) uxyz07$(EXT) uxyz08$(EXT) \ uxyz09$(EXT) uxyz10$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ *.ps core *.trace *.eps *.svg *.pdf a.out dcl-7.5.2/demo/grph2/uxyzpk/uxyz03.f0000644000175000017500000000147014760053155017004 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM UXYZ03 WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL SGSWND( -50.0, +50.0, 1.0E3, 0.4 ) CALL SGSVPT( 0.2, 0.8, 0.2, 0.8 ) CALL SGSTRN( 2 ) CALL SGSTRF CALL UXAXDV( 'B', 5.0, 20.0 ) CALL UXAXDV( 'T', 5.0, 20.0 ) CALL UXSTTL( 'B', 'LATITUDE', 0.0 ) CALL ULISET( 'IYTYPE', 3 ) CALL ULYLOG( 'L', 3, 9 ) CALL ULYLOG( 'R', 3, 9 ) CALL UYSTTL( 'L', 'PRESSURE (MB)', 0.0 ) CALL UXMTTL( 'T', 'UXAXDV/ULYLOG', 0.0 ) CALL GRCLS END dcl-7.5.2/demo/grph2/uxyzpk/uxyz04.f0000644000175000017500000000315614760053155017010 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM UXYZ04 PARAMETER ( NX1=21, NX2= 5 ) PARAMETER ( NY1= 0, NY2=18 ) REAL RX1(NX1), RX2(NX2), RY2(NY2) CHARACTER CX2(NX2)*4, CY2(NY2)*4 DATA RX1/-50,-45,-40,-35,-30,-25,-20,-15,-10, -5, 0, + 5, 10, 15, 20, 25, 30, 35, 40, 45, 50/ DATA RX2/ -40 , -20 , 0 , 20 , 40 / DATA CX2/'40S ','20S ','EQ ','20N ','40N '/ DATA RY2/ 1000 , 850 , 700 , 500 , 400 , 300 , + 250 , 200 , 150 , 100 , 70 , 50 , + 30 , 10 , 5 , 2 , 1 , 0.4 / DATA CY2/'1000',' ',' ','500 ',' ',' ', + ' ','200 ',' ','100 ',' ','50 ', + '30 ','10 ','5 ','2 ','1 ','.4 '/ WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL SGSWND( -50.0, +50.0, 1.0E3, 0.4 ) CALL SGSVPT( 0.2, 0.8, 0.2, 0.8 ) CALL SGSTRN( 2 ) CALL SGSTRF CALL UXAXLB( 'B', RX1, NX1, RX2, CX2, 4, NX2 ) CALL UXAXLB( 'T', RX1, NX1, RX2, CX2, 4, NX2 ) CALL UXSTTL( 'B', 'LATITUDE', 0.0 ) CALL UYAXLB( 'L', DUMMY, NY1, RY2, CY2, 4, NY2 ) CALL UYAXLB( 'R', DUMMY, NY1, RY2, CY2, 4, NY2 ) CALL UYSTTL( 'L', 'PRESSURE (MB)', 0.0 ) CALL UXMTTL( 'T', 'UXAXLB/UYAXLB', 0.0 ) CALL GRCLS END dcl-7.5.2/demo/grph2/uxyzpk/uxyz09.f0000644000175000017500000000213714760053155017013 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM UXYZ09 PARAMETER ( ID0=19811201, ND=180, RND=ND ) PARAMETER ( RLAT1=20, RLAT2=80, DLAT1=5, DLAT2=10 ) WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL GROPN( IWS ) CALL UZFACT( 0.7 ) CALL GRFRM CALL SGSWND( 0.0, RND, RLAT1, RLAT2 ) CALL SGSVPT( 0.2, 0.8, 0.4, 0.8 ) CALL SGSTRN( 1 ) CALL SGSTRF CALL SLPVPR( 1 ) CALL UXSAXS( 'B' ) CALL UCXACL( 'B', ID0, ND ) CALL UXSAXS( 'B' ) CALL UXAXDV( 'B', 10.0, 20.0 ) CALL UXSTTL( 'B', 'DAY NUMBER', 0.0 ) CALL UXSAXS( 'T' ) CALL UCXACL( 'T', ID0, ND ) CALL UYSAXS( 'L' ) CALL UYAXDV( 'L', DLAT1, DLAT2 ) CALL UYSAXS( 'R' ) CALL UYAXDV( 'R', DLAT1, DLAT2 ) CALL UYSTTL( 'L', 'LATITUDE', 0.0 ) CALL UXMTTL( 'T', 'UXSAXS/UYSAXS', 0.0 ) CALL GRCLS END dcl-7.5.2/demo/grph2/uxyzpk/uxyz02.f0000644000175000017500000000140014760053155016774 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM UXYZ02 WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL SGSWND( 1.0E0, 1.0E5, 1.0E3, 1.0E0 ) CALL SGSVPT( 0.2, 0.8, 0.2, 0.8 ) CALL SGSTRN( 4 ) CALL SGSTRF CALL ULXLOG( 'B', 1, 9 ) CALL ULXLOG( 'T', 1, 9 ) CALL UXSTTL( 'B', '[X]', 1.0 ) CALL ULYLOG( 'L', 3, 9 ) CALL ULYLOG( 'R', 3, 9 ) CALL UYSTTL( 'L', '[Y]', 1.0 ) CALL UXMTTL( 'T', 'ULXLOG/ULYLOG', 0.0 ) CALL GRCLS END dcl-7.5.2/demo/grph2/uxyzpk/uxyz01.f0000644000175000017500000000161414760053155017002 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM UXYZ01 WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL SGSWND( -180.0, +180.0, -90.0, +90.0 ) CALL SGSVPT( 0.2, 0.8, 0.3, 0.7 ) CALL SGSTRN( 1 ) CALL SGSTRF CALL UXAXDV( 'B', 10.0, 60.0 ) CALL UXAXDV( 'T', 10.0, 60.0 ) CALL UXSTTL( 'B', 'LONGITUDE', 0.0 ) CALL UXSTTL( 'B', '<- WEST EAST ->', 0.0 ) CALL UYAXDV( 'L', 10.0, 30.0 ) CALL UYAXDV( 'R', 10.0, 30.0 ) CALL UYSTTL( 'L', 'LATITUDE', 0.0 ) CALL UYSTTL( 'L', '<- SH NH ->', 0.0 ) CALL UXMTTL( 'T', 'UXAXDV/UYAXDV', 0.0 ) CALL GRCLS END dcl-7.5.2/demo/grph2/uxyzpk/uxyz08.f0000644000175000017500000000250414760053155017010 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM UXYZ08 PARAMETER ( X1=-180, X2=+180, DX1=10, DX2=60 ) PARAMETER ( Y1= -90, Y2= +90, DY1=10, DY2=30 ) WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL SGSWND( X1, X2, Y1, Y2 ) CALL SGSVPT( 0.2, 0.8, 0.3, 0.7 ) CALL SGSTRN( 1 ) CALL SGSTRF CALL UZISET( 'INNER', -1 ) CALL UZRSET( 'UXUSER', 0.0 ) CALL UZRSET( 'UYUSER', 0.0 ) CALL UZLSET( 'LABELXU', .FALSE. ) CALL UZLSET( 'LABELYU', .FALSE. ) CALL UXAXDV( 'B', DX1, DX2 ) CALL UXAXDV( 'T', DX1, DX2 ) CALL UXSTTL( 'B', 'LONGITUDE', 0.0 ) CALL UYAXDV( 'L', DY1, DY2 ) CALL UYAXDV( 'R', DY1, DY2 ) CALL UYSTTL( 'L', 'LATITUDE', 0.0 ) CALL UXMTTL( 'T', 'UXAXDV/UYAXDV', 0.0 ) CALL UZFACT( 0.5 ) CALL UXAXDV( 'U', DX1, DX2 ) CALL UXSTTL( 'U', 'EQ', +0.9 ) CALL UYAXDV( 'U', DY1, DY2 ) CALL UYSTTL( 'U', 'GM', -0.9 ) CALL UZISET( 'INNER', +1 ) CALL UXAXDV( 'U', DX1, DX2 ) CALL UYAXDV( 'U', DY1, DY2 ) CALL GRCLS END dcl-7.5.2/demo/grph2/uxyzpk/uxyz05.f0000644000175000017500000000155314760053155017010 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM UXYZ05 PARAMETER ( ID0=19910401, ND=90 ) WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL GROPN( IWS ) CALL GRFRM RND=ND CALL SGSWND( 0.0, RND, -1.0, +1.0 ) CALL SGSVPT( 0.2, 0.8, 0.2, 0.8 ) CALL SGSTRN( 1 ) CALL SGSTRF CALL UCXACL( 'B', ID0, ND ) CALL UCXACL( 'T', ID0, ND ) CALL UYAXDV( 'L', 0.05, 0.25 ) CALL UZLSET( 'LABELYR', .TRUE. ) CALL UYSFMT( '(F6.2)' ) CALL UYAXDV( 'R', 0.05, 0.25 ) CALL UYSTTL( 'L', 'CORRILATION', 0.0 ) CALL UXMTTL( 'T', 'UCXACL/UYAXDV', 0.0 ) CALL GRCLS END dcl-7.5.2/demo/grph2/uupack/0000755000175000017500000000000014760053155015367 5ustar uwabamiuwabamidcl-7.5.2/demo/grph2/uupack/uupk04.f0000644000175000017500000000340514760053155016670 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM UUPK04 PARAMETER(N=20, M=5) REAL Y1(N), Y2(N), A(M) CALL GLRGET('RUNDEF', RUNDEF) *----------------------------------------------------------------------- DT = 1./(N-1) PI = 3.14159 DO 50 J=1, M JJ = J*2-1 A(J) = (-1)**J *2./(JJ*PI) 50 CONTINUE DO 100 I=1, N T = DT*(I-1)*2*PI Y1(I) = A(1)*COS(T) Y2(I) = 0. DO 150 J=1, M JJ = J*2-1 YY = A(J)*COS(JJ*T) Y2(I) = Y2(I) + YY 150 CONTINUE 100 CONTINUE *----------------------------------------------------------------------- WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN(IWS) CALL GRFRM CALL SGLSET('LCLIP', .TRUE.) CALL USSPNT(N, RUNDEF, Y1) CALL USSPNT(N, RUNDEF, Y2) CALL GRSWND(0., 1., RUNDEF, RUNDEF) CALL USPFIT CALL GRSTRF CALL USDAXS CALL UUSARP(2999, 3999) CALL UVBRA(N, RUNDEF, Y1, Y2) CALL UVBRF(N, RUNDEF, Y1, Y2) CALL UUSLNI(41) CALL UVBRL(N, RUNDEF, Y1) CALL UUSLNT(3) CALL UVBRL(N, RUNDEF, Y2) CALL GRFRM CALL USSPNT(N, Y1, RUNDEF) CALL USSPNT(N, Y1, RUNDEF) CALL GRSWND(RUNDEF, RUNDEF, 0., 1.) CALL USPFIT CALL GRSTRF CALL USDAXS CALL UUSARP(2999, 3999) CALL UHBRA(N, Y1, Y2, RUNDEF) CALL UHBRF(N, Y1, Y2, RUNDEF) CALL UUSLNI(41) CALL UHBRL(N, Y1, RUNDEF) CALL UUSLNT(3) CALL UHBRL(N, Y2, RUNDEF) CALL GRCLS END dcl-7.5.2/demo/grph2/uupack/Makefile0000644000175000017500000000107114760053155017026 0ustar uwabamiuwabami# # Makefile for uupack (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = uupack LIBSRCS = uupk01.f uupk02.f uupk03.f uupk04.f \ uupk05.f uupk06.f uupk07.f LIBDEMO = uupk01 uupk02 uupk03 uupk04 \ uupk05 uupk06 uupk07 LIBEXEC = uupk01$(EXT) uupk02$(EXT) uupk03$(EXT) uupk04$(EXT) \ uupk05$(EXT) uupk06$(EXT) uupk07$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ *.ps core *.trace *.eps *.svg *.pdf a.out dcl-7.5.2/demo/grph2/uupack/uupk06.f0000644000175000017500000000315214760053155016671 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM UUPK06 PARAMETER(N=100, M=5) REAL Y1(N), Y2(N), A(M) *----------------------------------------------------------------------- DT = 1./(N-1) PI = 3.14159 DO 50 J=1, M JJ = J*2-1 A(J) = (-1)**J *2./(JJ*PI) 50 CONTINUE DO 100 I=1, N T = DT*(I-1)*2*PI Y1(I) = A(1)*COS(T) Y2(I) = 0. DO 150 J=1, M JJ = J*2-1 YY = A(J)*COS(JJ*T) Y2(I) = Y2(I) + YY 150 CONTINUE 100 CONTINUE *----------------------------------------------------------------------- CALL GLRGET('RUNDEF', RUNDEF) WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN(IWS) CALL GRFRM CALL SGLSET('LCLIP', .TRUE.) CALL USSPNT(N, RUNDEF, Y1) CALL USSPNT(N, RUNDEF, Y2) CALL GRSWND(0., 1., RUNDEF, RUNDEF) CALL USPFIT CALL GRSTRF CALL USDAXS CALL UUSARP(5999, 4999) CALL UVDIF(N, RUNDEF, Y1, Y2) CALL UULIN(N, RUNDEF, Y1) CALL UULIN(N, RUNDEF, Y2) CALL GRFRM CALL SGLSET('LCLIP', .TRUE.) CALL USSPNT(N, Y1, RUNDEF) CALL USSPNT(N, Y2, RUNDEF) CALL GRSWND(RUNDEF, RUNDEF, 0., 1.) CALL USPFIT CALL GRSTRF CALL USDAXS CALL UHDIF(N, Y1, Y2, RUNDEF) CALL UULIN(N, Y1, RUNDEF) CALL UULIN(N, Y2, RUNDEF) CALL GRCLS END dcl-7.5.2/demo/grph2/uupack/uupk05.f0000644000175000017500000000302714760053155016671 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM UUPK05 PARAMETER(N=20, M=5) REAL Y1(N), Y2(N), A(M) CALL GLRGET('RUNDEF', RUNDEF) *----------------------------------------------------------------------- DT = 1./(N-1) PI = 3.14159 DO 50 J=1, M JJ = J*2-1 A(J) = (-1)**J *2./(JJ*PI) 50 CONTINUE DO 100 I=1, N T = DT*(I-1)*2*PI Y1(I) = A(1)*COS(T) Y2(I) = 0. DO 150 J=1, M JJ = J*2-1 YY = A(J)*COS(JJ*T) Y2(I) = Y2(I) + YY 150 CONTINUE 100 CONTINUE *----------------------------------------------------------------------- WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL SGLSET('LCLIP', .TRUE.) CALL GROPN(IWS) CALL GRFRM CALL USSPNT(N, RUNDEF, Y1) CALL USSPNT(N, RUNDEF, Y2) CALL GRSWND(0., 1., RUNDEF, RUNDEF) CALL USPFIT CALL GRSTRF CALL USDAXS CALL UUSARP(2999, 4999) CALL UVBXA(N, RUNDEF, RUNDEF, Y1) CALL UVBXF(N, RUNDEF, RUNDEF, Y1) CALL GRFRM CALL USSPNT(N, Y1, RUNDEF) CALL USSPNT(N, Y2, RUNDEF) CALL GRSWND(RUNDEF, RUNDEF, 0., 1.) CALL USPFIT CALL GRSTRF CALL USDAXS CALL UHBXA(N, Y1, Y2, RUNDEF) CALL UHBXF(N, Y1, Y2, RUNDEF) CALL GRCLS END dcl-7.5.2/demo/grph2/uupack/uupk01.f0000644000175000017500000000206514760053155016666 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM UUPK01 PARAMETER (N=30) DOUBLE PRECISION A, R REAL Y(N) *---------------------------- DATA DEFINITION -------------------------- R = 0.2D0 A = 3.7D0 DO 100 I=1, N R = A*R*(1.D0-R) Y(I) = R 100 CONTINUE Y(N/2) = 999. CALL GLLSET('LMISS', .TRUE.) CALL GLRGET('RUNDEF', RUNDEF) *----------------------------- GRAPH ----------------------------------- WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN(IWS) CALL GRFRM CALL SGLSET('LCLIP', .TRUE.) CALL GRSWND(0., 1., RUNDEF, RUNDEF) CALL USSPNT(N, RUNDEF, Y) CALL USPFIT CALL GRSTRF CALL USDAXS CALL UUSLNI(2) CALL UULIN(N, RUNDEF, Y) CALL UUSMKT(4) CALL UUMRK(N, RUNDEF, Y) CALL GRCLS END dcl-7.5.2/demo/grph2/uupack/uupk07.f0000644000175000017500000000410314760053155016667 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM UUPK07 PARAMETER (MAX=5) REAL XNEC(MAX), XIBM(MAX), XAPL(MAX) DATA XNEC /1.2, 2.5, 3.3, 3.7, 3.1/ DATA XAPL /1.3, 2.6, 3.8, 4.4, 4.5/ DATA XIBM /1.7, 2.2, 3.5, 4.2, 5.7/ CALL GLRGET('RUNDEF', RUNDEF) WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN(IWS) CALL GRFRM CALL GRSWND(0., 5., RUNDEF, RUNDEF) CALL USSPNT(MAX, RUNDEF, XIBM) CALL USSPNT(MAX, RUNDEF, XNEC) CALL USSPNT(MAX, RUNDEF, XAPL) CALL USSPNT(1, RUNDEF, 0.) CALL USPFIT CALL GRSTRF CALL USDAXS CALL UUSIDV(0.3, 4.3) CALL UUSARP(2999, 2999) CALL UVBRA(MAX, RUNDEF, XNEC, RUNDEF) CALL UVBRF(MAX, RUNDEF, XNEC, RUNDEF) CALL UUSIDV(0.5, 4.5) CALL UUSARP(3999, 3999) CALL UVBRA(MAX, RUNDEF, XAPL, RUNDEF) CALL UVBRF(MAX, RUNDEF, XAPL, RUNDEF) CALL UUSIDV(0.7, 4.7) CALL UUSARP(4999, 4999) CALL UVBRA(MAX, RUNDEF, XIBM, RUNDEF) CALL UVBRF(MAX, RUNDEF, XIBM, RUNDEF) CALL GRFRM DO 10 I=1, MAX XAPL(I) = XNEC(I) + XAPL(I) XIBM(I) = XAPL(I) + XIBM(I) 10 CONTINUE CALL GRSWND(0., 5., RUNDEF, RUNDEF) CALL USSPNT(MAX, RUNDEF, XIBM) CALL USSPNT(1, RUNDEF, 0.) CALL USPFIT CALL GRSTRF CALL USDAXS CALL UUSIDV(0.5, 4.5) CALL UUSARP(2999, 2999) CALL UUSBRS(0.05) CALL UVBRA(MAX, RUNDEF, XNEC, RUNDEF) CALL UUSARP(3999, 3999) CALL UVBRA(MAX, RUNDEF, XNEC, XAPL) CALL UUSARP(4999, 4999) CALL UVBRA(MAX, RUNDEF, XAPL, XIBM) CALL UVBRF(MAX, RUNDEF, XNEC, RUNDEF) CALL UVBRF(MAX, RUNDEF, XNEC, XAPL) CALL UVBRF(MAX, RUNDEF, XAPL, XIBM) CALL UVBRL(MAX, RUNDEF, XNEC) CALL UVBRL(MAX, RUNDEF, XAPL) CALL UVBRL(MAX, RUNDEF, XIBM) CALL GRCLS END dcl-7.5.2/demo/grph2/uupack/uupk03.f0000644000175000017500000000217314760053155016670 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM UUPK03 PARAMETER (N=30) DOUBLE PRECISION A, R REAL Y(N) *---------------------------- DATA DEFINITION -------------------------- R = 0.2D0 A = 3.7D0 DO 100 I=1, N R = A*R*(1.D0-R) Y(I) = R 100 CONTINUE Y(N/2) = 999. CALL GLLSET('LMISS', .TRUE.) CALL GLRGET('RUNDEF', RUNDEF) *----------------------------- GRAPH ----------------------------------- WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN(IWS) CALL GRFRM CALL GRSWND(0., 1., RUNDEF, RUNDEF) CALL USSPNT(N, RUNDEF, Y) CALL USPFIT CALL GRSTRF CALL USDAXS CALL UVBXL(N, RUNDEF, Y) CALL GRFRM CALL GRSWND(RUNDEF, RUNDEF, 0., 1.) CALL USSPNT(N, Y, RUNDEF) CALL USPFIT CALL GRSTRF CALL USDAXS CALL UHBXL(N, Y, RUNDEF) CALL GRCLS END dcl-7.5.2/demo/grph2/uupack/uupk02.f0000644000175000017500000000272414760053155016671 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM UUPK02 PARAMETER(N=20, M=5) REAL X0(N), X1(N), X2(N), Y0(N), Y1(N), Y2(N), A(M) *----------------------------------------------------------------------- DT = 1./(N-1) PI = 3.14159 DO 50 J=1, M JJ = J*2-1 A(J) = (-1)**J *2./(JJ*PI) 50 CONTINUE DO 100 I=1, N T = DT*(I-1)*2*PI X0(I) = DT*(I-1) Y1(I) = A(1)*COS(T) Y2(I) = 0. DO 150 J=1, M JJ = J*2-1 YY = A(J)*COS(JJ*T) Y2(I) = Y2(I) + YY 150 CONTINUE Y0(I) = (Y1(I)+Y2(I))/2. DY = ABS(Y1(I) - Y2(I)) X1(I) = X0(I) - DY/5 X2(I) = X0(I) + DY/5 100 CONTINUE *----------------------------------------------------------------------- WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN(IWS) CALL GRFRM CALL SGLSET('LCLIP', .TRUE.) CALL USSPNT(N, X0, Y0) CALL USSPNT(N, X1, Y1) CALL USSPNT(N, X2, Y2) CALL USPFIT CALL GRSTRF CALL USDAXS CALL UVERB(N, X0, Y1, Y2) CALL UUSEBT(3) CALL UUSEBI(33) CALL UHERB(N, X1, X2, Y0) CALL UUSMKT(4) CALL UUSMKI(21) CALL UUMRK(N, X0, Y0) CALL GRCLS END dcl-7.5.2/demo/grph2/grpack/0000755000175000017500000000000014760053155015346 5ustar uwabamiuwabamidcl-7.5.2/demo/grph2/grpack/grpk01.f0000644000175000017500000000312314760053155016620 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM GRPK01 * WRITE(*,*) ' WORKSTATION ID (I) ? ;' * CALL SGPWSN * READ (*,*) IWS IWS=1 CALL GROPN(IWS) CALL GRFRM CALL GRSWND(0.0, 1.0, -0.7, 0.7) CALL GRSVPT(0.2, 0.8, 0.2, 0.6) CALL GRSTRN(1) CALL GRSTRF CALL USSTTL('X-AXIS', ' ', 'Y1-AXIS', ' ') CALL USDAXS CALL SGTXZU(0.5, 0.0, 'PAGE:1, FRAME:1', 0.02, 0, 0, 3) CALL GRFIG CALL GRSWND(0.0, 1.0, -0.5, 0.5) CALL GRSVPT(0.2, 0.8, 0.62, 0.82) CALL GRSTRN(1) CALL GRSTRF CALL UZLSET('LABELXB', .FALSE.) CALL USSTTL('X-AXIS', ' ', 'Y2-AXIS', ' ') CALL USDAXS CALL SGTXZU(0.5, 0.0, 'PAGE:1, FRAME:2', 0.02, 0, 0, 3) CALL UZLSET('LABELXB', .TRUE.) CALL GRFRM CALL UZFACT(0.5) CALL GRSWND(0.0, 1.0, -0.7, 0.7) CALL GRSVPT(0.2, 0.8, 0.2, 0.6) CALL GRSTRN(1) CALL GRSTRF CALL USSTTL('X-AXIS', ' ', 'Y1-AXIS', ' ') CALL USDAXS CALL SGTXZU(0.5, 0.0, 'PAGE:2, FRAME:1', 0.02, 0, 0, 3) CALL GRFIG CALL GRSWND(0.0, 1.0, -0.5, 0.5) CALL GRSVPT(0.2, 0.8, 0.62, 0.82) CALL GRSTRN(1) CALL GRSTRF CALL UZLSET('LABELXB', .FALSE.) CALL USSTTL('X-AXIS', ' ', 'Y2-AXIS', ' ') CALL USDAXS CALL SGTXZU(0.5, 0.0, 'PAGE:2, FRAME:2', 0.02, 0, 0, 3) CALL UZLSET('LABELXB', .TRUE.) CALL GRCLS END dcl-7.5.2/demo/grph2/grpack/Makefile0000644000175000017500000000047314760053155017012 0ustar uwabamiuwabami# # Makefile for grpack (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = grpack LIBSRCS = grpk01.f LIBDEMO = grpk01 LIBEXEC = grpk01$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ *.ps core *.trace *.eps *.svg *.pdf a.out dcl-7.5.2/demo/grph2/sysfont/0000755000175000017500000000000014760053155015604 5ustar uwabamiuwabamidcl-7.5.2/demo/grph2/sysfont/sgfndl.f0000644000175000017500000000211214760053155017224 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SGFNDL CHARACTER FONTNAME*80,CTEXT*80 EXTERNAL LENC,ISGC CALL SGOPN(1) CALL SGFRM CTEXT='Please choose a font set...' CALL SGTXZV(0.5, 0.75, CTEXT, 0.04, 0, 0, 3) CTEXT='(This is drawn by DCL stroke font)' CALL SGTXZV(0.5, 0.70, CTEXT, 0.03, 0, 0, 3) CALL SWLSET('LSYSFNT', .TRUE.) CALL SWSLFT(FONTNAME) CTEXT='Selected font name: '//FONTNAME CALL SGTXZV(0.5, 0.50, CTEXT, 0.04, 0, 0, 3) CTEXT='(This is drawn by DCL defalt system font)' CALL SGTXZV(0.5, 0.45, CTEXT, 0.03, 0, 0, 3) CALL SWCSET('FONTNAME', FONTNAME) CTEXT='GFD Dennou Common Library 電脳ライブラリ αβΣΩ' CALL SGTXZV(0.5, 0.25, CTEXT, 0.03, 0, 0, 3) CTEXT='(This is drawn by the selected font)' CALL SGTXZV(0.5, 0.20, CTEXT, 0.03, 0, 0, 3) CALL SGCLS END dcl-7.5.2/demo/grph2/sysfont/NOTE0000644000175000017500000000245114760053155016276 0ustar uwabamiuwabamiこのディレクトリのファイルはdemoのうち新機能を使ったものである。 sgfont.f DCLで使えていた文字のリストを見るdemo 同じような表をシステムフォントを利用して描画する。 また、システムフォントでデフォルトで使用されるフォント(1/2)を確認できる。 さらに、ダイアログボックスからシステムフォントを簡易確認しながら 選択することもできる。その際に標準出力に選択したフォント名を 表示する。 sgpk07.f 文字に装飾を追加する。右肩にのせるか右下に添字を書くことができる。 これに加えて、システムフォントでは上下に文字を書くこともできるが 簡便な機能なので -を利用して線を引く程度に使用することを想定している。 フォントによっては上すぎたりする場合もあるかもしれない。 sgfnls.f 標準出力に使用できるフォント名を書き出す。フォントの属性で使用できるものも 書き出す。 sgsysf.f 画面もしくはPDFにサンプル文字列付きで、フォントのリストを表示する。 dclfndl.f ダイヤログを表示し、選んだフォント名や属性を標準出力に出す。 dcl-7.5.2/demo/grph2/sysfont/sgsysf.f0000644000175000017500000000315114760053155017271 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SYSFONT PARAMETER (N=10) DIMENSION Y(N) CHARACTER FONTNAME*50, CH*3, OPT*20, FULLNAME*70 INTEGER PM, J, NFNT CALL SWLSET('LSYSFNT', .TRUE.) CALL SWFTNM(NFNT) WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS I = 0 CALL SWGTFT(I, FONTNAME, NFNT) PM = NFNT/N + 1 OPT = ' Regular ' WRITE(*,*) OPT CALL SGOPN(IWS) CALL SLDIV('T',2,2) X1 = 0.01 X2 = 0.99 XC = 0.35 DO 30 J=0, PM CALL SGFRM CALL SGSLNI(1) DO 10 I=1, N Y(I) = 0.09 * (11-I) CALL SGLNV(X1, Y(I)+0.05, X2, Y(I)+0.05) 10 CONTINUE CALL SGLNV(X1, 0.05, X2, 0.05) CALL SGSTXC(-1) DO 20 I=1, N IF (I+J*N .GT. NFNT-1) THEN GO TO 40 END IF CALL SWGTFT(I+J*N, FONTNAME, NFNT) DO 5 K=1, 50 IF (FONTNAME(K:K) == FONTNAME(50:50)) THEN FULLNAME = FONTNAME(1:K-1)//OPT GO TO 6 END IF 5 CONTINUE 6 CONTINUE CALL SWCSET('FONTNAME', FULLNAME) CALL SGSTXS(0.015) CALL SGTXV(X1, Y(I)+0.015, FULLNAME) WRITE(CH,'(I3)') I+J*N CALL SGTXZV(X1, Y(I)+0.035, CH, 0.015, 0, -1, 1) CALL SGSTXS(0.05) CALL SGTXV(XC, Y(I), 'ABCabs012留硫粒') WRITE(*,*) FULLNAME 20 CONTINUE 30 CONTINUE 40 CONTINUE CALL SGCLS END dcl-7.5.2/demo/grph2/sysfont/Makefile0000644000175000017500000000074714760053155017254 0ustar uwabamiuwabami# # Makefile for sgpack (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = sgpack LIBSRCS = sgfont.f sgpk07.f sgfnls.f sgsysf.f \ sgfndl.f LIBDEMO = sgfont sgpk07 sgfnls sgsysf \ sgfndl LIBEXEC = sgfont$(EXT) sgpk07$(EXT) sgfnls$(EXT) sgsysf$(EXT) \ sgfndl$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ *.ps core *.trace *.eps *.svg *.pdf a.out dcl-7.5.2/demo/grph2/sysfont/sgpk07.f0000644000175000017500000000456614760053155017101 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SGPK07 PARAMETER (N=9) DIMENSION Y(N) CHARACTER GREEK1*30, GREEK2*30, SYMBOL*30, USGI*3 WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL SGLSET('LCNTL',.TRUE.) CALL SGOPN(IWS) CALL SGFRM X1 = 0.1 X2 = 0.9 XC = 0.5 CALL SGSLNI(1) DO 10 I=1, N Y(I) = 0.1 * (10-I) CALL SGLNV(X1, Y(I), X2, Y(I)) 10 CONTINUE CALL SGLNV(XC, 0.05, XC, 0.95) *----------------------- SUPER/SUB SCRIPT ------------------------------ CALL SGTXV(XC, Y(1), 'SGTXV\^{SUP}RST\_{SUB}') CALL SGSTXI(2) CALL SGLSET('LCNTL', .TRUE.) ! <-- 添字コントロールON CALL SGTXV(XC, Y(2), 'SGTXV\^{SUP}RST\_{SUB}') *------------------------ OVER UNDER ----------------------------------- CALL SGRSET('SHIFT', 0.5) ! <-- シフト量設定 CALL SGRSET('SMALL', 0.5) ! <-- 添字の大きさ設定 CALL SWLSET('LSYSFNT', .TRUE.) CALL SGTXV(XC, Y(3), 'S\o-G\o~T\u-X\o~\u-V\^{SUP}RST\_{SUB}') CALL SWLSET('LSYSFNT', .FALSE.) *------------------------ FONT SELECTION ------------------------------- CALL SGSTXI(1) CALL SGSTXS(0.05) CALL SGTXV(XC, Y(4), 'ABCDEFG abcdefg') CALL SGISET('IFONT', 2) ! <-- きれいなフォント CALL SGTXV(XC, Y(5), 'ABCDEFG abcdefg') CALL SGSTXI(3) CALL SGTXV(XC, Y(6), 'ABCDEFG abcdefg') *------------------------- GREEK LETTERS ------------------------------- GREEK1 = USGI(152)//USGI(153)//USGI(154)//USGI(155)//USGI(156)// # USGI(157)//USGI(158)//USGI(159)//USGI(160)//USGI(161) GREEK2 = USGI(130)//USGI(131)//USGI(135)//USGI(138)//USGI(141)// # USGI(143)//USGI(145)//USGI(148)//USGI(150)//USGI(151) CALL SGTXV(XC, Y(7), GREEK1) CALL SGTXV(XC, Y(8), GREEK2) *----------------------------- SYMBOLS --------------------------------- SYMBOL = USGI(189)//USGI(190)//USGI(191)//USGI(192)//USGI(193)// # USGI(210)//USGI(211)//USGI(212)//USGI(217)//USGI(218) CALL SGTXV(XC, Y(9), SYMBOL) CALL SGCLS END dcl-7.5.2/demo/grph2/sysfont/sgfont.f0000644000175000017500000000335614760053155017262 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SGFONT CHARACTER CH*3,USGI*3,CTTL*32 CHARACTER FONTNAME*70 INTEGER ISYS DATA CTTL/'FONT NO. = #'/ WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS WRITE(*,*) ' STROKE FONT(1) / SYSTEM FONT(2) ? ;' READ(*,*)ISYS CALL SGLSET('LCNTL', .FALSE.) IF (ISYS.EQ.2) THEN CALL SWLSET('LSYSFNT', .TRUE.) WRITE(*,*) ' FONT NO (1,2) (I) OR DIALOG(3) ? ;' READ(*,*) N ELSE CALL SWLSET('LSYSFNT', .FALSE.) WRITE(*,*) ' FONT NO (1,2) (I) ? ;' READ(*,*) N END IF CALL SGOPN( IWS ) IF (ISYS.EQ.2 .AND. N.EQ.3)THEN CALL SWSLFT(FONTNAME) CALL SWCSET('FONTNAME', FONTNAME) END IF CALL SGLSET('LCNTL',.FALSE.) CALL SLMGN( 0.1, 0.1, 0.1, 0.1 ) CALL SLRAT( 1.0, 1.0 ) CALL SGFRM CALL SGISET( 'IFONT', N ) CALL SGSWND( 0.0, 16.0, 0.0, 16.0 ) CALL SGSVPT( 0.05, 0.95, 0.0, 0.9 ) CALL SGSTRN( 1 ) CALL SGSTRF DO 10 I=0,16 CALL SGLNZU( REAL(I), 0.0, REAL(I), 16.0, 2 ) CALL SGLNZU( 0.0, REAL(I), 16.0, REAL(I), 2 ) 10 CONTINUE WRITE(CTTL(12:12),'(I1)') N CALL SGTXZV( 0.5, 0.95, CTTL, 0.03, 0, 0, 3 ) DO 15 I=0,255 UX=I/16+0.5 UY=16-MOD(I,16)-0.5 CALL SGTXZU( UX, UY, USGI(I), 0.035, 0, 0, 3 ) UX=UX+0.48 UY=UY+0.38 WRITE(CH,'(I3)') I CALL SGTXZU( UX, UY, CH, 0.01, 0, +1, 1 ) 15 CONTINUE CALL SGCLS END dcl-7.5.2/demo/grph2/sysfont/sgfnls.f0000644000175000017500000000041314760053155017245 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM LISTFONT CALL SWLSFT END dcl-7.5.2/demo/grph2/udegpk/0000755000175000017500000000000014760053155015356 5ustar uwabamiuwabamidcl-7.5.2/demo/grph2/udegpk/u2df09e.f0000644000175000017500000000371414760053155016710 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM U2DF09E PARAMETER( NX=21, NY=21 ) PARAMETER( XMIN=-10, XMAX=10, YMIN=-10, YMAX=10 ) PARAMETER( DX1=1, DX2=5, DY1=1, DY2=5 ) PARAMETER( KMAX=5, PMIN=0, PMAX=1 ) REAL P(NX,NY), PI(2,KMAX+1) DO 10 J=1,NY DO 15 I=1,NX X = XMIN + (XMAX-XMIN)*(I-1)/(NX-1) Y = YMIN + (YMAX-YMIN)*(J-1)/(NY-1) P(I,J) = EXP( -X**2/64 -Y**2/25 ) 15 CONTINUE 10 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL SGLSET( 'LSOFTF', .TRUE. ) CALL GRFRM CALL GRSWND( XMIN, XMAX, YMIN, YMAX ) CALL GRSVPT( 0.2, 0.8, 0.2, 0.8 ) CALL GRSTRN( 1 ) CALL GRSTRF DP = (PMAX-PMIN)/KMAX DO 20 K=1,KMAX TLEV1 = (K-1)*DP TLEV2 = TLEV1 + DP IPAT = 600 + K - 1 CALL UESTLV( TLEV1, TLEV2, IPAT ) 20 CONTINUE CALL UETONE( P, NX, NX, NY ) CALL UXAXDV( 'B', DX1, DX2 ) CALL UXAXDV( 'T', DX1, DX2 ) CALL UXSTTL( 'B', 'X-axis', 0. ) CALL UXMTTL( 'T', 'FIGURE TITLE', 0. ) CALL UYAXDV( 'L', DY1, DY2 ) CALL UYAXDV( 'R', DY1, DY2 ) CALL UYSTTL( 'L', 'Y-axis', 0. ) *-- トーンバー ---- CALL GRSWND( 0.0, 1.0, PMIN, PMAX ) CALL GRSVPT( 0.85, 0.9, 0.45, 0.75 ) CALL GRSTRN( 1 ) CALL GRSTRF DO 30 K=1,KMAX+1 PI(1,K) = PMIN + (K-1)*DP PI(2,K) = PMIN + (K-1)*DP 30 CONTINUE CALL UDLSET( 'LMSG' , .FALSE. ) CALL UETONE( PI, 2, 2, KMAX+1 ) * CALL UDCNTR( PI, 2, 2, KMAX+1 ) CALL SLPVPR( 3 ) CALL UZLSET( 'LABELYR', .TRUE. ) CALL UZFACT( 0.8 ) CALL UYSFMT( '(F4.1)' ) CALL UYAXDV( 'R', DP, DP ) CALL GRCLS END dcl-7.5.2/demo/grph2/udegpk/u2df01.f0000644000175000017500000000202114760053155016521 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM U2DF01 PARAMETER ( NX=19, NY=19 ) PARAMETER ( XMIN=0, XMAX=360, YMIN=-90, YMAX=90 ) PARAMETER ( PI=3.141592, DRAD=PI/180, DZ=0.05 ) REAL P(NX,NY) DO 20 J = 1, NY DO 10 I = 1, NX ALON = ( XMIN + (XMAX-XMIN) * (I-1) / (NX-1) ) * DRAD ALAT = ( YMIN + (YMAX-YMIN) * (J-1) / (NY-1) ) * DRAD SLAT = SIN(ALAT) P(I,J) = COS(ALON) * (1-SLAT**2) * SIN(2*PI*SLAT) + DZ 10 CONTINUE 20 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL GRSWND( XMIN, XMAX, YMIN, YMAX ) CALL GRSVPT( 0.2, 0.8, 0.2, 0.8 ) CALL GRSTRN( 1 ) CALL GRSTRF CALL USDAXS CALL UDCNTR( P, NX, NX, NY ) CALL GRCLS END dcl-7.5.2/demo/grph2/udegpk/u2df05.f0000644000175000017500000000305114760053155016531 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM U2DF05 PARAMETER ( NX=19, NY=19 ) PARAMETER ( XMIN= 0, XMAX=360, DX1=20, DX2=60 ) PARAMETER ( YMIN=-90, YMAX=+90, DY1=10, DY2=30 ) PARAMETER ( PI=3.141592, DRAD=PI/180, DZ=0.05, DP=0.2 ) REAL P(NX,NY) DO 20 J = 1, NY DO 10 I = 1, NX ALON = ( XMIN + (XMAX-XMIN) * (I-1) / (NX-1) ) * DRAD ALAT = ( YMIN + (YMAX-YMIN) * (J-1) / (NY-1) ) * DRAD SLAT = SIN(ALAT) P(I,J) = COS(ALON) * (1-SLAT**2) * SIN(2*PI*SLAT) + DZ 10 CONTINUE 20 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GLRGET( 'RMISS', RMISS ) CALL SGLSET( 'LSOFTF', .FALSE. ) CALL GRFRM CALL GRSWND( XMIN, XMAX, YMIN, YMAX ) CALL GRSVPT( 0.2, 0.8, 0.2, 0.8 ) CALL GRSTRN( 1 ) CALL GRSTRF CALL UESTLV( RMISS, -DP, 201 ) CALL UESTLV( DP, DP*2, 401 ) CALL UESTLV( DP*2, RMISS, 402 ) CALL UETONE( P, NX, NX, NY ) CALL UXAXDV( 'B', DX1, DX2 ) CALL UXAXDV( 'T', DX1, DX2 ) CALL UXSTTL( 'B', 'LONGITUDE', 0.0 ) CALL UYAXDV( 'L', DY1, DY2 ) CALL UYAXDV( 'R', DY1, DY2 ) CALL UYSTTL( 'L', 'LATITUDE', 0.0 ) CALL UDGCLB( P, NX, NX, NY, DP ) CALL UDCNTR( P, NX, NX, NY ) CALL GRCLS END dcl-7.5.2/demo/grph2/udegpk/u2df07.f0000644000175000017500000000267714760053155016550 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM U2DF07 PARAMETER ( NX=19, NY=19 ) PARAMETER ( XMIN=0, XMAX=360, YMIN=-90, YMAX=90 ) PARAMETER ( PI=3.141592, DRAD=PI/180, DZ=0.05 ) REAL P(NX,NY), U(NX,NY), V(NX,NY) EXTERNAL IMOD CALL GLRGET( 'RMISS', RMISS ) CALL GLLSET( 'LMISS', .TRUE. ) DO 20 J = 1, NY DO 10 I = 1, NX ALON = ( XMIN + (XMAX-XMIN) * (I-1) / (NX-1) ) * DRAD ALAT = ( YMIN + (YMAX-YMIN) * (J-1) / (NY-1) ) * DRAD SLAT = SIN(ALAT) P(I,J) = COS(ALON) * (1-SLAT**2) * SIN(2*PI*SLAT) + DZ 10 CONTINUE 20 CONTINUE DO 40 J = 1, NY DO 30 I = 1, NX IF (J.EQ.1 .OR. J.EQ.NY) THEN U(I,J)=RMISS V(I,J)=RMISS ELSE U(I,J) = P(I,J-1) - P(I,J+1) V(I,J) = P(IMOD(I,NX-1)+1,J) - P(IMOD(I-2,NX-1)+1,J) END IF 30 CONTINUE 40 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL GRSWND( XMIN, XMAX, YMIN, YMAX ) CALL GRSVPT( 0.2, 0.8, 0.2, 0.8 ) CALL GRSTRN( 1 ) CALL GRSTRF CALL USDAXS CALL UGVECT( U, NX, V, NX, NX, NY ) CALL GRCLS END dcl-7.5.2/demo/grph2/udegpk/u2df08.f0000644000175000017500000000416014760053155016536 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM U2DF08 PARAMETER ( NX=19, NY=19 ) PARAMETER ( XMIN= 0, XMAX=360, DX1=20, DX2=60 ) PARAMETER ( YMIN=-90, YMAX=+90, DY1=10, DY2=30 ) PARAMETER ( PI=3.141592, DRAD=PI/180, DZ=0.05 ) REAL P(NX,NY), U(NX,NY), V(NX,NY) EXTERNAL IMOD CALL GLRGET( 'RMISS', RMISS ) CALL GLLSET( 'LMISS', .TRUE. ) DO 20 J = 1, NY DO 10 I = 1, NX ALON = ( XMIN + (XMAX-XMIN) * (I-1) / (NX-1) ) * DRAD ALAT = ( YMIN + (YMAX-YMIN) * (J-1) / (NY-1) ) * DRAD SLAT = SIN(ALAT) P(I,J) = COS(ALON) * (1-SLAT**2) * SIN(2*PI*SLAT) + DZ 10 CONTINUE 20 CONTINUE DO 40 J = 1, NY DO 30 I = 1, NX IF (J.EQ.1 .OR. J.EQ.NY) THEN U(I,J)=RMISS V(I,J)=RMISS ELSE U(I,J) = P(I,J-1) - P(I,J+1) V(I,J) = P(IMOD(I,NX-1)+1,J) - P(IMOD(I-2,NX-1)+1,J) END IF 30 CONTINUE 40 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL GRSWND( XMIN, XMAX, YMIN, YMAX ) CALL GRSVPT( 0.2, 0.8, 0.2, 0.8 ) CALL GRSTRN( 1 ) CALL GRSTRF CALL UXAXDV( 'B', DX1, DX2 ) CALL UXAXDV( 'T', DX1, DX2 ) CALL UXSTTL( 'B', 'LONGITUDE', 0.0 ) CALL UYAXDV( 'L', DY1, DY2 ) CALL UYAXDV( 'R', DY1, DY2 ) CALL UYSTTL( 'L', 'LATITUDE', 0.0 ) CALL UDRSET( 'RSIZEL', 0.015 ) CALL UDRSET( 'RSIZET', 0.015 ) CALL UDCNTR( P, NX, NX, NY ) CALL UGRSET( 'RSIZET', 0.015 ) CALL UGLSET( 'LNRMAL', .FALSE. ) CALL UGRSET( 'XFACT1', 0.025 ) CALL UGRSET( 'YFACT1', 0.050 ) CALL UGLSET( 'LUNIT', .TRUE. ) CALL UGSUT( 'X', 'U' ) CALL UGSUT( 'Y', 'V' ) CALL UGRSET( 'VXUNIT', 0.05 ) CALL UGRSET( 'VYUNIT', 0.10 ) CALL UGVECT( U, NX, V, NX, NX, NY ) CALL GRCLS END dcl-7.5.2/demo/grph2/udegpk/u2df03.f0000644000175000017500000000346514760053155016540 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM U2DF03 PARAMETER ( NX=19, NY=19 ) PARAMETER ( XMIN=0, XMAX=360, DX1=10, DX2=60 ) PARAMETER ( YMIN=-90, YMAX=90, MY=7, NC=3 ) PARAMETER ( PI=3.141592, DRAD=PI/180, DZ=0.05 ) PARAMETER ( XMNZ=60, XMXZ=300, NXZ=13, IXZ1=4 ) PARAMETER ( IYZ1=4, NYZ=13 ) REAL P(NX, NY), UY1(NY), UY2(MY) CHARACTER CH(MY)*(NC) DATA CH/ 'SP ', '60S', '30S', 'EQ ', '30N', '60N', 'NP ' / DO 20 J = 1, NY DO 10 I = 1, NX ALON = ( XMIN + (XMAX-XMIN) * (I-1) / (NX-1) ) * DRAD ALAT = ( YMIN + (YMAX-YMIN) * (J-1) / (NY-1) ) * DRAD SLAT = SIN(ALAT) P(I,J) = COS(ALON) * (1-SLAT**2) * SIN(2*PI*SLAT) + DZ 10 CONTINUE 20 CONTINUE DO 30 J = 1, NY UY1(J) = SIN( ( YMIN + (YMAX-YMIN) * (J-1) / (NY-1) ) * DRAD ) 30 CONTINUE DO 40 J = 1, MY UY2(J) = SIN( ( YMIN + (YMAX-YMIN) * (J-1) / (MY-1) ) * DRAD ) 40 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL GRSWND( XMIN, XMAX, UY1(1), UY1(NY) ) CALL GRSVPT( 0.2, 0.8, 0.2, 0.8 ) CALL GRSTRN( 1 ) CALL GRSTRF CALL UXAXDV( 'B', DX1, DX2 ) CALL UXAXDV( 'T', DX1, DX2 ) CALL UXSTTL( 'B', 'LONGITUDE', 0.0 ) CALL UYAXLB( 'L', UY1, NY, UY2, CH, NC, MY ) CALL UYAXLB( 'R', UY1, NY, UY2, CH, NC, MY ) CALL UYSTTL( 'L', 'LATITUDE', 0.0 ) CALL UWSGXB( XMNZ, XMXZ, NXZ ) CALL UWSGYA( UY1(IYZ1), NYZ ) CALL UDCNTR( P(IXZ1,IYZ1), NX, NXZ, NYZ ) CALL GRCLS END dcl-7.5.2/demo/grph2/udegpk/u2df09c.f0000644000175000017500000000375514760053155016713 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM U2DF09C PARAMETER( NX=21, NY=21 ) PARAMETER( XMIN=-10, XMAX=10, YMIN=-10, YMAX=10 ) PARAMETER( DX1=1, DX2=5, DY1=1, DY2=5 ) PARAMETER( KMAX=5, PMIN=0, PMAX=1 ) REAL P(NX,NY), PI(2,KMAX+1) DO 10 J=1,NY DO 15 I=1,NX X = XMIN + (XMAX-XMIN)*(I-1)/(NX-1) Y = YMIN + (YMAX-YMIN)*(J-1)/(NY-1) P(I,J) = EXP( -X**2/64 -Y**2/25 ) 15 CONTINUE 10 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL SGSCMN(5) CALL GROPN( IWS ) CALL SGLSET( 'LSOFTF', .FALSE. ) CALL GRFRM CALL GRSWND( XMIN, XMAX, YMIN, YMAX ) CALL GRSVPT( 0.2, 0.8, 0.2, 0.8 ) CALL GRSTRN( 1 ) CALL GRSTRF DP = (PMAX-PMIN)/KMAX DO 20 K=1,KMAX TLEV1 = (K-1)*DP TLEV2 = TLEV1 + DP IPAT = 999 + (99 - K*15)*1000 CALL UESTLV( TLEV1, TLEV2, IPAT ) 20 CONTINUE CALL UETONC( P, NX, NX, NY ) CALL UXAXDV( 'B', DX1, DX2 ) CALL UXAXDV( 'T', DX1, DX2 ) CALL UXSTTL( 'B', 'X-axis', 0. ) CALL UXMTTL( 'T', 'FIGURE TITLE', 0. ) CALL UYAXDV( 'L', DY1, DY2 ) CALL UYAXDV( 'R', DY1, DY2 ) CALL UYSTTL( 'L', 'Y-axis', 0. ) *-- トーンバー ---- CALL GRSWND( 0.0, 1.0, PMIN, PMAX ) CALL GRSVPT( 0.85, 0.9, 0.45, 0.75 ) CALL GRSTRN( 1 ) CALL GRSTRF DO 30 K=1,KMAX+1 PI(1,K) = PMIN + (K-1)*DP PI(2,K) = PMIN + (K-1)*DP 30 CONTINUE CALL UDLSET( 'LMSG' , .FALSE. ) CALL UETONE( PI, 2, 2, KMAX+1 ) * CALL UDCNTR( PI, 2, 2, KMAX+1 ) CALL SLPVPR( 3 ) CALL UZLSET( 'LABELYR', .TRUE. ) CALL UZFACT( 0.8 ) CALL UYSFMT( '(F4.1)' ) CALL UYAXDV( 'R', DP, DP ) CALL GRCLS END dcl-7.5.2/demo/grph2/udegpk/u2df09b.f0000644000175000017500000000371414760053155016705 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM U2DF09B PARAMETER( NX=21, NY=21 ) PARAMETER( XMIN=-10, XMAX=10, YMIN=-10, YMAX=10 ) PARAMETER( DX1=1, DX2=5, DY1=1, DY2=5 ) PARAMETER( KMAX=5, PMIN=0, PMAX=1 ) REAL P(NX,NY), PI(2,KMAX+1) DO 10 J=1,NY DO 15 I=1,NX X = XMIN + (XMAX-XMIN)*(I-1)/(NX-1) Y = YMIN + (YMAX-YMIN)*(J-1)/(NY-1) P(I,J) = EXP( -X**2/64 -Y**2/25 ) 15 CONTINUE 10 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL SGLSET( 'LSOFTF', .TRUE. ) CALL GRFRM CALL GRSWND( XMIN, XMAX, YMIN, YMAX ) CALL GRSVPT( 0.2, 0.8, 0.2, 0.8 ) CALL GRSTRN( 1 ) CALL GRSTRF DP = (PMAX-PMIN)/KMAX DO 20 K=1,KMAX TLEV1 = (K-1)*DP TLEV2 = TLEV1 + DP IPAT = 600 + K - 1 CALL UESTLV( TLEV1, TLEV2, IPAT ) 20 CONTINUE CALL UETONB( P, NX, NX, NY ) CALL UXAXDV( 'B', DX1, DX2 ) CALL UXAXDV( 'T', DX1, DX2 ) CALL UXSTTL( 'B', 'X-axis', 0. ) CALL UXMTTL( 'T', 'FIGURE TITLE', 0. ) CALL UYAXDV( 'L', DY1, DY2 ) CALL UYAXDV( 'R', DY1, DY2 ) CALL UYSTTL( 'L', 'Y-axis', 0. ) *-- トーンバー ---- CALL GRSWND( 0.0, 1.0, PMIN, PMAX ) CALL GRSVPT( 0.85, 0.9, 0.45, 0.75 ) CALL GRSTRN( 1 ) CALL GRSTRF DO 30 K=1,KMAX+1 PI(1,K) = PMIN + (K-1)*DP PI(2,K) = PMIN + (K-1)*DP 30 CONTINUE CALL UDLSET( 'LMSG' , .FALSE. ) CALL UETONE( PI, 2, 2, KMAX+1 ) * CALL UDCNTR( PI, 2, 2, KMAX+1 ) CALL SLPVPR( 3 ) CALL UZLSET( 'LABELYR', .TRUE. ) CALL UZFACT( 0.8 ) CALL UYSFMT( '(F4.1)' ) CALL UYAXDV( 'R', DP, DP ) CALL GRCLS END dcl-7.5.2/demo/grph2/udegpk/Makefile0000644000175000017500000000145214760053155017020 0ustar uwabamiuwabami# # Makefile for udegpk (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = udegpk LIBSRCS = u2df01.f u2df02.f u2df03.f u2df04.f \ u2df05.f u2df06.f u2df07.f u2df08.f \ u2df09e.f u2df09b.f u2df09f.f u2df09c.f LIBDEMO = u2df01 u2df02 u2df03 u2df04 \ u2df05 u2df06 u2df07 u2df08 \ u2df09e u2df09b u2df09f u2df09c LIBEXEC = u2df01$(EXT) u2df02$(EXT) u2df03$(EXT) u2df04$(EXT) \ u2df05$(EXT) u2df06$(EXT) u2df07$(EXT) u2df08$(EXT) \ u2df09e$(EXT) u2df09b$(EXT) u2df09f$(EXT) u2df09c$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ *.ps core *.trace *.eps *.svg *.pdf a.out dcl-7.5.2/demo/grph2/udegpk/u2df06.f0000644000175000017500000000252214760053155016534 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM U2DF06 PARAMETER ( NX=19, NY=19 ) PARAMETER ( XMIN=0, XMAX=360, YMIN=-90, YMAX=90 ) PARAMETER ( PI=3.141592, DRAD=PI/180, DZ=0.05 ) REAL P(NX,NY) CALL GLRGET( 'RMISS', RMISS ) CALL GLLSET( 'LMISS', .TRUE. ) DO 20 J = 1, NY DO 10 I = 1, NX ALON = ( XMIN + (XMAX-XMIN) * (I-1) / (NX-1) ) * DRAD ALAT = ( YMIN + (YMAX-YMIN) * (J-1) / (NY-1) ) * DRAD SLAT = SIN(ALAT) IF ((I.EQ.3 .AND. J.EQ.15) .OR. + ((9.LE.I .AND. I.LE.12) .AND. (7.LE.J .AND. J.LE.11))) THEN P(I,J)=RMISS ELSE P(I,J) = COS(ALON) * (1-SLAT**2) * SIN(2*PI*SLAT) + DZ END IF 10 CONTINUE 20 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL SGLSET( 'LSOFTF', .TRUE.) CALL GRFRM CALL GRSWND( XMIN, XMAX, YMIN, YMAX ) CALL GRSVPT( 0.2, 0.8, 0.2, 0.8 ) CALL GRSTRN( 1 ) CALL GRSTRF CALL USDAXS CALL UDCNTR( P, NX, NX, NY ) CALL UETONE( P, NX, NX, NY ) CALL GRCLS END dcl-7.5.2/demo/grph2/udegpk/u2df02.f0000644000175000017500000000347014760053155016533 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM U2DF02 PARAMETER ( NX=19, NY=19 ) PARAMETER ( XMIN=0, XMAX=360, DX1=10, DX2=60 ) PARAMETER ( YMIN=-90, YMAX=90, MY=7, NC=3 ) PARAMETER ( PI=3.141592, DRAD=PI/180, DZ=0.05 ) REAL P(NX, NY), UY1(NY), UY2(MY) CHARACTER CH(MY)*(NC) DATA CH/ 'SP ', '60S', '30S', 'EQ ', '30N', '60N', 'NP ' / DO 20 J = 1, NY DO 10 I = 1, NX ALON = ( XMIN + (XMAX-XMIN) * (I-1) / (NX-1) ) * DRAD ALAT = ( YMIN + (YMAX-YMIN) * (J-1) / (NY-1) ) * DRAD SLAT = SIN(ALAT) P(I,J) = COS(ALON) * (1-SLAT**2) * SIN(2*PI*SLAT) + DZ 10 CONTINUE 20 CONTINUE DO 30 J = 1, NY UY1(J) = SIN( ( YMIN + (YMAX-YMIN) * (J-1) / (NY-1) ) * DRAD ) 30 CONTINUE DO 40 J = 1, MY UY2(J) = SIN( ( YMIN + (YMAX-YMIN) * (J-1) / (MY-1) ) * DRAD ) 40 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL GRSWND( XMIN, XMAX, UY1(1), UY1(NY) ) CALL GRSVPT( 0.2, 0.8, 0.2, 0.8 ) CALL GRSTRN( 1 ) CALL GRSTRF CALL UXAXDV( 'B', DX1, DX2 ) CALL UXAXDV( 'T', DX1, DX2 ) CALL UXSTTL( 'B', 'LONGITUDE', 0.0 ) CALL UYAXLB( 'L', UY1, NY, UY2, CH, NC, MY ) CALL UYAXLB( 'R', UY1, NY, UY2, CH, NC, MY ) CALL UYSTTL( 'L', 'LATITUDE', 0.0 ) CALL UWSGXB( XMIN, XMAX, NX ) CALL UWSGYA( UY1, NY ) CALL UDSFMT( '(F6.1)' ) CALL UDGCLB( P, NX, NX, NY , 0.2 ) CALL UDSCLV( 0.1, 1, 4, ' ', 0.01 ) CALL UDCNTR( P, NX, NX, NY ) CALL GRCLS END dcl-7.5.2/demo/grph2/udegpk/u2df09f.f0000644000175000017500000000375614760053155016717 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM U2DF09F PARAMETER( NX=21, NY=21 ) PARAMETER( XMIN=-10, XMAX=10, YMIN=-10, YMAX=10 ) PARAMETER( DX1=1, DX2=5, DY1=1, DY2=5 ) PARAMETER( KMAX=5, PMIN=0, PMAX=1 ) REAL P(NX,NY), PI(2,KMAX+1) DO 10 J=1,NY DO 15 I=1,NX X = XMIN + (XMAX-XMIN)*(I-1)/(NX-1) Y = YMIN + (YMAX-YMIN)*(J-1)/(NY-1) P(I,J) = EXP( -X**2/64 -Y**2/25 ) 15 CONTINUE 10 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL SGSCMN(5) CALL GROPN( IWS ) CALL SGLSET( 'LSOFTF', .FALSE. ) CALL GRFRM CALL GRSWND( XMIN, XMAX, YMIN, YMAX ) CALL GRSVPT( 0.2, 0.8, 0.2, 0.8 ) CALL GRSTRN( 1 ) CALL GRSTRF DP = (PMAX-PMIN)/KMAX DO 20 K=1,KMAX TLEV1 = (K-1)*DP TLEV2 = TLEV1 + DP IPAT = 999 + (99 - K*15)*1000 CALL UESTLV( TLEV1, TLEV2, IPAT ) 20 CONTINUE CALL UETONF( P, NX, NX, NY ) CALL UXAXDV( 'B', DX1, DX2 ) CALL UXAXDV( 'T', DX1, DX2 ) CALL UXSTTL( 'B', 'X-axis', 0. ) CALL UXMTTL( 'T', 'FIGURE TITLE', 0. ) CALL UYAXDV( 'L', DY1, DY2 ) CALL UYAXDV( 'R', DY1, DY2 ) CALL UYSTTL( 'L', 'Y-axis', 0. ) *-- トーンバー ---- CALL GRSWND( 0.0, 1.0, PMIN, PMAX ) CALL GRSVPT( 0.85, 0.9, 0.45, 0.75 ) CALL GRSTRN( 1 ) CALL GRSTRF DO 30 K=1,KMAX+1 PI(1,K) = PMIN + (K-1)*DP PI(2,K) = PMIN + (K-1)*DP 30 CONTINUE CALL UDLSET( 'LMSG' , .FALSE. ) CALL UETONE( PI, 2, 2, KMAX+1 ) * CALL UDCNTR( PI, 2, 2, KMAX+1 ) CALL SLPVPR( 3 ) CALL UZLSET( 'LABELYR', .TRUE. ) CALL UZFACT( 0.8 ) CALL UYSFMT( '(F4.1)' ) CALL UYAXDV( 'R', DP, DP ) CALL GRCLS END dcl-7.5.2/demo/grph2/udegpk/u2df04.f0000644000175000017500000000213414760053155016531 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM U2DF04 PARAMETER ( NX=19, NY=19 ) PARAMETER ( XMIN=0, XMAX=360, YMIN=-90, YMAX=90 ) PARAMETER ( PI=3.141592, DRAD=PI/180, DZ=0.05 ) REAL P(NX,NY) DO 20 J = 1, NY DO 10 I = 1, NX ALON = ( XMIN + (XMAX-XMIN) * (I-1) / (NX-1) ) * DRAD ALAT = ( YMIN + (YMAX-YMIN) * (J-1) / (NY-1) ) * DRAD SLAT = SIN(ALAT) P(I,J) = COS(ALON) * (1-SLAT**2) * SIN(2*PI*SLAT) + DZ 10 CONTINUE 20 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL SGLSET( 'LSOFTF', .TRUE. ) CALL GRFRM CALL GRSWND( XMIN, XMAX, YMIN, YMAX ) CALL GRSVPT( 0.2, 0.8, 0.2, 0.8 ) CALL GRSTRN( 1 ) CALL GRSTRF CALL USDAXS CALL UDCNTR( P, NX, NX, NY ) CALL UETONE( P, NX, NX, NY ) CALL GRCLS END dcl-7.5.2/demo/grph2/ulpack/0000755000175000017500000000000014760053155015356 5ustar uwabamiuwabamidcl-7.5.2/demo/grph2/ulpack/ulpk01n.f0000644000175000017500000000517314760053155017025 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM ULPK01 PARAMETER (NBL=2) REAL BL(NBL) CHARACTER CTL*64 DATA BL/1.0,3.0/ WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL SGOPN(-ABS(IWS)) CALL SGLSET('LFULL',.TRUE.) CALL UZFACT(0.6) CALL SLRAT(0.75,1.0) CALL SLDIV('T',1,7) CALL SGFRM CALL UZINIT CALL SGSWND(-0.15,-200.,0.1,1E5) CALL SGSVPT(0.1,0.9,0.1,0.11) CALL SGSTRN(4) CALL SGSTRF CALL ULISET('IXTYPE',1) CALL ULXLOG('B',1,9) CTL='ULXLOG (IXTYPE=1,NLBL=1,NTCK=9)' CALL UXSTTL('B',CTL,0.0) CALL SGLSET('LCNTL',.TRUE.) CALL SGFRM CALL UZINIT CALL SGSWND(-0.15,-200.,0.1,1E5) CALL SGSVPT(0.1,0.9,0.1,0.11) CALL SGSTRN(4) CALL SGSTRF CALL ULISET('IXTYPE',1) CALL ULXLOG('B',3,9) CTL='ULXLOG (IXTYPE=1,NLBL=3,NTCK=9)' CALL UXSTTL('B',CTL,0.0) CALL SGFRM CALL UZINIT CALL SGSWND(-0.15,-200.,0.1,1E5) CALL SGSVPT(0.1,0.9,0.1,0.11) CALL SGSTRN(4) CALL SGSTRF CALL ULISET('IXTYPE',2) CALL ULXLOG('B',3,9) CTL='ULXLOG (IXTYPE=2,NLBL=3,NTCK=9)' CALL UXSTTL('B',CTL,0.0) CALL SGFRM CALL UZINIT CALL SGSWND(-0.15,-200.,0.1,1E5) CALL SGSVPT(0.1,0.9,0.1,0.11) CALL SGSTRN(4) CALL SGSTRF CALL ULISET('IXTYPE',3) CALL ULXLOG('B',3,9) CTL='ULXLOG (IXTYPE=3,NLBL=3,NTCK=9)' CALL UXSTTL('B',CTL,0.0) CALL SGFRM CALL UZINIT CALL SGSWND(-0.15,-200.,0.1,1E5) CALL SGSVPT(0.1,0.9,0.1,0.11) CALL SGSTRN(4) CALL SGSTRF CALL ULISET('IXTYPE',4) CALL ULXLOG('B',3,9) CTL='ULXLOG (IXTYPE=4,NLBL=3,NTCK=9)' CALL UXSTTL('B',CTL,0.0) CALL SGFRM CALL UZINIT CALL SGSWND(-0.15,-200.,0.1,1E5) CALL SGSVPT(0.1,0.9,0.1,0.11) CALL SGSTRN(4) CALL SGSTRF CALL ULXSFM('(F5.1)') CALL ULISET('IXTYPE',3) CALL ULXLOG('B',3,9) CTL='ULXLOG (IXTYPE=3,NLBL=3,NTCK=9)' CALL UXSTTL('B',CTL,0.0) CALL SGFRM CALL UZINIT CALL SGSWND(-0.15,-200.,0.1,1E5) CALL SGSVPT(0.1,0.9,0.1,0.11) CALL SGSTRN(4) CALL SGSTRF CALL ULISET('IXTYPE',1) CALL ULISET('IXCHR',194) CALL ULSXBL(BL,NBL) CALL ULXLOG('B',4,5) CTL='ULXLOG (IXTYPE=1,NLBL=4,NTCK=5)' CALL UXSTTL('B',CTL,0.0) CALL SGCLS END dcl-7.5.2/demo/grph2/ulpack/ulpk01.f0000644000175000017500000000515514760053155016647 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM ULPK01 PARAMETER (NBL=2) REAL BL(NBL) CHARACTER CTL*64 DATA BL/1.0,3.0/ WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL SGOPN(-ABS(IWS)) CALL SGLSET('LFULL',.TRUE.) CALL UZFACT(0.7) CALL SLRAT(0.75,1.0) CALL SLDIV('T',1,7) CALL SGFRM CALL UZINIT CALL SGSWND(0.15,200.,0.1,1E5) CALL SGSVPT(0.1,0.9,0.1,0.11) CALL SGSTRN(4) CALL SGSTRF CALL ULISET('IXTYPE',1) CALL ULXLOG('B',1,9) CTL='ULXLOG (IXTYPE=1,NLBL=1,NTCK=9)' CALL UXSTTL('B',CTL,0.0) CALL SGLSET('LCNTL',.TRUE.) CALL SGFRM CALL UZINIT CALL SGSWND(0.15,200.,0.1,1E5) CALL SGSVPT(0.1,0.9,0.1,0.11) CALL SGSTRN(4) CALL SGSTRF CALL ULISET('IXTYPE',1) CALL ULXLOG('B',3,9) CTL='ULXLOG (IXTYPE=1,NLBL=3,NTCK=9)' CALL UXSTTL('B',CTL,0.0) CALL SGFRM CALL UZINIT CALL SGSWND(0.15,200.,0.1,1E5) CALL SGSVPT(0.1,0.9,0.1,0.11) CALL SGSTRN(4) CALL SGSTRF CALL ULISET('IXTYPE',2) CALL ULXLOG('B',3,9) CTL='ULXLOG (IXTYPE=2,NLBL=3,NTCK=9)' CALL UXSTTL('B',CTL,0.0) CALL SGFRM CALL UZINIT CALL SGSWND(0.15,200.,0.1,1E5) CALL SGSVPT(0.1,0.9,0.1,0.11) CALL SGSTRN(4) CALL SGSTRF CALL ULISET('IXTYPE',3) CALL ULXLOG('B',3,9) CTL='ULXLOG (IXTYPE=3,NLBL=3,NTCK=9)' CALL UXSTTL('B',CTL,0.0) CALL SGFRM CALL UZINIT CALL SGSWND(0.15,200.,0.1,1E5) CALL SGSVPT(0.1,0.9,0.1,0.11) CALL SGSTRN(4) CALL SGSTRF CALL ULISET('IXTYPE',4) CALL ULXLOG('B',3,9) CTL='ULXLOG (IXTYPE=4,NLBL=3,NTCK=9)' CALL UXSTTL('B',CTL,0.0) CALL SGFRM CALL UZINIT CALL SGSWND(0.15,200.,0.1,1E5) CALL SGSVPT(0.1,0.9,0.1,0.11) CALL SGSTRN(4) CALL SGSTRF CALL ULXSFM('(F5.1)') CALL ULISET('IXTYPE',3) CALL ULXLOG('B',3,9) CTL='ULXLOG (IXTYPE=3,NLBL=3,NTCK=9)' CALL UXSTTL('B',CTL,0.0) CALL SGFRM CALL UZINIT CALL SGSWND(0.15,200.,0.1,1E5) CALL SGSVPT(0.1,0.9,0.1,0.11) CALL SGSTRN(4) CALL SGSTRF CALL ULISET('IXTYPE',1) CALL ULISET('IXCHR',194) CALL ULSXBL(BL,NBL) CALL ULXLOG('B',4,5) CTL='ULXLOG (IXTYPE=1,NLBL=4,NTCK=5)' CALL UXSTTL('B',CTL,0.0) CALL SGCLS END dcl-7.5.2/demo/grph2/ulpack/Makefile0000644000175000017500000000057214760053155017022 0ustar uwabamiuwabami# # Makefile for ulpack (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = ulpack LIBSRCS = ulpk01.f ulpk02.f LIBDEMO = ulpk01 ulpk02 LIBEXEC = ulpk01$(EXT) ulpk02$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ *.ps core *.trace *.eps *.svg *.pdf a.out *.eps *.svg *.pdf a.out dcl-7.5.2/demo/grph2/ulpack/ulpk02n.f0000644000175000017500000000521114760053155017017 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM ULPK02 PARAMETER (NBL=2) REAL BL(NBL) CHARACTER CTL*64 DATA BL/1.0,3.0/ WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL SGOPN(+ABS(IWS)) CALL SGLSET('LFULL',.TRUE.) CALL UZFACT(0.6) CALL SLRAT(1.0,0.75) CALL SLDIV('Y',7,1) CALL SGFRM CALL UZINIT CALL SGSWND(0.2,200.,-0.15,-200.) CALL SGSVPT(0.13,0.14,0.1,0.9) CALL SGSTRN(4) CALL SGSTRF CALL ULISET('IYTYPE',1) CALL ULYLOG('L',1,9) CTL='ULYLOG (IYTYPE=1,NLBL=1,NTCK=9)' CALL UYSTTL('L',CTL,0.0) CALL SGLSET('LCNTL',.TRUE.) CALL SGFRM CALL UZINIT CALL SGSWND(0.2,200.,-0.15,-200.) CALL SGSVPT(0.13,0.14,0.1,0.9) CALL SGSTRN(4) CALL SGSTRF CALL ULISET('IYTYPE',1) CALL ULYLOG('L',3,9) CTL='ULYLOG (IYTYPE=1,NLBL=3,NTCK=9)' CALL UYSTTL('L',CTL,0.0) CALL SGFRM CALL UZINIT CALL SGSWND(0.2,200.,-0.15,-200.) CALL SGSVPT(0.13,0.14,0.1,0.9) CALL SGSTRN(4) CALL SGSTRF CALL ULISET('IYTYPE',2) CALL ULYLOG('L',3,9) CTL='ULYLOG (IYTYPE=2,NLBL=3,NTCK=9)' CALL UYSTTL('L',CTL,0.0) CALL SGFRM CALL UZINIT CALL SGSWND(0.2,200.,-0.15,-200.) CALL SGSVPT(0.13,0.14,0.1,0.9) CALL SGSTRN(4) CALL SGSTRF CALL ULISET('IYTYPE',3) CALL ULYLOG('L',3,9) CTL='ULYLOG (IYTYPE=3,NLBL=3,NTCK=9)' CALL UYSTTL('L',CTL,0.0) CALL SGFRM CALL UZINIT CALL SGSWND(0.2,200.,-0.15,-200.) CALL SGSVPT(0.13,0.14,0.1,0.9) CALL SGSTRN(4) CALL SGSTRF CALL ULISET('IYTYPE',4) CALL ULYLOG('L',3,9) CTL='ULYLOG (IYTYPE=4,NLBL=3,NTCK=9)' CALL UYSTTL('L',CTL,0.0) CALL SGFRM CALL UZINIT CALL SGSWND(0.2,200.,-0.15,-200.) CALL SGSVPT(0.13,0.14,0.1,0.9) CALL SGSTRN(4) CALL SGSTRF CALL ULYSFM('(F5.1)') CALL ULISET('IYTYPE',3) CALL ULYLOG('L',3,9) CTL='ULYLOG (IYTYPE=3,NLBL=3,NTCK=9)' CALL UYSTTL('L',CTL,0.0) CALL SGFRM CALL UZINIT CALL SGSWND(0.2,200.,-0.15,-200.) CALL SGSVPT(0.13,0.14,0.1,0.9) CALL SGSTRN(4) CALL SGSTRF CALL ULISET('IYTYPE',1) CALL ULISET('IYCHR',194) CALL ULSYBL(BL,NBL) CALL ULYLOG('L',4,5) CTL='ULYLOG (IYTYPE=1,NLBL=4,NTCK=5)' CALL UYSTTL('L',CTL,0.0) CALL SGCLS END dcl-7.5.2/demo/grph2/ulpack/ulpk02.f0000644000175000017500000000517314760053155016650 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM ULPK02 PARAMETER (NBL=2) REAL BL(NBL) CHARACTER CTL*64 DATA BL/1.0,3.0/ WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL SGOPN(+ABS(IWS)) CALL SGLSET('LFULL',.TRUE.) CALL UZFACT(0.7) CALL SLRAT(1.0,0.75) CALL SLDIV('Y',7,1) CALL SGFRM CALL UZINIT CALL SGSWND(0.2,200.,0.15,200.) CALL SGSVPT(0.13,0.14,0.1,0.9) CALL SGSTRN(4) CALL SGSTRF CALL ULISET('IYTYPE',1) CALL ULYLOG('L',1,9) CTL='ULYLOG (IYTYPE=1,NLBL=1,NTCK=9)' CALL UYSTTL('L',CTL,0.0) CALL SGLSET('LCNTL',.TRUE.) CALL SGFRM CALL UZINIT CALL SGSWND(0.2,200.,0.15,200.) CALL SGSVPT(0.13,0.14,0.1,0.9) CALL SGSTRN(4) CALL SGSTRF CALL ULISET('IYTYPE',1) CALL ULYLOG('L',3,9) CTL='ULYLOG (IYTYPE=1,NLBL=3,NTCK=9)' CALL UYSTTL('L',CTL,0.0) CALL SGFRM CALL UZINIT CALL SGSWND(0.2,200.,0.15,200.) CALL SGSVPT(0.13,0.14,0.1,0.9) CALL SGSTRN(4) CALL SGSTRF CALL ULISET('IYTYPE',2) CALL ULYLOG('L',3,9) CTL='ULYLOG (IYTYPE=2,NLBL=3,NTCK=9)' CALL UYSTTL('L',CTL,0.0) CALL SGFRM CALL UZINIT CALL SGSWND(0.2,200.,0.15,200.) CALL SGSVPT(0.13,0.14,0.1,0.9) CALL SGSTRN(4) CALL SGSTRF CALL ULISET('IYTYPE',3) CALL ULYLOG('L',3,9) CTL='ULYLOG (IYTYPE=3,NLBL=3,NTCK=9)' CALL UYSTTL('L',CTL,0.0) CALL SGFRM CALL UZINIT CALL SGSWND(0.2,200.,0.15,200.) CALL SGSVPT(0.13,0.14,0.1,0.9) CALL SGSTRN(4) CALL SGSTRF CALL ULISET('IYTYPE',4) CALL ULYLOG('L',3,9) CTL='ULYLOG (IYTYPE=4,NLBL=3,NTCK=9)' CALL UYSTTL('L',CTL,0.0) CALL SGFRM CALL UZINIT CALL SGSWND(0.2,200.,0.15,200.) CALL SGSVPT(0.13,0.14,0.1,0.9) CALL SGSTRN(4) CALL SGSTRF CALL ULYSFM('(F5.1)') CALL ULISET('IYTYPE',3) CALL ULYLOG('L',3,9) CTL='ULYLOG (IYTYPE=3,NLBL=3,NTCK=9)' CALL UYSTTL('L',CTL,0.0) CALL SGFRM CALL UZINIT CALL SGSWND(0.2,200.,0.15,200.) CALL SGSVPT(0.13,0.14,0.1,0.9) CALL SGSTRN(4) CALL SGSTRF CALL ULISET('IYTYPE',1) CALL ULISET('IYCHR',194) CALL ULSYBL(BL,NBL) CALL ULYLOG('L',4,5) CTL='ULYLOG (IYTYPE=1,NLBL=4,NTCK=5)' CALL UYSTTL('L',CTL,0.0) CALL SGCLS END dcl-7.5.2/demo/gokuraku/0000755000175000017500000000000014760053155014705 5ustar uwabamiuwabamidcl-7.5.2/demo/gokuraku/u1d/0000755000175000017500000000000014760053155015376 5ustar uwabamiuwabamidcl-7.5.2/demo/gokuraku/u1d/Makefile0000644000175000017500000000052414760053155017037 0ustar uwabamiuwabami# # Makefile for u1d (gokuraku) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = u1d LIBSRCS = u1d1.f u1d2.f LIBDEMO = u1d1 u1d2 LIBEXEC = u1d1$(EXT) u1d2$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ *.ps core *.trace *.eps *.svg *.pdf a.out dcl-7.5.2/demo/gokuraku/u1d/u1d1.f0000644000175000017500000000142314760053155016317 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM U1D1 PARAMETER( NMAX=51, XMIN=1945, XMAX=1995 ) REAL Y(NMAX) *-- データ ---- Y0 = 0.5 DO 10 N=1,NMAX Y(N) = 5.*Y0 + 10. Y0 = 3.7*Y0*(1.-Y0) 10 CONTINUE CALL GLRGET( 'RUNDEF', RUNDEF ) *-- グラフ ---- WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL GRSWND( XMIN, XMAX, RUNDEF, RUNDEF ) CALL USSTTL( 'TIME', 'YEAR', 'TEMPERATURE', 'DEG' ) CALL USGRPH( NMAX, RUNDEF, Y ) CALL GRCLS END dcl-7.5.2/demo/gokuraku/u1d/u1d2.f0000644000175000017500000000212614760053155016321 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM U1D2 PARAMETER( NMAX=50, YMIN=0., YMAX=50. ) REAL X1(0:NMAX), X2(0:NMAX) *-- データ ---- ISEED = 1 DO 10 N=0,NMAX Y = YMIN + (YMAX-YMIN)*N/NMAX X1(N) = 10.*(EXP(-Y/20))**2 * EXP((RNGU0(ISEED)-0.5)*2)**2 X2(N) = 10.*(EXP(-Y/20))**2 10 CONTINUE CALL GLRGET( 'RUNDEF', RUNDEF ) *-- グラフ ---- WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL GRSWND( RUNDEF, RUNDEF, YMIN, YMAX ) CALL USSPNT( NMAX+1, X1, RUNDEF ) CALL USSPNT( NMAX+1, X2, RUNDEF ) CALL GRSTRN( 3 ) CALL USPFIT CALL GRSTRF CALL USSTTL( 'MIXING RATIO', 'ppmv', 'HEIGHT', 'km' ) CALL USDAXS CALL UUSMKT( 2 ) CALL UUMRK( NMAX+1, X1, RUNDEF ) CALL UULIN( NMAX+1, X2, RUNDEF ) CALL GRCLS END dcl-7.5.2/demo/gokuraku/Makefile0000644000175000017500000000071114760053155016344 0ustar uwabamiuwabami# # Makefile for gokuraku # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../Mkinclude SUBDIRS = hop jump layout step u1d u2d all: @for i in $(SUBDIRS) ; do \ cd $$i ; \ echo "Making $$i" ; \ $(MAKE) ; \ cd .. ; \ done clean: clean.local clean.dir clean.local: $(RM) *~ clean.dir: @for i in $(SUBDIRS) ; do \ cd $$i ; \ echo "Cleaning $$i" ; \ $(MAKE) clean ; \ cd .. ; \ done dcl-7.5.2/demo/gokuraku/step/0000755000175000017500000000000014760053155015660 5ustar uwabamiuwabamidcl-7.5.2/demo/gokuraku/step/Makefile0000644000175000017500000000053414760053155017322 0ustar uwabamiuwabami# # Makefile for tugi (gokuraku) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = tugi LIBSRCS = step1.f step2.f LIBDEMO = step1 step2 LIBEXEC = step1$(EXT) step2$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ *.ps core *.trace *.eps *.svg *.pdf a.out dcl-7.5.2/demo/gokuraku/step/step1.f0000644000175000017500000000303114760053155017060 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM STEP1 PARAMETER( NMAX=201, IMAX=5 ) REAL X(NMAX), Y0(NMAX), Y1(NMAX), Y2(NMAX), Y3(NMAX), A(IMAX) *-- データ ---- PI = 3.14159 DO 10 I=1,IMAX II = 2*I - 1 A(I) = (-1)**I *2./(II*PI) 10 CONTINUE DO 20 N=1,NMAX X(N) = 1.*(N-1)/(NMAX-1) T = 2.*PI*X(N) IF(T.LT.PI/2. .OR. T.GE.PI*3./2.) THEN Y0(N) = 0. ELSE Y0(N) = 1. END IF Y1(N) = 0.5 + A(1)*COS(T) Y2(N) = 0.5 Y3(N) = 0.5 DO 30 I=1,IMAX II = 2*I - 1 IF(I .LE. 3) Y2(N) = Y2(N) + A(I)*COS(II*T) Y3(N) = Y3(N) + A(I)*COS(II*T) 30 CONTINUE 20 CONTINUE *-- グラフ ---- WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL USSPNT( NMAX, X, Y0 ) CALL USSPNT( NMAX, X, Y1 ) CALL USSPNT( NMAX, X, Y2 ) CALL USSPNT( NMAX, X, Y3 ) CALL USPFIT CALL GRSTRF CALL USSTTL( 'FREQUENCY', '/DAY', 'RESPONSE', '' ) CALL USDAXS CALL UULIN( NMAX, X, Y0 ) CALL UUSLNT( 2 ) CALL UUSLNI( 3 ) CALL UULIN( NMAX, X, Y1 ) CALL UUSLNT( 3 ) CALL UULIN( NMAX, X, Y2 ) CALL UUSLNT( 4 ) CALL UULIN( NMAX, X, Y3 ) CALL GRCLS END dcl-7.5.2/demo/gokuraku/step/step2.f0000644000175000017500000000210314760053155017060 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM STEP2 PARAMETER( NMAX=100 ) REAL X(NMAX), Y(NMAX) *-- データ ---- ISEED = 1 X(1) = 2.*(RNGU0(ISEED)-0.5) DO 10 N=2,NMAX X(N) = 2.*(RNGU0(ISEED)-0.5) Y(N-1) = X(N) 10 CONTINUE Y(NMAX) = X(1) *-- グラフ ---- WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL USSPNT( NMAX, X, Y ) CALL USPFIT CALL GRSTRF CALL USSTTL( 'X-TITLE', 'x-unit', 'Y-TITLE', 'y-unit' ) CALL USDAXS CALL UUSMKI( 5 ) CALL UUSMKS( 0.015 ) CALL UUMRK( NMAX/4, X( 1), Y( 1) ) CALL UUSMKT( 2 ) CALL UUMRK( NMAX/4, X(26), Y(26) ) CALL UUSMKT( 3 ) CALL UUMRK( NMAX/4, X(51), Y(51) ) CALL UUSMKT( 4 ) CALL UUMRK( NMAX/4, X(76), Y(76) ) CALL GRCLS END dcl-7.5.2/demo/gokuraku/hop/0000755000175000017500000000000014760053155015473 5ustar uwabamiuwabamidcl-7.5.2/demo/gokuraku/hop/Makefile0000644000175000017500000000051614760053155017135 0ustar uwabamiuwabami# # Makefile for hajime (gokuraku) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = hajime LIBSRCS = hop.f LIBDEMO = hop LIBEXEC = hop$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ *.ps core *.trace *.eps *.svg *.pdf a.out a.out *.eps *.png *.svg dcl-7.5.2/demo/gokuraku/hop/hop.f0000644000175000017500000000135314760053155016432 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM HOP PARAMETER( NMAX=400 ) REAL X(NMAX), Y(NMAX) *-- リサジューの図 ---- DT = 2.*3.14159 / (NMAX-1) DO 10 N=1,NMAX T = DT*(N-1) X(N) = 1.E 2*SIN(4.*T) Y(N) = 1.E-3*COS(5.*T) + 6. 10 CONTINUE *-- グラフ ---- WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL USSTTL( 'X-TITLE', 'x-unit', 'Y-TITLE', 'y-unit' ) CALL USGRPH( NMAX, X, Y ) CALL GRCLS END dcl-7.5.2/demo/gokuraku/jump/0000755000175000017500000000000014760053155015660 5ustar uwabamiuwabamidcl-7.5.2/demo/gokuraku/jump/Makefile0000644000175000017500000000054014760053155017317 0ustar uwabamiuwabami# # Makefile for sosite (gokuraku) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = sosite LIBSRCS = jump1.f jump2.f LIBDEMO = jump1 jump2 LIBEXEC = jump1$(EXT) jump2$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ *.ps core *.trace *.eps *.svg *.pdf a.out dcl-7.5.2/demo/gokuraku/jump/jump1.f0000644000175000017500000000245114760053155017065 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM JUMP1 PARAMETER( NMAX=400 ) REAL X(NMAX), Y(NMAX) *-- データ 1 ---- DT = 2.*3.14159 / (NMAX-1) DO 10 N=1,NMAX T = DT*(N-1) X(N) = 5.*SIN(4.*T) Y(N) = 5.*COS(5.*T) 10 CONTINUE *-- グラフ 1 ---- WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL GRSWND( -6., 6., -6., 6. ) CALL GRSVPT( 0.15, 0.45, 0.65, 0.95 ) CALL GRSTRN( 1 ) CALL GRSTRF CALL USSTTL( 'X1', '', 'Y1', '' ) CALL USDAXS CALL UULIN( NMAX, X, Y ) *-- データ 2 ---- ISEED = 1 X(1) = 2.*(RNGU0(ISEED)-0.5) DO 20 N=2,NMAX X(N) = 2.*(RNGU0(ISEED)-0.5) Y(N-1) = X(N) 20 CONTINUE Y(NMAX) = X(1) *-- グラフ 2 ---- CALL GRFIG CALL GRSWND( -1.1, 1.1, -1.1, 1.1 ) CALL GRSVPT( 0.15, 0.95, 0.1, 0.5 ) CALL GRSTRN( 1 ) CALL GRSTRF CALL USSTTL( 'X2-TITLE', '', 'Y2-TITLE', '' ) CALL USDAXS CALL UUMRK( NMAX, X, Y ) CALL GRCLS END dcl-7.5.2/demo/gokuraku/jump/jump2.f0000644000175000017500000000202214760053155017060 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM JUMP2 PARAMETER ( NMAX=100 ) REAL X(NMAX), Y(NMAX) *-- データ ---- R = 0.2 R0 = 0.0 DO 10 I=1,NMAX R = 3.6*R*(1.-R) R0 = R0 + R*4 - 2.58 X2 = (I-50)**2 REXP = 4.*I/NMAX X(I) = 10**REXP Y(I) = 1.E5*EXP(-X2) + 10.**R0 10 CONTINUE Y(20) = 1.E4 Y(40) = 2.E3 Y(65) = 3.E4 Y(70) = 5.E2 *-- グラフ ---- WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL GRSWND( 1.E0, 1.E4, 1.E-1, 1.E6 ) CALL GRSVPT( 0.2, 0.8, 0.2, 0.8 ) CALL GRSTRN( 4 ) CALL GRSTRF CALL USSTTL( 'FREQUENCY', '/s', 'POWER', 'm\^{2}/s\^{2}' ) CALL USDAXS CALL UULIN( NMAX, X, Y ) CALL GRCLS END dcl-7.5.2/demo/gokuraku/layout/0000755000175000017500000000000014760053155016222 5ustar uwabamiuwabamidcl-7.5.2/demo/gokuraku/layout/lay1.f0000644000175000017500000000204314760053155017236 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM LAY1 PARAMETER( NMAX=401, JMAX=51 ) REAL Y(NMAX), YY(JMAX) *-- データ ---- Y0 = 0.5 DO 10 N=1,NMAX Y(N) = 5.*Y0 + 10. Y0 = 3.7*Y0*(1.-Y0) 10 CONTINUE CALL GLRGET( 'RUNDEF', RUNDEF ) *-- グラフ ---- WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL SLDIV( 'Y', 3, 2 ) DO 20 I=1,8 CALL GRFRM IJMIN = (I-1)*(JMAX-1) + 1 IJ = IJMIN DO 30 J=1,JMAX YY(J) = Y(IJ) IJ = IJ + 1 30 CONTINUE XMIN = IJMIN + 1599 XMAX = XMIN + JMAX - 1 CALL GRSWND( XMIN, XMAX, RUNDEF, RUNDEF ) CALL USSTTL( 'TIME', 'YEAR', 'TEMPERATURE', 'DEG' ) CALL USGRPH( JMAX, RUNDEF, YY ) 20 CONTINUE CALL GRCLS END dcl-7.5.2/demo/gokuraku/layout/Makefile0000644000175000017500000000053214760053155017662 0ustar uwabamiuwabami# # Makefile for layout (gokuraku) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = layout LIBSRCS = lay1.f lay2.f LIBDEMO = lay1 lay2 LIBEXEC = lay1$(EXT) lay2$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ *.ps core *.trace *.eps *.svg *.pdf a.out dcl-7.5.2/demo/gokuraku/layout/lay2.f0000644000175000017500000000165014760053155017242 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM LAY2 PARAMETER( NMAX=401, XMIN=1600, XMAX=2000 ) REAL X(NMAX), Y(NMAX) *-- データ ---- Y0 = 0.5 DO 10 N=1,NMAX X(N) = XMIN + (XMAX-XMIN)*(N-1)/(NMAX-1) Y(N) = 5.*Y0 + 10. Y0 = 3.7*Y0*(1.-Y0) 10 CONTINUE *-- グラフ ---- WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL SGLSET( 'LFULL', .TRUE. ) CALL GRFRM CALL GRSWND( XMIN, XMAX, 11.0, 15.0 ) CALL GRSVPT( 0.15, 0.95, 0.15, 0.65 ) CALL USPFIT CALL GRSTRF CALL USSTTL( 'TIME', 'YEAR', 'TEMPERATURE', 'DEG' ) CALL USDAXS CALL UULIN( NMAX, X, Y ) CALL GRCLS END dcl-7.5.2/demo/gokuraku/u2d/0000755000175000017500000000000014760053155015377 5ustar uwabamiuwabamidcl-7.5.2/demo/gokuraku/u2d/Makefile0000644000175000017500000000062614760053155017043 0ustar uwabamiuwabami# # Makefile for u2d (gokuraku) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = u2d LIBSRCS = u2d1.f u2d2.f u2d3.f u2d4.f LIBDEMO = u2d1 u2d2 u2d3 u2d4 LIBEXEC = u2d1$(EXT) u2d2$(EXT) u2d3$(EXT) u2d4$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ *.ps core *.trace *.eps *.svg *.pdf a.out dcl-7.5.2/demo/gokuraku/u2d/u2d1.f0000644000175000017500000000173014760053155016322 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM U2D1 PARAMETER( NT=51, NZ=21 ) PARAMETER( TMIN=0, TMAX=5, ZMIN=20, ZMAX=50 ) PARAMETER( DT=(TMAX-TMIN)/(NT-1), DZ=(ZMAX-ZMIN)/(NZ-1) ) REAL U(NT,NZ) *-- データ ---- DO 10 J=1,NZ Z = (J-1)*DZ UZ = EXP(-0.2*Z)*(Z**0.5) DO 20 I=1,NT T = (I-1)*DT - 2.*EXP(-0.1*Z) U(I,J) = UZ*SIN(3.*T) 20 CONTINUE 10 CONTINUE *-- グラフ ---- WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL GRSWND( TMIN, TMAX, ZMIN, ZMAX ) CALL USPFIT CALL GRSTRF CALL USSTTL( 'TIME', 'YEAR', 'HEIGHT', 'km' ) CALL USDAXS CALL UDCNTR( U, NT, NT, NZ ) CALL GRCLS END dcl-7.5.2/demo/gokuraku/u2d/u2d3.f0000644000175000017500000000165614760053155016333 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM U2D3 PARAMETER( NX=21, NY=21 ) PARAMETER( XMIN=-1, XMAX=1, YMIN=-1, YMAX=1 ) PARAMETER( DX=(XMAX-XMIN)/(NX-1), DY=(YMAX-YMIN)/(NY-1) ) REAL U(NX,NY), V(NX,NY) *-- データ ---- DO 10 J=1,NY DO 10 I=1,NX X = XMIN + (I-1)*DX Y = YMIN + (J-1)*DY U(I,J) = X V(I,J) = - Y 10 CONTINUE *-- グラフ ---- WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL GRSWND( XMIN, XMAX, YMIN, YMAX ) CALL USPFIT CALL GRSTRF CALL USSTTL( 'X', 'km', 'Y', 'km' ) CALL USDAXS CALL UGVECT( U, NX, V, NX, NX, NY ) CALL GRCLS END dcl-7.5.2/demo/gokuraku/u2d/u2d2.f0000644000175000017500000000211514760053155016321 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM U2D2 PARAMETER( NT=51, NZ=21 ) PARAMETER( TMIN=0, TMAX=5, ZMIN=20, ZMAX=50 ) PARAMETER( DT=(TMAX-TMIN)/(NT-1), DZ=(ZMAX-ZMIN)/(NZ-1) ) REAL U(NT,NZ) *-- データ ---- DO 10 J=1,NZ Z = (J-1)*DZ UZ = EXP(-0.2*Z)*(Z**0.5) DO 20 I=1,NT T = (I-1)*DT - 2.*EXP(-0.1*Z) U(I,J) = UZ*SIN(3.*T) 20 CONTINUE 10 CONTINUE *-- グラフ ---- WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL SGLSET( 'LSOFTF', .TRUE. ) CALL GRFRM CALL GRSWND( TMIN, TMAX, ZMIN, ZMAX ) CALL GRSVPT( 0.2, 0.9, 0.4, 0.8 ) CALL USPFIT CALL GRSTRF CALL USSTTL( 'TIME', 'YEAR', 'HEIGHT', 'km' ) CALL USDAXS CALL UDCNTR( U, NT, NT, NZ ) CALL UETONE( U, NT, NT, NZ ) CALL GRCLS END dcl-7.5.2/demo/gokuraku/u2d/u2d4.f0000644000175000017500000000230514760053155016324 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM U2D4 PARAMETER( NX=21, NY=21 ) PARAMETER( XMIN=-10, XMAX=10, YMIN=-10, YMAX=10 ) PARAMETER( KMAX=5, PMIN=0, PMAX=1 ) REAL U(NX,NY), V(NX,NY), P(NX,NY) DO 10 J=1,NY DO 10 I=1,NX X = XMIN + (XMAX-XMIN)*(I-1)/(NX-1) Y = YMIN + (YMAX-YMIN)*(J-1)/(NY-1) U(I,J) = X V(I,J) = -Y P(I,J) = EXP( -X**2/64 -Y**2/25 ) 10 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL SGLSET( 'LSOFTF', .TRUE. ) CALL GRFRM CALL GRSWND( XMIN, XMAX, YMIN, YMAX ) CALL USPFIT CALL GRSTRF CALL USDAXS CALL UGVECT( U, NX, V, NX, NX, NY ) CALL UDCNTR( P, NX, NX, NY ) DP = (PMAX-PMIN)/KMAX DO 20 K=1,KMAX TLEV1 = (K-1)*DP TLEV2 = TLEV1 + DP IPAT = 600 + K - 1 CALL UESTLV( TLEV1, TLEV2, IPAT ) 20 CONTINUE CALL UETONE( P, NX, NX, NY ) CALL GRCLS END dcl-7.5.2/demo/rakuraku/0000755000175000017500000000000014760053155014702 5ustar uwabamiuwabamidcl-7.5.2/demo/rakuraku/map3d/0000755000175000017500000000000014760053155015706 5ustar uwabamiuwabamidcl-7.5.2/demo/rakuraku/map3d/map3d1.f0000644000175000017500000000333314760053155017144 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM MAP3D1 PARAMETER( NP=14 ) INTEGER ITR(NP) REAL FCT(NP) CHARACTER CTTL*32 DATA ITR / 10, 11, 12, 13, 14, 15, + 20, 21, 22, 23, 30, 31, 32, 33/ DATA FCT / 0.12, 0.12, 0.14, 0.14, 0.14, 0.14, + 0.11, 0.16, 0.12, 0.12, 0.40, 0.12, 0.12, 0.17/ WRITE(*,*) ' WORKSTATION IS (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL SGOPN( -ABS(IWS) ) CALL SLRAT( 2., 3. ) CALL SLDIV( 'Y', 2, 3 ) CALL SGLSET( 'LCLIP', .TRUE. ) CALL SGRSET( 'STLAT1', 45. ) CALL SGRSET( 'STLAT2', 30. ) CALL UMLSET( 'LGRIDMN', .FALSE. ) CALL UMISET( 'INDEXMJ', 1 ) CALL SGSTXS( 0.035 ) CALL SGSTXI( 3 ) DO 10 I=1,NP CALL SGFRM CALL SGSVPT( 0.1, 0.9, 0.1, 0.9 ) CALL SGSSIM( FCT(I), 0., 0. ) CALL SGSMPL( 0., 90., 0. ) IF ( ITR(I).EQ.30 ) THEN CALL SGSTXY( -180., 180., 0., 90. ) ELSE CALL SGSTXY( -180., 180., -90., 90. ) END IF CALL SGSTRN( ITR(I) ) CALL SGSTRF CALL SLPWWR( 1 ) CALL SLPVPR( 1 ) CALL SGTRNL( ITR(I), CTTL ) CALL SGTXR( 0.5, 0.95, CTTL ) CTTL = 'ITR=' WRITE(CTTL(5:6),'(I2)') ITR(I) CALL SGTXR( 0.5, 0.05, CTTL ) CALL UMPMAP( 'coast_world' ) CALL UMPGLB IF ( ITR(I).EQ.23 ) THEN CALL SGFRM CALL SGFRM END IF 10 CONTINUE CALL SGCLS END dcl-7.5.2/demo/rakuraku/map3d/map3d2.f0000644000175000017500000000271514760053155017150 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM MAP3D2 PARAMETER( NX=37, NY=37 ) PARAMETER( XMIN=0, XMAX=360, YMIN=-90, YMAX=90 ) PARAMETER( PI=3.14159, DRAD=PI/180 ) REAL P(NX,NY) DO 10 J=1,NY DO 10 I=1,NX ALON = ( XMIN + (XMAX-XMIN)*(I-1)/(NX-1) ) * DRAD ALAT = ( YMIN + (YMAX-YMIN)*(J-1)/(NY-1) ) * DRAD SLAT = SIN(ALAT) P(I,J) = 3*SQRT(1-SLAT**2)*SLAT*COS(ALON) - 0.5*(3*SLAT**2-1) 10 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL SGLSET( 'LSOFTF', .FALSE. ) CALL GRFRM CALL SGSWND( XMIN, XMAX, YMIN, YMAX ) CALL SGSVPT( 0.1, 0.9, 0.1, 0.9 ) CALL SGSSIM( 0.4, 0., 0. ) CALL SGSMPL( 135., 35., 0. ) CALL SGSTXY( -180., 180., 0., 90. ) CALL SGSTRN( 30 ) CALL SGSTRF DO 20 K=-5,3 TLEV1 = 0.4*K TLEV2 = TLEV1 + 0.4 IF(K.LE.-1) THEN IPAT = 600 + ABS(K+1) ELSE IPAT = 30 + K END IF CALL UESTLV( TLEV1, TLEV2, IPAT ) 20 CONTINUE CALL UETONE( P, NX, NX, NY ) CALL UDGCLB( P, NX, NX, NY, 0.4 ) CALL UDCNTR( P, NX, NX, NY ) CALL UMPMAP( 'coast_world' ) CALL UMPGLB CALL GRCLS END dcl-7.5.2/demo/rakuraku/map3d/map3d4.f0000644000175000017500000000426014760053155017147 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM MAP3D4 PARAMETER( XMIN= -50, XMAX= 50, YMIN= -50, YMAX= 50 ) PARAMETER( VXMIN=0., VXMAX=0.8, VYMIN=0., VYMAX=0.8 ) PARAMETER( ZMIN= -50, ZMAX= 50 ) PARAMETER( VZMIN=0., VZMAX=0.8 ) PARAMETER( XVP3=2.5, YVP3=-1., ZVP3=1.5 ) PARAMETER( XFC3=(VXMAX-VXMIN)/2, YFC3=(VYMAX-VYMIN)/2 ) PARAMETER( ZFC3=(VZMAX-VZMIN)/2 ) WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL SGOPN( IWS ) CALL SGISET( 'IFONT' , 2 ) CALL SGFRM *-- X-Y PLANE ---- CALL SGSWND( XMIN, XMAX, YMIN, YMAX ) CALL SGSVPT( VXMIN, VXMAX, VYMIN, VYMAX ) CALL SGSTRN( 1 ) CALL SGSTRF CALL SCSPLN( 1, 2, VZMAX) CALL SCSEYE( XVP3, YVP3, ZVP3 ) CALL SCSOBJ( XFC3, YFC3, ZFC3 ) CALL SCSPRJ CALL APLOT( 1 ) *-- X-Z PLANE ---- CALL SGSWND( XMIN, XMAX, ZMIN, ZMAX ) CALL SGSVPT( VXMIN, VXMAX, VZMIN, VZMAX ) CALL SGSTRN( 1 ) CALL SGSTRF CALL SCSPLN( 1, 3, VYMIN) CALL SCSPRJ CALL APLOT( 2 ) *-- Y-Z PLANE ---- CALL SGSWND( YMIN, YMAX, ZMIN, ZMAX ) CALL SGSVPT( VYMIN, VYMAX, VZMIN, VZMAX ) CALL SGSTRN( 1 ) CALL SGSTRF CALL SCSPLN( 2, 3, VXMAX) CALL SCSPRJ CALL APLOT( 3 ) CALL SGCLS END *----------------------------------------------------------------------- SUBROUTINE APLOT( IJK ) PARAMETER( NMAX=40 ) REAL X(0:NMAX), Y(0:NMAX) CHARACTER CTTL*2 CALL SLPVPR( 1 ) DT = 2.*3.14159 / NMAX DO 10 N=0,NMAX X(N) = 40.*SIN(N*DT) Y(N) = 40.*COS(N*DT) 10 CONTINUE CALL SGPLU( NMAX+1, X, Y ) DT = 2.*3.14159 / 3 DO 20 N=0,3 X(N) = 40.*SIN(N*DT) Y(N) = 40.*COS(N*DT) 20 CONTINUE CALL SGPLU( 4, X, Y ) CALL SGSTXS( 0.07 ) CALL SGTXU( 0., 0., 'DENNOU' ) WRITE(CTTL(1:2), '(I2.2)') IJK CALL SGTXU( 0., -30., CTTL ) RETURN END dcl-7.5.2/demo/rakuraku/map3d/Makefile0000644000175000017500000000102214760053155017341 0ustar uwabamiuwabami# # Makefile for map3d (rakuraku) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = map3d LIBSRCS = map3d1.f map3d2.f map3d3.f map3d4.f \ map3d5.f map3d6.f LIBDEMO = map3d1 map3d2 map3d3 map3d4 \ map3d5 map3d6 LIBEXEC = map3d1$(EXT) map3d2$(EXT) map3d3$(EXT) map3d4$(EXT) \ map3d5$(EXT) map3d6$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ *.ps core *.trace *.eps *.svg *.pdf a.out dcl-7.5.2/demo/rakuraku/map3d/map3d5.f0000644000175000017500000000474414760053155017157 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM MAP3D5 PARAMETER( NX=21, NY=21 ) PARAMETER( XMIN=-10, XMAX= 10, YMIN=-10, YMAX= 10 ) PARAMETER( VXMIN=0.2, VXMAX=0.8, VYMIN=0.1, VYMAX=0.5 ) PARAMETER( ZMIN=0.0, ZMAX= 20 ) PARAMETER( VZMIN=0.0, VZMAX=0.6 ) PARAMETER( XVP3=-0.7, YVP3=-0.7, ZVP3=1.2 ) PARAMETER( XFC3=(VXMAX-VXMIN)/2, YFC3=(VYMAX-VYMIN)/2 ) PARAMETER( ZFC3=(VZMAX-VZMIN)/2 ) PARAMETER( DX1=1, DX2=5, DY1=1, DY2=4, DZ1=1, DZ2=5 ) PARAMETER( KMAX=5, PMIN=0, PMAX=1 ) REAL U(NX,NY), V(NX,NY), P(NX,NY) DO 10 J=1,NY DO 10 I=1,NX X = XMIN + (XMAX-XMIN)*(I-1)/(NX-1) Y = YMIN + (YMAX-YMIN)*(J-1)/(NY-1) U(I,J) = X V(I,J) = -Y P(I,J) = EXP( -X**2/64 -Y**2/25 ) 10 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL SGOPN( IWS ) CALL SGFRM *-- X-Y 平面: 下レベル ---- CALL SGSWND( XMIN, XMAX, YMIN, YMAX ) CALL SGSVPT( VXMIN, VXMAX, VYMIN, VYMAX ) CALL SGSTRN( 1 ) CALL SGSTRF CALL SCSPLN( 1, 2, VZMIN ) CALL SCSEYE( XVP3, YVP3, ZVP3 ) CALL SCSOBJ( XFC3, YFC3, ZFC3 ) CALL SCSPRJ CALL UXAXDV( 'B', DX1, DX2 ) CALL UXAXDV( 'T', DX1, DX2 ) CALL UXSTTL( 'B', 'X-axis', 0. ) CALL UYAXDV( 'L', DY1, DY2 ) CALL UYAXDV( 'R', DY1, DY2 ) CALL UYSTTL( 'L', 'Y-axis', 0. ) CALL UGRSET( 'RSIZET', 0.014 ) CALL UGVECT( U, NX, V, NX, NX, NY ) *-- X-Y 平面: 上レベル ---- VZLEV = VZMIN + (VZMAX-VZMIN)*.6 CALL SCSPLN( 1, 2, VZLEV ) CALL SCSPRJ DP = (PMAX-PMIN)/KMAX DO 20 K=1,KMAX TLEV1 = (K-1)*DP TLEV2 = TLEV1 + DP IPAT = 600 + K - 1 CALL UESTLV( TLEV1, TLEV2, IPAT ) 20 CONTINUE CALL UETONE( P, NX, NX, NY ) CALL UDLSET( 'LMSG' , .FALSE. ) CALL UDGCLB( P, NX, NX, NY, 0.1 ) CALL UDCNTR( P, NX, NX, NY ) CALL SLPVPR( 1 ) *-- X-Z 平面 ---- CALL SGSWND( XMIN, XMAX, ZMIN, ZMAX ) CALL SGSVPT( VXMIN, VXMAX, VZMIN, VZMAX ) CALL SGSTRN( 1 ) CALL SGSTRF CALL SCSPLN( 1, 3, VYMAX ) CALL SCSPRJ CALL UZINIT CALL UYAXDV( 'L', DZ1, DZ2 ) CALL UYSTTL( 'L', 'Z-axis', 0. ) CALL SGCLS END dcl-7.5.2/demo/rakuraku/map3d/map3d3.f0000644000175000017500000000250014760053155017141 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM MAP3D3 PARAMETER( NX=16, NY=16 ) PARAMETER( XMIN=120, XMAX=150, YMIN=20, YMAX=50 ) PARAMETER( FACT=0.2 ) REAL U(NX,NY), V(NX,NY), ALON(NX), ALAT(NY) DO 10 I=1,NX ALON(I) = XMIN + (XMAX-XMIN)*(I-1)/(NX-1) 10 CONTINUE DO 20 J=1,NY ALAT(J) = YMIN + (YMAX-YMIN)*(J-1)/(NY-1) 20 CONTINUE DO 30 J=1,NY DO 30 I=1,NX U(I,J) = (J-1-(NY-1)/2.) * FACT V(I,J) = - (I-1-(NX-1)/2.) * FACT 30 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL SGLSET( 'LCLIP', .TRUE. ) CALL GRSWND( XMIN, XMAX, YMIN, YMAX ) CALL GRSVPT( 0.1, 0.9, 0.1, 0.9 ) CALL GRSTRN( 10 ) CALL UMPFIT CALL GRSTRF CALL SLPVPR( 3 ) CALL UMRSET( 'DGRIDMJ', 10. ) CALL UMRSET( 'DGRIDMN', 2. ) CALL UMPMAP( 'coast_world' ) CALL UMPGLB CALL SGSLAI( 3 ) DO 40 J=1,NY DO 40 I=1,NX CALL SGLAU( ALON(I), ALAT(J), ALON(I)+U(I,J), ALAT(J)+V(I,J) ) 40 CONTINUE CALL GRCLS END dcl-7.5.2/demo/rakuraku/map3d/map3d6.f0000644000175000017500000000660614760053155017157 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM MAP3D6 PARAMETER( NX=37, NY=37 ) PARAMETER( XMIN= 0, XMAX=360, YMIN= -90, YMAX= 90 ) PARAMETER( VXMIN=-0.4, VXMAX=0.4, VYMIN=-0.3, VYMAX=0.3 ) PARAMETER( ZMIN=-1.9, ZMAX=1.9 ) PARAMETER( VZMIN=-0.2, VZMAX=0.2 ) PARAMETER( PI=3.14159, DRAD=PI/180 ) REAL ALON(NX), ALAT(NY), P(NX,NY) REAL XP(3), YP(3), ZP(3) DO 10 I=1,NX ALON(I) = XMIN + (XMAX-XMIN)*(I-1)/(NX-1) 10 CONTINUE DO 20 J=1,NY ALAT(J) = YMIN + (YMAX-YMIN)*(J-1)/(NY-1) 20 CONTINUE DO 30 J=1,NY SLAT = SIN(ALAT(J)*DRAD) DO 30 I=1,NX P(I,J) = 3*SQRT(1-SLAT**2)*SLAT*COS(ALON(I)*DRAD) + - 0.5*(3*SLAT**2-1) 30 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL SGOPN( IWS ) CALL SGFRM *-- X-Y PLANE ---- CALL SGSWND( XMIN, XMAX, YMIN, YMAX ) CALL SGSVPT( VXMIN, VXMAX, VYMIN, VYMAX ) CALL SGSTRN( 1 ) CALL SGSTRF CALL SCSPLN( 1, 2, VZMIN) CALL SCSEYE( -1.1, -1.1, 2.5 ) CALL SCSOBJ( 0.0, 0.0, 0.0 ) CALL SCSPRJ CALL UXAXDV( 'B', 10., 60. ) CALL UXAXDV( 'T', 10., 60. ) CALL UXSTTL( 'B', 'LONGITUDE', 0. ) CALL UYAXDV( 'L', 10., 30. ) CALL UYAXDV( 'R', 10., 30. ) CALL UYSTTL( 'L', 'LATITUDE', 0. ) *-- X-Z PLANE ---- CALL SGSWND( XMIN, XMAX, ZMIN, ZMAX ) CALL SGSVPT( VXMIN, VXMAX, VZMIN, VZMAX ) CALL SGSTRN( 1 ) CALL SGSTRF CALL SCSPLN( 1, 3, VYMAX) CALL SCSPRJ CALL UZINIT CALL UXAXDV( 'T', 10., 60. ) CALL UZLSET( 'LABELXB', .FALSE. ) CALL UXAXDV( 'B', 10., 60. ) CALL UYAXDV( 'L', 0.2, 1.0 ) CALL UYAXDV( 'R', 0.2, 1.0 ) CALL UYSTTL( 'L', 'AMPLITUDE', 0. ) *-- Y-Z PLANE ---- CALL SGSWND( YMIN, YMAX, ZMIN, ZMAX ) CALL SGSVPT( VYMIN, VYMAX, VZMIN, VZMAX ) CALL SGSTRN( 1 ) CALL SGSTRF CALL SCSPLN( 2, 3, VXMAX) CALL SCSPRJ CALL UZINIT CALL UXAXDV( 'T', 10., 30. ) CALL UXAXDV( 'B', 10., 30. ) CALL UZLSET( 'LABELYL', .FALSE. ) CALL UYAXDV( 'L', 0.2, 1.0 ) CALL UYAXDV( 'R', 0.2, 1.0 ) *---------------- 3-D ------------------ CALL SCSVPT(VXMIN, VXMAX, VYMIN, VYMAX, VZMIN, VZMAX) CALL SCSWND( XMIN, XMAX, YMIN, YMAX, ZMIN, ZMAX) CALL SCSLOG(.FALSE., .FALSE., .FALSE.) CALL SCSTRN(1) CALL SCSTRF CALL SZL3OP(1) C CALL SZT3OP(2999,4999) DO 40 J=NY-1, 1, -1 DO 40 I=NX-1, 1, -1 XP(1) = ALON(I) YP(1) = ALAT(J) ZP(1) = P(I,J) XP(2) = ALON(I) YP(2) = ALAT(J+1) ZP(2) = P(I,J+1) XP(3) = ALON(I+1) YP(3) = ALAT(J+1) ZP(3) = P(I+1,J+1) C CALL SZT3ZU(XP, YP, ZP) CALL SZL3ZU(3, XP, YP, ZP) XP(1) = ALON(I+1) YP(1) = ALAT(J+1) ZP(1) = P(I+1,J+1) XP(2) = ALON(I+1) YP(2) = ALAT(J) ZP(2) = P(I+1,J) XP(3) = ALON(I) YP(3) = ALAT(J) ZP(3) = P(I,J) C CALL SZT3ZU(XP, YP, ZP) CALL SZL3ZU(3, XP, YP, ZP) 40 CONTINUE CALL SZL3CL C CALL SZT3CL CALL SGCLS END dcl-7.5.2/demo/rakuraku/uxyz/0000755000175000017500000000000014760053155015721 5ustar uwabamiuwabamidcl-7.5.2/demo/rakuraku/uxyz/uxyz4.f0000644000175000017500000000146414760053155017200 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM UXYZ4 WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL GRSWND( -50., 50., 1.E3, 0.4 ) CALL GRSVPT( 0.2, 0.8, 0.2, 0.8 ) CALL GRSTRN( 2 ) CALL GRSTRF CALL UXAXDV( 'B', 5., 20. ) CALL UXAXDV( 'T', 5., 20. ) CALL UXSTTL( 'B', 'LATITUDE (deg)', 0. ) CALL ULISET( 'IYTYPE', 3 ) CALL ULYLOG( 'L', 3, 9 ) CALL ULYLOG( 'R', 3, 9 ) CALL UYSTTL( 'L', 'PRESSURE (hPa)', 0. ) CALL UXMTTL( 'T', 'UXAXDV/ULYLOG', 0. ) CALL GRCLS END dcl-7.5.2/demo/rakuraku/uxyz/uxyz6.f0000644000175000017500000000165414760053155017203 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM UXYZ6 PARAMETER( ID0=19911201, ND=720, RND=ND ) WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL UZFACT( 0.8 ) CALL GRFRM CALL GRSWND( -180., 180., RND, 0.0 ) CALL GRSVPT( 0.2, 0.8, 0.2, 0.8 ) CALL GRSTRN( 1 ) CALL GRSTRF CALL UXAXDV( 'B', 10., 60. ) CALL UXAXDV( 'T', 10., 60. ) CALL UXSTTL( 'B', 'LONGITUDE', 0. ) CALL UCYACL( 'L', ID0, ND ) CALL UZLSET( 'LABELYR', .TRUE. ) CALL UYAXDV( 'R', 20., 100. ) CALL UZISET( 'IROTCYR', -1 ) CALL UYSTTL( 'R', 'DAY NUMBER', 0. ) CALL UXMTTL( 'T', 'UXAXDV/UCYACL', 0. ) CALL GRCLS END dcl-7.5.2/demo/rakuraku/uxyz/uxyz7.f0000644000175000017500000000162714760053155017204 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM UXYZ7 WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL GRSWND( 1990., 1995., -2.0, 2.0 ) CALL GRSVPT( 0.2, 0.8, 0.3, 0.7 ) CALL GRSTRN( 1 ) CALL GRSTRF CALL UZRSET( 'UYUSER', 0. ) CALL UZLSET( 'LBTWN', .TRUE. ) CALL UXSFMT( '(I4)' ) CALL UXAXDV( 'U', 0.25, 1. ) CALL UZLSET( 'LBTWN', .FALSE. ) CALL UXSTTL( 'U', 'YEAR', 1. ) CALL UZISET( 'INNER', -1 ) CALL UYSFMT( '(F4.1)' ) CALL UYAXDV( 'L', 0.25, 1. ) CALL UYSTTL( 'L', 'S.O.Index', 0. ) CALL UXMTTL( 'T', 'UXAXDV/UYAXDV', 0. ) CALL GRCLS END dcl-7.5.2/demo/rakuraku/uxyz/Makefile0000644000175000017500000000110614760053155017357 0ustar uwabamiuwabami# # Makefile for uxyz (rakuraku) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = uxyz LIBSRCS = uxyz1.f uxyz2.f uxyz3.f uxyz4.f \ uxyz5.f uxyz6.f uxyz7.f uxyz8.f LIBDEMO = uxyz1 uxyz2 uxyz3 uxyz4 \ uxyz5 uxyz6 uxyz7 uxyz8 LIBEXEC = uxyz1$(EXT) uxyz2$(EXT) uxyz3$(EXT) uxyz4$(EXT) \ uxyz5$(EXT) uxyz6$(EXT) uxyz7$(EXT) uxyz8$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ *.ps core *.trace *.eps *.svg *.pdf a.out dcl-7.5.2/demo/rakuraku/uxyz/uxyz5.f0000644000175000017500000000314514760053155017177 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM UXYZ5 PARAMETER( NX1=21, NX2= 5 ) PARAMETER( NY1= 0, NY2=18 ) REAL RX1(NX1), RX2(NX2), RY2(NY2) CHARACTER CX2(NX2)*4, CY2(NY2)*4 DATA RX1/-50,-45,-40,-35,-30,-25,-20,-15,-10, -5, 0, + 5, 10, 15, 20, 25, 30, 35, 40, 45, 50/ DATA RX2/ -40 , -20 , 0 , 20 , 40 / DATA CX2/'40S ','20S ','EQ ','20N ','40N '/ DATA RY2/ 1000 , 850 , 700 , 500 , 400 , 300 , + 250 , 200 , 150 , 100 , 70 , 50 , + 30 , 10 , 5 , 2 , 1 , 0.4 / DATA CY2/'1000',' ',' ','500 ',' ',' ', + ' ','200 ',' ','100 ',' ','50 ', + '30 ','10 ','5 ','2 ','1 ','.4 '/ WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL GRSWND( -50., 50., 1.E3, 0.4 ) CALL GRSVPT( 0.2, 0.8, 0.2, 0.8 ) CALL GRSTRN( 2 ) CALL GRSTRF CALL UXAXLB( 'B', RX1, NX1, RX2, CX2, 4, NX2 ) CALL UXAXLB( 'T', RX1, NX1, RX2, CX2, 4, NX2 ) CALL UXSTTL( 'B', 'LATITUDE', 0. ) CALL UYAXLB( 'L', DUMMY, NY1, RY2, CY2, 4, NY2 ) CALL UYAXLB( 'R', DUMMY, NY1, RY2, CY2, 4, NY2 ) CALL UYSTTL( 'L', 'PRESSURE (hPa)', 0. ) CALL UXMTTL( 'T', 'UXAXLB/UYAXLB', 0. ) CALL GRCLS END dcl-7.5.2/demo/rakuraku/uxyz/uxyz2.f0000644000175000017500000000137314760053155017175 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM UXYZ2 WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL GRSWND( 1.E0, 1.E5, 1.E3, 1.E0 ) CALL GRSVPT( 0.2, 0.8, 0.2, 0.8 ) CALL GRSTRN( 4 ) CALL GRSTRF CALL ULXLOG( 'B', 1, 9 ) CALL ULXLOG( 'T', 1, 9 ) CALL UXSTTL( 'B', '[X]', 1. ) CALL ULYLOG( 'L', 3, 9 ) CALL ULYLOG( 'R', 3, 9 ) CALL UYSTTL( 'L', '[Y]', 1. ) CALL UXMTTL( 'T', 'ULXLOG/ULYLOG', 0. ) CALL GRCLS END dcl-7.5.2/demo/rakuraku/uxyz/uxyz1.f0000644000175000017500000000157314760053155017176 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM UXYZ1 WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL GRSWND( -180., 180., -90., 90. ) CALL GRSVPT( 0.2, 0.8, 0.3, 0.7 ) CALL GRSTRN( 1 ) CALL GRSTRF CALL UXAXDV( 'B', 10., 60. ) CALL UXAXDV( 'T', 10., 60. ) CALL UXSTTL( 'B', 'LONGITUDE', 0. ) CALL UXSTTL( 'B', '<- WEST EAST ->', 0. ) CALL UYAXDV( 'L', 10., 30. ) CALL UYAXDV( 'R', 10., 30. ) CALL UYSTTL( 'L', 'LATITUDE', 0. ) CALL UYSTTL( 'L', '<- SH NH ->', 0. ) CALL UXMTTL( 'T', 'UXAXDV/UYAXDV', 0. ) CALL GRCLS END dcl-7.5.2/demo/rakuraku/uxyz/uxyz8.f0000644000175000017500000000253314760053155017202 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM UXYZ8 PARAMETER( ID0=19911201, ND=180, RND=ND ) WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL UZFACT( 0.7 ) CALL UZLSET( 'LOFFSET', .TRUE. ) CALL GRFRM CALL GRSWND( 0.0, RND, 0.0, 100. ) CALL GRSVPT( 0.4, 0.9, 0.3, 0.8 ) CALL GRSTRN( 1 ) CALL GRSTRF CALL UCXACL( 'B', ID0, ND ) CALL UCXACL( 'T', ID0, ND ) CALL UXSAXS( 'B' ) CALL UXAXDV( 'B', 10., 20. ) CALL UXSTTL( 'B', 'DAY NUMBER', 0. ) CALL UYAXDV( 'L', 5., 10. ) CALL UYAXDV( 'R', 5., 10. ) CALL UYSTTL( 'L', 'CELSIUS SCALE', 0. ) CALL UYSAXS( 'L' ) CALL UZRSET( 'YOFFSET', 273.15 ) CALL UZRSET( 'YFACT ', 1. ) CALL UYAXDV( 'L', 5., 10. ) CALL UYSTTL( 'L', 'KELVIN SCALE', 0. ) CALL UYSAXS( 'L' ) CALL UZRSET( 'YOFFSET', 32. ) CALL UZRSET( 'YFACT ', 1.8 ) CALL UYAXDV( 'L', 10., 20. ) CALL UYSTTL( 'L', 'FAHRENHEIT SCALE', 0. ) CALL UXSTTL( 'T', '(LOFFSET=.TRUE.)', 0. ) CALL UXMTTL( 'T', 'UXSAXS/UYSAXS', 0. ) CALL GRCLS END dcl-7.5.2/demo/rakuraku/uxyz/uxyz3.f0000644000175000017500000000142514760053155017174 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM UXYZ3 PARAMETER( ID0=19960101, ND=90, RND=ND ) WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL GRSWND( 0.0, RND, -90., 90. ) CALL GRSVPT( 0.2, 0.8, 0.2, 0.8 ) CALL GRSTRN( 1 ) CALL GRSTRF CALL UCXACL( 'B', ID0, ND ) CALL UCXACL( 'T', ID0, ND ) CALL UYAXDV( 'L', 10., 30. ) CALL UYAXDV( 'R', 10., 30. ) CALL UYSTTL( 'L', 'LATITUDE', 0. ) CALL UXMTTL( 'T', 'UCXACL/UYAXDV', 0. ) CALL GRCLS END dcl-7.5.2/demo/rakuraku/quick/0000755000175000017500000000000014760053155016016 5ustar uwabamiuwabamidcl-7.5.2/demo/rakuraku/quick/quick4.f0000644000175000017500000000211314760053155017362 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM QUICK4 PARAMETER( NX=37, NY=37 ) PARAMETER( XMIN=0, XMAX=360, YMIN=-90, YMAX=90 ) PARAMETER( PI=3.14159, DRAD=PI/180 ) REAL P(NX,NY) *-- 球面調和関数 ---- DO 20 J=1,NY DO 10 I=1,NX ALON = ( XMIN + (XMAX-XMIN)*(I-1)/(NX-1) ) * DRAD ALAT = ( YMIN + (YMAX-YMIN)*(J-1)/(NY-1) ) * DRAD SLAT = SIN(ALAT) P(I,J) = 3*SQRT(1-SLAT**2)*SLAT*COS(ALON) - 0.5*(3*SLAT**2-1) 10 CONTINUE 20 CONTINUE *-- グラフ ---- WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL GRSWND( XMIN, XMAX, YMIN, YMAX ) CALL GRSVPT( 0.2, 0.8, 0.2, 0.8 ) CALL GRSTRN( 1 ) CALL GRSTRF CALL UETONE( P, NX, NX, NY ) CALL USDAXS CALL UDCNTR( P, NX, NX, NY ) CALL GRCLS END dcl-7.5.2/demo/rakuraku/quick/Makefile0000644000175000017500000000075314760053155017463 0ustar uwabamiuwabami# # Makefile for quick (rakuraku) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = quick LIBSRCS = quick1.f quick2.f quick3.f quick4.f \ quick5.f LIBDEMO = quick1 quick2 quick3 quick4 \ quick5 LIBEXEC = quick1$(EXT) quick2$(EXT) quick3$(EXT) quick4$(EXT) \ quick5$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ *.ps core *.trace *.eps *.svg *.pdf a.out dcl-7.5.2/demo/rakuraku/quick/quick1.f0000644000175000017500000000113214760053155017357 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM QUICK1 PARAMETER( NMAX=50 ) REAL X(0:NMAX), Y(0:NMAX) *-- ロジスティク模型 ---- R = 3.7 X(0) = 0.0 Y(0) = 0.5 DO 10 N=0,NMAX-1 X(N+1) = X(N) + 1.0 Y(N+1) = R*Y(N)*(1.-Y(N)) 10 CONTINUE *-- グラフ ---- CALL GROPN( 1 ) CALL GRFRM CALL USGRPH( NMAX+1, X, Y ) CALL GRCLS END dcl-7.5.2/demo/rakuraku/quick/quick1+.f0000644000175000017500000000113214760053155017432 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM QUICK1 PARAMETER( NMAX=50 ) REAL X(0:NMAX), Y(0:NMAX) *-- ロジスティク模型 ---- R = 3.7 X(0) = 0.0 Y(0) = 0.5 DO 10 N=0,NMAX-1 X(N+1) = X(N) + 1.0 Y(N+1) = R*Y(N)*(1.-Y(N)) 10 CONTINUE *-- グラフ ---- CALL GROPN( 2 ) CALL GRFRM CALL USGRPH( NMAX+1, X, Y ) CALL GRCLS END dcl-7.5.2/demo/rakuraku/quick/quick2.f0000644000175000017500000000125514760053155017366 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM QUICK2 PARAMETER( NMAX=400 ) REAL X(NMAX), Y(NMAX) *-- リサジューの図 ---- DT = 3.14159 / (NMAX-1) DO 10 N=1,NMAX T = DT*(N-1) X(N) = 1.E 5*SIN( 6.*T) Y(N) = 1.E-4*COS(14.*T) + 1. 10 CONTINUE *-- グラフ ---- WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL USGRPH( NMAX, X, Y ) CALL GRCLS END dcl-7.5.2/demo/rakuraku/quick/quick5.f0000644000175000017500000000171714760053155017374 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM QUICK5 PARAMETER ( NX=21, NY=21 ) PARAMETER ( XMIN=-1, XMAX=1, YMIN=-1, YMAX=1 ) REAL U(NX,NY), V(NX,NY) *-- 2次元ベクトルデータ: 変形場 ---- DO 20 J=1,NY DO 10 I=1,NX X = XMIN + (XMAX-XMIN)*(I-1)/(NX-1) Y = YMIN + (YMAX-YMIN)*(J-1)/(NY-1) U(I,J) = X V(I,J) = -Y 10 CONTINUE 20 CONTINUE *-- グラフ ---- WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL GRSWND( XMIN, XMAX, YMIN, YMAX ) CALL GRSVPT( 0.2, 0.8, 0.2, 0.8 ) CALL GRSTRN( 1 ) CALL GRSTRF CALL USDAXS CALL UGVECT( U, NX, V, NX, NX, NY ) CALL GRCLS END dcl-7.5.2/demo/rakuraku/quick/quick3.f0000644000175000017500000000205014760053155017361 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM QUICK3 PARAMETER( NX=37, NY=37 ) PARAMETER( XMIN=0, XMAX=360, YMIN=-90, YMAX=90 ) PARAMETER( PI=3.14159, DRAD=PI/180 ) REAL P(NX,NY) *-- 球面調和関数 ---- DO 20 J=1,NY DO 10 I=1,NX ALON = ( XMIN + (XMAX-XMIN)*(I-1)/(NX-1) ) * DRAD ALAT = ( YMIN + (YMAX-YMIN)*(J-1)/(NY-1) ) * DRAD SLAT = SIN(ALAT) P(I,J) = 3*SQRT(1-SLAT**2)*SLAT*COS(ALON) - 0.5*(3*SLAT**2-1) 10 CONTINUE 20 CONTINUE *-- グラフ ---- WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL GRSWND( XMIN, XMAX, YMIN, YMAX ) CALL GRSVPT( 0.2, 0.8, 0.2, 0.8 ) CALL GRSTRN( 1 ) CALL GRSTRF CALL USDAXS CALL UDCNTR( P, NX, NX, NY ) CALL GRCLS END dcl-7.5.2/demo/rakuraku/Makefile0000644000175000017500000000074014760053155016343 0ustar uwabamiuwabami# # Makefile for rakuraku # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../Mkinclude SUBDIRS = color kihon layout map3d miss quick u2d uspack uxyz all: @for i in $(SUBDIRS) ; do \ cd $$i ; \ echo "Making $$i" ; \ $(MAKE) ; \ cd .. ; \ done clean: clean.local clean.dir clean.local: $(RM) *~ clean.dir: @for i in $(SUBDIRS) ; do \ cd $$i ; \ echo "Cleaning $$i" ; \ $(MAKE) clean ; \ cd .. ; \ done dcl-7.5.2/demo/rakuraku/uspack/0000755000175000017500000000000014760053155016170 5ustar uwabamiuwabamidcl-7.5.2/demo/rakuraku/uspack/uspac3.f0000644000175000017500000000136114760053155017536 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM USPAC3 PARAMETER( NMAX=50, XMIN=1950, XMAX=2000 ) REAL Y(0:NMAX) R = 3.7 Y(0) = 0.5 DO 10 N=0,NMAX-1 Y(N+1) = R*Y(N)*(1.-Y(N)) 10 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL GLRGET( 'RUNDEF', RUNDEF ) CALL GRSWND( XMIN, XMAX, RUNDEF, RUNDEF ) CALL USSTTL( 'TIME', 'YEAR', 'HEAT FLUX', 'W/m\^2' ) CALL USGRPH( NMAX+1, RUNDEF, Y ) CALL GRCLS END dcl-7.5.2/demo/rakuraku/uspack/Makefile0000644000175000017500000000066414760053155017636 0ustar uwabamiuwabami# # Makefile for uspack (rakuraku) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = uspack LIBSRCS = uspac1.f uspac2.f uspac3.f uspac4.f LIBDEMO = uspac1 uspac2 uspac3 uspac4 LIBEXEC = uspac1$(EXT) uspac2$(EXT) uspac3$(EXT) uspac4$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ *.ps core *.trace *.eps *.svg *.pdf a.out dcl-7.5.2/demo/rakuraku/uspack/uspac1.f0000644000175000017500000000127114760053155017534 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM USPAC1 PARAMETER( NMAX=50 ) REAL X(0:NMAX), Y(0:NMAX) R = 3.7 X(0) = 1950. Y(0) = 0.5 DO 10 N=0,NMAX-1 X(N+1) = X(N) + 1. Y(N+1) = R*Y(N)*(1.-Y(N)) 10 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL USSTTL( 'TIME', 'YEAR', 'HEAT FLUX', 'W/m\^2' ) CALL USGRPH( NMAX+1, X, Y ) CALL GRCLS END dcl-7.5.2/demo/rakuraku/uspack/uspac4.f0000644000175000017500000000206014760053155017534 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM USPAC4 PARAMETER( NMAX=50, YMIN=0., YMAX=50. ) REAL X1(0:NMAX), X2(0:NMAX) ISEED = 1 DO 10 N=0,NMAX Y = YMIN + (YMAX-YMIN)*N/NMAX X1(N) = 10.*(EXP(-Y/20))**2 * EXP((RNGU0(ISEED)-0.5)*2)**2 X2(N) = 10.*(EXP(-Y/20))**2 10 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL GLRGET( 'RUNDEF', RUNDEF ) CALL GRSWND( RUNDEF, RUNDEF, YMIN, YMAX ) CALL USSPNT( NMAX+1, X1, RUNDEF ) CALL USSPNT( NMAX+1, X2, RUNDEF ) CALL GRSTRN( 3 ) CALL USPFIT CALL GRSTRF CALL USSTTL( 'MIXING RATIO', 'ppmv', 'HEIGHT', 'km' ) CALL USDAXS CALL UUSMKT( 2 ) CALL UUMRK( NMAX+1, X1, RUNDEF ) CALL UULIN( NMAX+1, X2, RUNDEF ) CALL GRCLS END dcl-7.5.2/demo/rakuraku/uspack/uspac2.f0000644000175000017500000000250614760053155017537 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM USPAC2 PARAMETER( NMAX=201, IMAX=5 ) REAL X(NMAX), Y0(NMAX), Y1(NMAX), Y2(NMAX), A(IMAX) PI = 3.14159 DO 10 I=1,IMAX II = 2*I - 1 A(I) = (-1)**I *2./(II*PI) 10 CONTINUE DO 20 N=1,NMAX X(N) = 1.*(N-1)/(NMAX-1) T = 2.*PI*X(N) IF(T.LT.PI/2. .OR. T.GE.PI*3./2.) THEN Y0(N) = 0. ELSE Y0(N) = 1. END IF Y1(N) = 0.5 + A(1)*COS(T) Y2(N) = 0.5 DO 30 I=1,IMAX II = 2*I - 1 Y2(N) = Y2(N) + A(I)*COS(II*T) 30 CONTINUE 20 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL USSPNT( NMAX, X, Y0 ) CALL USSPNT( NMAX, X, Y1 ) CALL USSPNT( NMAX, X, Y2 ) CALL USPFIT CALL GRSTRF CALL USSTTL( 'FREQUENCY', '/DAY', 'RESPONSE', ' ' ) CALL USDAXS CALL UULIN( NMAX, X, Y0 ) CALL UUSLNT( 2 ) CALL UUSLNI( 3 ) CALL UULIN( NMAX, X, Y1 ) CALL UUSLNT( 3 ) CALL UULIN( NMAX, X, Y2 ) CALL GRCLS END dcl-7.5.2/demo/rakuraku/kihon/0000755000175000017500000000000014760053155016012 5ustar uwabamiuwabamidcl-7.5.2/demo/rakuraku/kihon/kihon5.f0000644000175000017500000000234014760053155017355 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM KIHON5 PARAMETER( NMAX=40, IMAX=4 ) REAL X(0:NMAX,IMAX), Y(0:NMAX,IMAX), XC(IMAX), YC(IMAX) DATA XC/0.25, 0.75, 0.25, 0.75/ DATA YC/0.75, 0.75, 0.25, 0.25/ DT = 2.* 3.14159 / 6 DO 10 N=0,5 DO 10 I=1,IMAX-1 X(N,I) = 0.2*COS(N*DT) + XC(I) Y(N,I) = 0.2*SIN(N*DT) + YC(I) 10 CONTINUE DT = 4.* 3.14159 / NMAX DO 20 N=0,NMAX X(N,IMAX) = 0.4*REAL(N)/REAL(NMAX) - 0.2 + XC(IMAX) Y(N,IMAX) = 0.2*SIN(N*DT) + YC(IMAX) 20 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL SGOPN( IWS ) CALL SGLSET( 'LSOFTF', .TRUE. ) CALL SGFRM *-- デフォルト ---- CALL SGTNV( 6, X(0,1), Y(0,1) ) *-- トーンパターン ---- CALL SGSTNP( 3 ) CALL SGTNV( 6, X(0,2), Y(0,2) ) CALL SGSTNP( 601 ) CALL SGTNV( 6, X(0,3), Y(0,3) ) *-- ねじれた多角形 ---- CALL SGTNV( NMAX+1, X(0,4), Y(0,4) ) CALL SGCLS END dcl-7.5.2/demo/rakuraku/kihon/kihon1.f0000644000175000017500000000147014760053155017354 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM KIHON1 PARAMETER( NMAX=50 ) REAL X(0:NMAX), Y1(0:NMAX), Y2(0:NMAX), Y3(0:NMAX) DO 10 N=0,NMAX X (N) = REAL(N)/REAL(NMAX) Y1(N) = X(N)**3 Y2(N) = X(N)**2 Y3(N) = SQRT(X(N)) 10 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL SGOPN( IWS ) CALL SGFRM CALL SLPVPR( 1 ) CALL SGPLV( NMAX+1, X, Y1 ) CALL SGPMV( NMAX+1, X, Y2 ) CALL SGTXV( 0.5, 0.5, 'SGTXV' ) CALL SGLSET( 'LSOFTF', .TRUE. ) CALL SGTNV( NMAX+1, X, Y3 ) CALL SGCLS END dcl-7.5.2/demo/rakuraku/kihon/kihon9.f0000644000175000017500000000333614760053155017367 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM KIHON9 PARAMETER( NMAX=40 ) PARAMETER( PI=3.14159 ) PARAMETER( XMIN=0., XMAX=4*PI, YMIN=-1., YMAX=1. ) REAL X(0:NMAX), Y(0:NMAX) DT = XMAX/NMAX DO 10 N=0,NMAX X(N) = N*DT Y(N) = SIN(X(N)) 10 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL SGOPN( IWS ) CALL SGFRM *-- ラインタイプ = 4 (デフォルト) ---- CALL SGSWND( XMIN, XMAX, YMIN, YMAX ) CALL SGSVPT( 0., 1., 0.7, 0.9 ) CALL SGSTRN( 1 ) CALL SGSTRF CALL SGSPLT( 4 ) CALL SGPLU( NMAX+1, X, Y ) *-- ラインタイプ = 4 (BITLEN*2) ---- CALL SGSWND( XMIN, XMAX, YMIN, YMAX ) CALL SGSVPT( 0., 1., 0.5, 0.7 ) CALL SGSTRN( 1 ) CALL SGSTRF CALL SGRSET( 'BITLEN', 0.006 ) CALL SGPLU( NMAX+1, X, Y ) CALL SGRSET( 'BITLEN', 0.003 ) *-- ビットパターン ---- CALL SGSWND( XMIN, XMAX, YMIN, YMAX ) CALL SGSVPT( 0., 1., 0.3, 0.5 ) CALL SGSTRN( 1 ) CALL SGSTRF CALL BITPCI( '1111111100100100', ITYPE ) CALL SGSPLT( ITYPE ) CALL SGPLU( NMAX+1, X, Y ) *-- ビットパターン(倍長) ---- CALL SGSWND( XMIN, XMAX, YMIN, YMAX ) CALL SGSVPT( 0., 1., 0.1, 0.3 ) CALL SGSTRN( 1 ) CALL SGSTRF CALL SGISET( 'NBITS', 32 ) CALL BITPCI( '10010010011111000111110001111100', ITYPE ) CALL SGSPLT( ITYPE ) CALL SGPLU( NMAX+1, X, Y ) CALL SGCLS END dcl-7.5.2/demo/rakuraku/kihon/kihonc.f0000644000175000017500000000440414760053155017436 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM KIHONC WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL SGOPN( IWS ) CALL SGFRM CALL SGSWND( 0.0, 10.0, 0.0, 10.0 ) CALL SGSVPT( 0.0, 1.0, 0.0, 1.0 ) CALL SGSTRN( 1 ) CALL SGSTRF *-- デフォルト ---- Y1 = 9.0 DO 10 I=1,8 X1 = I X2 = X1 + 0.1*I Y2 = Y1 + 0.1*I CALL SGLAU( X1, Y1, X2, Y2 ) 10 CONTINUE *-- 線分のラインタイプ ---- Y1 = 8.0 Y2 = 8.6 DO 20 I=1,4 X1 = 2*I - 1 X2 = X1 + 0.6 CALL SGSLAT( I ) CALL SGLAU( X1, Y1, X2, Y2 ) 20 CONTINUE CALL SGSLAT( 1 ) *-- 線分のラインインデクス ---- Y1 = 7.0 Y2 = 7.6 DO 30 I=1,4 X1 = 2*I X2 = X1 + 0.6 CALL SGSLAI( I ) CALL SGLAU( X1, Y1, X2, Y2 ) 30 CONTINUE CALL SGSLAI( 1 ) *-- 矢じり部分の長さ ---- CALL SGLSET( 'LPROP', .FALSE. ) CALL SGRSET( 'CONST', 0.03 ) Y1 = 6.0 DO 40 I=1,8 X1 = I X2 = X1 + 0.1*I Y2 = Y1 + 0.1*I CALL SGLAU( X1, Y1, X2, Y2 ) 40 CONTINUE CALL SGLSET( 'LPROP', .TRUE. ) *-- 矢じり部分の角度 ---- Y1 = 5.0 Y2 = 5.6 DO 50 I=1,8 X1 = I X2 = X1 + 0.6 CALL SGRSET( 'ANGLE', 10.0*I ) CALL SGLAU( X1, Y1, X2, Y2 ) 50 CONTINUE *-- 矢じり部分のぬりつぶし ---- CALL SGLSET( 'LSOFTF', .TRUE. ) CALL SGLSET( 'LATONE', .TRUE. ) CALL SGISET( 'IATONE', 655 ) Y1 = 4.0 Y2 = 4.6 DO 60 I=1,8 X1 = I X2 = X1 + 0.6 CALL SGRSET( 'ANGLE', 10.*I ) CALL SGLAU( X1, Y1, X2, Y2 ) 60 CONTINUE *-- ラインサブプリミティブ ---- *-- デフォルト ---- CALL SGLNU( 0., 3., 10., 3. ) *-- 線分のラインインデクス ---- Y1 = 0.5 Y2 = 2.5 DO 70 I=1,4 X1 = 2*I - 1 X2 = X1 + 2.0 CALL SGSLNI( I ) CALL SGLNU( X1, Y1, X2, Y2 ) 70 CONTINUE CALL SGCLS END dcl-7.5.2/demo/rakuraku/kihon/kihon7.f0000644000175000017500000000402614760053155017362 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM KIHON7 WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL SGOPN( IWS ) C CALL SGLSET( 'LCLIP', .TRUE. ) *-- frame 1 ---- CALL SGFRM * XMIN, XMAX, YMIN, YMAX CALL SGSWND( -100., 100., -100., 100. ) CALL SGSVPT( 0.0, 1.0, 0.0, 1.0 ) CALL SGSTRN( 1 ) CALL SGSTRF CALL APLOT *-- frame 2 ---- CALL SGFRM *-- 左上 ---- XMIN, XMAX, YMIN, YMAX CALL SGSWND( -100., 100., -100., 100. ) CALL SGSVPT( 0.1, 0.4, 0.6, 0.9 ) CALL SGSTRN( 1 ) CALL SGSTRF CALL APLOT *-- 右上 ---- XMIN, XMAX, YMIN, YMAX CALL SGSWND( -100., 100., -40., 40. ) CALL SGSVPT( 0.6, 0.9, 0.6, 0.9 ) CALL SGSTRN( 1 ) CALL SGSTRF CALL APLOT *-- 左下 ---- XMIN, XMAX, YMIN, YMAX CALL SGSWND( -100., 100., -200., 0. ) CALL SGSVPT( 0.1, 0.4, 0.1, 0.4 ) CALL SGSTRN( 1 ) CALL SGSTRF CALL APLOT *-- 右下 ---- XMIN, XMAX, YMIN, YMAX CALL SGSWND( -100., 100., 0., -200. ) CALL SGSVPT( 0.6, 0.9, 0.1, 0.4 ) CALL SGSTRN( 1 ) CALL SGSTRF CALL APLOT CALL SGCLS END *----------------------------------------------------------------------- SUBROUTINE APLOT PARAMETER( NMAX=40 ) REAL X(0:NMAX), Y(0:NMAX) CALL SLPVPR( 1 ) *-- 円形 ---- DT = 2.*3.14159 / NMAX DO 10 N=0,NMAX X(N) = 40.*SIN(N*DT) Y(N) = 40.*COS(N*DT) 10 CONTINUE CALL SGPLU( NMAX+1, X, Y ) *-- 三角形 ---- DT = 2.*3.14159 / 3 DO 20 N=0,3 X(N) = 40.*SIN(N*DT) Y(N) = 40.*COS(N*DT) 20 CONTINUE CALL SGPLU( 4, X, Y ) *-- 文字列 ---- CALL SGTXU( 0., 0., 'SGTXU' ) RETURN END dcl-7.5.2/demo/rakuraku/kihon/kihon8.f0000644000175000017500000000363514760053155017370 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM KIHON8 PARAMETER( XMIN=1., XMAX=100., YMIN=1., YMAX=100. ) WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL SGOPN( IWS ) CALL SGLSET( 'LCLIP', .TRUE. ) CALL SGFRM *-- 直角一様座標(左上) ---- CALL SGSWND( XMIN, XMAX, YMIN, YMAX ) CALL SGSVPT( 0.1, 0.4, 0.6, 0.9 ) CALL SGSTRN( 1 ) CALL SGSTRF CALL BPLOT *-- 片対数(y)座標(右上) ---- CALL SGSWND( XMIN, XMAX, YMIN, YMAX ) CALL SGSVPT( 0.6, 0.9, 0.6, 0.9 ) CALL SGSTRN( 2 ) CALL SGSTRF CALL BPLOT *-- 片対数(x)座標(左下) ---- CALL SGSWND( XMIN, XMAX, YMIN, YMAX ) CALL SGSVPT( 0.1, 0.4, 0.1, 0.4 ) CALL SGSTRN( 3 ) CALL SGSTRF CALL BPLOT *-- 対数座標(右下) ---- CALL SGSWND( XMIN, XMAX, YMIN, YMAX ) CALL SGSVPT( 0.6, 0.9, 0.1, 0.4 ) CALL SGSTRN( 4 ) CALL SGSTRF CALL BPLOT CALL SGCLS END *----------------------------------------------------------------------- SUBROUTINE BPLOT PARAMETER( NMAX=50 ) REAL X(NMAX), Y(NMAX) CALL SLPVPR( 1 ) *-- 一次関数 ---- DO 10 N=1,NMAX X(N) = 2.*N Y(N) = X(N) 10 CONTINUE CALL SGSPLT( 1 ) CALL SGPLU( NMAX, X, Y ) *-- 指数関数 ---- DO 20 N=1,NMAX Y(N) = EXP(0.05*X(N)) 20 CONTINUE CALL SGSPLT( 2 ) CALL SGPLU( NMAX, X, Y ) *-- 対数関数 ---- DO 30 N=1,NMAX Y(N) = 20.*LOG(X(N)) 30 CONTINUE CALL SGSPLT( 3 ) CALL SGPLU( NMAX, X, Y ) *-- 文字列 ---- CALL SGSTXS( 0.02 ) CALL SGTXU( 30., 40., '(30,40)' ) RETURN END dcl-7.5.2/demo/rakuraku/kihon/Makefile0000644000175000017500000000141614760053155017454 0ustar uwabamiuwabami# # Makefile for kihon (rakuraku) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = kihon LIBSRCS = kihon1.f kihon2.f kihon3.f kihon4.f \ kihon5.f kihon6.f kihon7.f kihon8.f \ kihon9.f kihona.f kihonb.f kihonc.f LIBDEMO = kihon1 kihon2 kihon3 kihon4 \ kihon5 kihon6 kihon7 kihon8 \ kihon9 kihona kihonb kihonc LIBEXEC = kihon1$(EXT) kihon2$(EXT) kihon3$(EXT) kihon4$(EXT) \ kihon5$(EXT) kihon6$(EXT) kihon7$(EXT) kihon8$(EXT) \ kihon9$(EXT) kihona$(EXT) kihonb$(EXT) kihonc$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ *.ps core *.trace *.eps *.svg *.pdf a.out dcl-7.5.2/demo/rakuraku/kihon/kihon2.f0000644000175000017500000000211314760053155017350 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM KIHON2 PARAMETER( NMAX=40, IMAX=4 ) REAL X(0:NMAX), Y(0:NMAX,IMAX) DT = 4.* 3.14159 / NMAX DO 20 N=0,NMAX X(N) = REAL(N)/REAL(NMAX) DO 10 I=1,IMAX Y(N,I) = 0.2*SIN(N*DT) + 1. - 0.2*I 10 CONTINUE 20 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL SGOPN( IWS ) *-- ラインインデクス: frame 1 -- CALL SGFRM CALL SLPVPR( 1 ) CALL SGPLV( NMAX+1, X, Y(0,1) ) DO 30 I=2,IMAX CALL SGSPLI( 2*I ) CALL SGPLV( NMAX+1, X, Y(0,I) ) 30 CONTINUE CALL SGSPLI( 1 ) *-- ラインタイプ: frame 2 -- CALL SGFRM CALL SLPVPR( 1 ) CALL SGPLV( NMAX+1, X, Y(0,1) ) DO 40 I=2,IMAX CALL SGSPLT( I ) CALL SGPLV( NMAX+1, X, Y(0,I) ) 40 CONTINUE CALL SGCLS END dcl-7.5.2/demo/rakuraku/kihon/kihon6.f0000644000175000017500000000152614760053155017363 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM KIHON6 PARAMETER( NMAX=50 ) REAL X(0:NMAX), Y(0:NMAX) R = 3.7 X(0) = 1950 Y(0) = 0.5 DO 10 N=0,NMAX-1 X(N+1) = X(N) + 1 Y(N+1) = R*Y(N)*(1.-Y(N)) 10 CONTINUE DO 20 N=0,NMAX Y(N) = -4*Y(N) + 20. 20 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL GRSWND( 1950., 2000., 15., 20. ) CALL GRSVPT( 0.2, 0.8, 0.2, 0.8 ) CALL GRSTRN( 1 ) CALL GRSTRF CALL USDAXS CALL SGPLU( NMAX+1, X, Y ) CALL GRCLS END dcl-7.5.2/demo/rakuraku/kihon/kihon4.f0000644000175000017500000000262714760053155017364 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM KIHON4 PARAMETER( NMAX=9, X1=0.1, XC=0.5, X2=0.9 ) REAL Y(NMAX) WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL SGOPN( IWS ) CALL SGFRM *-- 罫線 ---- DO 10 N=1,NMAX Y(N) = 0.1*(10-N) CALL SGLNV( X1, Y(N), X2, Y(N) ) 10 CONTINUE CALL SGLNV( XC, 0.05, XC, 0.95 ) *-- デフォルト ---- CALL SGTXV( XC, Y(1), 'SGTXV' ) *-- 文字のラインインデクス ---- CALL SGSTXI( 3 ) CALL SGTXV( XC, Y(2), 'INDEX3' ) CALL SGSTXI( 5 ) CALL SGTXV( XC, Y(3), 'INDEX5' ) CALL SGSTXI( 1 ) *-- 文字の大きさ ---- CALL SGSTXS( 0.03 ) CALL SGTXV( XC, Y(4), 'SMALL' ) CALL SGSTXS( 0.07 ) CALL SGTXV( XC, Y(5), 'LARGE' ) CALL SGSTXS( 0.05 ) *-- 文字列のセンタリングオプション ---- CALL SGSTXC( -1 ) CALL SGTXV( XC, Y(6), 'LEFT' ) CALL SGSTXC( 1 ) CALL SGTXV( XC, Y(7), 'RIGHT' ) CALL SGSTXC( 0 ) *-- 文字列の回転角 ---- CALL SGSTXR( 10 ) CALL SGTXV( XC, Y(8), 'ROTATION+' ) CALL SGSTXR( -10 ) CALL SGTXV( XC, Y(9), 'ROTATION-' ) CALL SGCLS END dcl-7.5.2/demo/rakuraku/kihon/kihonb.f0000644000175000017500000000456614760053155017446 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SGPK07 PARAMETER (N=9) DIMENSION Y(N) CHARACTER GREEK1*30, GREEK2*30, SYMBOL*30, USGI*3 WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL SGLSET('LCNTL',.TRUE.) CALL SGOPN(IWS) CALL SGFRM X1 = 0.1 X2 = 0.9 XC = 0.5 CALL SGSLNI(1) DO 10 I=1, N Y(I) = 0.1 * (10-I) CALL SGLNV(X1, Y(I), X2, Y(I)) 10 CONTINUE CALL SGLNV(XC, 0.05, XC, 0.95) *----------------------- SUPER/SUB SCRIPT ------------------------------ CALL SGTXV(XC, Y(1), 'SGTXV\^{SUP}RST\_{SUB}') CALL SGSTXI(2) CALL SGLSET('LCNTL', .TRUE.) ! <-- 添字コントロールON CALL SGTXV(XC, Y(2), 'SGTXV\^{SUP}RST\_{SUB}') *------------------------ OVER UNDER ----------------------------------- CALL SGRSET('SHIFT', 0.5) ! <-- シフト量設定 CALL SGRSET('SMALL', 0.5) ! <-- 添字の大きさ設定 CALL SWLSET('LSYSFNT', .TRUE.) CALL SGTXV(XC, Y(3), 'S\o-G\o~T\u-X\o~\u-V\^{SUP}RST\_{SUB}') CALL SWLSET('LSYSFNT', .FALSE.) *------------------------ FONT SELECTION ------------------------------- CALL SGSTXI(1) CALL SGSTXS(0.05) CALL SGTXV(XC, Y(4), 'ABCDEFG abcdefg') CALL SGISET('IFONT', 2) ! <-- きれいなフォント CALL SGTXV(XC, Y(5), 'ABCDEFG abcdefg') CALL SGSTXI(3) CALL SGTXV(XC, Y(6), 'ABCDEFG abcdefg') *------------------------- GREEK LETTERS ------------------------------- GREEK1 = USGI(152)//USGI(153)//USGI(154)//USGI(155)//USGI(156)// # USGI(157)//USGI(158)//USGI(159)//USGI(160)//USGI(161) GREEK2 = USGI(130)//USGI(131)//USGI(135)//USGI(138)//USGI(141)// # USGI(143)//USGI(145)//USGI(148)//USGI(150)//USGI(151) CALL SGTXV(XC, Y(7), GREEK1) CALL SGTXV(XC, Y(8), GREEK2) *----------------------------- SYMBOLS --------------------------------- SYMBOL = USGI(189)//USGI(190)//USGI(191)//USGI(192)//USGI(193)// # USGI(210)//USGI(211)//USGI(212)//USGI(217)//USGI(218) CALL SGTXV(XC, Y(9), SYMBOL) CALL SGCLS END dcl-7.5.2/demo/rakuraku/kihon/kihon3.f0000644000175000017500000000220014760053155017346 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM KIHON3 PARAMETER( NMAX=40, IMAX=7 ) REAL X(0:NMAX), Y(0:NMAX,IMAX) DT = 4.* 3.14159 / NMAX DO 20 N=0,NMAX X(N) = REAL(N)/REAL(NMAX) DO 10 I=1,IMAX Y(N,I) = 0.2*SIN(N*DT) + 0.9 - 0.1*I 10 CONTINUE 20 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL SGOPN( IWS ) *-- マーカータイプ: frame 1 -- CALL SGFRM CALL SLPVPR( 1 ) CALL SGPMV( NMAX+1, X, Y(0,1) ) DO 30 I=2,IMAX ITYPE = I CALL SGSPMT( ITYPE ) CALL SGPMV( NMAX+1, X, Y(0,I) ) 30 CONTINUE *-- マーカーサイズ: frame 2 -- CALL SGFRM CALL SLPVPR( 1 ) CALL SGSPMT( 10 ) CALL SGPMV( NMAX+1, X, Y(0,1) ) DO 40 I=2,IMAX RSIZE = 0.005*(I-1) CALL SGSPMS( RSIZE ) CALL SGPMV( NMAX+1, X, Y(0,I) ) 40 CONTINUE CALL SGCLS END dcl-7.5.2/demo/rakuraku/kihon/kihona.f0000644000175000017500000000537114760053155017440 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM KIHONA PARAMETER( NMAX=40 ) PARAMETER( PI=3.14159 ) PARAMETER( XMIN=0., XMAX=4*PI, YMIN=-1., YMAX=1. ) REAL X(0:NMAX), Y(0:NMAX) DT = XMAX/NMAX DO 10 N=0,NMAX X(N) = N*DT Y(N) = SIN(X(N)) 10 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL SGOPN( IWS ) CALL SGFRM CALL SGLSET( 'LCHAR', .TRUE. ) *-- ラベルつき折れ線 ---- CALL SGSWND( XMIN, XMAX, YMIN, YMAX ) CALL SGSVPT( 0., 1., 0.9, 1.0 ) CALL SGSTRN( 1 ) CALL SGSTRF CALL SGSPLC( 'A' ) CALL SGSPLT( 1 ) CALL SGPLU( NMAX+1, X, Y ) *-- 順序ラベル: A,B,C,... ---- DO 20 I=1,2 VYMIN = 0.9 - 0.1*I VYMAX = VYMIN + 0.1 CALL SGSWND( XMIN, XMAX, YMIN, YMAX ) CALL SGSVPT( 0., 1., VYMIN, VYMAX ) CALL SGSTRN( 1 ) CALL SGSTRF CALL SGNPLC CALL SGPLU( NMAX+1, X, Y ) 20 CONTINUE *-- 順序ラベル: K=1,K=2,... ---- CALL SGSPLC( 'K=1' ) DO 30 I=3,4 VYMIN = 0.9 - 0.1*I VYMAX = VYMIN + 0.1 CALL SGSWND( XMIN, XMAX, YMIN, YMAX ) CALL SGSVPT( 0., 1., VYMIN, VYMAX ) CALL SGSTRN( 1 ) CALL SGSTRF CALL SGSPLT( I-1 ) CALL SGPLU( NMAX+1, X, Y ) CALL SGNPLC 30 CONTINUE CALL SGSPLT( 1 ) *-- ラベルの文字列の高さ ---- CALL SGSWND( XMIN, XMAX, YMIN, YMAX ) CALL SGSVPT( 0., 1., 0.4, 0.5 ) CALL SGSTRN( 1 ) CALL SGSTRF CALL SGSPLS( 0.01 ) CALL SGSPLC( 'small' ) CALL SGPLU( NMAX+1, X, Y ) CALL SGSPLS( 0.02 ) *-- ラベルの角度 ---- CALL SGSWND( XMIN, XMAX, YMIN, YMAX ) CALL SGSVPT( 0., 1., 0.3, 0.4 ) CALL SGSTRN( 1 ) CALL SGSTRF CALL SGLSET( 'LROT', .TRUE. ) CALL SGISET( 'IROT', 90 ) CALL SGSPLC( 'ROT' ) CALL SGPLU( NMAX+1, X, Y ) CALL SGLSET( 'LROT', .FALSE. ) *-- ラベルの間隔 ---- CALL SGSWND( XMIN, XMAX, YMIN, YMAX ) CALL SGSVPT( 0., 1., 0.2, 0.3 ) CALL SGSTRN( 1 ) CALL SGSTRF CALL SGRSET( 'CWL', 5. ) CALL SGSPLC( 'CWL' ) CALL SGPLU( NMAX+1, X, Y ) CALL SGRSET( 'CWL', 30. ) *-- ラベルの書き始め ---- CALL SGSWND( XMIN, XMAX, YMIN, YMAX ) CALL SGSVPT( 0., 1., 0.1, 0.2 ) CALL SGSTRN( 1 ) CALL SGSTRF CALL SGRSET( 'FFCT', 0.9 ) CALL SGSPLC( 'FCT' ) CALL SGPLU( NMAX+1, X, Y ) CALL SGCLS END dcl-7.5.2/demo/rakuraku/layout/0000755000175000017500000000000014760053155016217 5ustar uwabamiuwabamidcl-7.5.2/demo/rakuraku/layout/lay1.f0000644000175000017500000000126214760053155017235 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM LAY1 CHARACTER*7 CTXT DATA CTXT/'FRAME??'/ WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL SGOPN( IWS ) CALL SLMGN( 0.1, 0.1, 0.05, 0.05 ) CALL SLDIV( 'Y', 3, 2 ) CALL SLMGN( 0.05, 0.05, 0.05, 0.05 ) DO 10 I=1,12 CALL SGFRM CALL SLPVPR( 1 ) WRITE(CTXT(6:7),'(I2.2)') I CALL SGTXV( 0.5, 0.5, CTXT ) 10 CONTINUE CALL SGCLS END dcl-7.5.2/demo/rakuraku/layout/Makefile0000644000175000017500000000057314760053155017664 0ustar uwabamiuwabami# # Makefile for layout (rakuraku) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = layout LIBSRCS = lay1.f lay2.f lay3.f LIBDEMO = lay1 lay2 lay3 LIBEXEC = lay1$(EXT) lay2$(EXT) lay3$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ *.ps core *.trace *.eps *.svg *.pdf a.out dcl-7.5.2/demo/rakuraku/layout/lay3.f0000644000175000017500000000133114760053155017234 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM LAY3 WRITE(*,*) 'WORKSTATION ID ? ' CALL SGPWSN READ (*,*) IWS CALL SGOPN( IWS ) CALL SGLSET( 'LFULL', .TRUE. ) CALL SLMGN( 0., 0., 0.08, 0.08 ) CALL SLRAT( 1., 0.6 ) CALL SLSTTL( 'FIGURE TITLE', 'T', 0., 0., 0.03, 1 ) CALL SLSTTL( 'PROGRAM.NAME', 'B', -1., -1., 0.02, 2 ) CALL SLSTTL( 'page:#PAGE', 'B', 1., -1., 0.02, 3 ) CALL SGFRM CALL SLPVPR( 1 ) CALL SGTXV( 0.5, 0.5, 'FIGURE' ) CALL SGCLS END dcl-7.5.2/demo/rakuraku/layout/lay2.f0000644000175000017500000000133314760053155017235 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM LAY2 WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL SGOPN( IWS ) CALL SLMGN( 0.1, 0.1, 0.1, 0.1 ) CALL SLSTTL( 'FIGURE TITLE', 'T', 0., 0., 0.03, 1 ) CALL SLSTTL( 'PROGRAM.NAME', 'B', -1., 1., 0.02, 2 ) CALL SLSTTL( '#DATE #TIME', 'B', 0., 0., 0.02, 3 ) CALL SLSTTL( 'page:#PAGE', 'B', 1., -1., 0.02, 4 ) CALL SGFRM CALL SLPVPR( 1 ) CALL SGTXV( 0.5, 0.5, 'FIGURE' ) CALL SGCLS END dcl-7.5.2/demo/rakuraku/u2d/0000755000175000017500000000000014760053155015374 5ustar uwabamiuwabamidcl-7.5.2/demo/rakuraku/u2d/u2d5.f0000644000175000017500000000247214760053155016327 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM U2D5 PARAMETER( NX=37, NY=37 ) PARAMETER( XMIN=0, XMAX=360, YMIN=-90, YMAX=90 ) PARAMETER( PI=3.14159, DRAD=PI/180 ) REAL P(NX,NY) DO 10 J=1,NY DO 10 I=1,NX ALON = ( XMIN + (XMAX-XMIN)*(I-1)/(NX-1) ) * DRAD ALAT = ( YMIN + (YMAX-YMIN)*(J-1)/(NY-1) ) * DRAD SLAT = SIN(ALAT) P(I,J) = 3*SQRT(1-SLAT**2)*SLAT*COS(ALON) - 0.5*(3*SLAT**2-1) 10 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL SGLSET( 'LSOFTF', .TRUE. ) CALL GRFRM CALL GRSWND( XMIN, XMAX, YMIN, YMAX ) CALL GRSVPT( 0.2, 0.8, 0.2, 0.8 ) CALL GRSTRN( 1 ) CALL GRSTRF DO 20 K=-5,3 TLEV1 = 0.4*K TLEV2 = TLEV1 + 0.4 IF(K.LE.-1) THEN IPAT = 600 + ABS(K+1) ELSE IPAT = 30 + K END IF CALL UESTLV( TLEV1, TLEV2, IPAT ) 20 CONTINUE CALL USDAXS CALL UDGCLB( P, NX, NX, NY, 0.4 ) CALL UDCNTR( P, NX, NX, NY ) CALL UETONE( P, NX, NX, NY ) CALL GRCLS END dcl-7.5.2/demo/rakuraku/u2d/u2d6.f0000644000175000017500000000225314760053155016325 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM U2D6 PARAMETER( NX=11, NY=11 ) PARAMETER( XMIN=-1, XMAX=1, YMIN=-1, YMAX=1 ) REAL U(NX,NY), V(NX,NY) DO 10 J=1,NY DO 10 I=1,NX X = XMIN + (XMAX-XMIN)*(I-1)/(NX-1) Y = YMIN + (YMAX-YMIN)*(J-1)/(NY-1) U(I,J) = X * 0.1 V(I,J) = -Y 10 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL GRSWND( XMIN, XMAX, YMIN, YMAX ) CALL GRSVPT( 0.2, 0.8, 0.2, 0.8 ) CALL GRSTRN( 1 ) CALL GRSTRF CALL USDAXS CALL UGLSET( 'LNRMAL', .FALSE. ) CALL UGRSET( 'XFACT1', 0.5 ) CALL UGRSET( 'YFACT1', 0.05 ) CALL UGLSET( 'LUNIT' , .TRUE. ) CALL UGRSET( 'VXUNIT', 0.1 ) CALL UGRSET( 'VYUNIT', 0.1 ) CALL UGRSET( 'VXUOFF', 0.06 ) CALL UGSUT( 'X', 'U' ) CALL UGSUT( 'Y', 'V' ) CALL UGVECT( U, NX, V, NX, NX, NY ) CALL GRCLS END dcl-7.5.2/demo/rakuraku/u2d/Makefile0000644000175000017500000000101314760053155017027 0ustar uwabamiuwabami# # Makefile for u2d (rakuraku) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = u2d LIBSRCS = u2d1.f u2d2.f u2d3.f u2d4.f \ u2d5.f u2d6.f u2d7.f LIBDEMO = u2d1 u2d2 u2d3 u2d4 \ u2d5 u2d6 u2d7 LIBEXEC = u2d1$(EXT) u2d2$(EXT) u2d3$(EXT) u2d4$(EXT) \ u2d5$(EXT) u2d6$(EXT) u2d7$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ *.ps core *.trace *.eps *.svg *.pdf a.out dcl-7.5.2/demo/rakuraku/u2d/u2d7.f0000644000175000017500000000441114760053155016324 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM U2D7 PARAMETER( NX=21, NY=21 ) PARAMETER( XMIN=-10, XMAX=10, YMIN=-10, YMAX=10 ) PARAMETER( DX1=1, DX2=5, DY1=1, DY2=5 ) PARAMETER( KMAX=5, PMIN=0, PMAX=1 ) REAL U(NX,NY), V(NX,NY), P(NX,NY), PI(2,KMAX+1) DO 10 J=1,NY DO 10 I=1,NX X = XMIN + (XMAX-XMIN)*(I-1)/(NX-1) Y = YMIN + (YMAX-YMIN)*(J-1)/(NY-1) U(I,J) = X V(I,J) = -Y P(I,J) = EXP( -X**2/64 -Y**2/25 ) 10 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL SGLSET( 'LSOFTF', .TRUE. ) CALL GRFRM CALL GRSWND( XMIN, XMAX, YMIN, YMAX ) CALL GRSVPT( 0.2, 0.8, 0.2, 0.8 ) CALL GRSTRN( 1 ) CALL GRSTRF CALL UXAXDV( 'B', DX1, DX2 ) CALL UXAXDV( 'T', DX1, DX2 ) CALL UXSTTL( 'B', 'X-axis', 0. ) CALL UXMTTL( 'T', 'FIGURE TITLE', 0. ) CALL UYAXDV( 'L', DY1, DY2 ) CALL UYAXDV( 'R', DY1, DY2 ) CALL UYSTTL( 'L', 'Y-axis', 0. ) CALL UGLSET( 'LUNIT' , .TRUE. ) CALL UGRSET( 'VXUOFF', 0.04 ) CALL UGSUT( 'X', 'U' ) CALL UGSUT( 'Y', 'V' ) CALL UGVECT( U, NX, V, NX, NX, NY ) CALL UDLSET( 'LABEL', .FALSE. ) CALL UDLSET( 'LMSG' , .FALSE. ) CALL UDGCLB( P, NX, NX, NY, 0.1 ) CALL UDCNTR( P, NX, NX, NY ) DP = (PMAX-PMIN)/KMAX DO 20 K=1,KMAX TLEV1 = (K-1)*DP TLEV2 = TLEV1 + DP IPAT = 600 + K - 1 CALL UESTLV( TLEV1, TLEV2, IPAT ) 20 CONTINUE CALL UETONE( P, NX, NX, NY ) *-- トーンバー ---- CALL GRSWND( 0.0, 1.0, PMIN, PMAX ) CALL GRSVPT( 0.85, 0.9, 0.45, 0.75 ) CALL GRSTRN( 1 ) CALL GRSTRF DO 30 K=1,KMAX+1 PI(1,K) = PMIN + (K-1)*DP PI(2,K) = PMIN + (K-1)*DP 30 CONTINUE CALL UDCNTR( PI, 2, 2, KMAX+1 ) CALL UETONE( PI, 2, 2, KMAX+1 ) CALL SLPVPR( 3 ) CALL UZLSET( 'LABELYR', .TRUE. ) CALL UZFACT( 0.8 ) CALL UYSFMT( '(F4.1)' ) CALL UYAXDV( 'R', DP, DP ) CALL GRCLS END dcl-7.5.2/demo/rakuraku/u2d/u2d1.f0000644000175000017500000000214214760053155016315 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM U2D1 PARAMETER( NX=37, NY=37 ) PARAMETER( XMIN=0, XMAX=360, YMIN=-90, YMAX=90 ) PARAMETER( PI=3.14159, DRAD=PI/180 ) REAL P(NX,NY) DO 10 J=1,NY DO 10 I=1,NX ALON = ( XMIN + (XMAX-XMIN)*(I-1)/(NX-1) ) * DRAD ALAT = ( YMIN + (YMAX-YMIN)*(J-1)/(NY-1) ) * DRAD SLAT = SIN(ALAT) P(I,J) = 3*SQRT(1-SLAT**2)*SLAT*COS(ALON) - 0.5*(3*SLAT**2-1) 10 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL GRSWND( XMIN, XMAX, YMIN, YMAX ) CALL GRSVPT( 0.2, 0.8, 0.2, 0.8 ) CALL GRSTRN( 1 ) CALL GRSTRF CALL USDAXS CALL UDSFMT( '(F4.1)' ) CALL UDGCLA( 0., 1.4, 0.2 ) CALL UDSCLV( -1., 3, 4, 'abc', 0.028 ) CALL UDDCLV( 0.6 ) CALL UDCNTR( P, NX, NX, NY ) CALL GRCLS END dcl-7.5.2/demo/rakuraku/u2d/u2d3.f0000644000175000017500000000310714760053155016321 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM U2D3 PARAMETER( NX=37, NY=37, MY=7 ) PARAMETER( XMIN=0, XMAX=360, YMIN=-90, YMAX=90 ) PARAMETER( PI=3.14159, DRAD=PI/180 ) REAL P(NX,NY), UY1(NY), UY2(MY) CHARACTER CH(MY)*3 DATA CH/ 'SP ', '60S', '30S', 'EQ ', '30N', '60N', 'NP ' / DO 10 J=1,NY DO 10 I=1,NX ALON = ( XMIN + (XMAX-XMIN)*(I-1)/(NX-1) ) * DRAD ALAT = ( YMIN + (YMAX-YMIN)*(J-1)/(NY-1) ) * DRAD SLAT = SIN(ALAT) UY1(J) = SLAT P(I,J) = 3*SQRT(1-SLAT**2)*SLAT*COS(ALON) - 0.5*(3*SLAT**2-1) 10 CONTINUE DO 20 J=1,MY UY2(J) = SIN( ( YMIN + (YMAX-YMIN)*(J-1)/(MY-1) ) * DRAD ) 20 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL GRSWND( XMIN, XMAX, -1., 1. ) CALL GRSVPT( 0.2, 0.8, 0.2, 0.8 ) CALL GRSTRN( 1 ) CALL GRSTRF CALL UXAXDV( 'B', 10., 60. ) CALL UXAXDV( 'T', 10., 60. ) CALL UXSTTL( 'B', 'LONGITUDE', 0. ) CALL UYAXDV( 'L', 0.1, 0.5 ) CALL UYSTTL( 'L', 'SINE LATITUDE', 0. ) CALL UZLSET( 'LABELYR', .TRUE. ) CALL UYAXLB( 'R', UY1, NY, UY2, CH, 3, MY ) CALL UYSTTL( 'R', 'LATITUDE', 0. ) CALL UWSGXB( XMIN, XMAX, NX ) CALL UWSGYA( UY1, NY ) CALL UDCNTR( P, NX, NX, NY ) CALL GRCLS END dcl-7.5.2/demo/rakuraku/u2d/u2d2.f0000644000175000017500000000216214760053155016320 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM U2D2 PARAMETER( NX=37, NY=37 ) PARAMETER( XMIN=0, XMAX=360, YMIN=-90, YMAX=90 ) PARAMETER( PI=3.14159, DRAD=PI/180 ) REAL P(NX,NY) DO 10 J=1,NY DO 10 I=1,NX ALON = ( XMIN + (XMAX-XMIN)*(I-1)/(NX-1) ) * DRAD ALAT = ( YMIN + (YMAX-YMIN)*(J-1)/(NY-1) ) * DRAD SLAT = SIN(ALAT) P(I,J) = 3*SQRT(1-SLAT**2)*SLAT*COS(ALON) - 0.5*(3*SLAT**2-1) 10 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL GRSWND( XMIN, XMAX, YMIN, YMAX ) CALL GRSVPT( 0.2, 0.8, 0.2, 0.8 ) CALL GRSTRN( 1 ) CALL GRSTRF CALL USDAXS CALL UDLSET( 'LABEL', .FALSE. ) CALL UDLSET( 'LDASH', .FALSE. ) CALL UDISET( 'ISOLID', 2 ) CALL UDISET( 'ICYCLE', 4 ) CALL UDCNTR( P, NX, NX, NY ) CALL GRCLS END dcl-7.5.2/demo/rakuraku/u2d/u2d4.f0000644000175000017500000000230614760053155016322 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM U2D4 PARAMETER( NX=37, NY=37 ) PARAMETER( XMIN=0, XMAX=360, YMIN=-90, YMAX=90 ) PARAMETER( PI=3.14159, DRAD=PI/180 ) PARAMETER( KXMN=9, KXMX=33, KYMN=7, KYMX=31 ) REAL P(NX,NY), ALON(NX), ALAT(NY) DO 10 I=1,NX ALON(I) = XMIN + (XMAX-XMIN)*(I-1)/(NX-1) 10 CONTINUE DO 20 J=1,NY ALAT(J) = YMIN + (YMAX-YMIN)*(J-1)/(NY-1) 20 CONTINUE DO 30 J=1,NY SLAT = SIN(ALAT(J)*DRAD) DO 30 I=1,NX P(I,J) = 3*SQRT(1-SLAT**2)*SLAT*COS(ALON(I)*DRAD) + - 0.5*(3*SLAT**2-1) 30 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL GRSWND( ALON(KXMN), ALON(KXMX), ALAT(KYMN), ALAT(KYMX) ) CALL GRSVPT( 0.2, 0.8, 0.2, 0.8 ) CALL GRSTRN( 1 ) CALL GRSTRF CALL USDAXS CALL UDCNTR( P(KXMN,KYMN), NX, KXMX-KXMN+1, KYMX-KYMN+1 ) CALL GRCLS END dcl-7.5.2/demo/rakuraku/color/0000755000175000017500000000000014760053155016020 5ustar uwabamiuwabamidcl-7.5.2/demo/rakuraku/color/color1.f0000644000175000017500000000326114760053155017370 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM COLOR1 PARAMETER( NP=4, NT=10 ) PARAMETER( DD=0.07, DS=0.003 ) PARAMETER( DX=DD+DS*2, DY=1.0/NT ) REAL XBOX(NP), YBOX(NP) CHARACTER CHR*5 DATA XBOX/ 0., 1., 1., 0. / DATA YBOX/ 0., 0., 1., 1. / WRITE(*,*) ' WORKSTATION ID (I) ? ; ' CALL SGPWSN READ (*,*) IWS CALL GLISET( 'MAXMSG', 300 ) CALL SGOPN( -ABS(IWS) ) CALL SGLSET( 'LFULL' , .TRUE. ) CALL SLRAT( 0.85, 1. ) CALL SLMGN( 0., 0., 0.05, 0.1 ) CALL SLSTTL( 'TEST OF COLORMAP', 'T', 0., -0.5, 0.025, 1 ) DO 20 K=1,80 CALL SWISET('ICLRMAP',K) * IF (MOD(K,2).EQ.1) THEN * CALL SWLSET('LFGBG',.FALSE.) * ELSE * CALL SWLSET('LFGBG',.TRUE.) * END IF CALL SWCLCH CALL SGFRM CALL SGSWND( 0., 1., 0., 1. ) CALL SGSTRN( 1 ) CALL SGSTXS( 0.01 ) CALL SGSTXC( 1 ) DO 10 J=0,9 DO 10 I=0,9 X1 = DX*I + DS + (1-DX*NT)/2 Y1 = DY*(9-J) + DS X2 = X1 + DD Y2 = Y1 + DD ITPAT = (I+J*10)*1000 + 999 CALL SGSVPT( X1, X2, Y1, Y2 ) CALL SGSTRF WRITE(CHR,'(I5)') ITPAT CALL SGIGET('IBGCLI',IBC) IF(ITPAT.EQ.999)THEN * ITPAT=IBC*1000 + 999 ENDIF CALL SLPVPR( 1 ) CALL SGSTNP( ITPAT ) CALL SGTNU( NP, XBOX, YBOX ) CALL SGTXV( X2, Y2+(DY-DD)/2, CHR ) 10 CONTINUE 20 CONTINUE CALL SGCLS END dcl-7.5.2/demo/rakuraku/color/Makefile0000644000175000017500000000061314760053155017460 0ustar uwabamiuwabami# # Makefile for color (rakuraku) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = color LIBSRCS = color1.f color2.f color3.f LIBDEMO = color1 color2 color3 LIBEXEC = color1$(EXT) color2$(EXT) color3$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ *.ps core *.trace *.eps *.svg *.pdf a.out dcl-7.5.2/demo/rakuraku/color/colormap4.x110000644000175000017500000000472714760053155020265 0ustar uwabamiuwabami100: no._of_colors 65535 65535 65535 : c00 0 0 0 : c01 65535 0 0 : c02 0 65535 0 : c03 0 0 65535 : c04 65535 65535 0 : c05 56797 41120 56797 : c06 0 0 32896 : c07 65535 49344 52171 : c08 0 65535 65535 : c09 0 0 0 : c10 65535 65535 65535 : c11 63751 63751 65535 : c12 61889 61889 65535 : c13 59938 59938 65535 : c14 57888 57888 65535 : c15 55723 55723 65535 : c16 53423 53423 65535 : c17 50965 50965 65535 : c18 48314 48314 65535 : c19 45425 45425 65535 : c20 42230 42230 65535 : c21 38624 38624 65535 : c22 34425 34425 65535 : c23 29271 29271 65535 : c24 22183 22183 65535 : c25 0 0 65535 : c26 0 22183 65535 : c27 0 29271 65535 : c28 0 34425 65535 : c29 0 38624 65535 : c30 0 42230 65535 : c31 0 45425 65535 : c32 0 48314 65535 : c33 0 50965 65535 : c34 0 53423 65535 : c35 0 55723 65535 : c36 0 57888 65535 : c37 0 59938 65535 : c38 0 61889 65535 : c39 0 63751 65535 : c40 0 65535 65535 : c41 0 65535 63751 : c42 0 65535 61889 : c43 0 65535 59938 : c44 0 65535 57888 : c45 0 65535 55723 : c46 0 65535 53423 : c47 0 65535 50965 : c48 0 65535 48314 : c49 0 65535 45425 : c50 0 65535 42230 : c51 0 65535 38624 : c52 0 65535 34425 : c53 0 65535 29271 : c54 0 65535 22183 : c55 0 65535 0 : c56 22183 65535 0 : c57 29271 65535 0 : c58 34425 65535 0 : c59 38624 65535 0 : c60 42230 65535 0 : c61 45425 65535 0 : c62 48314 65535 0 : c63 50965 65535 0 : c64 53423 65535 0 : c65 55723 65535 0 : c66 57888 65535 0 : c67 59938 65535 0 : c68 61889 65535 0 : c69 63751 65535 0 : c70 65535 65535 0 : c71 65535 63751 0 : c72 65535 61889 0 : c73 65535 59938 0 : c74 65535 57888 0 : c75 65535 55723 0 : c76 65535 53423 0 : c77 65535 50965 0 : c78 65535 48314 0 : c79 65535 45425 0 : c80 65535 42230 0 : c81 65535 38624 0 : c82 65535 34425 0 : c83 65535 29271 0 : c84 65535 22183 0 : c85 65535 0 0 : c86 65535 23490 23490 : c87 65535 30996 30996 : c88 65535 36453 36453 : c89 65535 40899 40899 : c90 65535 44718 44718 : c91 65535 48101 48101 : c92 65535 51160 51160 : c93 65535 53967 53967 : c94 65535 56570 56570 : c95 65535 59005 59005 : c96 65535 61298 61298 : c97 65535 63469 63469 : c98 65535 65535 65535 : c99 dcl-7.5.2/demo/rakuraku/color/color3.f0000644000175000017500000000312314760053155017367 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM COLOR3 PARAMETER ( NX=21, NY=21 ) PARAMETER ( XMIN=-10, XMAX=10, YMIN=-10, YMAX=10 ) PARAMETER ( DX1=1, DX2=5, DY1=1, DY2=5 ) PARAMETER ( KMAX=56, PMIN=0, PMAX=1 ) REAL P(NX,NY), PI(2,KMAX+1) DO 10 J=1,NY DO 10 I=1,NX X = XMIN + (XMAX-XMIN)*(I-1)/(NX-1) Y = YMIN + (YMAX-YMIN)*(J-1)/(NY-1) P(I,J) = EXP( -X**2/64 -Y**2/25 ) 10 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL GRSWND( XMIN, XMAX, YMIN, YMAX ) CALL GRSVPT( 0.2, 0.8, 0.2, 0.8 ) CALL GRSTRN( 1 ) CALL GRSTRF DP = (PMAX-PMIN)/KMAX DO 20 K=1,KMAX TLEV1 = (K-1)*DP TLEV2 = TLEV1 + DP IPAT = (29+K)*1000 + 999 CALL UESTLV( TLEV1, TLEV2, IPAT ) 20 CONTINUE CALL UETONE( P, NX, NX, NY ) CALL USDAXS *-- トーンバー ---- CALL GRSWND( 0.0, 1.0, PMIN, PMAX ) CALL GRSVPT( 0.85, 0.9, 0.2, 0.8 ) CALL GRSTRN( 1 ) CALL GRSTRF DO 30 K=1,KMAX+1 PI(1,K) = PMIN + (K-1)*DP PI(2,K) = PMIN + (K-1)*DP 30 CONTINUE CALL UETONE( PI, 2, 2, KMAX+1 ) CALL SLPVPR( 3 ) CALL UZLSET( 'LABELYR', .TRUE. ) CALL UZFACT( 0.8 ) CALL UYSFMT( '(F4.1)' ) CALL UYAXDV( 'R', 0.1, 0.2 ) CALL GRCLS END dcl-7.5.2/demo/rakuraku/color/color2.f0000644000175000017500000000257614760053155017401 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM COLOR2 PARAMETER( NMAX=50 ) REAL X(0:NMAX), Y(0:NMAX) CHARACTER USGI*3, CTTL*32 R = 3.7 X(0) = 1950 Y(0) = 0.5 DO 10 N=0,NMAX-1 X(N+1) = X(N) + 1 Y(N+1) = R*Y(N)*(1.-Y(N)) 10 CONTINUE YAVE = RAVE( Y, NMAX+1, 1 ) DO 20 N=0,NMAX Y(N) = -4*(Y(N)-YAVE) 20 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL GRSWND( X(0), X(NMAX), -1.5, 2.0 ) CALL GRSVPT( 0.2, 0.9, 0.2, 0.9 ) CALL GRSTRN( 1 ) CALL GRSTRF CALL SGISET( 'IFONT', 2 ) CALL UZISET( 'INDEXT1', 402 ) CALL UZISET( 'INDEXT2', 404 ) CALL UZISET( 'INDEXL1', 303 ) CALL UZISET( 'INDEXL2', 123 ) CALL UXAXDV( 'B', 2., 10. ) CALL UXAXDV( 'T', 2., 10. ) CALL UXSTTL( 'B', 'YEAR', 0. ) CALL UYAXDV( 'L', 0.1, 0.5 ) CALL UYAXDV( 'R', 0.1, 0.5 ) CTTL = USGI(131) // 'T [K]' CALL UYSTTL( 'L',CTTL, 0. ) CALL UXMTTL( 'T', 'INTERANNUAL VARIATION', 0. ) CALL SGSPLI( 24 ) CALL SGPLU( NMAX+1, X, Y ) CALL GRCLS END dcl-7.5.2/demo/rakuraku/color/colormap1.x110000644000175000017500000000472714760053155020262 0ustar uwabamiuwabami100: no._of_colors 65535 65535 65535 : c00 0 0 0 : c01 65535 0 0 : c02 0 65535 0 : c03 0 0 65535 : c04 65535 65535 0 : c05 56797 41120 56797 : c06 0 0 32896 : c07 65535 49344 52171 : c08 0 65535 65535 : c09 0 0 0 : c10 0 0 4369 : c11 0 0 8738 : c12 0 0 13107 : c13 0 0 17476 : c14 0 0 21845 : c15 0 0 26214 : c16 0 0 30583 : c17 0 0 34952 : c18 0 0 39321 : c19 0 0 43690 : c20 0 0 48059 : c21 0 0 52428 : c22 0 0 56797 : c23 0 0 61166 : c24 0 0 65535 : c25 0 4369 65535 : c26 0 8738 65535 : c27 0 13107 65535 : c28 0 17476 65535 : c29 0 21845 65535 : c30 0 26214 65535 : c31 0 30583 65535 : c32 0 34952 65535 : c33 0 39321 65535 : c34 0 43690 65535 : c35 0 48059 65535 : c36 0 52428 65535 : c37 0 56797 65535 : c38 0 61166 65535 : c39 0 65535 65535 : c40 0 65535 61166 : c41 0 65535 56797 : c42 0 65535 52428 : c43 0 65535 48059 : c44 0 65535 43690 : c45 0 65535 39321 : c46 0 65535 34952 : c47 0 65535 30583 : c48 0 65535 26214 : c49 0 65535 21845 : c50 0 65535 17476 : c51 0 65535 13107 : c52 0 65535 8738 : c53 0 65535 4369 : c54 0 65535 0 : c55 4369 65535 0 : c56 8738 65535 0 : c57 13107 65535 0 : c58 17476 65535 0 : c59 21845 65535 0 : c60 26214 65535 0 : c61 30583 65535 0 : c62 34952 65535 0 : c63 39321 65535 0 : c64 43690 65535 0 : c65 48059 65535 0 : c66 52428 65535 0 : c67 56797 65535 0 : c68 61166 65535 0 : c69 65535 65535 0 : c70 65535 61166 0 : c71 65535 56797 0 : c72 65535 52428 0 : c73 65535 48059 0 : c74 65535 43690 0 : c75 65535 39321 0 : c76 65535 34952 0 : c77 65535 30583 0 : c78 65535 26214 0 : c79 65535 21845 0 : c80 65535 17476 0 : c81 65535 13107 0 : c82 65535 8738 0 : c83 65535 4369 0 : c84 65535 0 0 : c85 65535 4369 4369 : c86 65535 8738 8738 : c87 65535 13107 13107 : c88 65535 17476 17476 : c89 65535 21845 21845 : c90 65535 26214 26214 : c91 65535 30583 30583 : c92 65535 34952 34952 : c93 65535 39321 39321 : c94 65535 43690 43690 : c95 65535 48059 48059 : c96 65535 52428 52428 : c97 65535 56797 56797 : c98 65535 61166 61166 : c99 dcl-7.5.2/demo/rakuraku/color/colormap2.x110000644000175000017500000000472714760053155020263 0ustar uwabamiuwabami100: NO._OF_COLORS 65535 65535 65535 : C00 0 0 0 : C01 65535 0 0 : C02 0 65535 0 : C03 0 0 65535 : C04 65535 65535 0 : C05 56797 41120 56797 : C06 0 0 32896 : C07 65535 49344 52171 : C08 0 65535 65535 : C09 65535 0 43690 : C10 58981 0 43690 : C11 52428 0 43690 : C12 45874 0 43690 : C13 39321 0 43690 : C14 32767 0 43690 : C15 26214 0 43690 : C16 19660 0 43690 : C17 13107 0 43690 : C18 6553 0 43690 : C19 0 0 43690 : C20 0 0 48059 : C21 0 0 52428 : C22 0 0 56797 : C23 0 0 61166 : C24 0 0 65535 : C25 0 4369 65535 : C26 0 8738 65535 : C27 0 13107 65535 : C28 0 17476 65535 : C29 0 21845 65535 : C30 0 26214 65535 : C31 0 30583 65535 : C32 0 34952 65535 : C33 0 39321 65535 : C34 0 43690 65535 : C35 0 48059 65535 : C36 0 52428 65535 : C37 0 56797 65535 : C38 0 61166 65535 : C39 0 65535 65535 : C40 0 65535 61166 : C41 0 65535 56797 : C42 0 65535 52428 : C43 0 65535 48059 : C44 0 65535 43690 : C45 0 65535 39321 : C46 0 65535 34952 : C47 0 65535 30583 : C48 0 65535 26214 : C49 0 65535 21845 : C50 0 65535 17476 : C51 0 65535 13107 : C52 0 65535 8738 : C53 0 65535 4369 : C54 0 65535 0 : C55 4369 65535 0 : C56 8738 65535 0 : C57 13107 65535 0 : C58 17476 65535 0 : C59 21845 65535 0 : C60 26214 65535 0 : C61 30583 65535 0 : C62 34952 65535 0 : C63 39321 65535 0 : C64 43690 65535 0 : C65 48059 65535 0 : C66 52428 65535 0 : C67 56797 65535 0 : C68 61166 65535 0 : C69 65535 65535 0 : C70 65535 61166 0 : C71 65535 56797 0 : C72 65535 52428 0 : C73 65535 48059 0 : C74 65535 43690 0 : C75 65535 39321 0 : C76 65535 34952 0 : C77 65535 30583 0 : C78 65535 26214 0 : C79 65535 21845 0 : C80 65535 17476 0 : C81 65535 13107 0 : C82 65535 8738 0 : C83 65535 4369 0 : C84 65535 0 0 : C85 65535 4369 4369 : C86 65535 8738 8738 : C87 65535 13107 13107 : C88 65535 17476 17476 : C89 65535 21845 21845 : C90 65535 26214 26214 : C91 65535 30583 30583 : C92 65535 34952 34952 : C93 65535 39321 39321 : C94 65535 43690 43690 : C95 65535 48059 48059 : C96 65535 52428 52428 : C97 65535 56797 56797 : C98 65535 61166 61166 : C99 dcl-7.5.2/demo/rakuraku/color/colormap3.x110000644000175000017500000000472714760053155020264 0ustar uwabamiuwabami100: no._of_colors 65535 65535 65535 : c00 0 0 0 : c01 65535 0 0 : c02 0 65535 0 : c03 0 0 65535 : c04 65535 65535 0 : c05 56797 41120 56797 : c06 0 0 32896 : c07 65535 49344 52171 : c08 0 65535 65535 : c09 65535 0 65535 : c10 61166 0 65535 : c11 56797 0 65535 : c12 52428 0 65535 : c13 48059 0 65535 : c14 43690 0 65535 : c15 39321 0 65535 : c16 34952 0 65535 : c17 30583 0 65535 : c18 26214 0 65535 : c19 21845 0 65535 : c20 17476 0 65535 : c21 13107 0 65535 : c22 8738 0 65535 : c23 4369 0 65535 : c24 0 0 65535 : c25 0 4369 65535 : c26 0 8738 65535 : c27 0 13107 65535 : c28 0 17476 65535 : c29 0 21845 65535 : c30 0 26214 65535 : c31 0 30583 65535 : c32 0 34952 65535 : c33 0 39321 65535 : c34 0 43690 65535 : c35 0 48059 65535 : c36 0 52428 65535 : c37 0 56797 65535 : c38 0 61166 65535 : c39 0 65535 65535 : c40 0 65535 61166 : c41 0 65535 56797 : c42 0 65535 52428 : c43 0 65535 48059 : c44 0 65535 43690 : c45 0 65535 39321 : c46 0 65535 34952 : c47 0 65535 30583 : c48 0 65535 26214 : c49 0 65535 21845 : c50 0 65535 17476 : c51 0 65535 13107 : c52 0 65535 8738 : c53 0 65535 4369 : c54 0 65535 0 : c55 4369 65535 0 : c56 8738 65535 0 : c57 13107 65535 0 : c58 17476 65535 0 : c59 21845 65535 0 : c60 26214 65535 0 : c61 30583 65535 0 : c62 34952 65535 0 : c63 39321 65535 0 : c64 43690 65535 0 : c65 48059 65535 0 : c66 52428 65535 0 : c67 56797 65535 0 : c68 61166 65535 0 : c69 65535 65535 0 : c70 65535 61166 0 : c71 65535 56797 0 : c72 65535 52428 0 : c73 65535 48059 0 : c74 65535 43690 0 : c75 65535 39321 0 : c76 65535 34952 0 : c77 65535 30583 0 : c78 65535 26214 0 : c79 65535 21845 0 : c80 65535 17476 0 : c81 65535 13107 0 : c82 65535 8738 0 : c83 65535 4369 0 : c84 65535 0 0 : c85 65535 0 4369 : c86 65535 0 8738 : c87 65535 0 13107 : c88 65535 0 17476 : c89 65535 0 21845 : c90 65535 0 26214 : c91 65535 0 30583 : c92 65535 0 34952 : c93 65535 0 39321 : c94 65535 0 43690 : c95 65535 0 48059 : c96 65535 0 52428 : c97 65535 0 56797 : c98 65535 0 61166 : c99 dcl-7.5.2/demo/rakuraku/miss/0000755000175000017500000000000014760053155015655 5ustar uwabamiuwabamidcl-7.5.2/demo/rakuraku/miss/Makefile0000644000175000017500000000053414760053155017317 0ustar uwabamiuwabami# # Makefile for miss (rakuraku) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = miss LIBSRCS = miss1.f miss2.f LIBDEMO = miss1 miss2 LIBEXEC = miss1$(EXT) miss2$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ *.ps core *.trace *.eps *.svg *.pdf a.out dcl-7.5.2/demo/rakuraku/miss/miss2.f0000644000175000017500000000257614760053155017073 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM MISS2 PARAMETER( NX=37, NY=37 ) PARAMETER( XMIN=0, XMAX=360, YMIN=-90, YMAX=90 ) PARAMETER( PI=3.14159, DRAD=PI/180 ) REAL P(NX,NY) CALL GLRGET( 'RMISS', RMISS ) CALL GLLSET( 'LMISS', .TRUE. ) DO 10 J=1,NY DO 10 I=1,NX ALON = ( XMIN + (XMAX-XMIN)*(I-1)/(NX-1) ) * DRAD ALAT = ( YMIN + (YMAX-YMIN)*(J-1)/(NY-1) ) * DRAD SLAT = SIN(ALAT) P(I,J) = 3*SQRT(1-SLAT**2)*SLAT*COS(ALON) - 0.5*(3*SLAT**2-1) IF( I.EQ.6 .AND. J.EQ.6 ) THEN P(I,J) = RMISS END IF IF( ( 8.LE.I .AND. I.LE.24) .AND. J.EQ.30 ) THEN P(I,J) = RMISS END IF IF( (22.LE.I .AND. I.LE.30) .AND. + (12.LE.J .AND. J.LE.20) ) THEN P(I,J) = RMISS END IF 10 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL GRSWND( XMIN, XMAX, YMIN, YMAX ) CALL GRSVPT( 0.2, 0.8, 0.2, 0.8 ) CALL GRSTRN( 1 ) CALL GRSTRF CALL UETONE( P, NX, NX, NY ) CALL USDAXS CALL UDCNTR( P, NX, NX, NY ) CALL GRCLS END dcl-7.5.2/demo/rakuraku/miss/miss1.f0000644000175000017500000000302114760053155017054 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM MISS1 PARAMETER( NMAX=40 ) PARAMETER( PI=3.14159 ) PARAMETER( XMIN=0., XMAX=4*PI, YMIN=-1., YMAX=1. ) REAL X(0:NMAX), Y(0:NMAX) DT = XMAX/NMAX DO 10 N=0,NMAX X(N) = N*DT Y(N) = SIN(X(N)) 10 CONTINUE N1 = NMAX/4 Y(N1-1) = 999. Y(N1 ) = 999. Y(N1+1) = 999. N2 = N1*3 Y(N2-1) = 999. Y(N2+1) = 999. WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM *-- 欠損値処理なし ---- CALL GRSWND( XMIN, XMAX, YMIN, YMAX ) CALL GRSVPT( 0.1, 0.9, 0.7, 0.9 ) CALL GRSTRN( 1 ) CALL GRSTRF CALL SGPLU( NMAX+1, X, Y ) CALL GRSWND( XMIN, XMAX, YMIN, YMAX ) CALL GRSVPT( 0.1, 0.9, 0.5, 0.7 ) CALL GRSTRN( 1 ) CALL GRSTRF CALL SGSPMT( 3 ) CALL SGPMU( NMAX+1, X, Y ) *-- 欠損値処理 ---- CALL GLLSET( 'LMISS', .TRUE. ) CALL GRSWND( XMIN, XMAX, YMIN, YMAX ) CALL GRSVPT( 0.1, 0.9, 0.3, 0.5 ) CALL GRSTRN( 1 ) CALL GRSTRF CALL SGPLU( NMAX+1, X, Y ) CALL GRSWND( XMIN, XMAX, YMIN, YMAX ) CALL GRSVPT( 0.1, 0.9, 0.1, 0.3 ) CALL GRSTRN( 1 ) CALL GRSTRF CALL SGPMU( NMAX+1, X, Y ) CALL GRCLS END dcl-7.5.2/demo/grph1/0000755000175000017500000000000014760053155014076 5ustar uwabamiuwabamidcl-7.5.2/demo/grph1/scpack/0000755000175000017500000000000014760053155015342 5ustar uwabamiuwabamidcl-7.5.2/demo/grph1/scpack/scpkt7.f0000644000175000017500000000232414760053155016725 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SCPKT7 PARAMETER( NX=37 ) PARAMETER( XMIN= 0, XMAX=360, YMIN=-1, YMAX= 1 ) PARAMETER( PI=3.14159, DRAD=PI/180 ) REAL ALON(NX), ALAT(NX), R(NX), A(NX) DO 10 I=1,NX ALON(I) = XMIN + (XMAX-XMIN)*(I-1)/(NX-1) ALAT(I) = YMIN + (YMAX-YMIN)*(I-1)/(NX-1) R (I) = 1. 10 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL SGOPN( IWS ) CALL SGFRM CALL SGLSET('LDEG', .TRUE.) *---------------- 3-D ------------------ CALL SCSORG(1., 0., 0., 0.) CALL SCSTRN(2) CALL SCSTRF CALL SCSEYE( 5., 1., 2. ) CALL SCSOBJ( 0.0, 0.0, 0.0 ) CALL SCSPRJ DO 100 I=1, NX DO 110 J=1, NX A(J) = ALAT(I) 110 CONTINUE CALL SCPLU(NX, R, ALON, A) 100 CONTINUE DO 200 I=1, NX DO 210 J=1, NX A(J) = ALON(I) 210 CONTINUE CALL SCPLU(NX, R, A, ALAT) 200 CONTINUE CALL SGCLS END dcl-7.5.2/demo/grph1/scpack/scpkt2.f0000644000175000017500000000143514760053155016722 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SCPKT2 WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL SGLSET('L2TO3', .TRUE.) CALL SGISET('IFONT', 2) CALL SGOPN( IWS ) X0 = -3 DX = .3 DO 10 I=1, 20 CALL SGFRM CALL SGSWND(0., 1., 0., 1.) CALL SGSVPT(0., 1., 0., 1.) CALL SGSTRN(1) CALL SGSTRF X = X0 + DX*I CALL SGRSET('XEYE3', X) CALL SCSPRJ CALL SLPVPR(1) CALL SGTXZV(0.5, 0.5, 'DENNOU', 0.1, 0, 0, 3) 10 CONTINUE CALL SGCLS END dcl-7.5.2/demo/grph1/scpack/Makefile0000644000175000017500000000113514760053155017002 0ustar uwabamiuwabami# # Makefile for scpack (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = scpack LIBSRCS = scpkt1.f scpkt2.f scpkt3.f scpkt4.f \ scpkt5.f scpkt6.f scpkt7.f scpkt8.f LIBDEMO = scpkt1 scpkt2 scpkt3 scpkt4 \ scpkt5 scpkt6 scpkt7 scpkt8 LIBEXEC = scpkt1$(EXT) scpkt2$(EXT) scpkt3$(EXT) scpkt4$(EXT) \ scpkt5$(EXT) scpkt6$(EXT) scpkt7$(EXT) scpkt8$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ *.ps core *.trace *.eps *.svg *.pdf a.out dcl-7.5.2/demo/grph1/scpack/scpkt8.f0000644000175000017500000000226114760053155016726 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SCPKT8 PARAMETER( NX=37 ) PARAMETER( XMIN= 0, XMAX=360, YMIN=0, YMAX= 180 ) PARAMETER( PI=3.14159, DRAD=PI/180 ) REAL ALON(NX), ALAT(NX), R(NX), A(NX) DO 10 I=1,NX ALON(I) = XMIN + (XMAX-XMIN)*(I-1)/(NX-1) ALAT(I) = YMIN + (YMAX-YMIN)*(I-1)/(NX-1) R (I) = 1. 10 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL SGOPN( IWS ) CALL SGFRM CALL SGLSET('LDEG', .TRUE.) *---------------- 3-D ------------------ CALL SCSORG(1., 0., 0., 0.) CALL SCSTRN(3) CALL SCSTRF CALL SCSEYE( 5., 1., 2. ) CALL SCSOBJ( 0.0, 0.0, 0.0 ) CALL SCSPRJ CALL SCSPMT(10) CALL SCSPMI(1) CALL SCSPMS(.01) DO 100 I=1, NX DO 110 J=1, NX A(J) = ALAT(I) 110 CONTINUE CALL SCPLU(NX, R, A, ALON) CALL SCPMU(NX, R, A, ALON) 100 CONTINUE CALL SGCLS END dcl-7.5.2/demo/grph1/scpack/scpkt3.f0000644000175000017500000000440714760053155016725 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SCPKT3 PARAMETER ( NX=73, NY=37 ) PARAMETER ( XMIN=0, XMAX=360, YMIN=-90, YMAX=90 ) REAL P1(NX,NY), P2(NX,NY) EXTERNAL ISGTRC WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS OPEN(11,FILE='t810630.dat',FORM='FORMATTED') OPEN(12,FILE='t811231.dat',FORM='FORMATTED') DO 10 J=1,NY READ(11,'(10F8.3)') (P1(I,J),I=1,NX) READ(12,'(10F8.3)') (P2(I,J),I=1,NX) 10 CONTINUE CLOSE(11) CLOSE(12) DO 20 IR=190,245,5 R=IR AMIN=R AMAX=R+5 * IDX=(R-180)*1.4*1000+999 IDX=INT((R-170)*1.25)*1000+999 CALL UESTLV(AMIN,AMAX,IDX) 20 CONTINUE CALL SGOPN( IWS ) CALL SGLSET( 'LSOFTF', .FALSE. ) CALL UMLSET( 'LGRIDMJ', .FALSE. ) CALL UMRSET( 'DGRIDMN', 30.0 ) CALL UMISET( 'ITYPEMN', 1 ) CALL UMISET( 'ITYPEOUT', 1 ) CALL SGFRM CALL SGLSET( 'L2TO3', .TRUE. ) * CALL SCSEYE(-1.0, -1.5, 2.0 ) CALL SCSOBJ( 0.5, 0.5, 0.0 ) CALL SCSPLN( 1, 2, -0.3) CALL SCSPRJ CALL SGSSIM( 0.12, 0.0, 0.0 ) CALL SGSMPL( 180.0, 90.0, 0.0 ) CALL SGSVPT( 0.1, 0.9, 0.1, 0.9 ) CALL SGSWND( XMIN, XMAX, YMIN, YMAX ) CALL SGSTXY( -180.0, 180.0, -90.0, 90.0 ) CALL SGSTRN( ISGTRC('MER') ) CALL SGSTRF CALL SGLSET( 'LCLIP', .TRUE. ) CALL SLPWWR( 1 ) CALL UETONE( P1, NX, NX, NY ) CALL UMPMAP( 'coast_world' ) CALL UMPGLB CALL SLPVPR( 1 ) CALL SGLSET( 'LCLIP', .FALSE. ) CALL SGTXZV( 0.5, 0.95, 'Temp. : 10 hPa : Jun 30, 1981', + 0.025, 0, 0, 3 ) CALL SCSPLN( 1, 2, 0.4) * CALL SGRSET( 'YOFF3', -0.25 ) CALL SCSPRJ CALL SGLSET( 'LCLIP', .TRUE. ) CALL SLPWWR( 1 ) CALL UETONE( P2, NX, NX, NY ) CALL UMPMAP( 'coast_world' ) CALL UMPGLB CALL SLPVPR( 1 ) CALL SGLSET( 'LCLIP', .FALSE. ) CALL SGTXZV( 0.5, 0.95, 'Temp. : 10 hPa : Dec 31, 1981', + 0.025, 0, 0, 3 ) CALL SGCLS END dcl-7.5.2/demo/grph1/scpack/scpkt4.f0000644000175000017500000000275514760053155016732 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SCPKT4 PARAMETER (N=8, PI=3.14159) WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL SGOPN(IWS) CALL SGFRM CALL SGLSET('L2TO3', .TRUE.) * CALL SCSEYE( -0.5, -0.5, 2.0) * CALL SCSOBJ( 0.5, 0.5, 0.5) CALL SCSPRJ CALL SGSTRF DT = 2.*PI/N A = 0.5 CALL SZL3OP(1) CALL SZT3OP(2999,3999) DO 10 I=1, N T1 = DT*(I-1) T2 = DT*I X1 = A*SIN(T1) + 0.5 X2 = A*SIN(T2) + 0.5 Y1 = A*COS(T1) + 0.5 Y2 = A*COS(T2) + 0.5 CALL BOX (X1, Y1, X2, Y2) 10 CONTINUE CALL SZL3CL CALL SZT3CL CALL SGCLS END *----------------------------------------------------------------------- SUBROUTINE BOX(X1, Y1, X2, Y2) PARAMETER (N = 3, Z1=0.1, Z2=-0.1) DIMENSION X(N), Y(N), Z(N) X(1) = X1 X(2) = X1 X(3) = X2 Y(1) = Y1 Y(2) = Y1 Y(3) = Y2 Z(1) = Z1 Z(2) = Z2 Z(3) = Z2 CALL SZT3ZV(X, Y, Z) CALL SZL3ZV(3, X, Y, Z) X(1) = X2 X(2) = X2 X(3) = X1 Y(1) = Y2 Y(2) = Y2 Y(3) = Y1 Z(1) = Z2 Z(2) = Z1 Z(3) = Z1 CALL SZT3ZV(X, Y, Z) CALL SZL3ZV(3, X, Y, Z) END dcl-7.5.2/demo/grph1/scpack/t811231.dat0000644000175000017500000005262014760053155016764 0ustar uwabamiuwabami 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.283 245.107 245.104 245.102 245.098 245.089 245.072 245.048 245.020 244.992 244.970 244.961 244.968 244.993 245.031 245.078 245.124 245.161 245.179 245.175 245.149 245.107 245.057 245.014 244.987 244.987 245.019 245.083 245.172 245.276 245.384 245.481 245.559 245.612 245.637 245.638 245.619 245.589 245.553 245.516 245.480 245.446 245.410 245.371 245.328 245.281 245.232 245.186 245.147 245.118 245.104 245.103 245.116 245.137 245.161 245.185 245.203 245.214 245.218 245.216 245.212 245.206 245.202 245.200 245.199 245.196 245.192 245.183 245.171 245.156 245.139 245.125 245.114 245.107 244.757 244.750 244.742 244.729 244.707 244.675 244.636 244.597 244.565 244.549 244.554 244.583 244.633 244.698 244.767 244.828 244.871 244.891 244.887 244.863 244.830 244.800 244.786 244.799 244.845 244.924 245.030 245.153 245.281 245.400 245.500 245.575 245.622 245.643 245.641 245.622 245.591 245.552 245.504 245.449 245.385 245.311 245.228 245.138 245.047 244.960 244.882 244.819 244.773 244.745 244.733 244.734 244.744 244.758 244.774 244.792 244.811 244.834 244.860 244.890 244.922 244.951 244.974 244.986 244.984 244.967 244.938 244.900 244.859 244.821 244.791 244.770 244.757 244.196 244.182 244.167 244.146 244.119 244.088 244.056 244.030 244.015 244.017 244.037 244.074 244.125 244.181 244.238 244.287 244.327 244.355 244.374 244.391 244.411 244.441 244.484 244.544 244.617 244.700 244.787 244.872 244.949 245.016 245.069 245.109 245.138 245.157 245.166 245.164 245.150 245.121 245.075 245.009 244.925 244.826 244.715 244.600 244.486 244.378 244.282 244.197 244.125 244.064 244.011 243.968 243.933 243.909 243.899 243.908 243.936 243.985 244.050 244.128 244.208 244.283 244.344 244.385 244.402 244.397 244.374 244.339 244.301 244.264 244.235 244.212 244.196 243.383 243.383 243.381 243.373 243.361 243.347 243.334 243.327 243.328 243.340 243.363 243.393 243.426 243.459 243.490 243.516 243.540 243.565 243.594 243.633 243.684 243.746 243.819 243.897 243.974 244.044 244.100 244.139 244.160 244.163 244.151 244.128 244.097 244.062 244.023 243.981 243.935 243.884 243.827 243.765 243.698 243.629 243.558 243.485 243.410 243.330 243.242 243.143 243.033 242.912 242.787 242.664 242.557 242.475 242.431 242.430 242.476 242.565 242.688 242.832 242.981 243.121 243.239 243.329 243.387 243.416 243.423 243.416 243.403 243.391 243.384 243.382 243.383 242.257 242.346 242.427 242.490 242.530 242.546 242.540 242.518 242.489 242.460 242.438 242.426 242.425 242.433 242.447 242.465 242.483 242.500 242.517 242.533 242.550 242.567 242.583 242.597 242.605 242.606 242.596 242.575 242.543 242.500 242.447 242.388 242.322 242.253 242.179 242.104 242.027 241.952 241.883 241.822 241.775 241.743 241.725 241.717 241.711 241.697 241.663 241.598 241.498 241.361 241.194 241.013 240.836 240.685 240.581 240.538 240.566 240.663 240.816 241.009 241.218 241.421 241.599 241.741 241.842 241.906 241.944 241.970 241.998 242.038 242.096 242.171 242.257 240.703 240.885 241.055 241.198 241.300 241.352 241.353 241.310 241.234 241.142 241.051 240.977 240.929 240.913 240.926 240.959 241.001 241.037 241.054 241.044 241.003 240.932 240.839 240.734 240.628 240.532 240.452 240.390 240.344 240.305 240.264 240.210 240.136 240.038 239.920 239.789 239.659 239.546 239.464 239.423 239.430 239.481 239.564 239.661 239.749 239.806 239.812 239.752 239.624 239.435 239.202 238.950 238.707 238.503 238.363 238.302 238.327 238.433 238.606 238.824 239.061 239.295 239.504 239.678 239.813 239.914 239.992 240.063 240.143 240.243 240.372 240.528 240.703 238.692 238.960 239.211 239.418 239.558 239.616 239.591 239.493 239.343 239.171 239.005 238.874 238.796 238.779 238.817 238.894 238.988 239.072 239.122 239.122 239.063 238.951 238.797 238.621 238.444 238.285 238.158 238.066 238.005 237.964 237.926 237.876 237.801 237.696 237.563 237.413 237.265 237.138 237.054 237.027 237.063 237.158 237.298 237.458 237.610 237.725 237.777 237.748 237.632 237.435 237.176 236.883 236.590 236.331 236.136 236.028 236.016 236.098 236.260 236.480 236.727 236.975 237.199 237.384 237.526 237.630 237.712 237.792 237.891 238.027 238.209 238.434 238.692 236.370 236.644 236.891 237.087 237.210 237.252 237.213 237.105 236.951 236.778 236.613 236.484 236.407 236.391 236.435 236.526 236.643 236.764 236.865 236.925 236.934 236.888 236.792 236.659 236.504 236.346 236.198 236.069 235.962 235.872 235.791 235.708 235.614 235.503 235.380 235.252 235.134 235.046 235.003 235.020 235.100 235.236 235.413 235.603 235.775 235.896 235.939 235.886 235.734 235.491 235.183 234.842 234.508 234.218 234.004 233.885 233.868 233.945 234.096 234.294 234.510 234.716 234.893 235.031 235.132 235.207 235.276 235.358 235.474 235.635 235.845 236.095 236.370 233.932 234.178 234.391 234.549 234.639 234.657 234.607 234.505 234.369 234.224 234.091 233.989 233.932 233.927 233.975 234.068 234.196 234.344 234.498 234.642 234.761 234.847 234.891 234.893 234.852 234.776 234.669 234.541 234.397 234.245 234.089 233.932 233.777 233.630 233.495 233.380 233.297 233.255 233.264 233.328 233.446 233.608 233.795 233.981 234.138 234.233 234.245 234.156 233.967 233.689 233.351 232.988 232.641 232.348 232.141 232.034 232.032 232.118 232.269 232.452 232.635 232.790 232.901 232.964 232.988 232.992 233.000 233.035 233.117 233.255 233.447 233.680 233.932 231.848 232.031 232.185 232.296 232.356 232.365 232.329 232.258 232.167 232.070 231.980 231.911 231.870 231.866 231.902 231.979 232.094 232.243 232.418 232.607 232.797 232.974 233.124 233.235 233.297 233.305 233.258 233.160 233.018 232.842 232.642 232.432 232.224 232.030 231.863 231.733 231.652 231.627 231.661 231.752 231.892 232.064 232.247 232.412 232.533 232.584 232.548 232.418 232.200 231.914 231.589 231.260 230.965 230.735 230.590 230.539 230.575 230.678 230.821 230.973 231.106 231.200 231.248 231.250 231.223 231.185 231.159 231.167 231.221 231.325 231.475 231.655 231.848 230.311 230.439 230.536 230.597 230.624 230.622 230.598 230.561 230.519 230.478 230.444 230.420 230.409 230.415 230.441 230.490 230.565 230.665 230.790 230.934 231.088 231.245 231.391 231.516 231.611 231.667 231.680 231.646 231.565 231.441 231.277 231.084 230.871 230.653 230.447 230.271 230.143 230.077 230.079 230.151 230.280 230.447 230.625 230.782 230.888 230.919 230.861 230.716 230.496 230.230 229.952 229.698 229.499 229.379 229.344 229.389 229.494 229.632 229.772 229.886 229.956 229.972 229.941 229.876 229.799 229.733 229.700 229.711 229.772 229.877 230.013 230.164 230.311 229.189 229.280 229.353 229.406 229.439 229.454 229.453 229.440 229.418 229.391 229.365 229.345 229.336 229.343 229.368 229.413 229.474 229.545 229.622 229.698 229.767 229.828 229.881 229.928 229.972 230.012 230.047 230.071 230.075 230.046 229.975 229.855 229.687 229.480 229.254 229.033 228.845 228.716 228.663 228.691 228.792 228.945 229.118 229.274 229.382 229.415 229.364 229.234 229.046 228.829 228.621 228.454 228.353 228.331 228.384 228.497 228.643 228.794 228.923 229.008 229.041 229.023 228.967 228.891 228.815 228.757 228.733 228.746 228.797 228.878 228.978 229.086 229.189 228.429 228.462 228.493 228.523 228.553 228.581 228.602 228.613 228.610 228.595 228.572 228.549 228.534 228.537 228.561 228.606 228.665 228.727 228.779 228.809 228.810 228.784 228.738 228.685 228.641 228.622 228.633 228.675 228.735 228.794 228.829 228.818 228.746 228.612 228.425 228.208 227.993 227.810 227.688 227.643 227.677 227.776 227.914 228.060 228.181 228.252 228.260 228.208 228.109 227.988 227.873 227.789 227.752 227.768 227.830 227.921 228.022 228.111 228.173 228.201 228.195 228.165 228.125 228.091 228.073 228.080 228.110 228.160 228.221 228.283 228.341 228.389 228.429 227.844 227.793 227.754 227.734 227.736 227.758 227.791 227.826 227.854 227.870 227.875 227.875 227.878 227.895 227.932 227.991 228.067 228.148 228.220 228.266 228.274 228.239 228.166 228.067 227.960 227.867 227.804 227.781 227.798 227.844 227.902 227.949 227.964 227.933 227.853 227.731 227.584 227.435 227.309 227.225 227.196 227.221 227.292 227.390 227.495 227.587 227.651 227.680 227.678 227.652 227.616 227.581 227.558 227.551 227.559 227.575 227.593 227.607 227.613 227.612 227.609 227.612 227.629 227.662 227.714 227.777 227.842 227.899 227.937 227.948 227.932 227.894 227.844 227.499 227.359 227.248 227.178 227.153 227.171 227.221 227.291 227.364 227.430 227.481 227.516 227.539 227.558 227.582 227.620 227.673 227.741 227.813 227.879 227.924 227.937 227.910 227.842 227.741 227.618 227.493 227.381 227.299 227.255 227.251 227.282 227.334 227.390 227.435 227.454 227.439 227.389 227.312 227.219 227.129 227.057 227.018 227.022 227.072 227.162 227.283 227.419 227.552 227.664 227.742 227.775 227.760 227.700 227.605 227.488 227.369 227.264 227.191 227.164 227.187 227.261 227.376 227.519 227.669 227.805 227.908 227.961 227.957 227.896 227.788 227.649 227.499 227.455 227.270 227.122 227.026 226.984 226.994 227.046 227.128 227.224 227.322 227.410 227.482 227.535 227.572 227.597 227.617 227.639 227.666 227.698 227.730 227.755 227.760 227.736 227.673 227.570 227.429 227.262 227.089 226.932 226.812 226.749 226.751 226.817 226.933 227.078 227.222 227.335 227.394 227.385 227.309 227.180 227.026 226.879 226.775 226.741 226.791 226.925 227.124 227.360 227.592 227.781 227.896 227.918 227.843 227.688 227.482 227.265 227.075 226.950 226.911 226.968 227.112 227.320 227.561 227.797 227.994 228.125 228.175 228.139 228.028 227.860 227.661 227.455 227.528 227.386 227.284 227.224 227.202 227.213 227.248 227.301 227.368 227.442 227.520 227.595 227.662 227.716 227.750 227.763 227.755 227.728 227.687 227.637 227.579 227.513 227.437 227.343 227.226 227.084 226.919 226.744 226.576 226.438 226.352 226.335 226.395 226.525 226.703 226.896 227.065 227.172 227.192 227.115 226.952 226.733 226.504 226.316 226.214 226.229 226.369 226.619 226.940 227.279 227.577 227.785 227.871 227.825 227.665 227.431 227.176 226.954 226.814 226.785 226.875 227.069 227.334 227.624 227.893 228.102 228.225 228.251 228.189 228.058 227.886 227.701 227.528 227.430 227.368 227.351 227.369 227.408 227.454 227.496 227.528 227.551 227.569 227.589 227.614 227.645 227.676 227.701 227.711 227.697 227.655 227.582 227.482 227.360 227.221 227.070 226.910 226.743 226.571 226.397 226.231 226.083 225.969 225.906 225.906 225.974 226.102 226.272 226.454 226.613 226.712 226.727 226.646 226.478 226.252 226.011 225.807 225.686 225.684 225.812 226.060 226.392 226.755 227.091 227.346 227.484 227.493 227.386 227.200 226.986 226.800 226.690 226.685 226.793 226.997 227.261 227.540 227.788 227.966 228.055 228.050 227.967 227.832 227.679 227.537 227.430 227.232 227.243 227.293 227.367 227.444 227.506 227.542 227.546 227.523 227.482 227.436 227.397 227.372 227.362 227.364 227.368 227.364 227.339 227.287 227.202 227.085 226.938 226.766 226.575 226.374 226.171 225.975 225.798 225.653 225.553 225.509 225.528 225.609 225.741 225.905 226.073 226.214 226.299 226.307 226.232 226.082 225.883 225.675 225.499 225.398 225.399 225.515 225.735 226.031 226.359 226.671 226.921 227.080 227.135 227.096 226.991 226.861 226.748 226.690 226.708 226.808 226.973 227.176 227.379 227.548 227.657 227.692 227.657 227.570 227.458 227.349 227.269 227.232 227.030 227.043 227.093 227.168 227.250 227.320 227.361 227.361 227.318 227.239 227.137 227.030 226.936 226.871 226.842 226.849 226.883 226.928 226.962 226.964 226.914 226.802 226.624 226.389 226.113 225.821 225.543 225.307 225.139 225.054 225.057 225.143 225.293 225.481 225.675 225.843 225.957 226.000 225.966 225.862 225.709 225.536 225.377 225.265 225.226 225.274 225.412 225.627 225.893 226.181 226.456 226.689 226.862 226.964 227.003 226.992 226.957 226.921 226.908 226.930 226.991 227.086 227.198 227.307 227.393 227.439 227.439 227.394 227.314 227.219 227.128 227.060 227.030 227.348 227.280 227.250 227.257 227.297 227.355 227.411 227.445 227.443 227.396 227.309 227.195 227.075 226.973 226.910 226.896 226.929 226.991 227.054 227.080 227.035 226.891 226.639 226.285 225.859 225.405 224.975 224.621 224.385 224.288 224.332 224.495 224.737 225.006 225.251 225.427 225.507 225.483 225.365 225.183 224.975 224.785 224.650 224.599 224.646 224.790 225.019 225.309 225.634 225.967 226.282 226.564 226.800 226.987 227.128 227.230 227.301 227.352 227.395 227.437 227.486 227.543 227.608 227.674 227.734 227.777 227.794 227.778 227.728 227.647 227.547 227.441 227.348 228.249 228.128 228.034 227.979 227.966 227.989 228.030 228.068 228.085 228.066 228.011 227.929 227.839 227.766 227.729 227.736 227.782 227.841 227.872 227.827 227.662 227.344 226.868 226.253 225.548 224.825 224.161 223.632 223.293 223.170 223.253 223.498 223.837 224.186 224.468 224.621 224.611 224.437 224.130 223.744 223.348 223.009 222.786 222.715 222.809 223.062 223.445 223.922 224.452 224.998 225.529 226.024 226.472 226.867 227.206 227.493 227.728 227.917 228.064 228.177 228.265 228.338 228.405 228.471 228.536 228.596 228.641 228.662 228.647 228.592 228.500 228.380 228.249 229.122 229.013 228.923 228.865 228.845 228.857 228.889 228.925 228.949 228.955 228.944 228.930 228.931 228.965 229.044 229.161 229.291 229.388 229.394 229.247 228.894 228.310 227.500 226.510 225.420 224.332 223.355 222.587 222.093 221.896 221.971 222.248 222.625 222.989 223.235 223.284 223.096 222.681 222.086 221.395 220.705 220.113 219.700 219.519 219.591 219.908 220.433 221.119 221.910 222.754 223.609 224.439 225.224 225.947 226.598 227.170 227.659 228.064 228.386 228.632 228.816 228.951 229.055 229.142 229.221 229.294 229.356 229.399 229.412 229.388 229.325 229.232 229.122 228.870 228.868 228.875 228.894 228.923 228.955 228.978 228.984 228.971 228.947 228.931 228.953 229.042 229.223 229.502 229.863 230.256 230.610 230.834 230.838 230.545 229.916 228.956 227.722 226.317 224.876 223.544 222.450 221.685 221.285 221.221 221.411 221.728 222.027 222.173 222.062 221.642 220.920 219.957 218.858 217.754 216.774 216.030 215.601 215.522 215.789 216.363 217.184 218.180 219.282 220.429 221.573 222.680 223.724 224.688 225.559 226.323 226.972 227.503 227.915 228.219 228.430 228.568 228.655 228.713 228.756 228.792 228.825 228.852 228.870 228.878 228.876 228.870 226.187 226.330 226.487 226.642 226.776 226.872 226.917 226.906 226.849 226.771 226.715 226.735 226.889 227.223 227.760 228.489 229.354 230.263 231.093 231.710 231.990 231.847 231.246 230.218 228.857 227.308 225.739 224.318 223.178 222.396 221.979 221.861 221.922 222.009 221.965 221.662 221.022 220.033 218.750 217.282 215.772 214.373 213.222 212.422 212.028 212.047 212.444 213.156 214.106 215.214 216.413 217.650 218.886 220.094 221.252 222.340 223.334 224.212 224.951 225.534 225.954 226.217 226.341 226.355 226.294 226.195 226.089 226.003 225.952 225.946 225.986 226.068 226.187 221.082 221.316 221.563 221.798 221.995 222.132 222.193 222.171 222.079 221.950 221.842 221.830 222.003 222.443 223.210 224.325 225.755 227.412 229.152 230.801 232.175 233.109 233.490 233.278 232.511 231.304 229.825 228.269 226.819 225.615 224.728 224.153 223.810 223.568 223.270 222.771 221.965 220.809 219.327 217.610 215.790 214.025 212.461 211.219 210.372 209.945 209.916 210.233 210.826 211.621 212.556 213.583 214.667 215.781 216.899 217.994 219.029 219.962 220.749 221.354 221.755 221.950 221.959 221.820 221.586 221.311 221.049 220.843 220.718 220.687 220.746 220.884 221.082 214.367 214.560 214.761 214.955 215.127 215.261 215.344 215.364 215.321 215.235 215.151 215.146 215.319 215.784 216.648 217.986 219.823 222.111 224.729 227.489 230.162 232.505 234.306 235.415 235.771 235.412 234.466 233.127 231.614 230.135 228.847 227.830 227.078 226.510 225.991 225.368 224.506 223.319 221.787 219.958 217.942 215.883 213.935 212.231 210.867 209.890 209.298 209.052 209.090 209.348 209.768 210.307 210.937 211.641 212.399 213.188 213.968 214.693 215.309 215.765 216.028 216.088 215.959 215.682 215.316 214.924 214.567 214.289 214.116 214.053 214.089 214.202 214.367 207.670 207.714 207.761 207.819 207.893 207.982 208.076 208.158 208.211 208.230 208.237 208.289 208.480 208.931 209.779 211.144 213.105 215.670 218.766 222.234 225.841 229.318 232.392 234.831 236.482 237.290 237.309 236.681 235.609 234.317 233.007 231.822 230.828 230.011 229.286 228.530 227.611 226.424 224.915 223.092 221.025 218.826 216.634 214.581 212.775 211.284 210.134 209.309 208.768 208.457 208.321 208.317 208.410 208.580 208.805 209.064 209.330 209.566 209.737 209.809 209.760 209.590 209.315 208.970 208.601 208.254 207.966 207.760 207.640 207.592 207.596 207.628 207.670 202.215 202.097 201.970 201.868 201.822 201.852 201.954 202.112 202.295 202.473 202.638 202.811 203.055 203.475 204.203 205.376 207.110 209.469 212.444 215.940 219.780 223.725 227.506 230.862 233.581 235.531 236.674 237.066 236.842 236.181 235.275 234.287 233.329 232.446 231.616 230.768 229.807 228.637 227.195 225.459 223.464 221.285 219.031 216.823 214.769 212.953 211.422 210.186 209.223 208.488 207.927 207.485 207.114 206.778 206.452 206.117 205.763 205.383 204.974 204.541 204.094 203.651 203.236 202.876 202.593 202.400 202.298 202.270 202.289 202.320 202.330 202.297 202.215 198.360 198.164 197.949 197.762 197.651 197.647 197.760 197.976 198.264 198.588 198.916 199.242 199.592 200.031 200.657 201.590 202.944 204.809 207.227 210.171 213.545 217.190 220.899 224.449 227.629 230.272 232.275 233.608 234.311 234.482 234.248 233.744 233.083 232.339 231.543 230.682 229.712 228.578 227.231 225.646 223.834 221.840 219.740 217.628 215.600 213.737 212.097 210.703 209.550 208.601 207.803 207.094 206.413 205.714 204.963 204.149 203.277 202.369 201.458 200.585 199.793 199.120 198.597 198.240 198.049 198.006 198.078 198.217 198.371 198.490 198.537 198.493 198.360 195.633 195.454 195.264 195.113 195.044 195.087 195.255 195.538 195.911 196.340 196.792 197.246 197.705 198.202 198.793 199.559 200.587 201.957 203.726 205.908 208.474 211.344 214.394 217.477 220.431 223.109 225.392 227.204 228.515 229.344 229.742 229.785 229.550 229.108 228.508 227.773 226.906 225.892 224.713 223.358 221.831 220.157 218.384 216.575 214.801 213.130 211.612 210.277 209.128 208.140 207.267 206.450 205.631 204.758 203.797 202.737 201.593 200.401 199.215 198.095 197.103 196.288 195.684 195.301 195.126 195.124 195.244 195.426 195.610 195.746 195.800 195.759 195.633 193.604 193.533 193.472 193.455 193.509 193.652 193.889 194.214 194.608 195.052 195.526 196.019 196.533 197.086 197.710 198.448 199.347 200.452 201.794 203.385 205.213 207.242 209.412 211.644 213.852 215.948 217.854 219.505 220.860 221.899 222.623 223.049 223.206 223.126 222.840 222.375 221.750 220.976 220.063 219.021 217.861 216.604 215.277 213.915 212.557 211.241 209.999 208.851 207.803 206.846 205.954 205.094 204.227 203.316 202.338 201.282 200.158 198.994 197.833 196.726 195.726 194.879 194.216 193.751 193.474 193.358 193.363 193.439 193.539 193.622 193.664 193.655 193.604 192.255 192.293 192.372 192.505 192.699 192.955 193.265 193.617 193.998 194.399 194.815 195.254 195.730 196.268 196.893 197.629 198.495 199.497 200.630 201.876 203.207 204.590 205.988 207.368 208.700 209.962 211.135 212.206 213.163 213.992 214.683 215.221 215.595 215.796 215.819 215.667 215.349 214.881 214.283 213.579 212.793 211.946 211.059 210.146 209.220 208.294 207.374 206.469 205.583 204.719 203.875 203.047 202.226 201.401 200.562 199.700 198.815 197.914 197.011 196.131 195.300 194.548 193.899 193.368 192.961 192.670 192.478 192.363 192.300 192.267 192.250 192.244 192.255 192.232 192.335 192.487 192.685 192.925 193.198 193.492 193.796 194.101 194.405 194.717 195.050 195.430 195.881 196.427 197.083 197.848 198.710 199.640 200.597 201.541 202.430 203.238 203.948 204.565 205.104 205.591 206.053 206.509 206.969 207.428 207.866 208.254 208.560 208.753 208.815 208.739 208.532 208.215 207.813 207.356 206.865 206.357 205.838 205.304 204.747 204.159 203.536 202.877 202.192 201.495 200.802 200.129 199.486 198.877 198.299 197.741 197.192 196.642 196.085 195.523 194.963 194.421 193.914 193.458 193.068 192.750 192.506 192.333 192.225 192.175 192.178 192.232 194.079 194.161 194.275 194.418 194.581 194.755 194.931 195.102 195.263 195.418 195.574 195.745 195.951 196.211 196.539 196.944 197.423 197.958 198.525 199.089 199.615 200.073 200.444 200.722 200.916 201.049 201.150 201.251 201.377 201.544 201.754 201.993 202.240 202.465 202.640 202.745 202.768 202.709 202.581 202.402 202.191 201.966 201.737 201.508 201.273 201.022 200.744 200.431 200.080 199.697 199.293 198.885 198.491 198.123 197.791 197.495 197.228 196.978 196.733 196.480 196.210 195.922 195.621 195.317 195.022 194.751 194.514 194.321 194.177 194.082 194.037 194.037 194.079 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 197.745 dcl-7.5.2/demo/grph1/scpack/scpkt5.f0000644000175000017500000000653314760053155016731 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SCPKT5 PARAMETER( NX=37, NY=37 ) PARAMETER( XMIN= 0, XMAX=360, YMIN=-90, YMAX= 90 ) PARAMETER( VXMIN= 0.3, VXMAX=0.9, VYMIN=0.3, VYMAX=0.9 ) PARAMETER( ZMIN=-0.8, ZMAX=0.8 ) PARAMETER( VZMIN= 0.3, VZMAX=0.6 ) PARAMETER( PI=3.14159, DRAD=PI/180 ) REAL ALON(NX), ALAT(NY), P(NX,NY) REAL XP(3), YP(3), ZP(3) DO 10 I=1,NX ALON(I) = XMIN + (XMAX-XMIN)*(I-1)/(NX-1) 10 CONTINUE DO 20 J=1,NY ALAT(J) = YMIN + (YMAX-YMIN)*(J-1)/(NY-1) 20 CONTINUE DO 30 J=1,NY SLAT = SIN(ALAT(J)*DRAD) DO 30 I=1,NX P(I,J) = SQRT(1-SLAT**2)*SLAT*COS(ALON(I)*DRAD) 30 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL SGOPN( IWS ) CALL SGFRM *-- X-Y PLAIN ---- CALL SGSWND( XMIN, XMAX, YMIN, YMAX ) CALL SGSVPT( VXMIN, VXMAX, VYMIN, VYMAX ) CALL SGSTRN( 1 ) CALL SGSTRF CALL SCSPLN( 1, 2, VZMIN) CALL SCSEYE( -0.8, -0.8, 0.9 ) CALL SCSOBJ( 0.5, 0.5, 0.4 ) CALL SCSPRJ CALL UXAXDV( 'B', 10., 60. ) CALL UXAXDV( 'T', 10., 60. ) CALL UXSTTL( 'B', 'LONGITUDE', 0. ) CALL UYAXDV( 'L', 10., 30. ) CALL UYAXDV( 'R', 10., 30. ) CALL UYSTTL( 'L', 'LATITUDE', 0. ) *-- X-Z PLAIN ---- CALL SGSWND( XMIN, XMAX, ZMIN, ZMAX ) CALL SGSVPT( VXMIN, VXMAX, VZMIN, VZMAX ) CALL SGSTRN( 1 ) CALL SGSTRF CALL SCSPLN( 1, 3, VYMAX) CALL SCSPRJ CALL UZINIT CALL UXAXDV( 'T', 10., 60. ) CALL UZLSET( 'LABELXB', .FALSE. ) CALL UXAXDV( 'B', 10., 60. ) CALL UYAXDV( 'L', 0.1, 0.5 ) CALL UYAXDV( 'R', 0.1, 0.5 ) CALL UYSTTL( 'L', 'AMPLITUDE', 0. ) *-- Y-Z PLAIN ---- CALL SGSWND( YMIN, YMAX, ZMIN, ZMAX ) CALL SGSVPT( VYMIN, VYMAX, VZMIN, VZMAX ) CALL SGSTRN( 1 ) CALL SGSTRF CALL SCSPLN( 2, 3, VXMAX) CALL SCSPRJ CALL UZINIT CALL UXAXDV( 'T', 10., 30. ) CALL UXAXDV( 'B', 10., 30. ) CALL UZLSET( 'LABELYL', .FALSE. ) CALL UYAXDV( 'L', 0.1, 0.5 ) CALL UYAXDV( 'R', 0.1, 0.5 ) *---------------- 3-D ------------------ CALL SCSVPT(VXMIN, VXMAX, VYMIN, VYMAX, VZMIN, VZMAX) CALL SCSWND( XMIN, XMAX, YMIN, YMAX, ZMIN, ZMAX) CALL SCSLOG(.FALSE., .FALSE., .FALSE.) CALL SCSTRN(1) CALL SCSTRF CALL SZL3OP(1) CALL SZT3OP(2999,9999) DO 40 J=NY-1, 1, -1 DO 40 I=NX-1, 1, -1 XP(1) = ALON(I) YP(1) = ALAT(J) ZP(1) = P(I,J) XP(2) = ALON(I) YP(2) = ALAT(J+1) ZP(2) = P(I,J+1) XP(3) = ALON(I+1) YP(3) = ALAT(J+1) ZP(3) = P(I+1,J+1) CALL SZT3ZU(XP, YP, ZP) CALL SZL3ZU(3, XP, YP, ZP) XP(1) = ALON(I+1) YP(1) = ALAT(J+1) ZP(1) = P(I+1,J+1) XP(2) = ALON(I+1) YP(2) = ALAT(J) ZP(2) = P(I+1,J) XP(3) = ALON(I) YP(3) = ALAT(J) ZP(3) = P(I,J) CALL SZT3ZU(XP, YP, ZP) CALL SZL3ZU(3, XP, YP, ZP) 40 CONTINUE CALL SZL3CL CALL SZT3CL CALL SGCLS END dcl-7.5.2/demo/grph1/scpack/scpkt1.f0000644000175000017500000000231414760053155016716 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SCPKT1 WRITE(*,*) ' WORKSTATION IS (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL SGOPN(IWS) CALL SGLSET('LCLIP',.TRUE.) DT = RFPI()/10. DO 10 I=1, 21 CALL SGFRM CALL SLPWWR(1) TH = (I-1)*DT XEYE=10.0*COS(TH) YEYE=10.0*SIN(TH) ZEYE=2.0 CALL SCSOBJ(0.0,0.0,0.0) CALL SCSEYE(XEYE,YEYE,ZEYE) CALL SCSPRJ CALL CUBE 10 CONTINUE CALL SGCLS END *----------------------------------------------------------------------- SUBROUTINE CUBE PARAMETER (NMAX = 5) DIMENSION X(NMAX), Y(NMAX) DATA X / -1., 1., 1., -1., -1. / DATA Y / -1., -1., 1., 1., -1. / DO 10 I=2, NMAX I1 = I-1 I2 = I CALL SZOPL3 CALL SZMVL3(X(I1), Y(I1), 1.) CALL SZPLL3(X(I2), Y(I2), 1.) CALL SZPLL3(X(I2), Y(I2), -1.) CALL SZPLL3(X(I1), Y(I1), -1.) CALL SZCLL3 10 CONTINUE END dcl-7.5.2/demo/grph1/scpack/scpkt6.f0000644000175000017500000000332414760053155016725 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SCPKT6 PARAMETER( NX=37, NY=37 ) PARAMETER( XMIN= 0, XMAX=360, YMIN=0, YMAX= 180 ) REAL ALON(NX), ALAT(NY), P(NX,NY) REAL XP(3), YP(3), ZP(3) DO 10 I=1,NX ALON(I) = XMIN + (XMAX-XMIN)*(I-1)/(NX-1) 10 CONTINUE DO 20 J=1,NY ALAT(J) = YMIN + (YMAX-YMIN)*(J-1)/(NY-1) 20 CONTINUE DO 30 J=1,NY DO 30 I=1,NX P(I,J) = 1. 30 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL SGOPN( IWS ) CALL SGFRM CALL SGLSET('LDEG', .TRUE.) *---------------- 3-D ------------------ CALL SCSORG(1., 0., 0., 0.) CALL SCSTRN(3) CALL SCSTRF CALL SCSEYE( -5., -3., 2. ) CALL SCSOBJ( 0.0, 0.0, 0.0 ) CALL SCSPRJ CALL SCSPLI(1) CALL SCSTNP(2999,4999) DO 40 J=NY-1, 1, -1 DO 40 I=NX-1, 1, -1 XP(1) = ALON(I) YP(1) = ALAT(J) ZP(1) = P(I,J) XP(2) = ALON(I) YP(2) = ALAT(J+1) ZP(2) = P(I,J+1) XP(3) = ALON(I+1) YP(3) = ALAT(J+1) ZP(3) = P(I+1,J+1) CALL SCTNU(ZP, YP, XP) CALL SCPLU(3, ZP, YP, XP) XP(1) = ALON(I+1) YP(1) = ALAT(J+1) ZP(1) = P(I+1,J+1) XP(2) = ALON(I+1) YP(2) = ALAT(J) ZP(2) = P(I+1,J) XP(3) = ALON(I) YP(3) = ALAT(J) ZP(3) = P(I,J) CALL SCTNU(ZP, YP, XP) CALL SCPLU(3, ZP, YP, XP) 40 CONTINUE CALL SGCLS END dcl-7.5.2/demo/grph1/scpack/t810630.dat0000644000175000017500000005262014760053155016766 0ustar uwabamiuwabami 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.729 191.441 191.481 191.512 191.530 191.533 191.526 191.516 191.512 191.518 191.538 191.572 191.616 191.664 191.708 191.742 191.765 191.775 191.777 191.778 191.783 191.799 191.830 191.876 191.934 191.999 192.064 192.120 192.163 192.189 192.196 192.185 192.161 192.127 192.089 192.051 192.015 191.986 191.963 191.950 191.944 191.945 191.951 191.958 191.961 191.955 191.933 191.893 191.831 191.749 191.654 191.555 191.464 191.392 191.351 191.347 191.382 191.450 191.540 191.636 191.722 191.783 191.809 191.795 191.745 191.668 191.578 191.490 191.418 191.373 191.357 191.368 191.399 191.441 191.134 191.114 191.097 191.086 191.081 191.086 191.104 191.134 191.177 191.230 191.287 191.341 191.388 191.422 191.442 191.450 191.451 191.454 191.466 191.498 191.554 191.638 191.748 191.880 192.022 192.165 192.295 192.402 192.477 192.516 192.518 192.488 192.432 192.362 192.289 192.224 192.178 192.158 192.167 192.204 192.263 192.335 192.407 192.465 192.496 192.490 192.439 192.344 192.209 192.045 191.868 191.694 191.541 191.422 191.346 191.316 191.328 191.372 191.435 191.501 191.558 191.594 191.604 191.586 191.544 191.486 191.419 191.351 191.289 191.236 191.193 191.160 191.134 190.904 190.766 190.670 190.622 190.621 190.654 190.707 190.764 190.810 190.839 190.849 190.845 190.835 190.826 190.828 190.843 190.874 190.919 190.978 191.050 191.137 191.246 191.381 191.548 191.746 191.970 192.208 192.441 192.648 192.807 192.904 192.933 192.900 192.822 192.724 192.637 192.587 192.595 192.668 192.802 192.979 193.172 193.351 193.486 193.557 193.553 193.474 193.328 193.133 192.906 192.663 192.418 192.177 191.946 191.726 191.519 191.330 191.169 191.046 190.970 190.950 190.986 191.071 191.188 191.316 191.429 191.504 191.524 191.481 191.380 191.235 191.068 190.904 191.016 190.798 190.667 190.628 190.668 190.756 190.854 190.924 190.943 190.900 190.806 190.681 190.554 190.453 190.397 190.395 190.444 190.532 190.644 190.768 190.900 191.045 191.217 191.430 191.697 192.020 192.388 192.777 193.153 193.479 193.726 193.875 193.927 193.901 193.834 193.768 193.743 193.790 193.919 194.121 194.369 194.623 194.840 194.982 195.027 194.967 194.811 194.579 194.295 193.982 193.655 193.316 192.964 192.592 192.196 191.784 191.374 190.996 190.689 190.488 190.422 190.498 190.703 190.999 191.332 191.643 191.876 191.988 191.965 191.816 191.574 191.290 191.016 192.159 191.988 191.937 191.998 192.136 192.294 192.413 192.442 192.353 192.147 191.852 191.515 191.191 190.930 190.766 190.711 190.757 190.879 191.049 191.240 191.439 191.648 191.882 192.163 192.513 192.941 193.438 193.978 194.522 195.023 195.440 195.745 195.935 196.025 196.053 196.063 196.095 196.180 196.325 196.515 196.716 196.883 196.974 196.956 196.815 196.557 196.205 195.795 195.358 194.920 194.491 194.068 193.636 193.181 192.694 192.186 191.685 191.235 190.890 190.699 190.698 190.890 191.250 191.721 192.227 192.683 193.017 193.183 193.169 192.999 192.726 192.423 192.159 195.118 195.134 195.267 195.484 195.723 195.910 195.975 195.866 195.567 195.098 194.511 193.881 193.288 192.804 192.474 192.319 192.326 192.464 192.693 192.973 193.280 193.606 193.961 194.363 194.834 195.385 196.011 196.686 197.370 198.016 198.578 199.022 199.335 199.525 199.620 199.655 199.667 199.683 199.709 199.735 199.735 199.673 199.518 199.246 198.856 198.361 197.793 197.189 196.586 196.012 195.478 194.985 194.522 194.077 193.647 193.241 192.884 192.616 192.477 192.504 192.713 193.092 193.602 194.178 194.744 195.222 195.555 195.715 195.710 195.580 195.391 195.217 195.118 200.351 200.561 200.852 201.163 201.415 201.525 201.424 201.071 200.469 199.660 198.722 197.754 196.856 196.116 195.591 195.305 195.248 195.383 195.660 196.032 196.461 196.928 197.433 197.987 198.606 199.299 200.060 200.862 201.665 202.418 203.068 203.574 203.914 204.086 204.111 204.021 203.857 203.653 203.432 203.198 202.943 202.645 202.282 201.836 201.300 200.684 200.010 199.310 198.619 197.969 197.386 196.882 196.466 196.140 195.907 195.774 195.754 195.861 196.106 196.492 197.003 197.609 198.261 198.898 199.460 199.898 200.185 200.322 200.339 200.290 200.239 200.246 200.351 207.449 207.758 208.085 208.359 208.498 208.423 208.076 207.432 206.507 205.359 204.080 202.782 201.579 200.569 199.823 199.372 199.214 199.314 199.620 200.075 200.629 201.249 201.918 202.635 203.406 204.233 205.107 206.002 206.874 207.669 208.327 208.798 209.050 209.072 208.883 208.523 208.045 207.508 206.962 206.442 205.965 205.525 205.104 204.676 204.217 203.711 203.156 202.565 201.965 201.390 200.879 200.470 200.191 200.064 200.101 200.304 200.667 201.173 201.801 202.517 203.284 204.056 204.788 205.436 205.968 206.365 206.629 206.785 206.872 206.940 207.038 207.204 207.449 215.077 215.338 215.564 215.684 215.625 215.319 214.720 213.816 212.632 211.231 209.708 208.179 206.759 205.551 204.634 204.047 203.795 203.851 204.166 204.680 205.338 206.094 206.917 207.789 208.703 209.647 210.604 211.539 212.406 213.145 213.695 214.004 214.037 213.792 213.292 212.592 211.768 210.904 210.079 209.355 208.770 208.331 208.021 207.801 207.624 207.447 207.236 206.978 206.681 206.370 206.087 205.877 205.786 205.848 206.087 206.508 207.098 207.832 208.671 209.567 210.471 211.335 212.115 212.781 213.315 213.714 213.996 214.188 214.331 214.465 214.625 214.829 215.077 221.761 221.902 221.966 221.897 221.637 221.138 220.372 219.335 218.055 216.593 215.033 213.474 212.020 210.766 209.785 209.123 208.795 208.787 209.065 209.579 210.275 211.101 212.016 212.985 213.977 214.966 215.918 216.795 217.549 218.128 218.480 218.566 218.364 217.881 217.150 216.236 215.222 214.201 213.266 212.492 211.927 211.589 211.463 211.508 211.666 211.871 212.067 212.212 212.289 212.304 212.285 212.275 212.323 212.475 212.767 213.217 213.823 214.565 215.407 216.302 217.200 218.052 218.818 219.471 219.998 220.402 220.702 220.923 221.098 221.255 221.417 221.589 221.761 226.344 226.399 226.372 226.216 225.887 225.350 224.586 223.597 222.411 221.077 219.665 218.258 216.941 215.793 214.880 214.247 213.917 213.886 214.133 214.618 215.294 216.108 217.008 217.948 218.883 219.774 220.586 221.282 221.828 222.189 222.337 222.252 221.929 221.379 220.634 219.748 218.789 217.837 216.970 216.261 215.761 215.498 215.473 215.659 216.007 216.455 216.936 217.392 217.780 218.078 218.288 218.435 218.556 218.698 218.908 219.220 219.654 220.213 220.877 221.614 222.379 223.126 223.813 224.407 224.892 225.266 225.540 225.739 225.888 226.014 226.132 226.246 226.344 228.640 228.687 228.678 228.573 228.333 227.930 227.347 226.586 225.668 224.630 223.525 222.412 221.358 220.425 219.669 219.132 218.841 218.806 219.015 219.442 220.047 220.776 221.574 222.386 223.159 223.851 224.430 224.874 225.170 225.314 225.306 225.151 224.856 224.433 223.898 223.276 222.600 221.909 221.254 220.685 220.250 219.987 219.919 220.048 220.353 220.795 221.318 221.861 222.366 222.790 223.107 223.317 223.442 223.522 223.605 223.740 223.966 224.303 224.751 225.287 225.874 226.465 227.014 227.483 227.850 228.109 228.273 228.367 228.419 228.460 228.509 228.572 228.640 229.530 229.598 229.639 229.620 229.513 229.296 228.955 228.490 227.913 227.244 226.514 225.763 225.033 224.369 223.815 223.409 223.181 223.146 223.304 223.638 224.113 224.683 225.293 225.890 226.424 226.860 227.179 227.378 227.468 227.468 227.401 227.286 227.133 226.944 226.715 226.438 226.109 225.733 225.325 224.917 224.546 224.257 224.088 224.063 224.189 224.451 224.811 225.222 225.630 225.984 226.252 226.422 226.504 226.528 226.536 226.575 226.681 226.880 227.172 227.541 227.954 228.370 228.746 229.051 229.266 229.390 229.439 229.439 229.418 229.406 229.419 229.463 229.530 229.895 229.967 230.038 230.083 230.081 230.012 229.861 229.623 229.302 228.909 228.465 227.996 227.533 227.111 226.761 226.512 226.382 226.382 226.508 226.744 227.061 227.425 227.796 228.139 228.427 228.641 228.780 228.851 228.873 228.867 228.854 228.845 228.844 228.845 228.831 228.784 228.685 228.526 228.309 228.047 227.766 227.501 227.284 227.144 227.096 227.142 227.268 227.449 227.651 227.845 228.004 228.117 228.185 228.220 228.247 228.291 228.374 228.509 228.699 228.931 229.185 229.434 229.652 229.819 229.923 229.964 229.955 229.914 229.864 229.827 229.816 229.840 229.895 230.167 230.168 230.183 230.204 230.219 230.211 230.166 230.072 229.921 229.714 229.463 229.185 228.904 228.648 228.441 228.304 228.248 228.274 228.371 228.520 228.699 228.883 229.050 229.187 229.288 229.356 229.400 229.435 229.473 229.525 229.596 229.681 229.771 229.851 229.907 229.924 229.894 229.814 229.690 229.533 229.358 229.185 229.027 228.899 228.806 228.751 228.731 228.739 228.768 228.810 228.861 228.918 228.980 229.049 229.130 229.224 229.332 229.456 229.590 229.732 229.873 230.007 230.125 230.221 230.289 230.329 230.340 230.326 230.295 230.254 230.214 230.183 230.167 230.496 230.406 230.324 230.256 230.203 230.159 230.114 230.055 229.972 229.860 229.720 229.561 229.398 229.247 229.126 229.045 229.009 229.015 229.055 229.115 229.181 229.243 229.294 229.337 229.376 229.421 229.480 229.561 229.662 229.777 229.896 230.004 230.086 230.132 230.136 230.100 230.032 229.943 229.847 229.756 229.678 229.615 229.564 229.522 229.483 229.442 229.399 229.358 229.327 229.312 229.323 229.363 229.432 229.525 229.633 229.744 229.850 229.942 230.020 230.085 230.145 230.206 230.276 230.357 230.446 230.536 230.616 230.675 230.704 230.696 230.653 230.583 230.496 230.589 230.489 230.374 230.252 230.129 230.009 229.894 229.786 229.684 229.589 229.501 229.421 229.349 229.288 229.237 229.198 229.171 229.155 229.150 229.156 229.173 229.202 229.244 229.300 229.370 229.452 229.543 229.638 229.728 229.808 229.869 229.907 229.918 229.903 229.866 229.811 229.748 229.683 229.624 229.576 229.541 229.520 229.514 229.519 229.534 229.557 229.588 229.626 229.670 229.719 229.771 229.823 229.872 229.914 229.947 229.969 229.982 229.990 229.999 230.016 230.047 230.097 230.168 230.258 230.361 230.467 230.567 230.650 230.705 230.727 230.714 230.666 230.589 230.484 230.413 230.312 230.186 230.043 229.895 229.756 229.635 229.541 229.474 229.433 229.408 229.390 229.368 229.335 229.292 229.241 229.192 229.158 229.151 229.179 229.247 229.349 229.474 229.607 229.730 229.828 229.889 229.911 229.898 229.858 229.805 229.751 229.708 229.678 229.662 229.655 229.648 229.636 229.614 229.583 229.549 229.524 229.517 229.540 229.598 229.689 229.806 229.933 230.055 230.154 230.217 230.237 230.214 230.157 230.078 229.994 229.920 229.870 229.852 229.866 229.911 229.979 230.063 230.154 230.245 230.330 230.405 230.466 230.508 230.528 230.521 230.484 230.293 230.292 230.260 230.194 230.097 229.980 229.859 229.749 229.665 229.612 229.586 229.580 229.578 229.566 229.535 229.484 229.421 229.363 229.331 229.343 229.412 229.537 229.707 229.897 230.079 230.222 230.304 230.315 230.258 230.153 230.026 229.909 229.828 229.798 229.821 229.883 229.963 230.033 230.070 230.059 230.000 229.909 229.809 229.731 229.700 229.735 229.836 229.992 230.176 230.356 230.498 230.578 230.583 230.515 230.392 230.240 230.089 229.965 229.886 229.858 229.875 229.925 229.990 230.053 230.104 230.138 230.159 230.173 230.189 230.212 230.242 230.272 230.293 230.490 230.481 230.445 230.381 230.298 230.207 230.121 230.053 230.009 229.989 229.984 229.984 229.974 229.945 229.892 229.822 229.749 229.692 229.673 229.707 229.802 229.952 230.139 230.336 230.513 230.641 230.701 230.690 230.615 230.501 230.375 230.268 230.204 230.194 230.237 230.315 230.405 230.480 230.517 230.503 230.440 230.342 230.234 230.142 230.094 230.103 230.174 230.296 230.446 230.596 230.720 230.796 230.812 230.770 230.683 230.570 230.454 230.352 230.280 230.241 230.232 230.244 230.267 230.291 230.311 230.327 230.341 230.358 230.382 230.413 230.446 230.475 230.490 230.907 230.839 230.759 230.678 230.606 230.552 230.519 230.505 230.501 230.497 230.480 230.442 230.378 230.291 230.191 230.091 230.010 229.964 229.965 230.018 230.117 230.252 230.404 230.553 230.679 230.768 230.814 230.818 230.787 230.736 230.679 230.629 230.596 230.584 230.591 230.611 230.635 230.654 230.662 230.656 230.638 230.613 230.588 230.571 230.567 230.581 230.613 230.661 230.719 230.783 230.845 230.901 230.947 230.980 230.998 231.002 230.991 230.967 230.933 230.894 230.853 230.817 230.792 230.781 230.789 230.814 230.853 230.897 230.938 230.966 230.973 230.953 230.907 231.505 231.359 231.204 231.065 230.961 230.899 230.877 230.880 230.890 230.886 230.853 230.784 230.683 230.561 230.436 230.328 230.251 230.214 230.217 230.253 230.310 230.375 230.437 230.492 230.541 230.586 230.636 230.694 230.762 230.836 230.904 230.954 230.976 230.961 230.911 230.832 230.742 230.658 230.599 230.579 230.601 230.660 230.744 230.833 230.908 230.956 230.971 230.958 230.932 230.911 230.913 230.954 231.036 231.152 231.286 231.413 231.512 231.563 231.559 231.506 231.419 231.325 231.248 231.211 231.226 231.292 231.395 231.511 231.612 231.672 231.675 231.617 231.505 231.902 231.745 231.575 231.420 231.303 231.234 231.210 231.215 231.230 231.231 231.202 231.135 231.034 230.910 230.781 230.666 230.576 230.517 230.488 230.479 230.478 230.475 230.466 230.454 230.447 230.458 230.500 230.578 230.689 230.822 230.956 231.068 231.135 231.145 231.094 230.995 230.870 230.748 230.657 230.618 230.641 230.718 230.834 230.961 231.072 231.146 231.174 231.159 231.118 231.077 231.062 231.092 231.176 231.308 231.468 231.628 231.758 231.835 231.845 231.794 231.700 231.592 231.502 231.458 231.476 231.556 231.683 231.829 231.961 232.048 232.068 232.017 231.902 232.077 231.979 231.870 231.768 231.688 231.635 231.608 231.598 231.591 231.576 231.543 231.490 231.420 231.339 231.257 231.182 231.116 231.057 231.002 230.942 230.872 230.791 230.704 230.622 230.560 230.533 230.552 230.623 230.738 230.883 231.036 231.172 231.270 231.317 231.309 231.255 231.174 231.089 231.021 230.989 230.998 231.044 231.115 231.193 231.259 231.299 231.311 231.300 231.281 231.271 231.291 231.350 231.451 231.584 231.732 231.869 231.973 232.026 232.022 231.967 231.879 231.782 231.703 231.663 231.674 231.735 231.835 231.951 232.058 232.135 232.165 232.143 232.077 232.250 232.200 232.143 232.088 232.045 232.016 232.002 231.997 231.997 231.996 231.989 231.974 231.952 231.923 231.888 231.846 231.798 231.738 231.665 231.577 231.473 231.360 231.244 231.138 231.054 231.006 231.000 231.040 231.122 231.235 231.366 231.498 231.616 231.707 231.766 231.793 231.791 231.769 231.737 231.701 231.668 231.641 231.619 231.602 231.590 231.583 231.586 231.603 231.642 231.705 231.794 231.905 232.029 232.151 232.257 232.332 232.366 232.356 232.305 232.224 232.132 232.045 231.980 231.950 231.958 232.001 232.068 232.144 232.215 232.266 232.290 232.283 232.250 232.564 232.541 232.526 232.519 232.517 232.515 232.509 232.496 232.477 232.458 232.445 232.444 232.459 232.490 232.530 232.569 232.594 232.590 232.549 232.466 232.346 232.200 232.044 231.899 231.783 231.709 231.685 231.711 231.777 231.872 231.982 232.094 232.197 232.287 232.361 232.422 232.471 232.508 232.533 232.542 232.531 232.498 232.445 232.377 232.305 232.245 232.212 232.220 232.278 232.386 232.536 232.709 232.884 233.036 233.145 233.198 233.190 233.129 233.028 232.909 232.791 232.693 232.626 232.593 232.589 232.605 232.628 232.646 232.653 232.644 232.622 232.594 232.564 233.113 233.041 232.992 232.968 232.963 232.969 232.976 232.977 232.971 232.961 232.959 232.974 233.016 233.087 233.181 233.285 233.379 233.442 233.457 233.413 233.312 233.168 233.003 232.844 232.718 232.642 232.628 232.671 232.757 232.867 232.978 233.072 233.138 233.175 233.190 233.195 233.204 233.226 233.265 233.315 233.367 233.406 233.422 233.410 233.374 233.328 233.290 233.284 233.328 233.430 233.589 233.787 233.999 234.192 234.337 234.410 234.401 234.315 234.170 233.992 233.812 233.655 233.540 233.473 233.447 233.447 233.455 233.451 233.424 233.369 233.291 233.201 233.113 233.698 233.566 233.471 233.418 233.403 233.414 233.435 233.454 233.465 233.471 233.481 233.512 233.577 233.683 233.829 234.000 234.173 234.321 234.418 234.447 234.406 234.304 234.167 234.026 233.913 233.852 233.855 233.916 234.019 234.135 234.237 234.301 234.316 234.286 234.227 234.164 234.124 234.127 234.183 234.286 234.417 234.552 234.664 234.731 234.748 234.721 234.672 234.631 234.627 234.683 234.807 234.990 235.205 235.418 235.587 235.681 235.679 235.581 235.402 235.174 234.933 234.714 234.544 234.431 234.373 234.350 234.337 234.310 234.248 234.146 234.009 233.853 233.698 234.307 234.149 234.023 233.940 233.902 233.901 233.927 233.971 234.023 234.084 234.158 234.253 234.380 234.542 234.737 234.954 235.172 235.367 235.517 235.606 235.628 235.591 235.516 235.429 235.359 235.326 235.342 235.405 235.498 235.597 235.675 235.711 235.696 235.633 235.540 235.446 235.380 235.368 235.423 235.544 235.712 235.901 236.077 236.211 236.285 236.296 236.256 236.192 236.133 236.109 236.138 236.222 236.350 236.495 236.622 236.700 236.703 236.620 236.458 236.236 235.985 235.737 235.518 235.346 235.223 235.139 235.074 235.008 234.920 234.801 234.652 234.481 234.307 235.008 234.914 234.837 234.780 234.750 234.746 234.771 234.823 234.903 235.011 235.148 235.315 235.509 235.726 235.957 236.190 236.409 236.602 236.755 236.861 236.921 236.941 236.934 236.915 236.899 236.897 236.915 236.950 236.994 237.036 237.063 237.067 237.047 237.007 236.962 236.926 236.919 236.952 237.031 237.152 237.301 237.458 237.600 237.707 237.765 237.771 237.729 237.657 237.574 237.500 237.452 237.438 237.454 237.490 237.527 237.544 237.521 237.447 237.317 237.137 236.918 236.680 236.440 236.213 236.011 235.836 235.687 235.559 235.442 235.331 235.221 235.112 235.008 235.943 235.917 235.897 235.884 235.878 235.884 235.911 235.967 236.057 236.186 236.353 236.555 236.781 237.021 237.260 237.486 237.687 237.857 237.991 238.090 238.158 238.202 238.229 238.245 238.256 238.264 238.271 238.277 238.280 238.281 238.280 238.281 238.286 238.302 238.332 238.381 238.451 238.539 238.642 238.752 238.860 238.955 239.029 239.073 239.084 239.060 239.005 238.926 238.831 238.729 238.631 238.543 238.468 238.407 238.357 238.310 238.256 238.188 238.095 237.972 237.816 237.630 237.418 237.192 236.962 236.740 236.538 236.363 236.221 236.113 236.034 235.979 235.943 237.246 237.250 237.249 237.240 237.226 237.217 237.224 237.260 237.335 237.451 237.608 237.796 238.003 238.214 238.415 238.595 238.746 238.868 238.960 239.029 239.078 239.113 239.136 239.148 239.152 239.148 239.138 239.127 239.120 239.124 239.144 239.186 239.250 239.333 239.431 239.535 239.637 239.729 239.808 239.871 239.920 239.955 239.982 239.999 240.008 240.004 239.983 239.939 239.870 239.775 239.658 239.528 239.395 239.271 239.165 239.081 239.018 238.969 238.921 238.861 238.775 238.654 238.495 238.305 238.095 237.882 237.683 237.516 237.389 237.305 237.260 237.245 237.246 238.571 238.546 238.520 238.496 238.478 238.470 238.479 238.510 238.566 238.646 238.747 238.861 238.983 239.104 239.218 239.320 239.408 239.481 239.538 239.581 239.609 239.625 239.628 239.622 239.607 239.590 239.575 239.568 239.577 239.605 239.654 239.724 239.810 239.907 240.006 240.100 240.184 240.255 240.312 240.358 240.396 240.431 240.465 240.496 240.523 240.541 240.542 240.523 240.479 240.412 240.326 240.228 240.128 240.034 239.954 239.891 239.842 239.804 239.767 239.721 239.659 239.576 239.470 239.346 239.211 239.076 238.949 238.840 238.751 238.684 238.635 238.600 238.571 239.672 239.618 239.565 239.518 239.481 239.459 239.455 239.467 239.495 239.534 239.581 239.630 239.680 239.727 239.772 239.814 239.852 239.885 239.911 239.928 239.932 239.923 239.902 239.871 239.836 239.806 239.787 239.788 239.812 239.862 239.933 240.019 240.110 240.199 240.275 240.336 240.379 240.407 240.427 240.446 240.470 240.503 240.545 240.594 240.644 240.686 240.713 240.721 240.706 240.672 240.623 240.567 240.512 240.465 240.428 240.402 240.385 240.370 240.352 240.325 240.287 240.237 240.178 240.114 240.049 239.989 239.936 239.889 239.848 239.808 239.767 239.722 239.672 240.219 240.175 240.136 240.103 240.078 240.062 240.052 240.045 240.041 240.038 240.037 240.038 240.046 240.060 240.082 240.110 240.141 240.167 240.184 240.187 240.172 240.142 240.100 240.055 240.015 239.991 239.988 240.009 240.053 240.114 240.183 240.248 240.302 240.339 240.356 240.357 240.348 240.339 240.337 240.350 240.379 240.424 240.480 240.538 240.590 240.629 240.650 240.654 240.642 240.620 240.594 240.570 240.552 240.542 240.537 240.535 240.532 240.525 240.511 240.491 240.466 240.440 240.417 240.399 240.387 240.380 240.375 240.367 240.354 240.332 240.301 240.262 240.219 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 240.352 dcl-7.5.2/demo/grph1/sgpack/0000755000175000017500000000000014760053155015346 5ustar uwabamiuwabamidcl-7.5.2/demo/grph1/sgpack/sgpk01.f0000644000175000017500000000210714760053155016622 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SGPK01 WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN ! <-- 使用可能なデバイス名一覧を出力 READ(*,*) IWS CALL SGOPN(IWS) ! <-- デバイスをオープンする. CALL SGFRM ! <-- ページを用意する. X1 = 0.1 X2 = 0.9 CALL SGLNV(X1, 0.9, X2, 0.9) ! <-- デフォルトのLINE INDEXで直線描画 CALL SGSLNI(2) ! <-- LINE INDEX を2に設定 CALL SGLNV(X1, 0.8, X2, 0.8) CALL SGSLNI(3) CALL SGLNV(X1, 0.7, X2, 0.7) CALL SGSLNI(4) CALL SGLNV(X1, 0.6, X2, 0.6) CALL SGLNZV(X1, 0.4, X2, 0.4, 1 ) ! <-- LINE INDEX を指定して描画 CALL SGLNZV(X1, 0.3, X2, 0.3, 2 ) CALL SGLNZV(X1, 0.2, X2, 0.2, 3 ) CALL SGLNZV(X1, 0.1, X2, 0.1, 4 ) CALL SGCLS END dcl-7.5.2/demo/grph1/sgpack/sgpk09.f0000644000175000017500000000254114760053155016634 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SGPK09 PARAMETER ( KMAX=4, NN=73 ) PARAMETER ( DD=2.0, PI=3.141592 ) REAL XORG(KMAX), YORG(KMAX), UX(NN), UY(NN) DATA XORG / 2.5, 7.5, 2.5, 7.5 / DATA YORG / 7.5, 7.5, 2.5, 2.5 / WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL SGOPN( IWS ) CALL SGFRM CALL SGSWND( 0.0, 10.0, 0.0, 10.0 ) CALL SGSVPT( 0.0, 1.0, 0.0, 1.0 ) CALL SGSTRN( 1 ) CALL SGSTRF CALL SGSTXS( 0.03 ) CALL SGSTXI( 3 ) CALL SGSTXC( 0 ) CALL SGSPLC( 'K=1' ) DO 20 K = 1, KMAX CALL SGSLNI( 1 ) CALL SGLNU( XORG(K)-DD, YORG(K), XORG(K)+DD, YORG(K) ) CALL SGLNU( XORG(K), YORG(K)-DD, XORG(K), YORG(K)+DD ) DO 10 I = 1, NN TH = 2*PI*(I-1)/(NN-1) UX(I) = XORG(K) + DD*COS(TH+(K-1)*PI/7) UY(I) = YORG(K) + DD*SIN(K*TH) 10 CONTINUE CALL SGSPLI( 2 ) CALL SGSPLT( K ) CALL SGLSET( 'LCHAR', .TRUE. ) CALL SGPLU( NN, UX, UY ) CALL SGLSET( 'LCHAR', .FALSE. ) CALL SGNPLC 20 CONTINUE CALL SGCLS END dcl-7.5.2/demo/grph1/sgpack/sgltyp.f0000644000175000017500000000206214760053155017037 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SGLTYP PARAMETER (N=2) REAL X(N),Y(N) CHARACTER CPAT*16,CTTL*16 WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL SGOPN(IWS) CALL SGFRM CALL SGTXZV(0.5,0.9,'LINE TYPE',0.04,0,0,3) X(1)=0.4 X(2)=0.8 DO 10 I=1,5 IF (1.LE.I .AND. I.LE.4) THEN ITYPE=I ELSE CPAT='0011111111001001' CALL BITPCI(CPAT,ITYPE) CALL SGSPLT(ITYPE) END IF CTTL='ITYPE = #####' WRITE(CTTL(9:13),'(I5)') ITYPE Y(1)=0.7-(I-1)*0.12 Y(2)=Y(1) CALL SGTXZV(0.1,Y(1),CTTL,0.02,0,-1,3) IF (I.EQ.5) THEN CALL SGTXZV(0.1,Y(1)-0.05,'('//CPAT//')',0.015,0,-1,3) END IF CALL SGPLZV(N,X,Y,ITYPE,3) 10 CONTINUE CALL SGCLS END dcl-7.5.2/demo/grph1/sgpack/sgpk06.f0000644000175000017500000000503214760053155016627 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SGPK06 PARAMETER(N=37) DIMENSION X(N), Y(N) DT = 2.* 3.14159 / (N-1) R = 0.2 DO 10 I=1, N X(I) = R*SIN(DT*(I-1)) + 0.5 Y(I) = R*COS(DT*(I-1)) + 0.5 10 CONTINUE XC = 0.5 YC = 0.5 WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL SGOPN(IWS) *----------------------------- page 1 --------------------------------- CALL SGFRM CALL SGSTXI(3) CALL SGSPLI(2) * XMIN, XMAX, YMIN, YMAX CALL SGSWND( 0., 1., 0., 1.) CALL SGSVPT( 0., 1., 0., 1.) CALL SGSTRN( 1) CALL SGSTRF CALL SLPVPR(1) CALL SGPLU(N, X, Y) ! <-- 円描画 CALL SGTXU(XC, YC, 'SGTXU') ! <-- テキスト *----------------------------- page 2 --------------------------------- CALL SGFRM * XMIN, XMAX, YMIN, YMAX CALL SGSWND( 0.0, 1.0, 0.0, 1.0) ! <-- 1x1 CALL SGSVPT( 0.1, 0.4, 0.6, 0.9) ! <-- 小さな view port CALL SGSTRN( 1) CALL SGSTRF CALL SLPVPR(1) CALL SGPLU(N, X, Y) ! <-- 円描画 CALL SGTXU(XC, YC, 'SGTXU') ! <-- テキスト * XMIN, XMAX, YMIN, YMAX CALL SGSWND( 0.0, 1.0, 0.3, 0.7) ! <-- ゆがんだ window CALL SGSVPT( 0.6, 0.9, 0.6, 0.9) CALL SGSTRN( 1) CALL SGSTRF CALL SLPVPR(1) CALL SGPLU(N, X, Y) ! <-- 円描画 CALL SGTXU(XC, YC, 'SGTXU') ! <-- テキスト * XMIN, XMAX, YMIN, YMAX CALL SGSWND( 0.0, 1.0, -0.5, 0.5) ! <-- はみ出し window CALL SGSVPT( 0.1, 0.4, 0.1, 0.4) CALL SGSTRN( 1) CALL SGSTRF CALL SLPVPR(1) CALL SGPLU(N, X, Y) ! <-- 円描画 CALL SGTXU(XC, YC, 'SGTXU') ! <-- テキスト CALL SGLSET('LCLIP', .TRUE.) ! <-- クリッピング * XMIN, XMAX, YMIN, YMAX CALL SGSWND( 0.0, 1.0, -0.5, 0.5) CALL SGSVPT( 0.6, 0.9, 0.1, 0.4) CALL SGSTRN( 1) CALL SGSTRF CALL SLPVPR(1) CALL SGPLU(N, X, Y) ! <-- 円描画 CALL SGTXU(XC, YC, 'SGTXU') ! <-- テキスト CALL SGCLS END dcl-7.5.2/demo/grph1/sgpack/Makefile0000644000175000017500000000223614760053155017011 0ustar uwabamiuwabami# # Makefile for sgpack (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = sgpack LIBSRCS = sgfont.f sgfonz.f sgksx1.f sgksx2.f \ sgksx3.f sglidx.f sgltyp.f sgpk01.f \ sgpk02.f sgpk03.f sgpk04.f sgpk05.f \ sgpk06.f sgpk07.f sgpk08.f sgpk09.f \ sgpk10.f sgtclr.f sgtcls.f sgtone.f \ sgtonz.f LIBDEMO = sgfont sgfonz sgksx1 sgksx2 \ sgksx3 sglidx sgltyp sgpk01 \ sgpk02 sgpk03 sgpk04 sgpk05 \ sgpk06 sgpk07 sgpk08 sgpk09 \ sgpk10 sgtclr sgtcls sgtone \ sgtonz LIBEXEC = sgfont$(EXT) sgfonz$(EXT) sgksx1$(EXT) sgksx2$(EXT) \ sgksx3$(EXT) sglidx$(EXT) sgltyp$(EXT) sgpk01$(EXT) \ sgpk02$(EXT) sgpk03$(EXT) sgpk04$(EXT) sgpk05$(EXT) \ sgpk06$(EXT) sgpk07$(EXT) sgpk08$(EXT) sgpk09$(EXT) \ sgpk10$(EXT) sgtclr$(EXT) sgtcls$(EXT) sgtone$(EXT) \ sgtonz$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ *.ps core *.trace *.eps *.svg *.pdf a.out dcl-7.5.2/demo/grph1/sgpack/sglidx.f0000644000175000017500000000157114760053155017013 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SGLIDX PARAMETER (DX=0.01,DD=0.08) CHARACTER CHR*2 WRITE(*,*) ' WORKSTATION ID (I) ? ; ' CALL SGPWSN READ(*,*) IW CALL SGOPN(IW) CALL SLMGN(0.05,0.05,0.00,0.10) CALL SLSTTL('DEMONSTRATION FOR LINE INDEX','T',0.0,0.0,0.018,1) CALL SGFRM DO 20 J=0,9 DO 10 I=0,9 IDX=J*10+I IF (IDX.EQ.0) GO TO 10 X1=I*0.1+DX X2=X1+DD Y1=1.0-J*0.1-DX Y2=Y1-DD WRITE(CHR,'(I2)') IDX CALL SGLNZV(X1,Y1,X2,Y2,IDX) CALL SGTXZV(X1+DX*2,Y2+DX*2,CHR,0.015,0,1,1) 10 CONTINUE 20 CONTINUE CALL SGCLS END dcl-7.5.2/demo/grph1/sgpack/sgksx1.f0000644000175000017500000000217214760053155016737 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SGKSX1 WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL SGOPN( IWS ) * / FIRST PAGE / CALL SGFRM CALL SGQWND( UX1, UX2, UY1, UY2 ) UXC=(UX1+UX2)/2 UYC=(UY1+UY2)/2 CALL SGLNZU( UX1, UY1, UX2, UY1, 1 ) CALL SGLNZU( UX2, UY1, UX2, UY2, 1 ) CALL SGLNZU( UX2, UY2, UX1, UY2, 1 ) CALL SGLNZU( UX1, UY2, UX1, UY1, 1 ) CALL SGTXZU( UXC, UYC, 'SGKS TEST : PAGE 1', 0.03, 0, 0, 3 ) * / SECOND PAGE / CALL SGLSET( 'LFULL', .TRUE. ) CALL SGFRM CALL SGQWND( UX1, UX2, UY1, UY2 ) UXC=(UX1+UX2)/2 UYC=(UY1+UY2)/2 CALL SGLNZU( UX1, UY1, UX2, UY1, 1 ) CALL SGLNZU( UX2, UY1, UX2, UY2, 1 ) CALL SGLNZU( UX2, UY2, UX1, UY2, 1 ) CALL SGLNZU( UX1, UY2, UX1, UY1, 1 ) CALL SGTXZV( UXC, UYC, 'SGKS TEST : PAGE 2', 0.03, 0, 0, 3 ) CALL SGCLS END dcl-7.5.2/demo/grph1/sgpack/sgpk05.f0000644000175000017500000000360214760053155016627 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SGPK05 PARAMETER (N=9) DIMENSION Y(N) WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL SGOPN(IWS) CALL SGFRM X1 = 0.1 X2 = 0.9 XC = 0.5 CALL SGSLNI(1) DO 10 I=1, N Y(I) = 0.1 * (10-I) CALL SGLNV(X1, Y(I), X2, Y(I)) 10 CONTINUE CALL SGLNV(XC, 0.05, XC, 0.95) CALL SGTXV(XC, Y(1), 'SGTXV TEST') ! <-- テキスト 1 段目 CALL SGSTXI(2) ! <-- テキスト INDEX 設定 CALL SGTXV(XC, Y(2), 'INDEX2') ! <-- テキスト 2 段目 CALL SGSTXI(3) ! <-- テキスト INDEX 設定 CALL SGTXV(XC, Y(3), 'INDEX3') ! <-- テキスト 3 段目 CALL SGSTXI(4) CALL SGSTXS(0.03) ! <-- テキスト SIZE 設定 (小) CALL SGTXV(XC, Y(4), 'SMALL') ! <-- テキスト 4 段目 CALL SGSTXS(0.07) ! <-- テキスト SIZE 設定 (大) CALL SGTXV(XC, Y(5), 'LARGE') ! <-- テキスト 5 段目 CALL SGSTXS(0.05) CALL SGSTXI(5) CALL SGSTXC(-1) ! <-- 左揃え CALL SGTXV(XC, Y(6), 'LEFT') ! <-- テキスト 6 段目 CALL SGSTXC(0) ! <-- 中央揃え CALL SGTXV(XC, Y(7), 'CENTER') ! <-- テキスト 7 段目 CALL SGSTXC(1) ! <-- 右揃え CALL SGTXV(XC, Y(8), 'RIGHT') ! <-- テキスト 8 段目 CALL SGSTXC(0) CALL SGSTXI(4) CALL SGSTXR(20) ! <-- テキスト回転 CALL SGTXV(XC, Y(9), 'ROTATION') ! <-- テキスト 9 段目 CALL SGCLS END dcl-7.5.2/demo/grph1/sgpack/sgksx2.f0000644000175000017500000000534314760053155016743 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SGKSX2 REAL UX(5), UY(5), VX(5), VY(5) DATA UX / 2.0, 4.0, 5.0, 7.0, 8.0 / DATA UY / 4.0, 5.0, 4.0, 5.0, 4.0 / DATA VX / 0.2, 0.4, 0.5, 0.7, 0.8 / DATA VY / 0.5, 0.6, 0.5, 0.6, 0.5 / WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL SGOPN( IWS ) * TEST POLYLINE, POLYMARKER, TEXT PRIMITIVE IN WC. * TEST POLYLINE, POLYMARKER, TEXT PRIMITIVE IN NDC. * TRANSFORMATION FUNCTION : LINEAR*LINEAR * NO-CLIPPING, FONT NO.=1 CALL SGFRM CALL SGISET( 'IFONT', 1 ) CALL SGSWND( 0.0, 10.0, 0.0, 10.0 ) CALL SGSVPT( 0.0, 1.0, 0.0, 1.0 ) CALL SGSTRN( 1 ) CALL SGSTRF CALL SGLNZU( 0.1, 0.1, 9.9, 0.1, 1 ) CALL SGLNZU( 9.9, 0.1, 9.9, 9.9, 1 ) CALL SGLNZU( 9.9, 9.9, 0.1, 9.9, 1 ) CALL SGLNZU( 0.1, 9.9, 0.1, 0.1, 1 ) CALL SGPLZU( 5, UX, UY, 2, 3 ) CALL SGPMZU( 5, UX, UY, 5, 3, 0.04 ) CALL STFTRF( UX(1), UY(1), VX1, VY1 ) CALL STFTRF( UX(4), UY(4), VX2, VY2 ) CALL SGLNZV( VX1, VY1, VX2, VY2, 2 ) CALL SGTXZU( 5.0, 8.5, 'TESTU', 0.1, 0, 0, 3 ) CALL SGSWND( 2.5, 7.5, 2.5, 7.5 ) CALL SGSVPT( 0.25, 0.75, 0.25, 0.75 ) CALL SGSTRN( 1 ) CALL SGSTRF CALL SGPLZV( 5, VX, VY, 3, 1 ) CALL SGPMZV( 5, VX, VY, 4, 1, 0.02 ) CALL SGTXZV( 0.5, 0.75, 'TESTV', 0.1, 0, 0, 3 ) * TEST POLYLINE, POLYMARKER, TEXT PRIMITIVE IN WC. * TEST POLYLINE, POLYMARKER, TEXT PRIMITIVE IN NDC. * TRANSFORMATION FUNCTION : LINEAR*LINEAR * CLIPPING, FONT NO.=2 CALL SGFRM CALL SGISET( 'IFONT', 2 ) CALL SGSWND( 0.0, 10.0, 0.0, 10.0 ) CALL SGSVPT( 0.0, 1.0, 0.0, 1.0 ) CALL SGSTRN( 1 ) CALL SGSTRF CALL SGLNZU( 0.1, 0.1, 9.9, 0.1, 1 ) CALL SGLNZU( 9.9, 0.1, 9.9, 9.9, 1 ) CALL SGLNZU( 9.9, 9.9, 0.1, 9.9, 1 ) CALL SGLNZU( 0.1, 9.9, 0.1, 0.1, 1 ) CALL SGPLZU( 5, UX, UY, 2, 3 ) CALL SGPMZU( 5, UX, UY, 5, 3, 0.04 ) CALL STFTRF( UX(1), UY(1), VX1, VY1 ) CALL STFTRF( UX(4), UY(4), VX2, VY2 ) CALL SGLNZV( VX1, VY1, VX2, VY2, 2 ) CALL SGTXZU( 5.0, 8.5, 'TESTU', 0.1, 0, 0, 3 ) CALL SGSWND( 2.5, 7.5, 2.5, 7.5 ) CALL SGSVPT( 0.25, 0.75, 0.25, 0.75 ) CALL SGSTRN( 1 ) CALL SGSTRF CALL SGLSET( 'LCLIP', .TRUE. ) CALL SLPVPR( 1 ) CALL SGPLZV( 5, VX, VY, 3, 1 ) CALL SGPMZV( 5, VX, VY, 4, 1, 0.02 ) CALL SGTXZV( 0.5, 0.75, 'TESTV', 0.1, 0, 0, 3 ) CALL SGCLS END dcl-7.5.2/demo/grph1/sgpack/sgpk10.f0000644000175000017500000000227314760053155016626 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SGPK10 PARAMETER ( ND=12, DDEG=360.0/ND, DD=0.25 ) PARAMETER ( PI=3.141592 ) REAL RX(ND), RY(ND) DO 10 N = 1, ND RX(N) = DD*N*COS(PI/180*DDEG*(N-1)) RY(N) = DD*N*SIN(PI/180*DDEG*(N-1)) 10 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL SGOPN( IWS ) CALL SGFRM CALL SGSWND( 0.0, 10.0, 0.0, 10.0 ) CALL SGSVPT( 0.0, 1.0, 0.0, 1.0 ) CALL SGSTRN( 1 ) CALL SGSTRF X1 = 3.0 Y1 = 7.0 DO 15 N = 1, ND CALL SGLAZU( X1, Y1, X1+RX(N), Y1+RY(N), 1, 2 ) 15 CONTINUE CALL SGLSET( 'LPROP', .FALSE. ) CALL SGRSET( 'CONST', 0.05 ) X1 = 7.0 Y1 = 7.0 DO 20 N = 1, ND CALL SGLAZU( X1, Y1, X1+RX(N), Y1+RY(N), 1, 2 ) 20 CONTINUE DO 25 I = 1, 8 CALL SGRSET( 'ANGLE', 10.0*I ) CALL SGLAZU( REAL(I), 2.0, REAL(I)+1, 3.0, 1, 2 ) 25 CONTINUE CALL SGCLS END dcl-7.5.2/demo/grph1/sgpack/sgtone.f0000644000175000017500000000317314760053155017020 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SGTONE PARAMETER (NP=5,NT=6) PARAMETER (DD=0.13,DS=0.005) PARAMETER (DX=DD+DS*2,DY=1.0/NT) REAL XBOX(NP),YBOX(NP) CHARACTER CHR*5,CTTL*32 DATA XBOX/ 0.0, 1.0, 1.0, 0.0, 0.0/ DATA YBOX/ 0.0, 0.0, 1.0, 1.0, 0.0/ WRITE(*,*) ' WORKSTATION ID (I) ? ; ' CALL SGPWSN READ(*,*) IW WRITE(*,*) ' SOFT FILL=1/HARD FILL=2 (I) ? ;' READ(*,*) IFN WRITE(*,*) ' TONE PATTERN (0-6) (I) ? ;' READ(*,*) N CALL GLISET('MAXMSG',300) CALL SGOPN(IW) IF (IFN.EQ.1) THEN CALL SGLSET('LSOFTF',.TRUE.) ELSE CALL SGLSET('LSOFTF',.FALSE.) END IF CALL SGLSET('LFULL',.TRUE.) CALL SGISET('INDEX',3) CALL SLRAT(0.85,1.0) CALL SLMGN(0.0,0.0,0.05,0.1) CTTL='TONE PATTERN = #XX' WRITE(CTTL(16:16),'(I1)') N CALL SLSTTL(CTTL,'T',0.0,-0.5,0.03,1) CALL SGFRM CALL SGSWND(0.0,1.0,0.0,1.0) CALL SGSTRN(1) DO 20 J=0,5 DO 10 I=0,5 X1=DX*I+DS+(1-DX*NT)/2 X2=X1+DD Y1=DY*(5-J)+DS Y2=Y1+DD LEVEL=I+J*10+N*100 CALL SGSVPT(X1,X2,Y1,Y2) CALL SGSTRF WRITE(CHR,'(I5)') LEVEL CALL SGTNZU(NP,XBOX,YBOX,LEVEL) CALL SGPLZU(NP,XBOX,YBOX,1,1) CALL SGTXZV(X2,Y2+(DY-DD)/2,CHR,0.015,0,1,3) 10 CONTINUE 20 CONTINUE CALL SGCLS END dcl-7.5.2/demo/grph1/sgpack/sgtclr.f0000644000175000017500000000254214760053155017016 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SGTCLR PARAMETER (NP=5,NT=10) PARAMETER (DD=0.07,DS=0.003) PARAMETER (DX=DD+DS*2,DY=1.0/NT) REAL XBOX(NP),YBOX(NP) CHARACTER CHR*5 DATA XBOX/ 0.0, 1.0, 1.0, 0.0, 0.0/ DATA YBOX/ 0.0, 0.0, 1.0, 1.0, 0.0/ WRITE(*,*) ' WORKSTATION ID (I) ? ; ' CALL SGPWSN READ(*,*) IW CALL GLISET('MAXMSG',300) CALL SGOPN(IW) CALL SGLSET('LFULL',.TRUE.) CALL SGLSET('LSOFTF',.FALSE.) CALL SGISET('INDEX',1) CALL SLRAT(0.85,1.0) CALL SLMGN(0.0,0.0,0.05,0.1) CALL SLSTTL('TEST OF SGTONE','T',0.0,-0.5,0.025,1) CALL SGFRM CALL SGSWND(0.0,1.0,0.0,1.0) CALL SGSTRN(1) DO 20 J=0,9 DO 10 I=0,9 X1=DX*I+DS+(1-DX*NT)/2 X2=X1+DD Y1=DY*(9-J)+DS Y2=Y1+DD LEVEL=(I+J*10)*1000+999 CALL SGSVPT(X1,X2,Y1,Y2) CALL SGSTRF WRITE(CHR,'(I5)') LEVEL CALL SGTNZU(NP,XBOX,YBOX,LEVEL) CALL SGPLZU(NP,XBOX,YBOX,1,1) CALL SGTXZV(X2,Y2+(DY-DD)/2,CHR,0.01,0,1,1) 10 CONTINUE 20 CONTINUE CALL SGCLS END dcl-7.5.2/demo/grph1/sgpack/sgksx3.f0000644000175000017500000000352314760053155016742 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SGKSX3 PARAMETER (NP=100) REAL UX(NP), UY(NP) DO 10 I=1,NP UX(I)=I UY(I)=EXP(-I*0.03)*SIN(I*3.14/180*20) 10 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS IWS=+ABS(IWS) CALL SGOPN( IWS ) CALL SLRAT( 2.0, 1.0 ) CALL SLDIV( 'Y', 2, 1 ) CALL SLMGN( 0.1, 0.1 ,0.1, 0.1 ) * TEST POLYLINE, POLYMARKER, TEXT PRIMITIVE IN WC. * TEST POLYLINE, POLYMARKER, TEXT PRIMITIVE IN NDC. * TRANSFORMATION FUNCTION : LINEAR*LINEAR CALL SGFRM CALL SGSWND( 1.0, REAL(NP), -1.0, +1.0 ) CALL SGSVPT( 0.1, 0.9, 0.1, 0.9 ) CALL SGSTRN( 1 ) CALL SGSTRF CALL SLPWWR( 1 ) CALL SGLNZU( 1.0, 0.0, REAL(NP), 0.0, 1 ) CALL SGLNZU( 1.0, -1.0, 1.0, +1.0, 1 ) CALL SGPLZU( NP, UX, UY, 2, 3 ) CALL SGPMZU( NP, UX, UY, 5, 3, 0.02 ) CALL SGTXZV( 0.5, 0.9, 'TEST1', 0.05, 0, 0, 3 ) * TEST POLYLINE, POLYMARKER, TEXT PRIMITIVE IN WC. * TEST POLYLINE, POLYMARKER, TEXT PRIMITIVE IN NDC. * TRANSFORMATION FUNCTION : LOG*LINEAR CALL SGFRM CALL SGSWND( 1.0, REAL(NP), -1.0, +1.0 ) CALL SGSVPT( 0.1, 0.9, 0.1, 0.9 ) CALL SGSTRN( 3 ) CALL SGSTRF CALL SLPWWR( 1 ) CALL GLLSET( 'LMISS', .TRUE. ) CALL SGISET( 'NPMSKIP' , 2 ) UX( 5)=999.0 UY(20)=999.0 CALL SGLNZU( 1.0, 0.0, REAL(NP), 0.0, 1 ) CALL SGLNZU( 1.0, -1.0, 1.0, +1.0, 1 ) CALL SGPLZU( NP, UX, UY, 3, 3 ) CALL SGPMZU( NP, UX, UY, 2, 3, 0.02 ) CALL SGTXZV( 0.5, 0.9, 'TEST2', 0.05, 0, 0, 3 ) CALL SGCLS END dcl-7.5.2/demo/grph1/sgpack/sgpk07.f0000644000175000017500000000456614760053155016643 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SGPK07 PARAMETER (N=9) DIMENSION Y(N) CHARACTER GREEK1*30, GREEK2*30, SYMBOL*30, USGI*3 WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL SGLSET('LCNTL',.TRUE.) CALL SGOPN(IWS) CALL SGFRM X1 = 0.1 X2 = 0.9 XC = 0.5 CALL SGSLNI(1) DO 10 I=1, N Y(I) = 0.1 * (10-I) CALL SGLNV(X1, Y(I), X2, Y(I)) 10 CONTINUE CALL SGLNV(XC, 0.05, XC, 0.95) *----------------------- SUPER/SUB SCRIPT ------------------------------ CALL SGTXV(XC, Y(1), 'SGTXV\^{SUP}RST\_{SUB}') CALL SGSTXI(2) CALL SGLSET('LCNTL', .TRUE.) ! <-- 添字コントロールON CALL SGTXV(XC, Y(2), 'SGTXV\^{SUP}RST\_{SUB}') *------------------------ OVER UNDER ----------------------------------- CALL SGRSET('SHIFT', 0.5) ! <-- シフト量設定 CALL SGRSET('SMALL', 0.5) ! <-- 添字の大きさ設定 CALL SWLSET('LSYSFNT', .TRUE.) CALL SGTXV(XC, Y(3), 'S\o-G\o~T\u-X\o~\u-V\^{SUP}RST\_{SUB}') CALL SWLSET('LSYSFNT', .FALSE.) *------------------------ FONT SELECTION ------------------------------- CALL SGSTXI(1) CALL SGSTXS(0.05) CALL SGTXV(XC, Y(4), 'ABCDEFG abcdefg') CALL SGISET('IFONT', 2) ! <-- きれいなフォント CALL SGTXV(XC, Y(5), 'ABCDEFG abcdefg') CALL SGSTXI(3) CALL SGTXV(XC, Y(6), 'ABCDEFG abcdefg') *------------------------- GREEK LETTERS ------------------------------- GREEK1 = USGI(152)//USGI(153)//USGI(154)//USGI(155)//USGI(156)// # USGI(157)//USGI(158)//USGI(159)//USGI(160)//USGI(161) GREEK2 = USGI(130)//USGI(131)//USGI(135)//USGI(138)//USGI(141)// # USGI(143)//USGI(145)//USGI(148)//USGI(150)//USGI(151) CALL SGTXV(XC, Y(7), GREEK1) CALL SGTXV(XC, Y(8), GREEK2) *----------------------------- SYMBOLS --------------------------------- SYMBOL = USGI(189)//USGI(190)//USGI(191)//USGI(192)//USGI(193)// # USGI(210)//USGI(211)//USGI(212)//USGI(217)//USGI(218) CALL SGTXV(XC, Y(9), SYMBOL) CALL SGCLS END dcl-7.5.2/demo/grph1/sgpack/sgpk04.f0000644000175000017500000000454614760053155016636 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SGPK04 PARAMETER(N=41) DIMENSION X(N), Y(N) DT = 4.* 3.14159 / (N-1) DO 10 I=1,N Y(I) = SIN(DT*(I-1))*0.15 X(I) = REAL(I-1)/REAL(N-1) 10 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL SGOPN(IWS) CALL SGFRM CALL SGSWND( 0.0, 1.0, -0.8, 0.2) CALL SGSVPT( 0.1, 0.9, 0.1, 0.9) CALL SGSTRN( 1) CALL SGSTRF CALL SGLSET('LCLIP', .TRUE.) CALL SLPVPR(1) CALL SGPMU(N, X, Y) ! <-- マーカー描画 (1列目) CALL SGSWND( 0.0, 1.0, -0.7, 0.3) CALL SGSTRF CALL SGSPMT(2) ! <-- マーカー TYPE 設定(+) CALL SGPMU(N, X, Y) ! <-- マーカー描画 (2列目) CALL SGSWND( 0.0, 1.0, -0.6, 0.4) CALL SGSTRF CALL SGSPMT(3) ! <-- マーカー TYPE 設定(*) CALL SGPMU(N, X, Y) ! <-- マーカー描画 (3列目) CALL SGSWND( 0.0, 1.0, -0.5, 0.5) CALL SGSTRF CALL SGSPMT(4) ! <-- マーカー TYPE 設定(o) CALL SGPMU(N, X, Y) ! <-- マーカー描画 (4列目) CALL SGSWND( 0.0, 1.0, -0.4, 0.6) CALL SGSTRF CALL SGSPMI(2) ! <-- マーカー INDEX 設定 CALL SGPMU(N, X, Y) ! <-- マーカー描画 (5列目) CALL SGSWND( 0.0, 1.0, -0.3, 0.7) CALL SGSTRF CALL SGSPMI(3) CALL SGSPMT(2) CALL SGPLU(N, X, Y) ! <-- 折れ線描画 CALL SGPMU(N, X, Y) ! <-- マーカー描画 (6列目) N1=N/4 Y(N1-1) = 999. ! <-- 欠損値 Y(N1 ) = 999. Y(N1+1) = 999. N2=N1*3 Y(N2-1) = 999. Y(N2+1) = 999. CALL SGSWND( 0.0, 1.0, -0.2, 0.8) CALL SGSTRF CALL GLLSET('LMISS',.TRUE.) CALL SGSPMI(2) CALL SGSPMT(3) CALL SGPLU(N, X, Y) ! <-- 折れ線描画 CALL SGPMU(N, X, Y) ! <-- マーカー描画 (7列目) CALL SGCLS END dcl-7.5.2/demo/grph1/sgpack/sgpk03.f0000644000175000017500000000574414760053155016636 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SGPK03 PARAMETER(N=41) DIMENSION X(N), Y(N) DT = 4.* 3.14159 / (N-1) DO 10 I=1,N Y(I) = SIN(DT*(I-1))*0.15 X(I) = REAL(I-1)/REAL(N-1) 10 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL SGOPN(IWS) *----------------------------- page 1 --------------------------------- CALL SGFRM CALL SGSWND( 0.0, 1.0, -0.8, 0.2) CALL SGSVPT( 0.15, 0.85, 0.1, 0.9) CALL SGSTRN(1) CALL SGSTRF CALL SLPVPR(1) CALL SGPLU(N, X, Y) ! <-- 1本目 CALL SGSWND( 0.0, 1.0, -0.7, 0.3) CALL SGSTRF CALL SGSPLI(2) ! <-- Line INDEX 設定 CALL SGPLU(N, X, Y) ! <-- 2本目 CALL SGSWND( 0.0, 1.0, -0.6, 0.4) CALL SGSTRF CALL SGSPLI(3) ! <-- Line INDEX 設定 CALL SGPLU(N, X, Y) ! <-- 3本目 CALL SGSWND( 0.0, 1.0, -0.4, 0.6) CALL SGSTRF CALL SGSPLT(2) ! <-- Line TYPE 設定 (破線) CALL SGPLU(N, X, Y) ! <-- 4本目 CALL SGSWND( 0.0, 1.0, -0.3, 0.7) CALL SGSTRF CALL SGSPLT(3) ! <-- Line TYPE 設定 (点線) CALL SGPLU(N, X, Y) ! <-- 5本目 CALL SGSWND( 0.0, 1.0, -0.2, 0.8) CALL SGSTRF CALL SGSPLT(4) ! <-- Line TYPE 設定 (一点鎖線) CALL SGPLU(N, X, Y) ! <-- 6本目 *----------------------------- page 2 --------------------------------- CALL SGFRM CALL SGSWND( 0.0, 1.0, -0.8, 0.2) CALL SGSVPT( 0.15, 0.85, 0.1, 0.9) CALL SGSTRN(1) CALL SGSTRF CALL SLPVPR(1) CALL SGRSET('BITLEN', 0.006) ! <-- サイクル長の変更 CALL SGSPLT(4) CALL SGPLU(N, X, Y) ! <-- 1本目 CALL SGSWND( 0.0, 1.0, -0.6, 0.4) CALL SGSTRF CALL SGSPLI(2) CALL BITPCI('1111111100100100', ITYPE)! <-- パターン生成 CALL SGSPLT(ITYPE) ! <-- パターン設定 CALL SGPLU(N, X, Y) ! <-- 2本目 CALL SGSWND( 0.0, 1.0, -0.4, 0.6) CALL SGSTRF CALL SGISET('NBITS', 32) CALL BITPCI('10010010011111000111110001111100', ITYPE) CALL SGSPLT(ITYPE) CALL SGPLU(N, X, Y) CALL SGSWND( 0.0, 1.0, -0.2, 0.8) CALL SGSTRF CALL SGSPLI(1) CALL SGSPLT(1) N1=N/4 Y(N1-1) = 999. ! <-- 欠損値 Y(N1 ) = 999. Y(N1+1) = 999. N2=N1*3 Y(N2-1) = 999. Y(N2+1) = 999. CALL GLLSET('LMISS',.TRUE.) CALL SGPLU(N, X, Y) ! <-- 4本目 CALL SGCLS END dcl-7.5.2/demo/grph1/sgpack/sgtonz.f0000644000175000017500000000315014760053155017040 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SGFONZ PARAMETER (NP=5,NT=6) PARAMETER (DD=0.13,DS=0.005) PARAMETER (DX=DD+DS*2,DY=1.0/NT) REAL XBOX(NP),YBOX(NP) CHARACTER CHR*5 DATA XBOX/ 0.0, 1.0, 1.0, 0.0, 0.0/ DATA YBOX/ 0.0, 0.0, 1.0, 1.0, 0.0/ WRITE(*,*) ' WORKSTATION ID (I) ? ; ' CALL SGPWSN READ(*,*) IW WRITE(*,*) ' SOFT FILL=1/HARD FILL=2 (I) ? ;' READ(*,*) IFN CALL GLISET('MAXMSG',300) CALL SGOPN(IW) IF (IFN.EQ.1) THEN CALL SGLSET('LSOFTF',.TRUE.) ELSE CALL SGLSET('LSOFTF',.FALSE.) END IF CALL SGLSET('LFULL',.TRUE.) CALL SWLSET('LALT',.TRUE.) CALL SGISET('INDEX',3) CALL SLRAT(0.85,1.0) CALL SLMGN(0.0,0.0,0.05,0.1) CALL SLSTTL('TEST OF SGTONE','T',0.0,-0.5,0.03,1) DO 30 N=0,6 CALL SGFRM CALL SGSWND(0.0,1.0,0.0,1.0) CALL SGSTRN(1) DO 20 J=0,5 DO 10 I=0,5 X1=DX*I+DS+(1-DX*NT)/2 X2=X1+DD Y1=DY*(5-J)+DS Y2=Y1+DD LEVEL=I+J*10+N*100+N*1000 CALL SGSVPT(X1,X2,Y1,Y2) CALL SGSTRF WRITE(CHR,'(I5)') LEVEL CALL SGTNZU(NP,XBOX,YBOX,LEVEL) CALL SGPLZU(NP,XBOX,YBOX,1,1) CALL SGTXZV(X2,Y2+(DY-DD)/2,CHR,0.015,0,1,3) 10 CONTINUE 20 CONTINUE 30 CONTINUE CALL SGCLS END dcl-7.5.2/demo/grph1/sgpack/sgpk08.f0000644000175000017500000000277414760053155016643 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SGPK08 REAL UPX3(3), UPY3(3), UPX6(6), UPY6(6), UPXS(61), UPYS(61) A = 0.8 TH = 3.14159 * 2 / 3 DO 100 I=1, 3 UPX3(I) = A*SIN(TH*I) UPY3(I) = A*COS(TH*I) 100 CONTINUE TH = 3.14159 * 2 / 6 DO 200 I=1, 6 UPX6(I) = A*SIN(TH*I) UPY6(I) = A*COS(TH*I) 200 CONTINUE TH = 3.14159 * 4 / 60 DO 300 I=1, 61 UPXS(I) = A*(I-31) / 30. UPYS(I) = A*SIN(TH*(I-1)) 300 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL SGOPN(IWS) CALL SGLSET('LSOFTF',.TRUE.) ! <-- ソフトフィルの指定 CALL SGFRM CALL SGSWND(-1., 1., -1., 1.) CALL SGSVPT(0., 0.5, 0., 0.5) CALL SGSTRN( 1) CALL SGSTRF CALL SGPLU(3, UPX3, UPY3) CALL SGTNU(3, UPX3, UPY3) ! <-- 網かけ (左下) CALL SGSVPT(0., 0.5, 0.5, 1.) CALL SGSTRF CALL SGSTNP(101) CALL SGTNU(6, UPX6, UPY6) ! <-- 横線 (左上) CALL SGSVPT(0.5, 1., 0., 0.5) CALL SGSTRF CALL SGTNZU(6, UPX6, UPY6, 201) ! <-- 斜線 (右下) CALL SGSVPT(0.5, 1., 0.5, 1.) CALL SGSTRF CALL SGTNZU(61, UPXS, UPYS, 601) ! <-- 横線 (右上) CALL SGCLS END dcl-7.5.2/demo/grph1/sgpack/sgpk02.f0000644000175000017500000000461114760053155016625 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SGPK02 WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL SGOPN(IWS) *----------------------------- page 1 --------------------------------- CALL SGFRM CALL SGSLNI(3) * XMIN, XMAX, YMIN, YMAX CALL SGSWND( 0.0, 1.0, 0.0, 1.0) ! <--+ CALL SGSVPT( 0.0, 1.0, 0.0, 1.0) ! | 変換関数の設定 CALL SGSTRN(1) ! | CALL SGSTRF ! <--+ CALL SLPVPR(1) ! <--- 枠を描く CALL SGLNZU( 0.2, 0.8, 0.8, 0.2, 2) ! <--- X印を描く CALL SGLNU ( 0.2, 0.2, 0.8, 0.8) ! <-| *----------------------------- page 2 --------------------------------- CALL SGFRM * XMIN, XMAX, YMIN, YMAX CALL SGSWND( 0.0, 1.0, 0.0, 1.0) ! <-- 正立 CALL SGSVPT( 0.1, 0.4, 0.6, 0.9) ! <-- 左上 CALL SGSTRF CALL SLPVPR(1) CALL SGLNZU( 0.2, 0.8, 0.8, 0.2, 2) CALL SGLNU ( 0.2, 0.2, 0.8, 0.8) * ------------------------------------------ * XMIN, XMAX, YMIN, YMAX CALL SGSWND( 0.0, 1.0, 1.0, 0.0) ! <-- 上下逆 CALL SGSVPT( 0.6, 0.9, 0.6, 0.9) ! <-- 右上 CALL SGSTRF CALL SLPVPR(1) CALL SGLNZU( 0.2, 0.8, 0.8, 0.2, 2) CALL SGLNU ( 0.2, 0.2, 0.8, 0.8) * ------------------------------------------ * XMIN, XMAX, YMIN, YMAX CALL SGSWND( 0.0, 1.0, 0.0, 0.6) ! <-- 小さなウインド CALL SGSVPT( 0.1, 0.4, 0.1, 0.4) ! <-- 左下 CALL SGSTRF CALL SLPVPR(1) CALL SGLNZU( 0.2, 0.8, 0.8, 0.2, 2) CALL SGLNU ( 0.2, 0.2, 0.8, 0.8) * ------------------------------------------ * XMIN, XMAX, YMIN, YMAX CALL SGSWND( 0.0, 1.0, 0.0, 0.6) ! <-- 小さなウインド CALL SGSVPT( 0.6, 0.9, 0.1, 0.4) ! <-- 右下 CALL SGSTRF CALL SLPVPR(1) CALL SGLSET('LCLIP', .TRUE.) ! <-- クリッピングの指定 CALL SGLNZU( 0.2, 0.8, 0.8, 0.2, 2) CALL SGLNU ( 0.2, 0.2, 0.8, 0.8) CALL SGCLS END dcl-7.5.2/demo/grph1/sgpack/sgtcls.f0000644000175000017500000000273414760053155017022 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SGTCLR PARAMETER (NP=5,NT=10) PARAMETER (DD=0.07,DS=0.003) PARAMETER (DX=DD+DS*2,DY=1.0/NT) REAL XBOX(NP),YBOX(NP) CHARACTER CHR*5 DATA XBOX/ 0.0, 1.0, 1.0, 0.0, 0.0/ DATA YBOX/ 0.0, 0.0, 1.0, 1.0, 0.0/ WRITE(*,*) ' WORKSTATION ID (I) ? ; ' CALL SGPWSN READ(*,*) IW CALL GLISET('MAXMSG',300) CALL SGOPN(IW) CALL SGIGET('IBGCLI',IBGCLI) CALL SGLSET('LFULL',.TRUE.) CALL SGLSET('LSOFTF',.FALSE.) CALL SGISET('INDEX',1) CALL SLRAT(0.85,1.0) CALL SLMGN(0.0,0.0,0.05,0.1) CALL SLSTTL('TEST OF SGTONE','T',0.0,-0.5,0.025,1) CALL SGFRM CALL SGSWND(0.0,1.0,0.0,1.0) CALL SGSTRN(1) DO 20 J=0,9 DO 10 I=0,9 X1=DX*I+DS+(1-DX*NT)/2 X2=X1+DD Y1=DY*(9-J)+DS Y2=Y1+DD ICLR=I+J*10 LEVEL=ICLR*1000+999 IF (ICLR.EQ.0) ICLR=IBGCLI LEVELZ=ICLR*1000+999 CALL SGSVPT(X1,X2,Y1,Y2) CALL SGSTRF WRITE(CHR,'(I5)') LEVEL CALL SGTNZU(NP,XBOX,YBOX,LEVELZ) CALL SGPLZU(NP,XBOX,YBOX,1,1) CALL SGTXZV(X2,Y2+(DY-DD)/2,CHR,0.01,0,1,1) 10 CONTINUE 20 CONTINUE CALL SGCLS END dcl-7.5.2/demo/grph1/sgpack/sgfonz.f0000644000175000017500000000247714760053155017035 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SGFONZ CHARACTER CH*3,USGI*3,CTTL*32 DATA CTTL/'FONT NO. = #'/ WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS IWS=-ABS(IWS) CALL SGOPN( IWS ) CALL SLMGN( 0.1, 0.1, 0.1, 0.1 ) CALL SLRAT( 1.0, 1.0 ) DO 20 N=1,2 CALL SGFRM CALL SGISET( 'IFONT', N ) CALL SGSWND( 0.0, 16.0, 0.0, 16.0 ) CALL SGSVPT( 0.05, 0.95, 0.0, 0.9 ) CALL SGSTRN( 1 ) CALL SGSTRF DO 10 I=0,16 CALL SGLNZU( REAL(I), 0.0, REAL(I), 16.0, 2 ) CALL SGLNZU( 0.0, REAL(I), 16.0, REAL(I), 2 ) 10 CONTINUE WRITE(CTTL(12:12),'(I1)') N CALL SGTXZV( 0.5, 0.95, CTTL, 0.03, 0, 0, 3 ) DO 15 I=0,255 UX=I/16+0.5 UY=16-MOD(I,16)-0.5 IF (.NOT.(I.EQ.30 .OR. I.EQ.31)) THEN CALL SGTXZU( UX, UY, USGI(I), 0.035, 0, 0, 3 ) END IF UX=UX+0.48 UY=UY+0.38 WRITE(CH,'(I3)') I CALL SGTXZU( UX, UY, CH, 0.01, 0, +1, 1 ) 15 CONTINUE 20 CONTINUE CALL SGCLS END dcl-7.5.2/demo/grph1/sgpack/sgfont.f0000644000175000017500000000336414760053155017023 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SGFONT CHARACTER CH*3,USGI*3,CTTL*32 CHARACTER FONTNAME*70 INTEGER ISYS DATA CTTL/'FONT NO. = #'/ WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS WRITE(*,*) ' STROKE FONT(1) / SYSTEM FONT(2) ? ;' READ(*,*)ISYS CALL SGLSET('LCNTL', .FALSE.) IF (ISYS.EQ.2) THEN CALL SWLSET('LSYSFNT', .TRUE.) WRITE(*,*) ' FONT NO (1,2) (I) OR DIALOG(3) ? ;' READ(*,*) N ELSE CALL SWLSET('LSYSFNT', .FALSE.) WRITE(*,*) ' FONT NO (1,2) (I) ? ;' READ(*,*) N END IF CALL SGOPN( IWS ) IF (ISYS.EQ.2 .AND. N.EQ.3)THEN CALL ZGSELECTFONT(FONTNAME) CALL SWCSET('FONTNAME', FONTNAME) END IF CALL SGLSET('LCNTL',.FALSE.) CALL SLMGN( 0.1, 0.1, 0.1, 0.1 ) CALL SLRAT( 1.0, 1.0 ) CALL SGFRM CALL SGISET( 'IFONT', N ) CALL SGSWND( 0.0, 16.0, 0.0, 16.0 ) CALL SGSVPT( 0.05, 0.95, 0.0, 0.9 ) CALL SGSTRN( 1 ) CALL SGSTRF DO 10 I=0,16 CALL SGLNZU( REAL(I), 0.0, REAL(I), 16.0, 2 ) CALL SGLNZU( 0.0, REAL(I), 16.0, REAL(I), 2 ) 10 CONTINUE WRITE(CTTL(12:12),'(I1)') N CALL SGTXZV( 0.5, 0.95, CTTL, 0.03, 0, 0, 3 ) DO 15 I=0,255 UX=I/16+0.5 UY=16-MOD(I,16)-0.5 CALL SGTXZU( UX, UY, USGI(I), 0.035, 0, 0, 3 ) UX=UX+0.48 UY=UY+0.38 WRITE(CH,'(I3)') I CALL SGTXZU( UX, UY, CH, 0.01, 0, +1, 1 ) 15 CONTINUE CALL SGCLS END dcl-7.5.2/demo/grph1/Makefile0000644000175000017500000000067614760053155015547 0ustar uwabamiuwabami# # Makefile for grph1 # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../Mkinclude SUBDIRS = sgpack slpack scpack all: @for i in $(SUBDIRS) ; do \ cd $$i ; \ echo "Making $$i" ; \ $(MAKE) ; \ cd .. ; \ done clean: clean.local clean.dir clean.local: $(RM) *~ clean.dir: @for i in $(SUBDIRS) ; do \ cd $$i ; \ echo "Cleaning $$i" ; \ $(MAKE) clean ; \ cd .. ; \ done dcl-7.5.2/demo/grph1/slpack/0000755000175000017500000000000014760053155015353 5ustar uwabamiuwabamidcl-7.5.2/demo/grph1/slpack/slpk03.f0000644000175000017500000000172314760053155016641 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SLPK03 WRITE(*,*) 'WORKSTATION ID ? ' CALL SGPWSN READ (*,*) IWS CALL SGOPN(IWS) CALL SGLSET('LFULL', .TRUE.) CALL SLMGN(0., 0., 0.08, 0.08) CALL SLRAT(1., 0.6) ! <-- 縦横比を指定 CALL SLSTTL('FIGURE TITLE', 'T', 0., -1., 0.02, 1) CALL SLSTTL('page:#PAGE', 'B', 1., 1., 0.02, 2) CALL SLSTTL('PROG.NAME', 'B', -1., 1., 0.02, 3) CALL SGFRM CALL SLPWWR(1) CALL SGTXZV(0.01, 0.02, 'LOWER LEFT', 0.02, 0, -1, 3) CALL SGTXZV(0.01, 0.58, 'UPPER LEFT', 0.02, 0, -1, 3) CALL SGTXZV(0.99, 0.02, 'LOWER RIGHT', 0.02, 0, 1, 3) CALL SGTXZV(0.99, 0.58, 'UPPER RIGHT', 0.02, 0, 1, 3) CALL SGCLS END dcl-7.5.2/demo/grph1/slpack/Makefile0000644000175000017500000000066014760053155017015 0ustar uwabamiuwabami# # Makefile for slpack (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = slpack LIBSRCS = slpk01.f slpk02.f slpk03.f slpk04.f LIBDEMO = slpk01 slpk02 slpk03 slpk04 LIBEXEC = slpk01$(EXT) slpk02$(EXT) slpk03$(EXT) slpk04$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ *.ps core *.trace *.eps *.svg *.pdf a.out dcl-7.5.2/demo/grph1/slpack/slpk01.f0000644000175000017500000000203614760053155016635 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SLPK01 CHARACTER*7 CTXT WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL SGOPN(-ABS(IWS)) CALL SLMGN(0.1, 0.1, 0.05, 0.05) ! <-- 第1レベルのマージン CALL SLDIV('S', 3, 5) ! <-- フレーム分割 (第2レベル) CALL SLMGN(0.05, 0.05, 0.05, 0.05) ! <-- 第2レベルのマージン CALL SLRAT(1., 1.) ! <-- 第2レベルの縦横比を指定 CALL SGSTXI(2) CALL SGSTXS(0.1) DO 100 I=1, 15 CALL SGFRM ! <-- CALL SLPWWR(1) ! < この中は普通に1ページ WRITE(CTXT, '(''FRAME'',I2.2)') I ! < 描画するのと同じ CALL SGTXV(0.5, 0.5, CTXT) ! <-- 100 CONTINUE CALL SGCLS END dcl-7.5.2/demo/grph1/slpack/slpk02.f0000644000175000017500000000162614760053155016642 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SLPK02 WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL SGOPN(IWS) CALL SLMGN(0., 0., 0.05, 0.05) ! <-- マージン設定 CALL SLRAT(1., 1.) ! <-- 縦横比設定 CALL SLSTTL('FIGURE TITLE', 'T', 0., -1., 0.02, 1) ! <-+ CALL SLSTTL('page:#PAGE', 'B', 1., 1., 0.02, 2) ! <-+ タイトル設定 CALL SLSTTL('PROG.NAME', 'B', -1., 1., 0.02, 3) ! <-+ CALL SGFRM ! <-- ここで実際にタイトルが書かれる CALL SLPWWR(1) CALL SGTXZV(0.5, 0.5, 'FIGURE', 0.05, 0, 0, 1) CALL SGCLS END dcl-7.5.2/demo/grph1/slpack/slpk04.f0000644000175000017500000000156514760053155016646 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SLPK04 REAL X(5), Y(5) CHARACTER USGI*3 DATA X / -7.5, 7.5, 7.5, -7.5, -7.5/ DATA Y / -7.5,-7.5, 7.5, 7.5, -7.5/ WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ(*,*) IWS CALL SGOPN(IWS) XMAXF = 26. YMAXF = 18.5 CALL SLFORM(XMAXF, YMAXF) ! <-- 絶対的な用紙の大きさを指定 CALL SLRAT(XMAXF, YMAXF) CALL SGLSET('LFULL', .TRUE.) CALL SGFRM CALL SGSWND(-XMAXF/2., XMAXF/2., -YMAXF/2., YMAXF/2.) CALL SGSTRF CALL SGPLU(5, X, Y) CALL SGTXZU(0., 0., '15cm '//USGI(194)//' 15cm', 0.05, 0, 0, 3) CALL SGCLS END dcl-7.5.2/demo/f90/0000755000175000017500000000000014760053155013453 5ustar uwabamiuwabamidcl-7.5.2/demo/f90/quick/0000755000175000017500000000000014760053155014567 5ustar uwabamiuwabamidcl-7.5.2/demo/f90/quick/sample06.f900000644000175000017500000000134314760053155016537 0ustar uwabamiuwabamiprogram sample06 use dcl integer,parameter :: nx=36, ny=36 real,parameter :: xmin=0., xmax=360., ymin=-90., ymax=90. real,dimension(0:nx,0:ny) :: p !-- 球面調和関数 ---- do j=0,ny do i=0,nx alon = ( xmin + (xmax-xmin)*i/nx ) * DCL_PI/180. alat = ( ymin + (ymax-ymin)*j/ny ) * DCL_PI/180. p(i,j) = sqrt(1-sin(alat)**2) * sin(alat) * cos(alon) end do end do !-- グラフ ---- call DclOpenGraphics() call DclNewFrame call DclSetWindow( xmin, xmax, ymin, ymax ) call DclSetViewPort( 0.2, 0.8, 0.2, 0.8 ) call DclSetTransFunction call DclShadeContour( p ) call DclDrawScaledAxis call DclDrawContour( p ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/quick/sample05.f900000644000175000017500000000130514760053155016534 0ustar uwabamiuwabami program sample05 use dcl integer,parameter :: nx=36, ny=36 real,parameter :: xmin=0., xmax=360., ymin=-90., ymax=90. real,dimension(0:nx,0:ny) :: p !-- 球面調和関数 ---- do j=0,ny do i=0,nx alon = ( xmin + (xmax-xmin)*i/nx ) * DCL_PI/180. alat = ( ymin + (ymax-ymin)*j/ny ) * DCL_PI/180. p(i,j) = sqrt(1-sin(alat)**2) * sin(alat) * cos(alon) end do end do !-- グラフ ---- call DclOpenGraphics() call DclNewFrame call DclSetWindow( xmin, xmax, ymin, ymax ) call DclSetViewPort( 0.2, 0.8, 0.2, 0.8 ) call DclSetTransFunction call DclDrawScaledAxis call DclDrawContour( p ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/quick/sample07.f900000644000175000017500000000126314760053155016541 0ustar uwabamiuwabamiprogram sample07 use dcl integer,parameter :: nx=20, ny=20 real,parameter :: xmin=-1., xmax=1., ymin=-1., ymax=1. real,dimension(0:nx,0:ny) :: u,v !-- 変形場 ---- do j=0,ny do i=0,nx x = xmin + (xmax-xmin)*i/nx y = ymin + (ymax-ymin)*j/ny u(i,j) = 0.8 * x ! u = a*x v(i,j) = -1. * y ! y = -b*y end do end do !-- グラフ ---- call DclOpenGraphics() call DclNewFrame call DclSetWindow( xmin, xmax, ymin, ymax ) call DclSetViewPort( 0.2, 0.8, 0.2, 0.8 ) call DclSetTransFunction call DclDrawScaledAxis call DclDrawVectors( u, v ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/quick/sample01.f900000644000175000017500000000120514760053155016527 0ustar uwabamiuwabami program sample01 use dcl integer,parameter :: nmax = 400 real,dimension(0:nmax) :: x,y,t !-- リサジューの図 ---- t = (/( n,n=0,nmax )/) / real(nmax) ! 媒介変数(0≦t≦1) x = 1.e2 * sin( 2.*DCL_PI * 4.*t ) ! x = Asin(2πω t) y = 1.e-3 * cos( 2.*DCL_PI * 5.*t ) + 6.! y = Bcos(2πω't)+C !-- グラフ ---- call DclOpenGraphics() ! 出力装置のオープン call DclNewFrame ! 新しい描画領域を作成する call DclDrawScaledGraph( x, y ) ! おまかせでグラフを描く call DclCloseGraphics ! 出力装置のクローズ end program dcl-7.5.2/demo/f90/quick/Makefile0000644000175000017500000000071314760053155016230 0ustar uwabamiuwabami# # Makefile for quick (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = quick LIBSRCS = sample01.f90 sample02.f90 sample03.f90 sample04.f90 \ sample05.f90 sample06.f90 sample07.f90 LIBDEMO = sample01 sample02 sample03 sample04 sample05 sample06 \ sample07 all: $(LIBDEMO) clean: $(RM) $(LIBDEMO) *.o *~ *.ps core *.trace *.eps *.svg *.pdf a.out dcl-7.5.2/demo/f90/quick/sample02.f900000644000175000017500000000130514760053155016531 0ustar uwabamiuwabami program sample02 use dcl integer,parameter :: nx=36, ny=36 real,parameter :: xmin=0., xmax=360., ymin=-90., ymax=90. real,dimension(0:nx,0:ny) :: p !-- 球面調和関数 ---- do j=0,ny do i=0,nx alon = ( xmin + (xmax-xmin)*i/nx ) * DCL_PI/180. alat = ( ymin + (ymax-ymin)*j/ny ) * DCL_PI/180. p(i,j) = sqrt(1-sin(alat)**2) * sin(alat) * cos(alon) end do end do !-- グラフ ---- call DclOpenGraphics() call DclNewFrame call DclSetWindow( xmin, xmax, ymin, ymax ) call DclSetViewPort( 0.2, 0.8, 0.2, 0.8 ) call DclSetTransFunction call DclDrawScaledAxis call DclDrawContour( p ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/quick/sample04.f900000644000175000017500000000126414760053155016537 0ustar uwabamiuwabami program sample04 use dcl integer,parameter :: nx=20, ny=20 real,parameter :: xmin=-1., xmax=1., ymin=-1., ymax=1. real,dimension(0:nx,0:ny) :: u,v !-- 変形場 ---- do j=0,ny do i=0,nx x = xmin + (xmax-xmin)*i/nx y = ymin + (ymax-ymin)*j/ny u(i,j) = 0.8 * x ! u = a*x v(i,j) = -1. * y ! y = -b*y end do end do !-- グラフ ---- call DclOpenGraphics() call DclNewFrame call DclSetWindow( xmin, xmax, ymin, ymax ) call DclSetViewPort( 0.2, 0.8, 0.2, 0.8 ) call DclSetTransFunction call DclDrawScaledAxis call DclDrawVectors( u, v ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/quick/sample03.f900000644000175000017500000000142414760053155016534 0ustar uwabamiuwabami program sample03 use dcl integer,parameter :: nx=36, ny=36 real,parameter :: xmin=0., xmax=360., ymin=-90., ymax=90. real,dimension(0:nx,0:ny) :: p !-- 球面調和関数 ---- do j=0,ny do i=0,nx alon = ( xmin + (xmax-xmin)*i/nx ) * DCL_PI/180. alat = ( ymin + (ymax-ymin)*j/ny ) * DCL_PI/180. p(i,j) = sqrt(1-sin(alat)**2) * sin(alat) * cos(alon) end do end do !-- グラフ ---- call DclOpenGraphics() call DclNewFrame ! call DclSetParm('ENABLE_SOFTFILL',.true.) call DclSetWindow( xmin, xmax, ymin, ymax ) call DclSetViewPort( 0.1, 0.9, 0.2, 0.8 ) call DclSetTransFunction call DclShadeContour( p ) call DclDrawScaledAxis call DclDrawContour( p ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/Makefile0000644000175000017500000000072114760053155015113 0ustar uwabamiuwabami# # Makefile for f90 # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../Mkinclude SUBDIRS = 1d 2d 3d axis basic layout map miss quick all: @for i in $(SUBDIRS) ; do \ cd $$i ; \ echo "Making $$i" ; \ $(MAKE) ; \ cd .. ; \ done clean: clean.local clean.dir clean.local: $(RM) *~ clean.dir: @for i in $(SUBDIRS) ; do \ cd $$i ; \ echo "Cleaning $$i" ; \ $(MAKE) clean ; \ cd .. ; \ done dcl-7.5.2/demo/f90/map/0000755000175000017500000000000014760053155014230 5ustar uwabamiuwabamidcl-7.5.2/demo/f90/map/map03.f900000644000175000017500000000245014760053155015471 0ustar uwabamiuwabami program map03 use dcl integer,parameter :: nx=18, ny=18 real,parameter :: xmin= 0, xmax=360, ymin=-90, ymax=+90 real,parameter :: pi=3.141592, drad=pi/180, dz=0.05, dp=0.2 real,dimension(0:nx,0:ny) :: p do j = 0, ny do i = 0, nx alon = ( xmin + (xmax-xmin) * i/nx ) * drad alat = ( ymin + (ymax-ymin) * j/ny ) * drad slat = sin(alat) p(i,j) = cos(alon) * (1-slat**2) * sin(2*pi*slat) + dz end do end do call DclOpenGraphics() rmiss = DclGetReal( 'GLOBAL:RMISS' ) call DclSetParm( 'GRAPH:lsoftf', .false. ) call DclNewFrame call DclSetWindow( xmin, xmax, ymin, ymax ) call DclSetViewPort( 0.1, 0.9, 0.1, 0.9 ) call DclSetSimilarity( 0.4, 0.0, 0.0 ) call DclSetMapProjectionAngle( 165.0, 60.0, 0.0 ) call DclSetMapProjectionWindow( -180.0, 180.0, 0.0, 90.0 ) call DclSetTransNumber( DCL_OTHOGAPHIC ) call DclSetTransFunction call DclSetParm( 'GRAPH:lclip', .true. ) call DclSetShadeLevel( rmiss, -dp, 201 ) call DclSetShadeLevel( dp, dp*2, 401 ) call DclSetShadeLevel( dp*2, rmiss, 402 ) call DclShadeContour( p ) call DclSetContourLevel( p, dp ) call DclDrawContour( p ) call DclDrawMap( 'coast_world' ) call DclDrawGlobe() call DclCloseGraphics end program dcl-7.5.2/demo/f90/map/Makefile0000644000175000017500000000054214760053155015671 0ustar uwabamiuwabami# # Makefile for map (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = map LIBSRCS = map01.f90 map02.f90 map03.f90 map04.f90 regional.f90 LIBDEMO = map01 map02 map03 map04 regional all: $(LIBDEMO) clean: $(RM) $(LIBDEMO) *.o *~ *.ps core *.trace *.eps *.svg *.pdf a.out dcl-7.5.2/demo/f90/map/regional.f900000644000175000017500000000214114760053155016346 0ustar uwabamiuwabami!----------------------------------------------------------------------- ! Copyright (c) 2002 GFD Dennou Club. All Rights Reserved. !----------------------------------------------------------------------- program regional use dcl integer,parameter :: np=2 character(len=32) :: cttl character(len=3) :: ctr(np) = (/'MER','CON'/) call DclOpenGraphics call DclSetAspectRatio( 2.0, 1.0 ) call DclDivideFrame( 'y', 2, 1 ) do i=1,np call DclNewFrame call DclSetWindow( 123.0, 147.0, 30.0, 46.0) call DclSetViewPort( 0.1, 0.9, 0.1, 0.9 ) call DclTransShortToNum(ctr(i),ntr) call DclSetTransNumber( ntr ) call DclFitMapParm call DclSetTransFunction call DclSetParm( 'ENABLE_CLIPPING', .true. ) call DclDrawDeviceWindowFrame( 1 ) call DclDrawViewPortFrame( 1 ) call DclTransShortToLong( ctr(i), cttl ) call DclDrawTextProjected( 0.5, 0.95, cttl, height=0.03, index=3 ) ! call DclDrawMap( 'coast_japan' ) call DclDrawMap( 'coast_world' ) call DclDrawGlobe end do call DclCloseGraphics end program dcl-7.5.2/demo/f90/map/map02.f900000644000175000017500000000250214760053155015466 0ustar uwabamiuwabami!----------------------------------------------------------------------- ! Copyright (c) 2002 GFD Dennou Club. All Rights Reserved. !----------------------------------------------------------------------- program map02 use dcl integer,parameter :: np=14 integer,dimension(np) :: ntr = (/ & 10, 11, 12, 13, 14, 15, 20, & 21, 22, 23, 30, 31, 32, 33 /) character(len=32) :: cttl call DclOpenGraphics( -abs(DclSelectDevice()) ) call DclSetAspectRatio( 2.0, 3.0 ) call DclDivideFrame( 'y', 2, 3 ) call DclSetParm( 'MAP_MAJOR_LINE_INDEX', 1 ) call DclSetParm( 'MAP_MINOR_LINE_TYPE', 1 ) do i=1,np call DclNewFrame ! call DclSetMapProjectionAngle( 0.0, 90.0, 0.0 ) call DclSetViewPort( 0.1, 0.9, 0.1, 0.9 ) call DclSetTransNumber( ntr(i) ) call DclFitMapParm call DclSetTransFunction call DclSetParm( 'ENABLE_CLIPPING', .true. ) call DclDrawDeviceWindowFrame( 1 ) call DclDrawViewPortFrame( 1 ) call DclTransNumToLong( ntr(i), cttl ) call DclDrawTextProjected( 0.5, 0.95, cttl, height=0.03, index=3 ) call DclDrawMap( 'coast_world' ) call DclDrawGlobe if ( ntr(i).eq.23 ) then call DclNewFrame call DclNewFrame end if end do call DclCloseGraphics end program dcl-7.5.2/demo/f90/map/map01.f900000644000175000017500000000310414760053155015464 0ustar uwabamiuwabami program map01 use dcl integer,parameter :: np=14 integer,dimension(np) :: ntr = (/ & 10, 11, 12, 13, 14, 15, 20, & 21, 22, 23, 30, 31, 32, 33 /) real,dimension(np) :: fct = (/ & 0.12, 0.12, 0.14, 0.14, 0.14, 0.14, 0.11, & 0.16, 0.12, 0.12, 0.40, 0.12, 0.12, 0.17 /) character(len=32) :: cttl call DclOpenGraphics( -abs(DclSelectDevice()) ) call DclSetAspectRatio( 2.0, 3.0 ) call DclDivideFrame( 'y', 2, 3 ) call DclSetParm( 'MAP:LGRIDMN', .false. ) call DclSetParm( 'MAP:INDEXMJ', 1 ) do i=1,np call DclNewFrame call DclSetParm( 'GRAPH:stlat1', 45.0 ) call DclSetParm( 'GRAPH:stlat2', 30.0 ) call DclSetParm( 'MAP:dgridmj', 30. ) call DclSetSimilarity( fct(i), 0.0, 0.0 ) call DclSetMapProjectionAngle( 0.0, 90.0, 0.0 ) call DclSetViewPort( 0.1, 0.9, 0.1, 0.9 ) if ( ntr(i)==30 ) then call DclSetMapProjectionWindow( -180.0, 180.0, 0.0, 90.0 ) else call DclSetMapProjectionWindow( -180.0, 180.0, -90.0, 90.0 ) end if call DclSetTransNumber( ntr(i) ) call DclSetTransFunction call DclSetParm( 'GRAPH:LCLIP', .true. ) call DclDrawDeviceWindowFrame( 1 ) call DclDrawViewPortFrame( 1 ) call DclTransNumToLong( ntr(i), cttl ) call DclDrawTextProjected( 0.5, 0.95, cttl, height=0.03, index=3 ) call DclDrawMap( 'coast_world' ) call DclDrawGlobe() if ( ntr(i)==23 ) then call DclNewFrame call DclNewFrame end if end do call DclCloseGraphics end program dcl-7.5.2/demo/f90/map/map04.f900000644000175000017500000000317714760053155015501 0ustar uwabamiuwabami program map04 use dcl integer,parameter :: nx=36, ny=36 real,parameter :: xmin= 0, xmax=360, ymin=-90, ymax=+90 real,parameter :: pi=3.141592, drad=pi/180, dz=0.05 integer,parameter :: fact=10 real,dimension(0:nx,0:ny) :: p,u,v real :: alon(0:nx), alat(0:ny) rmiss = DclGetReal( 'GLOBAL:RMISS' ) call DclSetParm( 'GLOBAL:lmiss', .true. ) alon = xmin + (xmax-xmin) * (/(i, i=0,nx)/) /nx alat = ymin + (ymax-ymin) * (/(j, j=0,ny)/) /ny do j = 0, ny do i = 0, nx slat = sin(alat(j)*drad) p(i,j) = cos(alon(i)*drad) * (1-slat**2) * sin(2*pi*slat) + dz end do end do do j = 1, ny-1 do i = 0, nx u(i,j) = ( p(i,j-1) - p(i,j+1) ) * fact v(i,j) = ( p(modulo(i,nx)+1,j) - p(modulo(i-1,nx),j) )* fact end do end do u(:,1) = rmiss; u(:,ny) = rmiss v(:,1) = rmiss; v(:,ny) = rmiss call DclOpenGraphics() call DclNewFrame call DclSetWindow( xmin, xmax, ymin, ymax ) call DclSetViewPort( 0.1, 0.9, 0.1, 0.9 ) call DclSetSimilarity( 0.4, 0.0, 0.0 ) call DclSetMapProjectionAngle( 165.0, 60.0, 0.0 ) call DclSetMapProjectionWindow( -180.0, 180.0, 0.0, 90.0 ) call DclSetTransNumber( 30 ) call DclSetTransFunction call DclSetParm( 'GRAPH:lclip', .true. ) call DclDrawMap( 'coast_world' ) call DclDrawGlobe() call DclDrawContour( p ) do j=0,ny do i=0,nx if (.not.(u(i,j).eq.rmiss .or. v(i,j).eq.rmiss)) then call DclDrawArrow( & alon(i),alat(j),alon(i)+u(i,j),alat(j)+v(i,j), 1, 3 ) end if end do end do call DclCloseGraphics end program dcl-7.5.2/demo/f90/basic/0000755000175000017500000000000014760053155014534 5ustar uwabamiuwabamidcl-7.5.2/demo/f90/basic/line.f900000644000175000017500000000211614760053155016003 0ustar uwabamiuwabami!----------------------------------------------------------------------- ! Copyright (c) 2002 GFD Dennou Club. All Rights Reserved. !----------------------------------------------------------------------- program line use dcl call DclOpenGraphics call DclNewFrame ! 正規座標系で線分を描く call DclDrawLineNormalized( (/0.1,0.9/),(/0.9,0.9/) ) call DclDrawLineNormalized( (/0.1,0.5,0.9/),(/0.8,0.75,0.8/),index=3 ) ! ユーザー座標系で線分を描く ! xmin, xmax, ymin, ymax call DclSetWindow ( 0., 360., -90., 90. ) call DclSetViewPort( 0.1, 0.9, 0.2, 0.7 ) call DclSetTransFunction call DclDrawViewPortFrame(1) ! ビューポートの枠を描く call DclDrawLine( (/-40.,160./), (/45.,-45./), type=2 ) call DclDrawLine( (/-40.,160./), (/-45.,45./), type=2 ) call DclSetParm('ENABLE_CLIPPING',.true.) ! クリッピング制御する call DclDrawLine( (/200.,400./), (/45.,-45./), index=21 ) call DclDrawLine( (/200.,400./), (/-45.,45./), index=21 ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/basic/Makefile0000644000175000017500000000071614760053155016200 0ustar uwabamiuwabami# # Makefile for basic (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = basic LIBSRCS = arrow.f90 line.f90 marker.f90 shade.f90 text.f90 \ arrow.f90 line.f90 marker.f90 shade.f90 text.f90 LIBDEMO = arrow line marker shade text arrow line marker \ shade text all: $(LIBDEMO) clean: $(RM) $(LIBDEMO) *.o *~ *.ps core *.trace *.eps *.svg *.pdf a.out dcl-7.5.2/demo/f90/basic/marker.f900000644000175000017500000000241714760053155016341 0ustar uwabamiuwabami!----------------------------------------------------------------------- ! Copyright (c) 2002 GFD Dennou Club. All Rights Reserved. !----------------------------------------------------------------------- program marker use dcl integer,parameter :: n=41 real :: x(n), y(n) dt = 4.* 3.14159 / (n-1) do i=1,n y(i) = sin(dt*(i-1))*0.15 x(i) = real(i-1)/real(n-1) end do call DclOpenGraphics call DclNewFrame call DclSetWindow( 0.0, 1.0, -0.8, 0.2) call DclSetViewPort( 0.1, 0.9, 0.1, 0.9) call DclSetTransNumber( 1) call DclSetTransFunction call DclSetParm( 'ENABLE_CLIPPING', .true.) call DclDrawViewPortFrame(1) call DclDrawMarker(x, y) ! <-- マーカー描画 (1列目) call DclDrawMarker(x, y-0.1, type=2) ! <-- マーカー描画 (2列目) call DclDrawMarker(x, y-0.2, type=3) ! <-- マーカー描画 (3列目) call DclDrawMarker(x, y-0.3, type=2,height=0.06)! <-- マーカー描画 (4列目) call DclDrawMarker(x, y-0.4, index=2) ! <-- マーカー描画 (5列目) call DclDrawMarker(x, y-0.5, index=3,type=2)! <-- マーカー描画 (6列目) call DclDrawLine(x, y-0.5) ! <-- 折れ線描画 call DclCloseGraphics end program dcl-7.5.2/demo/f90/basic/text.f900000644000175000017500000000271414760053155016044 0ustar uwabamiuwabami!----------------------------------------------------------------------- ! Copyright (c) 2002 GFD Dennou Club. All Rights Reserved. !----------------------------------------------------------------------- program text use dcl call DclOpenGraphics call DclNewFrame do i=1,9 call DclDrawLineNormalized( (/0.1,0.9/), (/0.1*i,0.1*i/) ) end do call DclDrawLineNormalized( (/0.5,0.5/), (/0.05,0.95/), type=3 ) ! 1段目 call DclDrawTextNormalized(0.5,0.9,'Test') ! 2段目 call DclDrawTextNormalized(0.5,0.8,'index3',index=3) ! index 設定 ! 3段目 call DclDrawTextNormalized(0.5,0.7,'SMALL',height=0.03) ! size 設定 (小) ! 4段目 call DclDrawTextNormalized(0.5,0.6,'Left',centering=-1) ! 左揃え ! 5段目 call DclDrawTextNormalized(0.5,0.5,'Rotate',angle=20.) ! 回転 ! 6段目 call DclDrawTextNormalized(0.5,0.4,'ABC|sup"XYZ_sub"') ! 上付・下付 ! 7段目 call DclSetParm('ENABLE_PROPORTIONAL_FONT',.true.)!プロポーショナルフォント call DclDrawTextNormalized(0.5,0.3,'Proportional',index=2) ! 8段目 call DclSetParm('IFONT',2) call DclDrawTextNormalized(0.5,0.2,'Font2',index=2) ! 高品位フォント ! 9段目 call DclDrawTextNormalized(0.5,0.1, & & achar(152)//achar(153)//achar(154)// & ! ギリシャ小文字 & achar(145)//achar(151)//achar(148)// & ! ギリシャ大文字 & achar(189)//achar(217)//achar(218) ) ! 記号 call DclCloseGraphics end program dcl-7.5.2/demo/f90/basic/arrow.f900000644000175000017500000000215214760053155016206 0ustar uwabamiuwabami!----------------------------------------------------------------------- ! Copyright (c) 2002 GFD Dennou Club. All Rights Reserved. !----------------------------------------------------------------------- program arrow use dcl integer,parameter :: nd=12 real,parameter :: ddeg=360.0/nd, dd=0.25 real :: rx(nd), ry(nd) do n = 1, nd rx(n) = dd*n*cos(DCL_PI/180*ddeg*(n-1)) ry(n) = dd*n*sin(DCL_PI/180*ddeg*(n-1)) end do call DclOpenGraphics() call DclNewFrame call DclSetWindow( 0.0, 10.0, 0.0, 10.0 ) call DclSetViewPort( 0.0, 1.0, 0.0, 1.0 ) call DclSetTransFunction x1 = 3.0 y1 = 7.0 do n = 1, nd call DclDrawArrow( x1, y1, x1+rx(n), y1+ry(n) ) end do call DclSetParm( 'FIX_ARROWHEAD_PROPORTION', .false. ) call DclSetParm( 'ARROWHEAD_SIZE', 0.05 ) x1 = 7.0 y1 = 7.0 do n = 1, nd call DclDrawArrow( x1, y1, x1+rx(n), y1+ry(n), index=2 ) end do do i = 1, 8 call DclSetParm( 'ARROWHEAD_ANGLE', 10.0*i ) call DclDrawArrow( real(i), 2.0, real(i)+1, 3.0 ) end do call DclCloseGraphics end program dcl-7.5.2/demo/f90/basic/shade.f900000644000175000017500000000324314760053155016142 0ustar uwabamiuwabami!----------------------------------------------------------------------- ! Copyright (c) 2002 GFD Dennou Club. All Rights Reserved. !----------------------------------------------------------------------- program shade use dcl real :: upx3(3), upy3(3), upx6(6), upy6(6), upxs(61), upys(61) a = 0.8 th = 3.14159 * 2 / 3 do i=1, 3 upx3(i) = a*sin(th*i) upy3(i) = a*cos(th*i) end do th = 3.14159 * 2 / 6 do i=1, 6 upx6(i) = a*sin(th*i) upy6(i) = a*cos(th*i) end do th = 3.14159 * 4 / 60 do i=1, 61 upxs(i) = a*(i-31) / 30. upys(i) = a*sin(th*(i-1)) end do call DclOpenGraphics call DclSetParm( 'ENABLE_SOFTFILL',.true.) ! <-- ソフトフィルの指定 call DclNewFrame call DclSetWindow(-1., 1., -1., 1.) call DclSetViewPort(0., 0.5, 0., 0.5) call DclSetTransNumber( 1) call DclSetTransFunction call DclDrawLine(upx3, upy3) call DclShadeRegion(upx3, upy3) ! <-- 網かけ (左下) call DclNewFig call DclSetWindow(-1., 1., -1., 1.) call DclSetViewPort(0., 0.5, 0.5, 1.) call DclSetTransFunction call DclSetShadePattern(101) call DclShadeRegion(upx6, upy6) ! <-- 横線 (左上) call DclNewFig call DclSetWindow(-1., 1., -1., 1.) call DclSetViewPort(0.5, 1., 0., 0.5) call DclSetTransFunction call DclShadeRegion(upx6, upy6, 201) ! <-- 斜線 (右下) call DclNewFig call DclSetWindow(-1., 1., -1., 1.) call DclSetViewPort(0.5, 1., 0.5, 1.) call DclSetTransFunction call DclShadeRegion(upxs, upys, 601) ! <-- 横線 (右上) call DclCloseGraphics end program dcl-7.5.2/demo/f90/1d/0000755000175000017500000000000014760053155013757 5ustar uwabamiuwabamidcl-7.5.2/demo/f90/1d/line.f900000644000175000017500000000246414760053155015234 0ustar uwabamiuwabami program line use dcl integer,parameter :: nmax = 40 real,dimension(0:nmax) :: x,y1,y2,y3,y4,y5,y6 x = (/( n,n=0,nmax )/) / real(nmax) ! 0≦x≦1 y1 = sin( 2.*DCL_PI * x ) + 1.5 ! y = sin(2πx)+C y2 = sin( 2.*DCL_PI * x ) + 1.0 y3 = sin( 2.*DCL_PI * x ) + 0.5 y4 = sin( 2.*DCL_PI * x ) - 0.5 y5 = sin( 2.*DCL_PI * x ) - 1.0 y6 = sin( 2.*DCL_PI * x ) - 1.5 !-- グラフ ---- call DclOpenGraphics() call DclNewFrame call DclSetWindow( 0., 1., -3., 3. ) ! ウィンドウの設定 call DclSetViewPort( 0.2, 0.8, 0.2, 0.8 ) ! ビューポートの設定 call DclSetTransFunction ! 正規変換の確定 call DclDrawScaledAxis ! 座標軸を描く call DclDrawLine( x, y1 ) ! 通常(type=1,index=1) call DclDrawLine( x, y2, index=5 ) ! 太さを変える call DclDrawLine( x, y3, index=21 ) ! 色を変える call DclDrawLine( x, y4, type=2 ) ! 線種を変える call DclDrawLine( x, y5, type=4, index=43 ) ! 全部変える call DclSetLineType( 3 ) ! 前もって線種を指定 call DclSetLineIndex( 30 ) ! 前もって色を指定 call DclDrawLine( x, y6 ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/1d/log.f900000644000175000017500000000116114760053155015057 0ustar uwabamiuwabami program log use dcl integer,parameter :: n=100 real(selected_real_kind(12)) :: a, r real, dimension(n) :: x, y !-- データ ---- r = 0.2d0 a = 3.6d0 r0 = 0. do i=1, n r = a*r*(1.d0-r) r0 = r0 + r*4 - 2.58 x2 = (i-50)**2 rexp0 = 4.*i/n x(i) = 10**rexp0 y(i) = 1.e5*exp(-x2) + 10.**r0 end do y(20) = 1.e4 y(40) = 2.e3 y(65) = 3.e4 y(70) = 5.e2 !-- グラフ ---- call DclOpenGraphics() call DclNewFrame call DclSetTransNumber( DCL_LOG_LOG ) call DclDrawScaledGraph( x, y ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/1d/Makefile0000644000175000017500000000077414760053155015427 0ustar uwabamiuwabami# # Makefile for 1d (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = 1d LIBSRCS = 1d04.f90 1d05.f90 bar.f90 box.f90 errorbar.f90 \ label.f90 line.f90 log.f90 marker.f90 multi.f90 \ sample12.f90 sample13.f90 LIBDEMO = 1d04 1d05 bar box errorbar label line log \ marker multi sample12 sample13 all: $(LIBDEMO) clean: $(RM) $(LIBDEMO) *.o *~ *.ps core *.trace *.eps *.svg *.pdf a.out dcl-7.5.2/demo/f90/1d/1d04.f900000644000175000017500000000155014760053155014750 0ustar uwabamiuwabami program sample_1d04 use dcl integer, parameter :: n=200 real(kind=selected_real_kind(12)) :: x=0.d0, y=1.d0, z=1.d0 real(kind=selected_real_kind(12)) :: dx, dy, dz, dt=0.01d0 real(kind=selected_real_kind(12)) :: s=10.d0, r=26.d0, b=2.6d0 real, dimension(n) :: t, a !----------------------------------------------------------------------- do i=1, n do j=1, 8 dx = -s*x + s*y dy = -x*z + r*x - y dz = x*y - b*z x = x + dx*dt y = y + dy*dt z = z + dz*dt end do t(i) = (i-1)*1000 a(i) = y + 20. end do !----------------------------------------------------------------------- call DclOpenGraphics() call DclNewFrame call DclSetTitle ('Time', 'Heat Flux', 'Sec', 'W/m\^{2}') call DclDrawScaledGraph(t, a) call DclCloseGraphics end program dcl-7.5.2/demo/f90/1d/bar.f900000644000175000017500000000234414760053155015046 0ustar uwabamiuwabami program bar use dcl integer,parameter :: n=11, m=5 real,dimension(n) :: x0 , x1, x2, y0, y1, y2, y3 real,dimension(m) :: a !----------------------------------------------------------------------- dt = 1./(n-1) pi = 3.14159 a = (/( (-1)**j *2./((j*2-1)*pi), j=1,m ) /) do i=1, n t = dt*(i-1)*2*pi x0(i) = dt*(i-1) y1(i) = a(1)*cos(t) y2(i) = 0. do j=1, m jj = j*2-1 yy = a(j)*cos(jj*t) y2(i) = y2(i) + yy end do end do y0 = ( y1 + y2 )/2 y3 = -2. ! x1 = x0 - abs( y1 - y2 )/5 ! x2 = x0 + abs( y1 - y2 )/5 x1 = x0 - dt x2 = x0 + dt !----------------------------------------------------------------------- call DclOpenGraphics() call DclNewFrame call DclSetParm( 'GRAPH:LCLIP', .true.) call DclScalingPoint( x0, y0 ) call DclScalingPoint( x1, y1 ) call DclScalingPoint( x2, y2 ) call DclFitScalingParm call DclSetTransFunction call DclDrawScaledAxis call DclDrawYBarFrame( x0, y3, y0, width=0.04 ) call DclDrawYErrorBar( x0, y1, y2 ) ! call DclDrawXErrorBar( x1, x2, y0, type=3, index=33) ! call DclDrawMarker( x0, y0, type=4, index=21 ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/1d/marker.f900000644000175000017500000000150014760053155015554 0ustar uwabamiuwabami program marker use dcl integer,parameter :: nmax=100 real :: x(nmax), y(nmax) !-- �ǡ��� ---- iseed = 1 x(1) = 2.*(rngu2(iseed)-0.5) do n=2,nmax x(n) = 2.*(rngu2(iseed)-0.5) y(n-1) = x(n) end do y(nmax) = x(1) !-- ����� ---- call DclOpenGraphics() call DclNewFrame call DclScalingPoint( x, y ) call DclFitScalingParm call DclSetTransFunction call DclSetTitle( 'x-title', 'y-title', 'x-unit', 'y-unit' ) call DclDrawScaledAxis call DclSetMarkerIndex( 5 ) call DclSetMarkerSize( 0.015 ) call DclDrawMarker( x(1:25), y(1:25) ) call DclDrawMarker( x(26:50), y(26:50) ,type=2 ) call DclDrawMarker( x(51:75), y(51:75) ,type=3 ) call DclDrawMarker( x(75:100), y(76:100),type=4 ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/1d/sample13.f900000644000175000017500000000152714760053155015731 0ustar uwabamiuwabami program sample13 use dcl integer, parameter :: n=200, m=5 real, dimension(0:n) :: x, y0, y1, y2, t real, dimension(m) :: a !-- データ ---- do j=1,m a(j) = (-1)**j *2./((j*2-1)*DCL_PI) end do x = (/( real(i)/n, i=0,n )/) t = 2*DCL_PI*x y0 = -0.5 where (x >= 1./4. .and. x <= 3./4.) y0 = 0.5 y1 = a(1)*cos(t) y2 = 0. do j=1,m y2 = y2 + a(j)*cos((j*2-1)*t) end do !-- グラフ ---- call DclOpenGraphics() call DclNewFrame call DclScalingPoint( x, y0 ) call DclScalingPoint( x, y1 ) call DclScalingPoint( x, y2 ) call DclFitScalingParm call DclSetTransFunction call DclDrawScaledAxis call DclDrawLine ( x, y0, index=5 ) call DclDrawLine ( x, y1, type=3 ) call DclDrawLine ( x, y2, type=2, index=2 ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/1d/1d05.f900000644000175000017500000000165514760053155014757 0ustar uwabamiuwabami program sample_1d05 use dcl integer, parameter :: n=200, m=10 real, dimension(n) :: x, y real, dimension(m) :: a a = (/( (-1)**j *2./((j*2-1)*DCL_PI), j=1, m) /) dt = 1./(n-1) x = (/( dt*(i-1), i=1, n )/) do i=1, n y(i) = 2*sum(a*cos((/( 2*DCL_PI*dt*(i-1)*(j*2-1), j=1, m )/)) ) end do !----------------------------------------------------------------------- call DclOpenGraphics call DclNewFrame ! --- x axis --- call DclSetParm('AXIS:uyuser' , 0.) call DclSetParm('SCALE:cxside' , 'u') ! --- y axis --- call DclSetParm('AXIS:irotlyl' , 1) call DclSetParm('AXIS:icentyl' , 0) call DclSetParm('SCALE:cyside' , 'l') ! --- etc. --- call DclSetParm('AXIS:inner' , -1) call DclSetParm('SCALE:cblkt' , '[]') call DclSetTitle('Time', 'Voltage', 'Sec', 'mV') call DclDrawScaledGraph(x, y) call DclCloseGraphics end program dcl-7.5.2/demo/f90/1d/sample12.f900000644000175000017500000000116614760053155015727 0ustar uwabamiuwabami program sample12 use dcl integer,parameter :: n=100 real(selected_real_kind(12)) :: a, r real, dimension(n) :: x, y !-- データ ---- r = 0.2d0 a = 3.6d0 r0 = 0. do i=1, n r = a*r*(1.d0-r) r0 = r0 + r*4 - 2.58 x2 = (i-50)**2 rexp0 = 4.*i/n x(i) = 10**rexp0 y(i) = 1.e5*exp(-x2) + 10.**r0 end do y(20) = 1.e4 y(40) = 2.e3 y(65) = 3.e4 y(70) = 5.e2 !-- グラフ ---- call DclOpenGraphics() call DclNewFrame call DclSetTransNumber( DCL_LOG_LOG ) call DclDrawScaledGraph( x, y ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/1d/multi.f900000644000175000017500000000152414760053155015433 0ustar uwabamiuwabami program multi use dcl integer, parameter :: n=200, m=5 real, dimension(0:n) :: x, y0, y1, y2, t real, dimension(m) :: a !-- データ ---- do j=1,m a(j) = (-1)**j *2./((j*2-1)*DCL_PI) end do x = (/( real(i)/n, i=0,n )/) t = 2*DCL_PI*x y0 = -0.5 where (x >= 1./4. .and. x <= 3./4.) y0 = 0.5 y1 = a(1)*cos(t) y2 = 0. do j=1,m y2 = y2 + a(j)*cos((j*2-1)*t) end do !-- グラフ ---- call DclOpenGraphics() call DclNewFrame call DclScalingPoint( x, y0 ) call DclScalingPoint( x, y1 ) call DclScalingPoint( x, y2 ) call DclFitScalingParm call DclSetTransFunction call DclDrawScaledAxis call DclDrawLine ( x, y0, index=5 ) call DclDrawLine ( x, y1, type=3 ) call DclDrawLine ( x, y2, type=2, index=2 ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/1d/errorbar.f900000644000175000017500000000217114760053155016116 0ustar uwabamiuwabami program errorbar use dcl integer,parameter :: n=20, m=5 real,dimension(n) :: x0, x1, x2, y0, y1, y2 real,dimension(m) :: a !----------------------------------------------------------------------- dt = 1./(n-1) pi = 3.14159 a = (/( (-1)**j *2./((j*2-1)*pi), j=1,m ) /) do i=1, n t = dt*(i-1)*2*pi x0(i) = dt*(i-1) y1(i) = a(1)*cos(t) y2(i) = 0. do j=1, m jj = j*2-1 yy = a(j)*cos(jj*t) y2(i) = y2(i) + yy end do end do y0 = ( y1 + y2 )/2 x1 = x0 - abs( y1 - y2 )/5 x2 = x0 + abs( y1 - y2 )/5 !----------------------------------------------------------------------- call DclOpenGraphics() call DclNewFrame call DclSetParm( 'GRAPH:LCLIP', .true.) call DclScalingPoint( x0, y0) call DclScalingPoint( x1, y1) call DclScalingPoint( x2, y2) call DclFitScalingParm call DclSetTransFunction call DclDrawScaledAxis call DclDrawYErrorBar( x0, y1, y2) call DclDrawXErrorBar( x1, x2, y0, type=3, index=33) call DclDrawMarker( x0, y0, type=4, index=21 ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/1d/box.f900000644000175000017500000000171014760053155015066 0ustar uwabamiuwabami program box use dcl integer,parameter :: n=30 double precision a, r real,dimension(n+1) :: x real,dimension(n) :: y !---------------------------- data definition -------------------------- r = 0.2d0 a = 3.7d0 x = (/ (1./n*(i-1), i=1,n+1) /) do i=1, n r = a*r*(1.d0-r) y(i) = r end do y(n/2) = 999. call DclSetParm( 'GLOBAL:LMISS', .true.) !----------------------------- graph ----------------------------------- call DclOpenGraphics() call DclNewFrame call DclSetWindow( xmin=0., xmax=1. ) call DclScalingPoint( y=y ) call DclFitScalingParm call DclSetTransFunction call DclDrawScaledAxis call DclDrawYBoxLine( x, y ) call DclNewFrame call DclSetWindow( ymin=0., ymax=1. ) call DclScalingPoint( x=y ) call DclFitScalingParm call DclSetTransFunction call DclDrawScaledAxis call DclDrawXBoxLine( y, x ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/1d/label.f900000644000175000017500000000322014760053155015353 0ustar uwabamiuwabami program label use dcl integer,parameter :: nmax = 40 real,dimension(0:nmax) :: x,y1,y2,y3,y4,y5,y6 x = (/( n,n=0,nmax )/) / real(nmax) ! 0≦x≦1 y1 = sin( 2.*DCL_PI * x ) + 1.5 ! y = sin(2πx)+C y2 = sin( 2.*DCL_PI * x ) + 1.0 y3 = sin( 2.*DCL_PI * x ) + 0.5 y4 = sin( 2.*DCL_PI * x ) - 0.5 y5 = sin( 2.*DCL_PI * x ) - 1.0 y6 = sin( 2.*DCL_PI * x ) - 1.5 !-- グラフ ---- call DclOpenGraphics() call DclNewFrame call DclSetParm( 'ENABLE_LINE_LABELING', .true. ) ! ラベルつき折れ線 call DclSetWindow( 0., 1., -3., 3. ) ! ウィンドウの設定 call DclSetViewPort( 0.2, 0.8, 0.2, 0.8 ) ! ビューポートの設定 call DclSetTransFunction ! 正規変換の確定 call DclDrawScaledAxis ! 座標軸を描く call DclSetLineText( 'k=1' ) ! ラベルの文字列 call DclDrawLine( x, y1 ) call DclNextLineText ! ラベルの最後の文字番号を増やす call DclDrawLine( x, y2 ) call DclNextLineText call DclDrawLine( x, y3, type=2 ) call DclSetLineTextSize( 0.01 ) ! ラベルの文字列の高さ call DclSetLineText( 'Small Label' ) call DclDrawLine( x, y4, index=2 ) call DclSetLineTextSize( 0.02 ) ! 高さ元に戻す call DclSetLineText( 'a' ) call DclSetParm( 'LINE_CYCLE_LENGTH', 5. ) ! ラベルの間隔 call DclDrawLine( x, y5, type=2 ) call DclSetLineText( 'zzz' ) call DclSetParm( 'LINE_START_POSITION', 0.9 )! ラベルの書き始め call DclDrawLine( x, y6, type=4 ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/3d/0000755000175000017500000000000014760053155013761 5ustar uwabamiuwabamidcl-7.5.2/demo/f90/3d/3d06.f900000644000175000017500000000661614760053155014766 0ustar uwabamiuwabami!----------------------------------------------------------------------- ! Copyright (c) 2002 GFD Dennou Club. All Rights Reserved. !----------------------------------------------------------------------- program sample_3d06 use dcl integer,parameter :: nx=37, ny=37 real,parameter :: xmin= 0, xmax=360, ymin= -90, ymax= 90 real,parameter :: vxmin=-0.4, vxmax=0.4, vymin=-0.3, vymax=0.3 real,parameter :: zmin=-1.9, zmax=1.9 real,parameter :: vzmin=-0.2, vzmax=0.2 real,parameter :: pi=3.14159, drad=pi/180 real :: alon(nx), alat(ny), p(nx,ny) real :: xp(3), yp(3), zp(3) do i=1,nx alon(i) = xmin + (xmax-xmin)*(i-1)/(nx-1) end do do j=1,ny alat(j) = ymin + (ymax-ymin)*(j-1)/(ny-1) end do do j=1,ny slat = sin(alat(j)*drad) do i=1,nx p(i,j) = 3*sqrt(1-slat**2)*slat*cos(alon(i)*drad)-0.5*(3*slat**2-1) end do end do call DclOpenGraphics() call DclNewFrame !-- x-y plane ---- call DclSetWindow( xmin, xmax, ymin, ymax ) call DclSetViewPort( vxmin, vxmax, vymin, vymax ) call DclSetTransNumber( 1 ) call DclSetTransFunction call DclSet2DPlane( 1, 2, vzmin) call DclSet3DEyePoint( -1.1, -1.1, 2.5 ) call DclSet3DObjectPoint( 0.0, 0.0, 0.0 ) call DclSet3DProjection call DclDrawAxis( 'bt', 10., 60. ) call DclDrawTitle( 'b', 'longitude', 0. ) call DclDrawAxis( 'lr', 10., 30. ) call DclDrawTitle( 'l', 'latitude', 0. ) !-- x-z plane ---- call DclSetWindow( xmin, xmax, zmin, zmax ) call DclSetViewPort( vxmin, vxmax, vzmin, vzmax ) call DclSetTransNumber( 1 ) call DclSetTransFunction call DclSet2DPlane( 1, 3, vymax) call DclSet3DProjection call uzinit call DclDrawAxis( 't', 10., 60. ) call DclSetParm( 'AXIS:labelxb', .false. ) call DclDrawAxis( 'b', 10., 60. ) call DclDrawAxis( 'lr', 0.2, 1.0 ) call DclDrawTitle( 'l', 'amplitude', 0. ) !-- y-z plane ---- call DclSetWindow( ymin, ymax, zmin, zmax ) call DclSetViewPort( vymin, vymax, vzmin, vzmax ) call DclSetTransNumber( 1 ) call DclSetTransFunction call DclSet2DPlane( 2, 3, vxmax) call DclSet3DProjection call uzinit call DclDrawAxis( 'tb', 10., 30. ) call DclSetParm( 'AXIS:labelyl', .false. ) call DclDrawAxis( 'lr', 0.2, 1.0 ) !---------------- 3-d ------------------ call DclSet3DViewPort(vxmin, vxmax, vymin, vymax, vzmin, vzmax) call DclSet3DWindow( xmin, xmax, ymin, ymax, zmin, zmax) call DclSet3DLogAxis(.false., .false., .false.) call DclSet3DTransNumber(1) call DclSet3DTransFunction ! call szl3op(1) ! call szt3op(2999,4999) do j=ny-1, 1, -1 do i=nx-1, 1, -1 xp(1) = alon(i) yp(1) = alat(j) zp(1) = p(i,j) xp(2) = alon(i) yp(2) = alat(j+1) zp(2) = p(i,j+1) xp(3) = alon(i+1) yp(3) = alat(j+1) zp(3) = p(i+1,j+1) ! call szt3zu(xp, yp, zp) ! call szl3zu(3, xp, yp, zp) call DclDraw3DLine( xp, yp, zp ) xp(1) = alon(i+1) yp(1) = alat(j+1) zp(1) = p(i+1,j+1) xp(2) = alon(i+1) yp(2) = alat(j) zp(2) = p(i+1,j) xp(3) = alon(i) yp(3) = alat(j) zp(3) = p(i,j) ! call szt3zu(xp, yp, zp) ! call szl3zu(3, xp, yp, zp) call DclDraw3DLine( xp, yp, zp ) end do end do ! call szl3cl ! call szt3cl call DclCloseGraphics end program dcl-7.5.2/demo/f90/3d/Makefile0000644000175000017500000000044714760053155015426 0ustar uwabamiuwabami# # 3d (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = 3d LIBSRCS = 3d04.f90 3d05.f90 3d06.f90 LIBDEMO = 3d04 3d05 3d06 all: $(LIBDEMO) clean: $(RM) $(LIBDEMO) *.o *~ *.ps core *.trace *.eps *.svg *.pdf a.out dcl-7.5.2/demo/f90/3d/3d04.f900000644000175000017500000000437714760053155014766 0ustar uwabamiuwabami!----------------------------------------------------------------------- ! Copyright (c) 2002 GFD Dennou Club. All Rights Reserved. !----------------------------------------------------------------------- program sample_3d04 use dcl real,parameter :: xmin= -50, xmax= 50, ymin= -50, ymax= 50 real,parameter :: vxmin=0., vxmax=0.8, vymin=0., vymax=0.8 real,parameter :: zmin= -50, zmax= 50 real,parameter :: vzmin=0., vzmax=0.8 real,parameter :: xvp3=2.5, yvp3=-1., zvp3=1.5 real,parameter :: xfc3=(vxmax-vxmin)/2, yfc3=(vymax-vymin)/2 real,parameter :: zfc3=(vzmax-vzmin)/2 call DclOpenGraphics() call DclSetParm( 'GRAPH:ifont' , 2 ) call DclNewFrame !-- x-y plane ---- call DclSetWindow( xmin, xmax, ymin, ymax ) call DclSetViewPort( vxmin, vxmax, vymin, vymax ) call DclSetTransFunction call DclSet2DPlane( 1, 2, vzmax) call DclSet3DEyePoint( xvp3, yvp3, zvp3 ) call DclSet3DObjectPoint( xfc3, yfc3, zfc3 ) call DclSet3DProjection call aplot( 1 ) !-- x-z plane ---- call DclSetWindow( xmin, xmax, zmin, zmax ) call DclSetViewPort( vxmin, vxmax, vzmin, vzmax ) call DclSetTransNumber( 1 ) call DclSetTransFunction call DclSet2DPlane( 1, 3, vymin) call DclSet3DProjection call aplot( 2 ) !-- y-z plane ---- call DclSetWindow( ymin, ymax, zmin, zmax ) call DclSetViewPort( vymin, vymax, vzmin, vzmax ) call DclSetTransNumber( 1 ) call DclSetTransFunction call DclSet2DPlane( 2, 3, vxmax) call DclSet3DProjection call aplot( 3 ) call DclCloseGraphics end program !----------------------------------------------------------------------- subroutine aplot( ijk ) use dcl integer,parameter :: nmax=40 real :: x(0:nmax), y(0:nmax) character cttl*2 call DclDrawViewPortFrame( 1 ) dt = 2.*3.14159 / nmax do n=0,nmax x(n) = 40.*sin(n*dt) y(n) = 40.*cos(n*dt) end do call DclDrawLine( x, y ) dt = 2.*3.14159 / 3 do n=0,3 x(n) = 40.*sin(n*dt) y(n) = 40.*cos(n*dt) end do call DclDrawLine( x(1:4), y(1:4) ) call DclSetTextHeight( 0.07 ) call DclDrawText( 0., 0., 'dennou' ) write(cttl(1:2), '(i2.2)') ijk call DclDrawText( 0., -30., cttl ) return end subroutine dcl-7.5.2/demo/f90/3d/3d05.f900000644000175000017500000000477614760053155014772 0ustar uwabamiuwabami!----------------------------------------------------------------------- ! Copyright (c) 2002 GFD Dennou Club. All Rights Reserved. !----------------------------------------------------------------------- program sample_3d05 use dcl integer,parameter :: nx=21, ny=21 real,parameter :: xmin=-10, xmax= 10, ymin=-10, ymax= 10 real,parameter :: vxmin=0.2, vxmax=0.8, vymin=0.1, vymax=0.5 real,parameter :: zmin=0.0, zmax= 20 real,parameter :: vzmin=0.0, vzmax=0.6 real,parameter :: xvp3=-0.7, yvp3=-0.7, zvp3=1.2 real,parameter :: xfc3=(vxmax-vxmin)/2, yfc3=(vymax-vymin)/2 real,parameter :: zfc3=(vzmax-vzmin)/2 real,parameter :: dx1=1, dx2=5, dy1=1, dy2=4, dz1=1, dz2=5, pmin=0, pmax=1 integer,parameter :: kmax=5 real :: u(nx,ny), v(nx,ny), p(nx,ny) do j=1,ny do i=1,nx x = xmin + (xmax-xmin)*(i-1)/(nx-1) y = ymin + (ymax-ymin)*(j-1)/(ny-1) u(i,j) = x v(i,j) = -y p(i,j) = exp( -x**2/64 -y**2/25 ) end do end do call DclOpenGraphics() call DclNewFrame !-- x-y 平面: 下レベル ---- call DclSetWindow( xmin, xmax, ymin, ymax ) call DclSetViewPort( vxmin, vxmax, vymin, vymax ) call DclSetTransNumber( 1 ) call DclSetTransFunction call DclSet2DPlane( 1, 2, vzmin ) call DclSet3DEyePoint( xvp3, yvp3, zvp3 ) call DclSet3DObjectPoint( xfc3, yfc3, zfc3 ) call DclSet3DProjection call DclDrawAxis( 'bt', dx1, dx2 ) call DclDrawTitle( 'b', 'x-axis', 0. ) call DclDrawAxis( 'lr', dy1, dy2 ) call DclDrawTitle( 'l', 'y-axis', 0. ) call DclSetParm( 'VECTOR:rsizet', 0.014 ) call DclDrawVectors( u, v ) !-- x-y 平面: 上レベル ---- vzlev = vzmin + (vzmax-vzmin)*.6 call DclSet2DPlane( 1, 2, vzlev ) call DclSet3DProjection dp = (pmax-pmin)/kmax do k=1,kmax tlev1 = (k-1)*dp tlev2 = tlev1 + dp ipat = 600 + k - 1 call DclSetShadeLevel( tlev1, tlev2, ipat ) end do call DclShadeContour( p ) call DclSetParm( 'CONTOUR:lmsg' , .false. ) call DclSetContourLevel( p, 0.1 ) call DclDrawContour( p ) call DclDrawViewPortFrame( 1 ) !-- x-z 平面 ---- call DclSetWindow( xmin, xmax, zmin, zmax ) call DclSetViewPort( vxmin, vxmax, vzmin, vzmax ) call DclSetTransNumber( 1 ) call DclSetTransFunction call DclSet2DPlane( 1, 3, vymax ) call DclSet3DProjection call uzinit call DclDrawAxis( 'l', dz1, dz2 ) call DclDrawTitle( 'l', 'z-axis', 0. ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/layout/0000755000175000017500000000000014760053155014770 5ustar uwabamiuwabamidcl-7.5.2/demo/f90/layout/layout04.f900000644000175000017500000000111514760053155016767 0ustar uwabamiuwabami program layout04 use dcl call DclOpenGraphics() call DclSetParm( 'GRAPH:lfull', .true. ) call DclSetFrameMargin( 0., 0., 0.08, 0.08 ) call DclSetAspectRatio( 1., 0.6 ) call DclSetFrameTitle( 'figure title', 't', 0., 0., 0.03, 1 ) call DclSetFrameTitle( 'program.name', 'b', -1., -1., 0.02, 2 ) call DclSetFrameTitle( 'page:#page', 'b', 1., -1., 0.02, 3 ) call DclNewFrame call DclSetViewPort( 0.1,0.9,0.06,0.54 ) call DclDrawViewportFrame( 1 ) call DclDrawTextNormalized( 0.5, 0.5, 'figure' ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/layout/anim.f900000644000175000017500000000131014760053155016227 0ustar uwabamiuwabami program anim use dcl integer,parameter :: nmax=40, kmax=40 real :: x(0:nmax), y(0:nmax) character(len=5) :: title dt = 2.*3.14159 / nmax call DclSetParm('alternate',.true.) call DclSetParm('wait',.false.) call DclOpenGraphics(1) do k = 1,kmax x = (/ (dt*n, n=0,nmax) /) y = sin( x + dt*k/kmax*nmax ) call DclNewFrame call DclSetWindow( 0., 2.*3.14159, -1.5, 1.5 ) call DclSetViewPort( 0.2, 0.8, 0.2, 0.8 ) call DclSetTransFunction call DclDrawScaledAxis title(1:2) = 't=' write(title(3:5),'(i3)') k call DclDrawTitle('t',title) call DclDrawLine( x, y ) end do call DclCloseGraphics end program dcl-7.5.2/demo/f90/layout/layout02.f900000644000175000017500000000075714760053155017000 0ustar uwabamiuwabami program layout02 use dcl character(len=7) :: ctxt = 'frame??' call DclOpenGraphics() call DclSetFrameMargin( 0.1, 0.1, 0.05, 0.05 ) call DclDivideFrame( 'y', 3, 2 ) call DclSetFrameMargin( 0.05, 0.05, 0.05, 0.05 ) do i=1,12 call DclNewFrame call DclSetViewPort( 0.1,0.9,0.1,0.9 ) call DclDrawViewPortFrame( 1 ) write(ctxt(6:7),'(i2.2)') i call DclDrawTextNormalized( 0.5, 0.5, ctxt ) end do call DclCloseGraphics end program dcl-7.5.2/demo/f90/layout/Makefile0000644000175000017500000000074614760053155016437 0ustar uwabamiuwabami# # Makefile for layout (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = layout LIBSRCS = anim.f90 etc.f90 layout02.f90 layout03.f90 layout04.f90 layout05.f90 \ multi.f90 size.f90 LIBDEMO = anim etc layout02 layout03 layout04 layout05 multi size LIBEXEC = uipk01$(EXT) uipk02$(EXT) uipk03$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBDEMO) *.o *~ *.ps core *.trace *.eps *.svg *.pdf a.out dcl-7.5.2/demo/f90/layout/layout03.f900000644000175000017500000000214314760053155016770 0ustar uwabamiuwabami program layout03 use dcl integer,parameter :: nmax=400 real :: x(nmax), y(nmax) !-- �ǡ��� 1 ---- dt = 2.*3.14159 / (nmax-1) do n=1,nmax t = dt*(n-1) x(n) = 5.*sin(4.*t) y(n) = 5.*cos(5.*t) end do !-- ����� 1 ---- call DclOpenGraphics() call DclNewFrame call DclSetWindow( -6., 6., -6., 6. ) call DclSetViewPort( 0.15, 0.45, 0.65, 0.95 ) call DclSetTransNumber( 1 ) call DclSetTransFunction call DclSetTitle( 'x1', 'y1', '', '' ) call DclDrawScaledAxis call DclDrawLine( x, y ) !-- �ǡ��� 2 ---- iseed = 1 x(1) = 2.*(rngu2(iseed)-0.5) do n=2,nmax x(n) = 2.*(rngu2(iseed)-0.5) y(n-1) = x(n) end do y(nmax) = x(1) !-- ����� 2 ---- call DclNewFig call DclSetWindow( -1.1, 1.1, -1.1, 1.1 ) call DclSetViewPort( 0.15, 0.95, 0.1, 0.5 ) call DclSetTransNumber( 1 ) call DclSetTransFunction call DclSetTitle( 'x2-title', 'y2-title', '', '' ) call DclDrawScaledAxis call DclDrawMarker( x, y ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/layout/size.f900000644000175000017500000000065114760053155016264 0ustar uwabamiuwabami program size use dcl call DclOpenGraphics() call DclSetParm( 'USE_FULL_WINDOW', .true. ) call DclSetFrameMargin( 0., 0., 0.08, 0.08 ) call DclSetAspectRatio( 1., 0.6 ) call DclNewFrame call DclSetViewPort( 0.1, 0.9, 0.1, 0.5 ) call DclDrawDeviceWindowFrame( 1 ) call DclDrawViewportFrame( 2 ) call DclDrawTextNormalized( 0.5, 0.3, 'Figure' ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/layout/multi.f900000644000175000017500000000075414760053155016450 0ustar uwabamiuwabami program multi use dcl character(len=7) :: ctxt = 'frame??' call DclOpenGraphics() call DclSetFrameMargin( 0.1, 0.1, 0.05, 0.05 ) call DclDivideFrame( 'y', 3, 2 ) call DclSetFrameMargin( 0.05, 0.05, 0.05, 0.05 ) do i=1,12 call DclNewFrame call DclSetViewPort( 0.1,0.9,0.1,0.9 ) call DclDrawViewPortFrame( 1 ) write(ctxt(6:7),'(i2.2)') i call DclDrawTextNormalized( 0.5, 0.5, ctxt ) end do call DclCloseGraphics end program dcl-7.5.2/demo/f90/layout/layout05.f900000644000175000017500000000107414760053155016774 0ustar uwabamiuwabami program layout05 use dcl call DclOpenGraphics() call DclSetFrameMargin( 0.1, 0.1, 0.1, 0.1 ) call DclSetFrameTitle( 'figure title', 't', 0., 0., 0.03, 1 ) call DclSetFrameTitle( 'program.name', 'b', -1., 1., 0.02, 2 ) call DclSetFrameTitle( '#date #time', 'b', 0., 0., 0.02, 3 ) call DclSetFrameTitle( 'page:#page', 'b', 1., -1., 0.02, 4 ) call DclNewFrame call DclSetViewPort( 0.1,0.9,0.1,0.9 ) call DclDrawViewPortFrame( 1 ) call DclDrawTextNormalized( 0.5, 0.5, 'figure' ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/layout/etc.f900000644000175000017500000000052114760053155016061 0ustar uwabamiuwabamiprogram etc use dcl call DclSetParm('WINDOW_WIDTH',300) call DclSetParm('WINDOW_HEIGHT',200) call DclOpenGraphics(-1) call DclDrawDeviceViewPortFrame(1) call DclSetParm( 'IFONT', 2 ) call DclSetParm( 'ENABLE_PROPORTIONAL_FONT', .true. ) call DclDrawTextProjected(0.3,0.5,'Font2') call DclCloseGraphics end program dcl-7.5.2/demo/f90/miss/0000755000175000017500000000000014760053155014426 5ustar uwabamiuwabamidcl-7.5.2/demo/f90/miss/Makefile0000644000175000017500000000046214760053155016070 0ustar uwabamiuwabami# # Makefile for miss (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = miss LIBSRCS = miss01.f90 miss02.f90 LIBDEMO = miss01 miss02 all: $(LIBDEMO) clean: $(RM) $(LIBDEMO) *.o *~ *.ps core *.trace *.eps *.svg *.pdf a.out dcl-7.5.2/demo/f90/miss/miss01.f900000644000175000017500000000224014760053155016060 0ustar uwabamiuwabami program miss01 use dcl integer,parameter :: nmax=40 real,parameter :: xmin=0., xmax=4*DCL_PI, ymin=-1., ymax=1. real :: x(0:nmax), y(0:nmax) x = (/( xmax*real(n)/nmax, n=0,nmax )/) y = sin(x) n1 = nmax/4 y(n1-1:n1+1) = 999. n2 = n1*3 y(n2-1) = 999. y(n2+1) = 999. call DclOpenGraphics() call DclNewFrame !-- 欠損値処理なし ---- call DclSetWindow( xmin, xmax, ymin, ymax ) call DclSetViewPort( 0.1, 0.9, 0.7, 0.9 ) call DclSetTransNumber( 1 ) call DclSetTransFunction call DclDrawLine( x, y ) call DclSetWindow( xmin, xmax, ymin, ymax ) call DclSetViewPort( 0.1, 0.9, 0.5, 0.7 ) call DclSetTransFunction call DclDrawMarker( x, y, type=3 ) !-- 欠損値処理 ---- call DclSetParm('INTERPRET_MISSING_VALUE', .true. ) call DclSetWindow( xmin, xmax, ymin, ymax ) call DclSetViewPort( 0.1, 0.9, 0.3, 0.5 ) call DclSetTransFunction call DclDrawLine( x, y ) call DclSetWindow( xmin, xmax, ymin, ymax ) call DclSetViewPort( 0.1, 0.9, 0.1, 0.3 ) call DclSetTransFunction call DclDrawMarker( x, y ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/miss/miss02.f900000644000175000017500000000215014760053155016061 0ustar uwabamiuwabami program miss02 use dcl integer,parameter :: nx=36, ny=36 real,parameter :: xmin=0, xmax=360, ymin=-90, ymax=90 real,parameter :: pi=3.14159, drad=pi/180 real :: p(0:nx,0:ny) call DclGetParm( 'MISSING_REAL', rmiss ) call DclSetParm( 'INTERPRET_MISSING_VALUE', .true. ) do j=0,ny alat = ( ymin + (ymax-ymin) * j/ny ) * drad slat = sin(alat) do i=0,nx alon = ( xmin + (xmax-xmin) * i/nx ) * drad p(i,j) = 3*sqrt(1-slat**2)*slat*cos(alon) - 0.5*(3*slat**2-1) if( i==6 .and. j==6 ) then p(i,j) = rmiss end if if( ( 8 <= i .and. i <= 24) .and. j==30 ) then p(i,j) = rmiss end if if( (22 <= i .and. i <= 30) .and. (12 <= j .and. j <= 20) ) then p(i,j) = rmiss end if end do end do call DclOpenGraphics() call DclNewFrame call DclSetWindow( xmin, xmax, ymin, ymax ) call DclSetViewPort( 0.2, 0.8, 0.2, 0.8 ) call DclSetTransFunction call DclShadeContour( p ) call DclDrawScaledAxis call DclDrawContour( p ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/2d/0000755000175000017500000000000014760053155013760 5ustar uwabamiuwabamidcl-7.5.2/demo/f90/2d/2d03.f900000644000175000017500000000245414760053155014755 0ustar uwabamiuwabami program sample_2d03 use dcl integer,parameter :: nx=18, ny=18 real,parameter :: xmin= 0, xmax=360, dx1=20, dx2=60 real,parameter :: ymin=-90, ymax=+90, dy1=10, dy2=30 real,parameter :: pi=3.141592, drad=pi/180, dz=0.05, dp=0.2 real,dimension(0:nx,0:ny) :: p do j = 0, ny do i = 0, nx alon = ( xmin + (xmax-xmin) * i/nx ) * drad alat = ( ymin + (ymax-ymin) * j/ny ) * drad slat = sin(alat) p(i,j) = cos(alon) * (1-slat**2) * sin(2*pi*slat) + dz end do end do call DclOpenGraphics() ! rmiss = DclGetReal( 'GLOBAL:rmiss' ) call DclGetParm( 'GLOBAL:rmiss', rmiss ) call DclSetParm( 'GRAPH:LSOFTF', .false. ) call DclNewFrame call DclSetWindow( xmin, xmax, ymin, ymax ) call DclSetViewPort( 0.2, 0.8, 0.2, 0.8 ) call DclSetTransNumber( DCL_UNI_UNI ) call DclSetTransFunction call DclSetShadeLevel( rmiss, -dp, 201 ) call DclSetShadeLevel( dp, dp*2, 401 ) call DclSetShadeLevel( dp*2, rmiss, 402 ) call DclShadeContour( p ) call DclDrawAxis( 'bt', dx2, dx1 ) call DclDrawTitle( 'b', 'LONGITUDE', 0.0 ) call DclDrawAxis( 'lr', dy2, dy1 ) call DclDrawTitle( 'l', 'LATITUDE', 0.0 ) call DclSetContourLevel( p, dp ) call DclDrawContour( p ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/2d/Makefile0000644000175000017500000000046414760053155015424 0ustar uwabamiuwabami# # Makefile for 2d (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = 2d LIBSRCS = 2d02.f90 2d03.f90 2d05.f90 LIBDEMO = 2d02 2d03 2d05 all: $(LIBDEMO) clean: $(RM) $(LIBDEMO) *.o *~ *.ps core *.trace *.eps *.svg *.pdf a.out dcl-7.5.2/demo/f90/2d/2d05.f900000644000175000017500000000355014760053155014755 0ustar uwabamiuwabami program sample_2d05 use dcl integer,parameter :: nx=19, ny=19 real,parameter :: xmin=0, xmax=360, dx1=20, dx2=60 real,parameter :: ymin=-90, ymax=90, dy1=10, dy2=30 real,parameter :: pi=3.141592, drad=pi/180, dz=0.05 real,dimension(nx,ny) :: p,u,v call DclGetParm( 'GLOBAL:rmiss', rmiss ) call DclSetParm( 'GLOBAL:lmiss', .true. ) do j = 1, ny do i = 1, nx alon = ( xmin + (xmax-xmin) * (i-1) / (nx-1) ) * drad alat = ( ymin + (ymax-ymin) * (j-1) / (ny-1) ) * drad slat = sin(alat) p(i,j) = cos(alon) * (1-slat**2) * sin(2*pi*slat) + dz end do end do do j = 1, ny do i = 1, nx if (j==1 .or. j==ny) then u(i,j)=rmiss v(i,j)=rmiss else u(i,j) = p(i,j-1) - p(i,j+1) v(i,j) = p(modulo(i,nx-1)+1,j) - p(modulo(i-2,nx-1)+1,j) end if end do end do call DclOpenGraphics() call DclNewFrame call DclSetWindow( xmin, xmax, ymin, ymax ) call DclSetViewPort( 0.2, 0.8, 0.2, 0.8 ) call DclSetTransNumber( DCL_UNI_UNI ) call DclSetTransFunction call DclDrawAxis( 'bt', dx2, dx1 ) call DclDrawTitle( 'b', 'LONGITUDE', 0.0 ) call DclDrawAxis( 'lr', dy2, dy1 ) call DclDrawTitle( 'l', 'LATITUDE', 0.0 ) call DclSetParm( 'CONTOUR:rsizel', 0.015 ) call DclSetParm( 'CONTOUR:rsizet', 0.015 ) call DclDrawContour( p ) call DclSetParm( 'VECTOR:rsizet', 0.015 ) call DclSetParm( 'VECTOR:lnrmal', .false. ) call DclSetParm( 'VECTOR:xfact1', 0.025 ) call DclSetParm( 'VECTOR:yfact1', 0.050 ) call DclSetParm( 'VECTOR:lunit', .true. ) call DclSetUnitVectorTitle( 'x', 'u' ) call DclSetUnitVectorTitle( 'y', 'v' ) call DclSetParm( 'VECTOR:vxunit', 0.05 ) call DclSetParm( 'VECTOR:vyunit', 0.10 ) call DclDrawVectors( u, v ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/2d/2d02.f900000644000175000017500000000265314760053155014755 0ustar uwabamiuwabami program sample_2d02 use dcl integer,parameter :: nx=18, ny=18 real,parameter :: xmin=0, xmax=360, dx1=10, dx2=60 real,parameter :: ymin=-90, ymax=90 real,parameter :: pi=3.141592, drad=pi/180, dz=0.05 integer,parameter :: my=6, nc=3 real :: p(0:nx, 0:ny), uy1(0:ny), uy2(0:my) character(len=nc),dimension(0:my) :: ch ch = (/ 'SP ', '60S', '30S', 'EQ ', '30N', '60N', 'NP ' /) do j = 0, ny alat = ( ymin + (ymax-ymin) * j/ny ) * drad slat = sin(alat) uy1(j) = slat do i = 0, nx alon = ( xmin + (xmax-xmin) * i/nx ) * drad p(i,j) = cos(alon) * (1-slat**2) * sin(2*pi*slat) + dz end do end do do j = 0, my alat = ( ymin + (ymax-ymin) * j/my ) * drad slat = sin(alat) uy2(j) = slat end do call DclOpenGraphics() call DclNewFrame call DclSetWindow( xmin, xmax, uy1(1), uy1(ny) ) call DclSetViewPort( 0.2, 0.8, 0.2, 0.8 ) call DclSetTransFunction call DclDrawAxis( 'bt', dx2, dx1 ) call DclDrawTitle( 'b', 'LONGITUDE', 0.0 ) call DclDrawAxisSpecify( 'lr', uy2, uy1, ch ) call DclDrawTitle( 'l', 'LATITUDE', 0.0 ) call DclSetXEvenGrid( xmin, xmax, nx+1 ) call DclSetYGrid( uy1 ) call DclSetContourLabelFormat( '(f6.1)' ) call DclSetContourLevel( p, 0.2 ) call DclSetContourLine( 0.1, index=1, type=4, height=0.01 ) call DclDrawContour( p ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/axis/0000755000175000017500000000000014760053155014417 5ustar uwabamiuwabamidcl-7.5.2/demo/f90/axis/many.f900000644000175000017500000000277714760053155015720 0ustar uwabamiuwabami!----------------------------------------------------------------------- ! Copyright (c) 2002 GFD Dennou Club. All Rights Reserved. !----------------------------------------------------------------------- program many use dcl integer,parameter :: days=180 type(dcl_date) :: date date%year = 1981 date%month = 12 date%day = 1 call DclOpenGraphics call DclSetAxisFactor( 0.7 ) call DclSetParm( 'ENABLE_LINEAR_OFFSET',.true.) call DclNewFrame call DclSetWindow( 0.0, real(days), 0.0, 100.0 ) call DclSetViewPort( 0.4, 0.9, 0.3, 0.8 ) call DclSetTransFunction call DclDrawViewPortFrame( 1 ) call DclDrawAxisCalendar( 'b', date, nd=days ) call DclShiftAxis( 'b' ) call DclDrawAxis( 'b', 20.0, 10.0 ) call DclDrawTitle( 'b', 'Day Number', 0.0 ) call DclDrawAxisCalendar( 't', date, nd=days ) call DclDrawAxis( 'lr', 10.0, 5.0 ) call DclDrawTitle( 'l', 'Celsius Scale', 0.0 ) call DclShiftAxis( 'l' ) call DclSetParm( 'Y_AXIS_OFFSET', 273.15 ) call DclSetParm( 'Y_AXIS_FACTOR', 1.0 ) call DclDrawAxis( 'l', 10.0, 5.0 ) call DclDrawTitle( 'l', 'Kelvin Scale', 0.0 ) call DclShiftAxis( 'l' ) call DclSetParm( 'Y_AXIS_OFFSET', 32.0 ) call DclSetParm( 'Y_AXIS_FACTOR', 1.8 ) call DclDrawAxis( 'l', 20.0, 10.0 ) call DclDrawTitle( 'l', 'Fahrenheit Scale', 0.0 ) ! call DclDrawTitle( 't', '( AXIS:lofset=.true. )', 0.0 ) call DclDrawTitle( 't', 'DclShiftXAxis', sw=2 ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/axis/axis05.f900000644000175000017500000000177014760053155016055 0ustar uwabamiuwabami program axis05 use dcl real,parameter :: rlat1=20., rlat2=80., dlat1=5., dlat2=10. integer,parameter :: days=180 type(dcl_date) :: date date%year = 1981 date%month = 12 date%day = 1 call DclOpenGraphics() call DclSetAxisFactor( 0.7 ) call DclNewFrame call DclSetWindow( 0.0, real(days), rlat1, rlat2 ) call DclSetViewPort( 0.2, 0.8, 0.4, 0.8 ) call DclSetTransFunction call DclDrawViewPortFrame( 1 ) call DclShiftAxis( 'b' ) call DclDrawAxisCalendar( 'b', date, nd=days ) call DclShiftAxis( 'b' ) call DclDrawAxis( 'b', 20.0, 10.0 ) call DclDrawTitle( 'b', 'Day Number', 0.0 ) call DclShiftAxis( 't' ) call DclDrawAxisCalendar( 't', date, nd=days ) call DclShiftAxis( 'l' ) call DclDrawAxis( 'l', dlat2, dlat1 ) call DclShiftAxis( 'r' ) call DclDrawAxis( 'r', dlat2, dlat1 ) call DclDrawTitle( 'l', 'Latitude', 0.0 ) call DclDrawTitle( 't', 'DclShiftAxis', 0.0, 2 ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/axis/axis08b.f900000644000175000017500000000466314760053155016226 0ustar uwabamiuwabami!----------------------------------------------------------------------- program ucpk02 use dcl integer,parameter :: jd0=19920401 character(len=32) :: ctl call DclOpenGraphics( +abs(DclSelectDevice()) ) call DclSetParm( 'GRAPH:lfull',.true.) call DclSetAxisFactor(0.7) call DclSetAspectRatio(1.0,0.75) call DclDivideFrame('y',7,1) call DclNewFrame nd=30 call DclSetWindow(0.0,1.0,0.0,real(nd)) call DclSetViewPort(0.13,0.14,0.1,0.9) call DclSetTransNumber(1) call DclSetTransFunction call DclDrawYAxisCalendar('l',jd0,nd) ctl='DclDrawYAxisCalendar (30days)' call DclDrawYSubTitle('l',ctl,0.0) call DclNewFrame nd=90 call DclSetWindow(0.0,1.0,0.0,real(nd)) call DclSetViewPort(0.13,0.14,0.1,0.9) call DclSetTransNumber(1) call DclSetTransFunction call DclDrawYAxisCalendar('l',jd0,nd) ctl='DclDrawYAxisCalendar (90days)' call DclDrawYSubTitle('l',ctl,0.0) call DclNewFrame nd=180 call DclSetWindow(0.0,1.0,0.0,real(nd)) call DclSetViewPort(0.13,0.14,0.1,0.9) call DclSetTransNumber(1) call DclSetTransFunction call DclDrawYAxisCalendar('l',jd0,nd) ctl='DclDrawYAxisCalendar (180days)' call DclDrawYSubTitle('l',ctl,0.0) call DclNewFrame nd=400 call DclSetWindow(0.0,1.0,0.0,real(nd)) call DclSetViewPort(0.13,0.14,0.1,0.9) call DclSetTransNumber(1) call DclSetTransFunction call DclDrawYAxisCalendar('l',jd0,nd) ctl='DclDrawYAxisCalendar (400days)' call DclDrawYSubTitle('l',ctl,0.0) call DclNewFrame nd=60 call DclSetWindow(0.0,1.0,0.0,real(nd)) call DclSetViewPort(0.13,0.14,0.1,0.9) call DclSetTransNumber(1) call DclSetTransFunction call DclDrawYAxisDay('l',jd0,nd) ctl='DclDrawYAxisDay (60days)' call DclDrawYSubTitle('l',ctl,0.0) call DclNewFrame nd=120 call DclSetWindow(0.0,1.0,0.0,real(nd)) call DclSetViewPort(0.13,0.14,0.1,0.9) call DclSetTransNumber(1) call DclSetTransFunction call DclDrawYAxisMonth('l',jd0,nd) ctl='DclDrawYAxisMonth (120days)' call DclDrawYSubTitle('l',ctl,0.0) call DclNewFrame nd=2000 call DclSetWindow(0.0,1.0,0.0,real(nd)) call DclSetViewPort(0.13,0.14,0.1,0.9) call DclSetTransNumber(1) call DclSetTransFunction call DclDrawYAxisYear('l',jd0,nd) ctl='DclDrawYAxisYear (2000days)' call DclDrawYSubTitle('l',ctl,0.0) call DclCloseGraphics end program dcl-7.5.2/demo/f90/axis/axis04.f900000644000175000017500000000130614760053155016047 0ustar uwabamiuwabami program axis04 use dcl integer,parameter :: days=90 type(dcl_date) :: date date%year = 1991 date%month = 4 date%day = 1 call DclOpenGraphics() call DclNewFrame call DclSetWindow( 0.0, real(days), -1.0, +1.0 ) call DclSetViewPort( 0.2, 0.8, 0.2, 0.8 ) call DclSetTransFunction call DclDrawAxisCalendar( 'bt', date, nd=days ) call DclDrawAxis( 'l', 0.25, 0.05 ) ! call DclSetParm( 'AXIS:labelyr', .true. ) ! call uysfmt( '(f6.2)' ) !! call DclSetYLabelFormat( '(f6.2)' ) call DclDrawAxis( 'r', 0.25, 0.05 ) call DclDrawTitle( 'l', 'Correlation', 0.0 ) call DclDrawTitle( 't', 'Calendar', 0.0, 2 ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/axis/log.f900000644000175000017500000000076014760053155015523 0ustar uwabamiuwabami program axis03 use dcl call DclOpenGraphics() call DclNewFrame call DclSetWindow( 1.0e0, 1.0e5, 1.0e3, 1.0e0 ) call DclSetViewPort( 0.2, 0.8, 0.2, 0.8 ) call DclSetTransNumber( DCL_LOG_LOG ) call DclSetTransFunction call DclDrawAxisLog( 'bt', 1, 9 ) call DclDrawTitle( 'b', '[x]', 1.0 ) call DclDrawAxisLog( 'lr', 3, 9 ) call DclDrawTitle( 'l', '[y]', 1.0 ) call DclDrawTitle( 't', 'Log Axis', 0.0, 2 ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/axis/specify.f900000644000175000017500000000254114760053155016403 0ustar uwabamiuwabami program axis06 use dcl integer,parameter :: nx1=21, nx2= 5, ny2=18 real,dimension(nx1) :: rx1 = (/ & -50,-45,-40,-35,-30,-25,-20,-15,-10, -5, 0, & 5, 10, 15, 20, 25, 30, 35, 40, 45, 50 /) real,dimension(nx2) :: rx2 = (/ & -40 , -20 , 0 , 20 , 40 /) real,dimension(ny2) :: ry2 = (/ & 1000. , 850. , 700. , 500. , 400. , 300. , & 250. , 200. , 150. , 100. , 70. , 50. , & 30. , 10. , 5. , 2. , 1. , 0.4 /) character(len=4),dimension(nx2) :: cx2 = (/ & '40S ','20S ','EQ ','20N ','40N ' /) character(len=4),dimension(ny2) :: cy2 = (/ & '1000',' ',' ','500 ',' ',' ', & ' ','200 ',' ','100 ',' ','50 ', & '30 ','10 ','5 ','2 ','1 ','.4 ' /) call DclOpenGraphics() call DclNewFrame call DclSetWindow( -50.0, +50.0, 1.0e3, 0.4 ) call DclSetViewPort( 0.2, 0.8, 0.2, 0.8 ) call DclSetTransNumber( DCL_UNI_LOG ) call DclSetTransFunction call DclDrawAxisSpecify( 'b', rx2, rx1, label=cx2 ) call DclDrawAxisSpecify( 't', rx2, rx1 ) call DclDrawTitle( 'b', 'Latitude', 0.0 ) call DclDrawAxisSpecify( 'l', ry2, label=cy2 ) call DclDrawAxisSpecify( 'r', ry2 ) call DclDrawTitle( 'l', 'Pressure (hPa)', 0.0 ) call DclDrawTitle( 't', 'DclDrawAxisSpecify', 0.0, 2 ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/axis/axis07a.f900000644000175000017500000000333514760053155016217 0ustar uwabamiuwabami!----------------------------------------------------------------------- program ulpk01 use dcl integer,parameter :: nbl=2 real,dimension(nbl) :: bl character(len=64) :: ctl bl = (/ 1.0,3.0 /) call DclOpenGraphics( -DclSelectDevice() ) call DclSetParm( 'GRAPH:lfull',.true.) call DclSetAxisFactor(0.7) call DclSetAspectRatio(0.75,1.0) call DclDivideFrame('t',1,7) do i=1,7 call DclNewFrame call DclSetWindow(0.15,200.,0.1,1e5) call DclSetViewPort(0.1,0.9,0.1,0.11) call DclSetTransNumber( DCL_LOG_LOG ) call DclSetTransFunction select case(i) case(1) call DclSetParm( 'LOG:ixtype',1) call DclDrawAxisLog('b',1,9) ctl='ixtype=1,nlbl=1,ntck=9' case(2) call DclSetParm( 'LOG:ixtype',1) call DclDrawAxisLog('b',3,9) ctl='ixtype=1,nlbl=3,ntck=9' case(3) call DclSetParm( 'LOG:ixtype',2) call DclDrawAxisLog('b',3,9) ctl='ixtype=2,nlbl=3,ntck=9' case(4) call DclSetParm( 'LOG:ixtype',3) call DclDrawAxisLog('b',3,9) ctl='ixtype=3,nlbl=3,ntck=9' case(5) call DclSetParm( 'LOG:ixtype',4) call DclDrawAxisLog('b',3,9) ctl='ixtype=4,nlbl=3,ntck=9' case(6) call DclSetParm( 'LOG:ixtype',3) call DclDrawAxisLog('b',3,9,cformat='(f5.1)') ctl='ixtype=3,nlbl=3,ntck=9' case(7) call DclSetParm( 'LOG:ixtype',1) call DclSetParm( 'LOG:ixchr',194) CALL ULSXBL(BL,NBL) ! call DclSetXLogLabel( bl ) call DclDrawAxisLog('b',4,5) ctl='ixtype=1,nlbl=4,ntck=5' end select call DclDrawTitle('b',ctl,0.0,1) end do call DclCloseGraphics end program dcl-7.5.2/demo/f90/axis/Makefile0000644000175000017500000000136514760053155016064 0ustar uwabamiuwabami# # Makefile for axis (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = axis LIBSRCS = attrib.f90 axis.f90 axis02.f90 axis03.f90 axis04.f90 \ axis05.f90 axis06.f90 axis07a.f90 axis07b.f90 \ axis08a.f90 axis08b.f90 axis09.f90 axis10a.f90 \ axis10b.f90 cal2.f90 calendar.f90 fuzzy.f90 log.f90 \ many.f90 specify.f90 LIBDEMO = attrib axis axis02 axis03 axis04 axis05 axis06 \ axis07a axis07b axis08a axis08b axis09 axis10a \ axis10b cal2 calendar fuzzy log many specify all: $(LIBDEMO) clean: $(RM) $(LIBDEMO) *.o *~ *.ps core *.trace *.eps *.svg *.pdf a.out *.mod dcl-7.5.2/demo/f90/axis/axis07b.f900000644000175000017500000000333414760053155016217 0ustar uwabamiuwabami!----------------------------------------------------------------------- program ulpk02 use dcl integer,parameter :: nbl=2 real,dimension(nbl) :: bl character*64 :: ctl bl = (/ 1.0,3.0 /) call DclOpenGraphics( DclSelectDevice() ) call DclSetParm( 'GRAPH:lfull',.true. ) call DclSetAxisFactor(0.7) call DclSetAspectRatio(1.0,0.75) call DclDivideFrame('y',7,1) do i=1,7 call DclNewFrame call DclSetWindow(0.2,200.,0.15,200.) call DclSetViewPort(0.13,0.14,0.1,0.9) call DclSetTransNumber( DCL_LOG_LOG ) call DclSetTransFunction select case(i) case(1) call DclSetParm( 'LOG:IYTYPE',1) call DclDrawYLogAxis('l',1,9) ctl='iytype=1,nlbl=1,ntck=9' case(2) call DclSetParm( 'LOG:IYTYPE',1) call DclDrawYLogAxis('l',3,9) ctl='iytype=1,nlbl=3,ntck=9' case(3) call DclSetParm( 'LOG:IYTYPE',2) call DclDrawYLogAxis('l',3,9) ctl='iytype=2,nlbl=3,ntck=9' case(4) call DclSetParm( 'LOG:IYTYPE',3) call DclDrawYLogAxis('l',3,9) ctl='iytype=3,nlbl=3,ntck=9' case(5) call DclSetParm( 'LOG:IYTYPE',4) call DclDrawYLogAxis('l',3,9) ctl='iytype=4,nlbl=3,ntck=9' case(6) call DclSetYLogFormat('(f5.1)') call DclSetParm( 'LOG:iytype',3) call DclDrawYLogAxis('l',3,9) ctl='iytype=3,nlbl=3,ntck=9' case(7) call DclSetParm( 'LOG:IYTYPE',1) call DclSetParm( 'LOG:IYCHR',194) call DclSetYLogLabel( bl ) call DclDrawYLogAxis('l',4,5) ctl='iytype=1,nlbl=4,ntck=5' end select call DclDrawYSubTitle('l',ctl,0.0) end do call DclCloseGraphics end program dcl-7.5.2/demo/f90/axis/axis.f900000644000175000017500000000160214760053155015702 0ustar uwabamiuwabami!----------------------------------------------------------------------- ! Copyright (c) 2002 GFD Dennou Club. All Rights Reserved. !----------------------------------------------------------------------- program axis use dcl call DclOpenGraphics call DclNewFrame call DclSetWindow( 1985.0, 1990.0, -2.0, +2.0 ) call DclSetViewPort( 0.2, 0.8, 0.3, 0.7 ) call DclSetTransFunction call DclSetParm( 'ENABLE_SPAN_LABELING', .true. ) call uxsfmt( '(i4)' ) call DclDrawAxis( 'h', 0.25, 1.0, section=0.0 ) call DclSetParm( 'ENABLE_SPAN_LABELING', .false. ) call DclDrawTitle( 'h', 'year', +1.0 ) call DclSetParm( 'TICKMARK_SIDE', -1 ) ! call DclSetYLabelFormat( '(F4.1)' ) call DclDrawAxis( 'l', 0.25, 1. ) call DclDrawTitle( 'l', 'S.O.Index', 0. ) call DclDrawTitle( 't', 'Axis', 0.0, sw=2 ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/axis/axis10b.f900000644000175000017500000000261114760053155016206 0ustar uwabamiuwabami!----------------------------------------------------------------------- program uxyz10 use dcl integer,parameter :: id0=19811201, nd=180 call DclOpenGraphics() call DclSetAxisFactor( 0.7 ) call DclSetParm( 'AXIS:loffset',.true.) call DclNewFrame call DclSetWindow( 0.0, real(nd), 0.0, 100.0 ) call DclSetViewPort( 0.4, 0.9, 0.3, 0.8 ) call DclSetTransNumber( DCL_UNI_UNI ) call DclSetTransFunction call DclDrawViewPortFrame( 1 ) call DclDrawXAxisCalendar( 'b', id0, nd ) call DclShiftXAxis( 'b' ) call DclDrawXAxis( 'b', 20.0, 10.0 ) call DclDrawXSubTitle( 'b', 'Day Number', 0.0 ) call DclDrawXAxisCalendar( 't', id0, nd ) call DclDrawYAxis( 'l', 10.0, 5.0 ) call DclDrawYAxis( 'r', 10.0, 5.0 ) call DclDrawYSubTitle( 'l', 'Celsius Scale', 0.0 ) call DclShiftYAxis( 'l' ) call DclSetParm( 'AXIS:yoffset', 273.15 ) call DclSetParm( 'AXIS:yfact ', 1.0 ) call DclDrawYAxis( 'l', 10.0, 5.0 ) call DclDrawYSubTitle( 'l', 'Kelvin Scale', 0.0 ) call DclShiftYAxis( 'l' ) call DclSetParm( 'AXIS:yoffset', 32.0 ) call DclSetParm( 'AXIS:yfact ', 1.8 ) call DclDrawYAxis( 'l', 20.0, 10.0 ) call DclDrawYSubTitle( 'l', 'Fahrenheit Scale', 0.0 ) call DclDrawXSubTitle( 't', '( AXIS:lofset=.true. )', 0.0 ) call DclDrawXSubTitle( 't', 'DclShiftXAxis', 0.0 ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/axis/attrib.f900000644000175000017500000000111214760053155016217 0ustar uwabamiuwabami program axis02 use dcl call DclOpenGraphics() call DclNewFrame call DclSetWindow( -180.0, +180.0, -90.0, +90.0 ) call DclSetViewPort( 0.2, 0.8, 0.3, 0.7 ) call DclSetTransFunction call DclDrawAxis( 'bt', 60.0, 10.0 ) call DclDrawTitle( 'b', 'Longitude', 0.0 ) call DclDrawTitle( 'b', '<- west east ->', 0.0 ) call DclDrawAxis( 'lr', 30.0, 10.0 ) call DclDrawTitle( 'l', 'Latitude', 0.0 ) call DclDrawTitle( 'l', '<- SH NH ->', 0.0 ) call DclDrawTitle( 't', 'Main Title', 0.0, 2 ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/axis/calendar.f900000644000175000017500000000131014760053155016503 0ustar uwabamiuwabami program calendar use dcl integer,parameter :: days=90 type(dcl_date) :: date date%year = 1991 date%month = 4 date%day = 1 call DclOpenGraphics() call DclNewFrame call DclSetWindow( 0.0, real(days), -1.0, +1.0 ) call DclSetViewPort( 0.2, 0.8, 0.2, 0.8 ) call DclSetTransFunction call DclDrawAxisCalendar( 'bt', date, nd=days ) call DclDrawAxis( 'l', 0.25, 0.05 ) ! call DclSetParm( 'AXIS:labelyr', .true. ) ! call uysfmt( '(f6.2)' ) !! call DclSetYLabelFormat( '(f6.2)' ) call DclDrawAxis( 'r', 0.25, 0.05 ) call DclDrawTitle( 'l', 'Correlation', 0.0 ) call DclDrawTitle( 't', 'Calendar', 0.0, 2 ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/axis/fuzzy.f900000644000175000017500000000135714760053155016134 0ustar uwabamiuwabami!----------------------------------------------------------------------- ! Copyright (c) 2002 GFD Dennou Club. All Rights Reserved. !----------------------------------------------------------------------- program fuzzy use dcl call DclOpenGraphics() call DclNewFrame call DclSetWindow( -50.0, +50.0, 1.0e3, 0.4 ) call DclSetViewPort( 0.2, 0.8, 0.2, 0.8 ) call DclSetTransNumber( 2 ) call DclSetTransFunction call DclDrawAxis( 'bt', 5.0, 20.0 ) call DclDrawTitle( 'b', 'Latitude', 0.0 ) call DclSetParm( 'iytype', 3 ) call DclDrawAxisLog( 'lr', 3, 9 ) call DclDrawTitle( 'l', 'Pressure (mb)', 0.0 ) ! call DclDrawTitle( 't', 'uxaxdv/ulylog', 0.0, sw=2 ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/axis/axis10a.f900000644000175000017500000000244314760053155016210 0ustar uwabamiuwabami!----------------------------------------------------------------------- program uxyz08 use dcl real,parameter :: x1=-180., x2=+180., dx1=10., dx2=60. real,parameter :: y1= -90., y2= +90., dy1=10., dy2=30. call DclOpenGraphics() call DclNewFrame call DclSetWindow( x1, x2, y1, y2 ) call DclSetViewPort( 0.2, 0.8, 0.3, 0.7 ) call DclSetTransNumber( DCL_UNI_UNI ) call DclSetTransFunction call DclSetParm( 'AXIS:inner', -1 ) call DclSetParm( 'AXIS:uxuser', 0.0 ) call DclSetParm( 'AXIS:uyuser', 0.0 ) call DclSetParm( 'AXIS:labelxu', .false. ) call DclSetParm( 'AXIS:labelyu', .false. ) call DclDrawXAxis( 'b', dx2, dx1 ) call DclDrawXAxis( 't', dx2, dx1 ) call DclDrawXSubTitle( 'b', 'Longitude', 0.0 ) call DclDrawYAxis( 'l', dy2, dy1 ) call DclDrawYAxis( 'r', dy2, dy1 ) call DclDrawYSubTitle( 'l', 'Latitude', 0.0 ) call DclDrawXMainTitle( 't', 'DclDrawXAxis', 0.0 ) call DclSetAxisFactor( 0.5 ) call DclDrawXAxis( 'u', dx2, dx1 ) call DclDrawXSubTitle( 'u', 'EQ', +0.9 ) call DclDrawYAxis( 'u', dy2, dy1 ) call DclDrawYSubTitle( 'u', 'GM', -0.9 ) call DclSetParm( 'AXIS:inner', +1 ) call DclDrawXAxis( 'u', dx2, dx1 ) call DclDrawYAxis( 'u', dy2, dy1 ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/axis/axis08a.f900000644000175000017500000000471614760053155016224 0ustar uwabamiuwabami!----------------------------------------------------------------------- program ucpk01 use dcl integer,parameter :: jd0=19920401 character(len=32) :: ctl call DclOpenGraphics( -abs(DclSelectDevice()) ) call DclSetParm( 'GRAPH:lfull',.true.) call DclSetAxisFactor(0.7) call DclSetAspectRatio(0.75,1.0) call DclDivideFrame('t',1,7) call DclNewFrame nd=30 call DclSetWindow(0.0,real(nd),0.0,1.0) call DclSetViewPort(0.1,0.9,0.13,0.14) call DclSetTransNumber(1) call DclSetTransFunction call DclDrawXAxisCalendar('b',jd0,nd) ctl='DclDrawXAxisCalendar (30days)' call DclDrawXSubTitle('b',ctl,0.0) call DclNewFrame nd=90 call DclSetWindow(0.0,real(nd),0.0,1.0) call DclSetViewPort(0.1,0.9,0.13,0.14) call DclSetTransNumber(1) call DclSetTransFunction call DclDrawXAxisCalendar('b',jd0,nd) ctl='DclDrawXAxisCalendar (90days)' call DclDrawXSubTitle('b',ctl,0.0) call DclNewFrame nd=180 call DclSetWindow(0.0,real(nd),0.0,1.0) call DclSetViewPort(0.1,0.9,0.13,0.14) call DclSetTransNumber(1) call DclSetTransFunction call DclDrawXAxisCalendar('b',jd0,nd) ctl='DclDrawXAxisCalendar (180days)' call DclDrawXSubTitle('b',ctl,0.0) call DclNewFrame nd=400 call DclSetWindow(0.0,real(nd),0.0,1.0) call DclSetViewPort(0.1,0.9,0.13,0.14) call DclSetTransNumber(1) call DclSetTransFunction call DclDrawXAxisCalendar('b',jd0,nd) ctl='DclDrawXAxisCalendar (400days)' call DclDrawXSubTitle('b',ctl,0.0) call DclNewFrame nd=60 call DclSetWindow(0.0,real(nd),0.0,1.0) call DclSetViewPort(0.1,0.9,0.1,0.11) call DclSetTransNumber(1) call DclSetTransFunction call DclDrawXAxisDay('b',jd0,nd) ctl='DclDrawXAxisDay (60days)' call DclDrawXSubTitle('b',ctl,0.0) call DclNewFrame ! call uzinit nd=120 call DclSetWindow(0.0,real(nd),0.0,1.0) call DclSetViewPort(0.1,0.9,0.1,0.11) call DclSetTransNumber(1) call DclSetTransFunction call DclDrawXAxisMonth('b',jd0,nd) ctl='DclDrawXAxisMonth (120days)' call DclDrawXSubTitle('b',ctl,0.0) call DclNewFrame ! call uzinit nd=2000 call DclSetWindow(0.0,real(nd),0.0,1.0) call DclSetViewPort(0.1,0.9,0.1,0.11) call DclSetTransNumber(1) call DclSetTransFunction call DclDrawXAxisYear('b',jd0,nd) ctl='DclDrawXAxisYear (2000days)' call DclDrawXSubTitle('b',ctl,0.0) call DclCloseGraphics end program dcl-7.5.2/demo/f90/axis/cal2.f900000644000175000017500000000172714760053155015567 0ustar uwabamiuwabami!----------------------------------------------------------------------- ! Copyright (c) 2002 GFD Dennou Club. All Rights Reserved. !----------------------------------------------------------------------- program calendar2 use dcl integer,parameter :: days=720 type(dcl_date) :: date date%year = 1981 date%month = 12 date%day = 1 call DclOpenGraphics() call DclSetAxisFactor( 0.8 ) call DclNewFrame call DclSetWindow( -180.0, 180.0, real(days), 0.0 ) call DclSetViewPort( 0.2, 0.8, 0.2, 0.8 ) call DclSetTransFunction call DclDrawAxis( 'bt', 10.0, 60.0 ) call DclDrawTitle( 'b', 'Longitude', 0.0 ) call DclDrawAxisCalendar( 'l', date, nd=days ) call DclSetParm( 'DRAW_RIGHT_LABEL', .true. ) call DclDrawAxis( 'r', 20.0, 100.0 ) call DclSetParm( 'RIGHT_TITLE_ANGLE', -1 ) call DclDrawTitle( 'r', 'Day Number', 0.0 ) call DclDrawTitle( 't', 'Calendar', sw=2 ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/axis/axis09.f900000644000175000017500000003472414760053155016066 0ustar uwabamiuwabami!---------------------------------------------- ! USpack Module !---------------------------------------------- module uspack use dcl_common real, private :: xsec0, ysec0, xfac0, yfac0, xoff0, yoff0 character(len=32) :: xttl0, yttl0, xuni0, yuni0 private :: SetFactor, SetOffset, SetSection, SetTitle, SetUnit, & & ResetFactor,ResetOffset,ResetSection,ResetTitle,ResetUnit contains !---------------------------------------------------- subroutine SetFactor(factor) call usrget('XFAC', xfac0) call usrget('YFAC', yfac0) call usrset('XFAC', factor) call usrset('YFAC', factor) end subroutine subroutine ResetFactor call uspset('XFAC', xfac0) call uspset('YFAC', yfac0) end subroutine subroutine SetOffset(offset) call usrget('XOFF', xoff0) call usrget('YOFF', yoff0) call usrset('XOFF', offset) call usrset('YOFF', offset) end subroutine subroutine SetTitle(title) character(len=*) :: title call uscget('CXTTL', xttl0) call uscget('CYTTL', yttl0) call uscset('CXTTL', title) call uscset('CYTTL', title) end subroutine subroutine SetUnit(unit) character(len=*) :: unit call uscget('CXUNIT', xuni0) call uscget('CYUNIT', yuni0) call uscset('CXUNIT', unit) call uscset('CYUNIT', unit) end subroutine subroutine ResetOffset call uspset('XOFF', xoff0) call uspset('YOFF', yoff0) end subroutine subroutine SetSection(section) call uzrget('UXUSER', xsec0) call uzrget('UYUSER', ysec0) call uzrset('UXUSER', section) call uzrset('UYUSER', section) end subroutine subroutine ResetSection call uzpset('UXUSER', xsec0) call uzpset('UYUSER', ysec0) end subroutine subroutine ResetTitle call uscset('CXTTL', xttl0) call uscset('CYTTL', yttl0) end subroutine subroutine ResetUnit call uscset('CXUNIT', xuni0) call uscset('CYUNIT', yuni0) end subroutine !------------------------------------------------------------------- subroutine DclScalingPoint(x, y) real, dimension(:), intent(in), optional :: x, y call prcopn('DclScalingPoint') call glrget('rundef', rundef) if(present(x) .and. present(y)) then nx = size(x) ny = size(y) if(nx.ne.ny) call msgdmp('M', 'DclScalingPoint', 'Length of x and y don''t match.') n = min(nx, ny) call usspnt(n, x, y) else if(present(x)) then n = size(x) call usspnt(n, x, (/rundef/)) else if(present(y)) then n = size(y) call usspnt(n, (/rundef/), y) end if call prccls('DclScalingPoint') end subroutine !---------------------------------------------------- subroutine DclSetTitle(xtitle, ytitle, xunit, yunit) character(len=*), intent(in) :: xtitle, ytitle, xunit, yunit optional :: xtitle, ytitle, xunit, yunit call prcopn('DclSetTitle') if(present(xtitle)) call uscset('cxttl' , xtitle) if(present(ytitle)) call uscset('cyttl' , ytitle) if(present(xunit )) call uscset('cxunit', xunit) if(present(yunit )) call uscset('cyunit', yunit) call prccls('DclSetTitle') end subroutine !---------------------------------------------------- subroutine DclFitScalingParm call prcopn('DclFitScalingParm') call uspfit call prccls('DclFitScalingParm') end subroutine !---------------------------------------------------- subroutine DclDrawScaledAxis(side,section) character(len=*), intent(in), optional :: side real, optional :: section call sgoopn('DclDrawScaledAxis', ' ') if(present(section)) call SetSection(section) if(present(side)) then; call usaxsc(side) else; call usdaxs end if if(present(section)) call ResetSection call sgocls('DclDrawScaledAxis') end subroutine !---------------------------------------------------- subroutine DclDrawScaledGraph(x, y, type, index) real, intent(in), dimension(:) :: x, y integer, intent(in), optional :: type, index integer :: type0, index0 call sgoopn('DclDrawScaledGraph', ' ') call glrget('rundef', rundef) if(present(type)) then; type0 = type else; call sgqplt(type0) end if if(present(index)) then; index0 = index else; call sgqpli(index0) end if nx = size(x) ny = size(y) if(nx.ne.ny) call msgdmp('M', 'DclScalingPoint', 'Length of x and y don''t match.') n = min(nx, ny) call usspnt(n, x, y) call uspfit call grstrf call usdaxs call sgplzu(n, x, y, type0, index0) call sgocls('DclDrawScaledGraph') end subroutine !---------------------------------- ! UXYZPACK 座標軸 !---------------------------------- 目盛とラベルの間隔を指定して座標軸を描く subroutine DclDrawAxis(side,dlabel,dtick, & & title,unit,factor,offset,section) character(len=*), intent(in) :: side !座標軸を描く場所 real, intent(in) :: dlabel, dtick !目盛およびラベルの間隔 character(len=*), intent(in), optional :: title, unit real, intent(in), optional :: factor,offset,section call sgoopn('DclDrawAxis', ' ') if(present(factor)) call SetFactor(factor) if(present(offset)) call SetOffset(offset) write(6,*) 1 if(present(section)) call SetSection(section) write(6,*) 2 if(present(title)) call SetTitle(title) if(present(unit)) call SetUnit(unit) call usaxdv(side,dtick,dlabel) if(present(factor)) call ResetFactor if(present(offset)) call ResetOffset if(present(section)) call ResetSection if(present(title)) call ResetTitle if(present(unit)) call ResetUnit call sgocls('DclDrawAxis') end subroutine !---------------------------------- 目盛とラベルの場所を指定して座標軸を描く. subroutine DclDrawAxisSpecify(side,label_pos,tick_pos,label, & & title, unit, factor, offset, section) character(len=*), intent(in) :: side !座標軸を描く場所 real, intent(in), dimension(:) :: label_pos !大きめの目盛およびラベルの場所 real, intent(in), dimension(:), optional :: tick_pos !小さめの目盛の場所 character(len=*), intent(in), dimension(:), optional :: label !ラベル character(len=*), intent(in), optional :: title, unit real, intent(in), optional :: factor, offset, section real,dimension(1) :: dummy call sgoopn('DclDrawAxisSpecify', ' ') if(present(factor)) call SetFactor(factor) if(present(offset)) call SetOffset(offset) if(present(section)) call SetSection(section) if(present(title)) call SetTitle(title) if(present(unit)) call SetUnit(unit) if (present(label)) then if(present(tick_pos)) then call usaxlb(side,tick_pos,size(tick_pos),label_pos,label,len(label(1)),size(label_pos)) else call usaxlb(side, dummy, 0,label_pos,label,len(label(1)),size(label_pos)) end if else if(present(tick_pos)) then call usaxnm(side,tick_pos,size(tick_pos),label_pos,size(label_pos)) else call usaxnm(side, dummy,0,label_pos,size(label_pos)) end if end if if(present(factor)) call ResetFactor if(present(offset)) call ResetOffset if(present(section)) call ResetSection if(present(title)) call ResetTitle if(present(unit)) call ResetUnit call sgocls('DclDrawAxisSpecify') end subroutine !---------------------------------- LOG 座標軸を描く. subroutine DclDrawAxisLog(side, nlabel, nticks, & & title, unit, format, factor, section, label_pos) character(len=*), intent(in) :: side !座標軸を描く場所 integer, intent(in) :: nlabel, nticks integer, intent(in), optional :: format character(len=*), intent(in), optional :: title, unit real, intent(in), optional :: factor, section real, intent(in), dimension(:), optional :: label_pos real, dimension(9) :: xlb, ylb call sgoopn('DclDrawAxisLog', ' ') if(present(factor)) call SetFactor(factor) if(present(section)) call SetSection(section) if(present(title)) call SetTitle(title) if(present(unit)) call SetUnit(unit) if(present(format)) then call uliget('IXTYPE', ix0) call uliget('IYTYPE', iy0) call uliset('IXTYPE', format) call uliset('IYTYPE', format) end if if(present(label_pos)) then call ulqxbl (xlb, 9 ) call ulqybl (ylb, 9 ) call ulsxbl (label_pos, size(label_pos) ) call ulsybl (label_pos, size(label_pos) ) end if call usaxlg(side,nlabel,nticks) if(present(factor)) call ResetFactor if(present(section)) call ResetSection if(present(title)) call ResetTitle if(present(unit)) call ResetUnit if(present(format)) then call uliset('IXTYPE', ix0) call uliset('IYTYPE', iy0) end if if(present(label_pos)) then call ulsxbl (xlb, 9 ) call ulsybl (ylb, 9 ) end if call sgocls('DclDrawAxisLog') end subroutine !---------------------------------------- ! 日付座標軸 !---------------------------------------- subroutine DclDrawAxisCalendar (side,first_day, title, unit, type,nd) !日・月・年に関する座標軸を描く. character(len=*), intent(in) :: side !座標軸を書く場所を指定する type(dcl_date), intent(in) :: first_day !ucで0に相当する場所の日付を指定する character(len=*), intent(in), optional :: title, unit character(len=*), intent(in), optional :: type !年、月、日を YMD で指定する integer, optional, intent(in) :: nd !作画する日数を指定する character(len=8) :: type0 call sgoopn('DclDrawAxisCalendar', ' ') jd = first_day%year*10000 + first_day%month*100 + first_day%day if(present(title)) call SetTitle(title) if(present(unit)) call SetUnit(unit) if(present(nd)) then; nd0 = nd else; nd0 = 0 end if if(present(type)) then; type0 = type else; type0 = 'DMY' end if call usaxcl(side,jd,type0, nd0) if(present(title)) call ResetTitle if(present(unit)) call ResetUnit call sgocls('DclDrawAxisCalendar') end subroutine !---------------------------------- ! UXYZPACK 座標軸要素 !---------------------------------- タイトルを描く. subroutine DclDrawTitle(side,title,position,sw) character(len=*), intent(in) :: side !座標軸を描く場所を指定する character(len=*), intent(in) :: title !描くタイトル real, optional, intent(in) :: position !位置:-1から+1の間の実数値 integer,optional, intent(in) :: sw call sgoopn('DclDrawTitle', ' ') if(present(sw)) then; isw=sw else; isw=1 end if if(present(position)) then; pos=position else; pos=0. end if call uspttl(side, isw, title, pos) call sgocls('DclDrawTitle') end subroutine !---------------------------------- 軸を示す線分を描く. subroutine DclDrawAxisLine(side,sw) character(len=*), intent(in) :: side !座標軸を描く場所を指定する integer, optional, intent(in) :: sw !描く軸の属性を指定する call sgoopn('DclDrawAxisLine', ' ') if(present(sw)) then; isw=sw else; isw=1 end if call uspaxs(side,isw) call sgocls('DclDrawAxisLine') end subroutine !---------------------------------- 目盛を描く. subroutine DclDrawTickmark(side, position, sw) character(len=*), intent(in) :: side !目盛を描く座標軸の場所 integer, intent(in), optional :: sw !描く目盛の属性 real, intent(in), dimension(:) :: position !目盛を描く場所 integer :: isw call sgoopn('DclDrawTickmark', ' ') if(present(sw)) then; isw=sw else; isw=1 end if call uxptmk(side, isw, position, size(position)) call sgocls('DclDrawTickmark') end subroutine !---------------------------------- 文字列で指定したラベルを描く subroutine DclDrawAxisLabel(side, position, label, sw) character(len=*), intent(in) :: side !ラベルを描く座標軸の場所 real, intent(in), dimension(:) :: position !ラベルを描く場所 character(len=*), intent(in), dimension(:) :: label !ラベル integer, intent(in) :: sw !ラベルの属性 optional :: label, sw call sgoopn('DclDrawAxisLabel', ' ') if(present(sw)) then; isw=sw else; isw=1 end if if(present(label)) then call usplbl(side, isw, position, label, len(label(1)),size(position)) else call uspnum(side, isw, position,size(position)) end if call sgocls('DclDrawAxisLabel') end subroutine !---------------------------------- 軸をずらす。 subroutine DclShiftAxis(side) character(len=*), intent(in) :: side call prcopn('DclShifAxis') call ussaxs(side) call prccls('DclShifAxis') end subroutine end module !----------------------------------------------------------------------- program axis09 use dcl call DclOpenGraphics() call DclNewFrame call DclSetWindow( 1985.0, 1990.0, -2.0, +2.0 ) call DclSetViewPort( 0.2, 0.8, 0.3, 0.7 ) call DclSetTransNumber( DCL_UNI_UNI ) call DclSetTransFunction call DclSetParm( 'AXIS:uyuser', 0.0 ) call DclSetParm( 'AXIS:lbtwn', .true. ) call uxsfmt( '(i4)' ) ! call DclSetXLabelFormat( '(i4)' ) call DclDrawAxis( 'h', 1.0, 0.25, section=0.0 ) call DclSetParm( 'AXIS:lbtwn', .false. ) call DclDrawTitle( 'h', 'Year', +1.0 ) call DclDrawAxis( 'l', 1.0, 0.25 ) call DclDrawTitle( 'l', 'S.O.I.', 0.0 ) call DclDrawTitle( 't', 'DclDrawXAxis', 0.0, 2 ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/axis/axis03.f900000644000175000017500000000076014760053155016051 0ustar uwabamiuwabami program axis03 use dcl call DclOpenGraphics() call DclNewFrame call DclSetWindow( 1.0e0, 1.0e5, 1.0e3, 1.0e0 ) call DclSetViewPort( 0.2, 0.8, 0.2, 0.8 ) call DclSetTransNumber( DCL_LOG_LOG ) call DclSetTransFunction call DclDrawAxisLog( 'bt', 1, 9 ) call DclDrawTitle( 'b', '[x]', 1.0 ) call DclDrawAxisLog( 'lr', 3, 9 ) call DclDrawTitle( 'l', '[y]', 1.0 ) call DclDrawTitle( 't', 'Log Axis', 0.0, 2 ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/axis/axis06.f900000644000175000017500000000254114760053155016053 0ustar uwabamiuwabami program axis06 use dcl integer,parameter :: nx1=21, nx2= 5, ny2=18 real,dimension(nx1) :: rx1 = (/ & -50,-45,-40,-35,-30,-25,-20,-15,-10, -5, 0, & 5, 10, 15, 20, 25, 30, 35, 40, 45, 50 /) real,dimension(nx2) :: rx2 = (/ & -40 , -20 , 0 , 20 , 40 /) real,dimension(ny2) :: ry2 = (/ & 1000. , 850. , 700. , 500. , 400. , 300. , & 250. , 200. , 150. , 100. , 70. , 50. , & 30. , 10. , 5. , 2. , 1. , 0.4 /) character(len=4),dimension(nx2) :: cx2 = (/ & '40S ','20S ','EQ ','20N ','40N ' /) character(len=4),dimension(ny2) :: cy2 = (/ & '1000',' ',' ','500 ',' ',' ', & ' ','200 ',' ','100 ',' ','50 ', & '30 ','10 ','5 ','2 ','1 ','.4 ' /) call DclOpenGraphics() call DclNewFrame call DclSetWindow( -50.0, +50.0, 1.0e3, 0.4 ) call DclSetViewPort( 0.2, 0.8, 0.2, 0.8 ) call DclSetTransNumber( DCL_UNI_LOG ) call DclSetTransFunction call DclDrawAxisSpecify( 'b', rx2, rx1, label=cx2 ) call DclDrawAxisSpecify( 't', rx2, rx1 ) call DclDrawTitle( 'b', 'Latitude', 0.0 ) call DclDrawAxisSpecify( 'l', ry2, label=cy2 ) call DclDrawAxisSpecify( 'r', ry2 ) call DclDrawTitle( 'l', 'Pressure (hPa)', 0.0 ) call DclDrawTitle( 't', 'DclDrawAxisSpecify', 0.0, 2 ) call DclCloseGraphics end program dcl-7.5.2/demo/f90/axis/axis02.f900000644000175000017500000000111214760053155016040 0ustar uwabamiuwabami program axis02 use dcl call DclOpenGraphics() call DclNewFrame call DclSetWindow( -180.0, +180.0, -90.0, +90.0 ) call DclSetViewPort( 0.2, 0.8, 0.3, 0.7 ) call DclSetTransFunction call DclDrawAxis( 'bt', 60.0, 10.0 ) call DclDrawTitle( 'b', 'Longitude', 0.0 ) call DclDrawTitle( 'b', '<- west east ->', 0.0 ) call DclDrawAxis( 'lr', 30.0, 10.0 ) call DclDrawTitle( 'l', 'Latitude', 0.0 ) call DclDrawTitle( 'l', '<- SH NH ->', 0.0 ) call DclDrawTitle( 't', 'Main Title', 0.0, 2 ) call DclCloseGraphics end program dcl-7.5.2/demo/misc2/0000755000175000017500000000000014760053155014072 5ustar uwabamiuwabamidcl-7.5.2/demo/misc2/tmpack/0000755000175000017500000000000014760053155015351 5ustar uwabamiuwabamidcl-7.5.2/demo/misc2/tmpack/tmpk03.f0000644000175000017500000000272014760053155016637 0ustar uwabamiuwabami PROGRAM TMPK3 IMPLICIT NONE INTEGER NX, NY, THRES PARAMETER (NX=101, NY=101, THRES=1) REAL DX, DY, DXT, DYT C PARAMETER (DX=6.2832/REAL(NX-1), DY=3.14159/REAL(NY-1)) PARAMETER (DX=6.2832/REAL(NX-1), DY=1.57079/REAL(NY-1)) PARAMETER (DXT=360.0/REAL(NX-1), DYT=90.0/REAL(NY-1)) REAL ARROW_THRES PARAMETER (ARROW_THRES=1.0) REAL U(NX,NY), V(NX,NY) REAL X(NX), Y(NY) REAL XT(NX), YT(NY) INTEGER I, J, SKIP, IWS WRITE(*,*) "SKIP NUM INPUT" READ(*,*) SKIP X=(/(DX*REAL(I-1),I=1,NX)/) Y=(/(DY*REAL(I-1-NY/2),I=1,NY)/) XT=(/(DXT*REAL(I-1),I=1,NX)/) YT=(/(DYT*REAL(I-1-NY/2),I=1,NY)/) WRITE(*,*) "Y, YT", Y(1), Y(NY), YT(1), YT(ny) DO 21 J=1,NY DO 20 I=1,NX U(I,J)=-COS(Y(J)) V(I,J)=COS(X(I)) 20 CONTINUE 21 CONTINUE WRITE(*,*) ' WORKSTATION IS (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL GRSWND( XT(1), XT(NX), YT(1), YT(NY) ) CALL GRSVPT( 0.05, 0.95, 0.1, 0.9 ) CALL SGSTRN( 10 ) C CALL USPFIT CALL UMPFIT CALL GRSTRF CALL UMPMAP( 'coast_world' ) CALL UMPGLB C CALL UETONF( U, NX, NX, NY ) C CALL UDCNTR( V, NX, NX, NY ) C-- 流線描画 CALL TMLSET( 'PERIODX', .TRUE. ) CALL TMISET( 'SKIPINTV', SKIP ) CALL TMSTLS( XT, YT, U, V, NX, NY ) CALL GRCLS END PROGRAM dcl-7.5.2/demo/misc2/tmpack/Makefile0000644000175000017500000000061114760053155017007 0ustar uwabamiuwabami# # Makefile for tmpack (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = tmpack LIBSRCS = tmpk01.f tmpk02.f tmpk03.f LIBDEMO = tmpk01 tmpk02 tmpk03 LIBEXEC = tmpk01$(EXT) tmpk02$(EXT) tmpk03$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ *.ps core *.trace *.eps *.svg *.pdf a.out dcl-7.5.2/demo/misc2/tmpack/tmpk02.f0000644000175000017500000000275214760053155016643 0ustar uwabamiuwabami PROGRAM TMPK2 IMPLICIT NONE INTEGER NX, NY, THRES PARAMETER (NX=101, NY=101, THRES=1) REAL DX, DY, DYT PARAMETER (DX=6.2832/REAL(NX-1), DY=6.2832/REAL(NY-1)) PARAMETER (DYT=360.0/REAL(NY-1)) REAL ARROW_THRES PARAMETER (ARROW_THRES=1.0) REAL U(NX,NY), V(NX,NY) REAL X(NX), Y(NY), XT(NY), YT(NY) INTEGER I, J, SKIP, IWS WRITE(*,*) "SKIP NUM INPUT" READ(*,*) SKIP X=(/(DX*REAL(I-1),I=1,NX)/) Y=(/(DY*REAL(I-1-NY/2),I=1,NY)/) YT=(/(DYT*REAL(I-1-NY/2),I=1,NY)/) XT=(/(X(NX),I=1,NY)/) DO 21 J=1,NY DO 20 I=1,NX U(I,J)=-COS(Y(J)) V(I,J)=COS(X(I)) 20 CONTINUE 21 CONTINUE WRITE(*,*) ' WORKSTATION IS (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL GRSWND( X(1), X(NX), YT(1), YT(NY) ) CALL GRSVPT( 0.2, 0.8, 0.2, 0.8 ) C CALL USPFIT call GRSSIM( 0.5*0.6/x(nx), 0.0, 0.0 ) CALL GRSTRN( 5 ) CALL GRSTRF C CALL USDAXS CALL UZRSET( 'UYUSER', 0.0 ) CALL UXPAXS( 'U', 1 ) CALL UZRSET( 'UYUSER', -180.0 ) CALL UXPAXS( 'U', 1 ) C CALL UETONF( U, NX, NX, NY ) C CALL UDCNTR( V, NX, NX, NY ) C-- 流線描画 CALL TMISET( 'SKIPINTV', SKIP ) CALL TMLSET( 'PERIODY', .TRUE. ) CALL TMLSET( 'NODRSHRT', .TRUE. ) CALL TMSTLA( X, YT, U, V, NX, NY ) CALL UULIN( NY, XT, YT ) CALL GRCLS END PROGRAM dcl-7.5.2/demo/misc2/tmpack/tmpk01.f0000644000175000017500000000200414760053155016630 0ustar uwabamiuwabami PROGRAM TMPK1 IMPLICIT NONE INTEGER NX, NY, THRES PARAMETER (NX=101, NY=101, THRES=1) REAL DX, DY PARAMETER (DX=6.2832/REAL(NX-1), DY=6.2832/REAL(NY-1)) REAL ARROW_THRES PARAMETER (ARROW_THRES=1.0) REAL U(NX,NY), V(NX,NY) REAL X(NX), Y(NY) INTEGER I, J, SKIP, IWS WRITE(*,*) "SKIP NUM INPUT" READ(*,*) SKIP X=(/(DX*REAL(I-1),I=1,NX)/) Y=(/(DY*REAL(I-1),I=1,NY)/) DO 21 J=1,NY DO 20 I=1,NX U(I,J)=-COS(Y(J)) V(I,J)=COS(X(I)) 20 CONTINUE 21 CONTINUE WRITE(*,*) ' WORKSTATION IS (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL GRSWND( X(1), X(NX), Y(1), Y(NY) ) CALL USPFIT CALL GRSTRF CALL USDAXS C CALL UETONF( U, NX, NX, NY ) C CALL UDCNTR( V, NX, NX, NY ) C-- 流線描画 CALL TMISET( 'SKIPINTV', SKIP ) CALL TMSTLC( X, Y, U, V, NX, NY ) CALL GRCLS END PROGRAM dcl-7.5.2/demo/misc2/Makefile0000644000175000017500000000065214760053155015535 0ustar uwabamiuwabami# # Makefile for misc2 # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../Mkinclude SUBDIRS = all: @for i in $(SUBDIRS) ; do \ cd $$i ; \ echo "Making $$i" ; \ $(MAKE) ; \ cd .. ; \ done clean: clean.local clean.dir clean.local: $(RM) *~ clean.dir: @for i in $(SUBDIRS) ; do \ cd $$i ; \ echo "Cleaning $$i" ; \ $(MAKE) clean ; \ cd .. ; \ done dcl-7.5.2/demo/Makefile0000644000175000017500000000102314760053155014511 0ustar uwabamiuwabami# # Makefile for demo # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../Mkinclude SUBDIRS = math1 misc1 misc2 grph1 math2 grph2 rakuraku gokuraku \ f90 all: @for i in $(SUBDIRS) ; do \ cd $$i ; \ echo "Making $$i/" ; \ $(MAKE) ; \ cd .. ; \ done clean: clean.local clean.dir distclean: clean.local clean.dir clean.local: $(RM) *~ clean.dir: @for i in $(SUBDIRS) ; do \ cd $$i ; \ echo "Cleaning $$i/" ; \ $(MAKE) clean ; \ cd .. ; \ done dcl-7.5.2/demo/math1/0000755000175000017500000000000014760053155014067 5ustar uwabamiuwabamidcl-7.5.2/demo/math1/ifalib/0000755000175000017500000000000014760053155015315 5ustar uwabamiuwabamidcl-7.5.2/demo/math1/ifalib/Makefile0000644000175000017500000000043414760053155016756 0ustar uwabamiuwabami# # Makefile for ifalib (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = ifalib LIBSRCS = ifal01.f LIBDEMO = ifal01 LIBEXEC = ifal01$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ core *.trace dcl-7.5.2/demo/math1/ifalib/ifal01.f0000644000175000017500000000173514760053155016546 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM IFAL01 PARAMETER (N=10) INTEGER IX(N) EXTERNAL IMAX,IMIN,ISUM DATA IX/ 0, 1, 4, 6, 3, -4, 12,999, 23, -5/ WRITE(*,'(A,10I6)') ' LIST OF IX : ',IX WRITE(*,'(A)') ' *** OPTION LMISS = .FALSE.' JIMAX=IMAX(IX,N,1) WRITE(*,'(A,I6)') ' *** IMAX = ',JIMAX JIMIN=IMIN(IX,N,1) WRITE(*,'(A,I6)') ' *** IMIN = ',JIMIN JISUM=ISUM(IX,N,1) WRITE(*,'(A,I6)') ' *** ISUM = ',JISUM CALL GLLSET('LMISS',.TRUE.) WRITE(*,'(A)') ' *** OPTION LMISS = .TRUE.' JIMAX=IMAX(IX,N,1) WRITE(*,'(A,I6)') ' *** IMAX = ',JIMAX JIMIN=IMIN(IX,N,1) WRITE(*,'(A,I6)') ' *** IMIN = ',JIMIN JISUM=ISUM(IX,N,1) WRITE(*,'(A,I6)') ' *** ISUM = ',JISUM END dcl-7.5.2/demo/math1/blklib/0000755000175000017500000000000014760053155015326 5ustar uwabamiuwabamidcl-7.5.2/demo/math1/blklib/blkl01.f0000644000175000017500000000162014760053155016561 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM BLKL01 PARAMETER (N=10,NR=3) REAL RX(N),RR(NR) EXTERNAL IBLKGT,IBLKGE,IBLKLT,IBLKLE DATA RX/ 0, 2, 5, 8, 10, 15, 20, 30, 50, 80/ DATA RR/ 3.0, 30.0, 30.00003 / CALL GLLSET('LEPSL',.TRUE.) DO 10 I=1,NR WRITE(*,'(A,10F4.0)') ' LIST OF RX (N=10) : ',RX WRITE(*,'(A,G16.7)') ' *** RR = ',RR(I) WRITE(*,'(A,I4)') ' *** IBLKGT(RX,N,RR) = ',IBLKGT(RX,N,RR(I)) WRITE(*,'(A,I4)') ' *** IBLKGE(RX,N,RR) = ',IBLKGE(RX,N,RR(I)) WRITE(*,'(A,I4)') ' *** IBLKLT(RX,N,RR) = ',IBLKLT(RX,N,RR(I)) WRITE(*,'(A,I4)') ' *** IBLKLE(RX,N,RR) = ',IBLKLE(RX,N,RR(I)) 10 CONTINUE END dcl-7.5.2/demo/math1/blklib/Makefile0000644000175000017500000000043414760053155016767 0ustar uwabamiuwabami# # Makefile for blklib (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = blklib LIBSRCS = blkl01.f LIBDEMO = blkl01 LIBEXEC = blkl01$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ core *.trace dcl-7.5.2/demo/math1/vrblib/0000755000175000017500000000000014760053155015347 5ustar uwabamiuwabamidcl-7.5.2/demo/math1/vrblib/Makefile0000644000175000017500000000043414760053155017010 0ustar uwabamiuwabami# # Makefile for vrblib (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = vrblib LIBSRCS = vrbl01.f LIBDEMO = vrbl01 LIBEXEC = vrbl01$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ core *.trace dcl-7.5.2/demo/math1/vrblib/vrbl01.f0000644000175000017500000000443014760053155016625 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM VRBL01 PARAMETER (N=10) REAL RX(N),RY(N),RZ(N) REAL RFNB EXTERNAL RFNB DATA RX/ 2, 1, 4, 6, 7, -4, 12,999, 23, -5/ DATA RY/ 4, -1, 2,999, 3, 7, 1, 4, 3, -1/ WRITE(*,'(A,10F6.0)') ' LIST OF RX : ',RX WRITE(*,'(A,10F6.0)') ' LIST OF RY : ',RY WRITE(*,'(A)') ' *** OPTION LMISS = .FALSE.' CALL VRADD(RX,RY,RZ,10,1,1,1) WRITE(*,'(A)') ' AFTER CALLING VRADD(RX,RY,RZ,10,1,1,1)' WRITE(*,'(A,10F6.0)') ' LIST OF RZ : ',RZ CALL VRSUB(RX,RY,RZ,10,1,1,1) WRITE(*,'(A)') ' AFTER CALLING VRSUB(RX,RY,RZ,10,1,1,1)' WRITE(*,'(A,10F6.0)') ' LIST OF RZ : ',RZ CALL VRMLT(RX,RY,RZ,10,1,1,1) WRITE(*,'(A)') ' AFTER CALLING VRMLT(RX,RY,RZ,10,1,1,1)' WRITE(*,'(A,10F6.0)') ' LIST OF RZ : ',RZ CALL VRDIV(RX,RY,RZ,10,1,1,1) WRITE(*,'(A)') ' AFTER CALLING VRDIV(RX,RY,RZ,10,1,1,1)' WRITE(*,'(A,10F6.0)') ' LIST OF RZ : ',RZ CALL VRFNB(RX,RY,RZ,10,1,1,1,RFNB) WRITE(*,'(A)') ' AFTER CALLING VRFNB(RX,RY,RZ,10,1,1,1,RFNB)' WRITE(*,'(A,10F6.0)') ' LIST OF RZ : ',RZ CALL GLLSET('LMISS',.TRUE.) WRITE(*,'(A)') ' *** OPTION LMISS = .TRUE.' CALL VRADD(RX,RY,RZ,10,1,1,1) WRITE(*,'(A)') ' AFTER CALLING VRADD(RX,RY,RZ,10,1,1,1)' WRITE(*,'(A,10F6.0)') ' LIST OF RZ : ',RZ CALL VRSUB(RX,RY,RZ,10,1,1,1) WRITE(*,'(A)') ' AFTER CALLING VRSUB(RX,RY,RZ,10,1,1,1)' WRITE(*,'(A,10F6.0)') ' LIST OF RZ : ',RZ CALL VRMLT(RX,RY,RZ,10,1,1,1) WRITE(*,'(A)') ' AFTER CALLING VRMLT(RX,RY,RZ,10,1,1,1)' WRITE(*,'(A,10F6.0)') ' LIST OF RZ : ',RZ CALL VRDIV(RX,RY,RZ,10,1,1,1) WRITE(*,'(A)') ' AFTER CALLING VRDIV(RX,RY,RZ,10,1,1,1)' WRITE(*,'(A,10F6.0)') ' LIST OF RZ : ',RZ CALL VRFNB(RX,RY,RZ,10,1,1,1,RFNB) WRITE(*,'(A)') ' AFTER CALLING VRFNB(RX,RY,RZ,10,1,1,1,RFNB)' WRITE(*,'(A,10F6.0)') ' LIST OF RZ : ',RZ END *----------------------------------------------------------------------- REAL FUNCTION RFNB(R,S) RFNB=MIN(R,S) END dcl-7.5.2/demo/math1/gt2dlib/0000755000175000017500000000000014760053155015416 5ustar uwabamiuwabamidcl-7.5.2/demo/math1/gt2dlib/gt2d01.f0000644000175000017500000000204614760053155016570 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM GT2D01 PARAMETER(NX=15,NY=15) REAL UX(NX), UY(NY) REAL CX(NX,NY), CY(NX,NY) REAL TERRAIN(NX) CALL GLRGET('RUNDEF',RUNDEF) DO 10 I=1,NX UX(I)=(I-1.0)/(NX-1.0) - 0.5 TERRAIN(I) = 0.1 * EXP(-24*UX(I)**2) 10 CONTINUE DO 15 J=1,NY UY(J)=(J-1.0)/(NY-1.0) 15 CONTINUE CX(1,1) = RUNDEF DO 25 J=1,NY DO 20 I=1,NX CY(I,J) = UY(J)*(1.0-TERRAIN(I)) + TERRAIN(I) 20 CONTINUE 25 CONTINUE CALL G2SCTR(NX, NY, UX,UY, CX,CY) PRINT *, "TERRAIN FOLLOWING COORDINATE" UXP = 0.2 UYP = 0.3 PRINT *, "ORIGINAL UX, UY:", UXP, UYP CALL G2FCTR(UXP, UYP, CXP, CYP) PRINT *, "TRANSFORMED CX, CY:", CXP, CYP CALL G2ICTR(CXP, CYP, UXP, UYP) PRINT *, "INVERTED UX, UY:", UXP, UYP END dcl-7.5.2/demo/math1/gt2dlib/Makefile0000644000175000017500000000043614760053155017061 0ustar uwabamiuwabami# # Makefile for gt2dlib (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = gt2dlib LIBSRCS = gt2d01.f LIBDEMO = gt2d01 LIBEXEC = gt2d01$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ core *.trace dcl-7.5.2/demo/math1/gnmlib/0000755000175000017500000000000014760053155015337 5ustar uwabamiuwabamidcl-7.5.2/demo/math1/gnmlib/gnml01.f0000644000175000017500000000234714760053155016612 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM GNML01 PARAMETER (NR=2) REAL RR(NR) EXTERNAL RGNLT,RGNLE,RGNGT,RGNGE DATA RR/ 1.23, 30.00003 / CALL GLLSET('LEPSL',.TRUE.) DO 10 I=1,NR WRITE(*,'(A,G16.7)') ' *** RR = ',RR(I) CALL GNLT(RR(I),BR,IP) WRITE(*,'(A,F8.4,A,I4)') + ' *** CALL GNLT(RR,BR,IP) : BR = ',BR,' : IP = ',IP CALL GNLE(RR(I),BR,IP) WRITE(*,'(A,F8.4,A,I4)') + ' *** CALL GNLE(RR,BR,IP) : BR = ',BR,' : IP = ',IP CALL GNGT(RR(I),BR,IP) WRITE(*,'(A,F8.4,A,I4)') + ' *** CALL GNGT(RR,BR,IP) : BR = ',BR,' : IP = ',IP CALL GNGE(RR(I),BR,IP) WRITE(*,'(A,F8.4,A,I4)') + ' *** CALL GNGE(RR,BR,IP) : BR = ',BR,' : IP = ',IP WRITE(*,'(A,G16.7)') ' *** RGNLT(RR) = ',RGNLT(RR(I)) WRITE(*,'(A,G16.7)') ' *** RGNLE(RR) = ',RGNLE(RR(I)) WRITE(*,'(A,G16.7)') ' *** RGNGT(RR) = ',RGNGT(RR(I)) WRITE(*,'(A,G16.7)') ' *** RGNGE(RR) = ',RGNGE(RR(I)) 10 CONTINUE END dcl-7.5.2/demo/math1/gnmlib/Makefile0000644000175000017500000000043414760053155017000 0ustar uwabamiuwabami# # Makefile for gnmlib (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = gnmlib LIBSRCS = gnml01.f LIBDEMO = gnml01 LIBEXEC = gnml01$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ core *.trace dcl-7.5.2/demo/math1/vralib/0000755000175000017500000000000014760053155015346 5ustar uwabamiuwabamidcl-7.5.2/demo/math1/vralib/Makefile0000644000175000017500000000050314760053155017004 0ustar uwabamiuwabami# # Makefile for vralib (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = vralib LIBSRCS = vral01.f vral02.f LIBDEMO = vral01 vral02 LIBEXEC = vral01$(EXT) vral02$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ core *.trace dcl-7.5.2/demo/math1/vralib/vral02.f0000644000175000017500000000313214760053155016622 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM VRAL02 PARAMETER (N=10) REAL RX(N),RY(N) DATA RX/ 0, 1, 4, 6, 3, -4, 12,999, 23, -5/ WRITE(*,'(A,10F6.0)') ' LIST OF RX : ',RX WRITE(*,'(A)') ' *** OPTION LMISS = .FALSE.' CALL VRSET(RX,RY,10,1,1) WRITE(*,'(A)') ' AFTER CALLING VRSET(RX,RY,10,1,1)' WRITE(*,'(A,10F6.0)') ' LIST OF RY : ',RY CALL RADD(RY,10,1,+1.0) WRITE(*,'(A)') ' AFTER CALLING RADD(RY,10,1,+1.0)' WRITE(*,'(A,10F6.0)') ' LIST OF RY : ',RY CALL RMLT(RY,10,1,-1.0) WRITE(*,'(A)') ' AFTER CALLING RMLT(RY,10,1,-1.0)' WRITE(*,'(A,10F6.0)') ' LIST OF RY : ',RY CALL RSET(RY,10,1,0.0) WRITE(*,'(A)') ' AFTER CALLING RMLT(RY,10,1,0.0)' WRITE(*,'(A,10F6.0)') ' LIST OF RY : ',RY CALL GLLSET('LMISS',.TRUE.) WRITE(*,'(A)') ' *** OPTION LMISS = .TRUE.' CALL VRSET(RX,RY,10,1,1) WRITE(*,'(A)') ' AFTER CALLING VRSET(RX,RY,10,1,1)' WRITE(*,'(A,10F6.0)') ' LIST OF RY : ',RY CALL RADD(RY,10,1,+1.0) WRITE(*,'(A)') ' AFTER CALLING RADD(RY,10,1,+1.0)' WRITE(*,'(A,10F6.0)') ' LIST OF RY : ',RY CALL RMLT(RY,10,1,-1.0) WRITE(*,'(A)') ' AFTER CALLING RMLT(RY,10,1,-1.0)' WRITE(*,'(A,10F6.0)') ' LIST OF RY : ',RY CALL RSET(RY,10,1,0.0) WRITE(*,'(A)') ' AFTER CALLING RMLT(RY,10,1,0.0)' WRITE(*,'(A,10F6.0)') ' LIST OF RY : ',RY END dcl-7.5.2/demo/math1/vralib/vral01.f0000644000175000017500000000430414760053155016623 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM VRAL01 PARAMETER (N=10) REAL RX(N),RY(N) REAL RFNA EXTERNAL RFNA DATA RX/ 0, 1, 4, 6, 3, -4, 12,999, 23, -5/ WRITE(*,'(A,10F6.0)') ' LIST OF RX : ',RX WRITE(*,'(A)') ' *** OPTION LMISS = .FALSE.' CALL VRSET(RX,RY,10,1,1) WRITE(*,'(A)') ' AFTER CALLING VRSET(RX,RY,10,1,1)' WRITE(*,'(A,10F6.0)') ' LIST OF RY : ',RY CALL VRINC(RY,RY,10,1,1,+1.0) WRITE(*,'(A)') ' AFTER CALLING VRINC(RY,RY,10,1,1,+1.0)' WRITE(*,'(A,10F6.0)') ' LIST OF RY : ',RY CALL VRFCT(RY,RY,10,1,1,-1.0) WRITE(*,'(A)') ' AFTER CALLING VRFCT(RY,RY,10,1,1,-1.0)' WRITE(*,'(A,10F6.0)') ' LIST OF RY : ',RY CALL VRFNA(RY,RY,10,1,1,RFNA) WRITE(*,'(A)') ' AFTER CALLING VRFNA(RY,RY,10,1,1,RFNA)' WRITE(*,'(A)') ' RFNA(R)=R*2+10' WRITE(*,'(A,10F6.0)') ' LIST OF RY : ',RY CALL VRCON(RY,RY,10,1,1,0.0) WRITE(*,'(A)') ' AFTER CALLING VRCON(RY,RY,10,1,1,0.0)' WRITE(*,'(A,10F6.0)') ' LIST OF RY : ',RY CALL GLLSET('LMISS',.TRUE.) WRITE(*,'(A)') ' *** OPTION LMISS = .TRUE.' CALL VRSET(RX,RY,10,1,1) WRITE(*,'(A)') ' AFTER CALLING VRSET(RX,RY,10,1,1)' WRITE(*,'(A,10F6.0)') ' LIST OF RY : ',RY CALL VRINC(RY,RY,10,1,1,+1.0) WRITE(*,'(A)') ' AFTER CALLING VRINC(RY,RY,10,1,1,+1.0)' WRITE(*,'(A,10F6.0)') ' LIST OF RY : ',RY CALL VRFCT(RY,RY,10,1,1,-1.0) WRITE(*,'(A)') ' AFTER CALLING VRFCT(RY,RY,10,1,1,-1.0)' WRITE(*,'(A,10F6.0)') ' LIST OF RY : ',RY CALL VRFNA(RY,RY,10,1,1,RFNA) WRITE(*,'(A)') ' AFTER CALLING VRFNA(RY,RY,10,1,1,RFNA)' WRITE(*,'(A)') ' RFNA(R)=R*2+10' WRITE(*,'(A,10F6.0)') ' LIST OF RY : ',RY CALL VRCON(RY,RY,10,1,1,0.0) WRITE(*,'(A)') ' AFTER CALLING VRCON(RY,RY,10,1,1,0.0)' WRITE(*,'(A,10F6.0)') ' LIST OF RY : ',RY END *----------------------------------------------------------------------- REAL FUNCTION RFNA(R) RFNA=R*2+10 END dcl-7.5.2/demo/math1/rfalib/0000755000175000017500000000000014760053155015326 5ustar uwabamiuwabamidcl-7.5.2/demo/math1/rfalib/Makefile0000644000175000017500000000043414760053155016767 0ustar uwabamiuwabami# # Makefile for rfalib (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = rfalib LIBSRCS = rfal01.f LIBDEMO = rfal01 LIBEXEC = rfal01$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ core *.trace dcl-7.5.2/demo/math1/rfalib/rfal01.f0000644000175000017500000000335614760053155016571 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM RFAL01 PARAMETER (N=10) REAL RX(N) EXTERNAL RMAX,RMIN,RSUM,RAVE,RVAR,RSTD,RRMS,RAMP DATA RX/ 0, -1, -2,-999, -1, 0, 1, 2, 999, 1/ WRITE(*,'(A,10F6.0)') ' LIST OF RX : ',RX WRITE(*,'(A)') ' *** OPTION LMISS = .FALSE.' SRMAX=RMAX(RX,N,1) WRITE(*,'(A,G14.6)') ' *** RMAX = ',SRMAX SRMIN=RMIN(RX,N,1) WRITE(*,'(A,G14.6)') ' *** RMIN = ',SRMIN SRSUM=RSUM(RX,N,1) WRITE(*,'(A,G14.6)') ' *** RSUM = ',SRSUM SRAVE=RAVE(RX,N,1) WRITE(*,'(A,G14.6)') ' *** RAVE = ',SRAVE SRVAR=RVAR(RX,N,1) WRITE(*,'(A,G14.6)') ' *** RVAR = ',SRVAR SRSTD=RSTD(RX,N,1) WRITE(*,'(A,G14.6)') ' *** RSTD = ',SRSTD SRRMS=RRMS(RX,N,1) WRITE(*,'(A,G14.6)') ' *** RRMS = ',SRRMS SRAMP=RAMP(RX,N,1) WRITE(*,'(A,G14.6)') ' *** RAMP = ',SRAMP CALL GLLSET('LMISS',.TRUE.) WRITE(*,'(A)') ' *** OPTION LMISS = .TRUE.' SRMAX=RMAX(RX,N,1) WRITE(*,'(A,G14.6)') ' *** RMAX = ',SRMAX SRMIN=RMIN(RX,N,1) WRITE(*,'(A,G14.6)') ' *** RMIN = ',SRMIN SRSUM=RSUM(RX,N,1) WRITE(*,'(A,G14.6)') ' *** RSUM = ',SRSUM SRAVE=RAVE(RX,N,1) WRITE(*,'(A,G14.6)') ' *** RAVE = ',SRAVE SRVAR=RVAR(RX,N,1) WRITE(*,'(A,G14.6)') ' *** RVAR = ',SRVAR SRSTD=RSTD(RX,N,1) WRITE(*,'(A,G14.6)') ' *** RSTD = ',SRSTD SRRMS=RRMS(RX,N,1) WRITE(*,'(A,G14.6)') ' *** RRMS = ',SRRMS SRAMP=RAMP(RX,N,1) WRITE(*,'(A,G14.6)') ' *** RAMP = ',SRAMP END dcl-7.5.2/demo/math1/vialib/0000755000175000017500000000000014760053155015335 5ustar uwabamiuwabamidcl-7.5.2/demo/math1/vialib/Makefile0000644000175000017500000000050314760053155016773 0ustar uwabamiuwabami# # Makefile for vialib (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = vialib LIBSRCS = vial01.f vial02.f LIBDEMO = vial01 vial02 LIBEXEC = vial01$(EXT) vial02$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ core *.trace dcl-7.5.2/demo/math1/vialib/vial01.f0000644000175000017500000000423114760053155016600 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM VIAL01 PARAMETER (N=10) INTEGER IX(N),IY(N) INTEGER IFNA EXTERNAL IFNA DATA IX/ 0, 1, 4, 6, 3, -4, 12,999, 23, -5/ WRITE(*,'(A,10I6)') ' LIST OF IX : ',IX WRITE(*,'(A)') ' *** OPTION LMISS = .FALSE.' CALL VISET(IX,IY,10,1,1) WRITE(*,'(A)') ' AFTER CALLING VISET(IX,IY,10,1,1)' WRITE(*,'(A,10I6)') ' LIST OF IY : ',IY CALL VIINC(IY,IY,10,1,1,+1) WRITE(*,'(A)') ' AFTER CALLING VIINC(IY,IY,10,1,1,+1)' WRITE(*,'(A,10I6)') ' LIST OF IY : ',IY CALL VIFCT(IY,IY,10,1,1,-1) WRITE(*,'(A)') ' AFTER CALLING VIFCT(IY,IY,10,1,1,-1)' WRITE(*,'(A,10I6)') ' LIST OF IY : ',IY CALL VIFNA(IY,IY,10,1,1,IFNA) WRITE(*,'(A)') ' AFTER CALLING VIFNA(IY,IY,10,1,1,IFNA)' WRITE(*,'(A)') ' IFNA(I)=I*2+10' WRITE(*,'(A,10I6)') ' LIST OF IY : ',IY CALL VICON(IY,IY,10,1,1,0) WRITE(*,'(A)') ' AFTER CALLING VICON(IY,IY,10,1,1,0)' WRITE(*,'(A,10I6)') ' LIST OF IY : ',IY CALL GLLSET('LMISS',.TRUE.) WRITE(*,'(A)') ' *** OPTION LMISS = .TRUE.' CALL VISET(IX,IY,10,1,1) WRITE(*,'(A)') ' AFTER CALLING VISET(IX,IY,10,1,1)' WRITE(*,'(A,10I6)') ' LIST OF IY : ',IY CALL VIINC(IY,IY,10,1,1,+1) WRITE(*,'(A)') ' AFTER CALLING VIINC(IY,IY,10,1,1,+1)' WRITE(*,'(A,10I6)') ' LIST OF IY : ',IY CALL VIFCT(IY,IY,10,1,1,-1) WRITE(*,'(A)') ' AFTER CALLING VIFCT(IY,IY,10,1,1,-1)' WRITE(*,'(A,10I6)') ' LIST OF IY : ',IY CALL VIFNA(IY,IY,10,1,1,IFNA) WRITE(*,'(A)') ' AFTER CALLING VIFNA(IY,IY,10,1,1,IFNA)' WRITE(*,'(A)') ' IFNA(I)=I*2+10' WRITE(*,'(A,10I6)') ' LIST OF IY : ',IY CALL VICON(IY,IY,10,1,1,0) WRITE(*,'(A)') ' AFTER CALLING VICON(IY,IY,10,1,1,0)' WRITE(*,'(A,10I6)') ' LIST OF IY : ',IY END *----------------------------------------------------------------------- INTEGER FUNCTION IFNA(I) IFNA=I*2+10 END dcl-7.5.2/demo/math1/vialib/vial02.f0000644000175000017500000000306014760053155016600 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM VIAL02 PARAMETER (N=10) INTEGER IX(N),IY(N) DATA IX/ 0, 1, 4, 6, 3, -4, 12,999, 23, -5/ WRITE(*,'(A,10I6)') ' LIST OF IX : ',IX WRITE(*,'(A)') ' *** OPTION LMISS = .FALSE.' CALL VISET(IX,IY,10,1,1) WRITE(*,'(A)') ' AFTER CALLING VISET(IX,IY,10,1,1)' WRITE(*,'(A,10I6)') ' LIST OF IY : ',IY CALL IADD(IY,10,1,+1) WRITE(*,'(A)') ' AFTER CALLING IADD(IY,10,1,+1)' WRITE(*,'(A,10I6)') ' LIST OF IY : ',IY CALL IMLT(IY,10,1,-1) WRITE(*,'(A)') ' AFTER CALLING IMLT(IY,10,1,-1)' WRITE(*,'(A,10I6)') ' LIST OF IY : ',IY CALL ISET(IY,10,1,0) WRITE(*,'(A)') ' AFTER CALLING ISET(IY,10,1,0)' WRITE(*,'(A,10I6)') ' LIST OF IY : ',IY CALL GLLSET('LMISS',.TRUE.) WRITE(*,'(A)') ' *** OPTION LMISS = .TRUE.' CALL VISET(IX,IY,10,1,1) WRITE(*,'(A)') ' AFTER CALLING VISET(IX,IY,10,1,1)' WRITE(*,'(A,10I6)') ' LIST OF IY : ',IY CALL IADD(IY,10,1,+1) WRITE(*,'(A)') ' AFTER CALLING IADD(IY,10,1,+1)' WRITE(*,'(A,10I6)') ' LIST OF IY : ',IY CALL IMLT(IY,10,1,-1) WRITE(*,'(A)') ' AFTER CALLING IMLT(IY,10,1,-1)' WRITE(*,'(A,10I6)') ' LIST OF IY : ',IY CALL ISET(IY,10,1,0) WRITE(*,'(A)') ' AFTER CALLING ISET(IY,10,1,0)' WRITE(*,'(A,10I6)') ' LIST OF IY : ',IY END dcl-7.5.2/demo/math1/Makefile0000644000175000017500000000106514760053155015531 0ustar uwabamiuwabami# # Makefile for math1 # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../Mkinclude SUBDIRS = blklib chrlib fnclib gnmlib ifalib indxlib intlib \ lrllib oslib rfalib rfblib sublib syslib vialib \ viblib vralib vrblib gt2dlib all: @for i in $(SUBDIRS) ; do \ cd $$i ; \ echo "Making $$i" ; \ $(MAKE) ; \ cd .. ; \ done clean: clean.local clean.dir clean.local: $(RM) *~ clean.dir: @for i in $(SUBDIRS) ; do \ cd $$i ; \ echo "Cleaning $$i" ; \ $(MAKE) clean ; \ cd .. ; \ done dcl-7.5.2/demo/math1/fnclib/0000755000175000017500000000000014760053155015324 5ustar uwabamiuwabamidcl-7.5.2/demo/math1/fnclib/fncl01.f0000644000175000017500000000236214760053155016561 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM FNCL01 PARAMETER (PI=3.1415926535,DX=180) EXTERNAL IGUS,IMOD,RMOD,REXP,RFPI,RD2R,RR2D WRITE(*,'(A)') ' *** TEST FOR IGUS' WRITE(*,'(A,I2)') ' IGUS(11.2) = ',IGUS(11.2) WRITE(*,'(A,I2)') ' IGUS( 9.0) = ',IGUS( 9.0) WRITE(*,'(A,I2)') ' IGUS(-1.2) = ',IGUS(-1.2) WRITE(*,'(A)') ' *** TEST FOR IMOD' WRITE(*,'(A,I2)') ' IMOD(11,4) = ',IMOD(11,4) WRITE(*,'(A,I2)') ' IMOD(-7,3) = ',IMOD(-7,3) WRITE(*,'(A)') ' *** TEST FOR RMOD' WRITE(*,'(A,F4.1)') ' RMOD(11.0,4.0) = ',RMOD(11.0,4.0) WRITE(*,'(A,F4.1)') ' RMOD(-1.0,2.5) = ',RMOD(-1.0,2.5) WRITE(*,'(A)') ' *** TEST FOR REXP' WRITE(*,'(A,G16.8)') ' 0.8*10.0**(-1) = ',0.8*10.0**(-1) WRITE(*,'(A,G16.8)') ' REXP(0.8,10,-1) = ',REXP(0.8,10,-1) WRITE(*,'(A)') ' *** TEST FOR RFPI' WRITE(*,'(A,G16.8)') ' RFPI = ',RFPI() WRITE(*,'(A)') ' *** TEST FOR RD2R & RR2D' WRITE(*,'(A,G16.8)') ' RD2R(180.0) = ',RD2R(DX) WRITE(*,'(A,G16.8)') ' RR2D(PI) = ',RR2D(PI) END dcl-7.5.2/demo/math1/fnclib/Makefile0000644000175000017500000000043414760053155016765 0ustar uwabamiuwabami# # Makefile for fnclib (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = fnclib LIBSRCS = fncl01.f LIBDEMO = fncl01 LIBEXEC = fncl01$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ core *.trace dcl-7.5.2/demo/math1/lrllib/0000755000175000017500000000000014760053155015347 5ustar uwabamiuwabamidcl-7.5.2/demo/math1/lrllib/lrll02.f0000644000175000017500000000201114760053155016617 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM LRLL02 PARAMETER (N=3) REAL X(N),Y(N) LOGICAL LREQA,LRNEA,LRLTA,LRLEA,LRGTA,LRGEA EXTERNAL LREQA,LRNEA,LRLTA,LRLEA,LRGTA,LRGEA DATA X/ 1.2, 3.0, 3.0 / DATA Y/ 1.5, 3.0, 3.000003 / EPSL=1.0E-5 DO 10 I=1,N WRITE(*,'(3(A,G16.7),A)') + 'X = ',X(I),'; Y = ',Y(I),'; EPSL = ',EPSL,';' WRITE(*,'(A,L4)') ' LREQA(X,Y,EPSL)=',LREQA(X(I),Y(I),EPSL) WRITE(*,'(A,L4)') ' LRNEA(X,Y,EPSL)=',LRNEA(X(I),Y(I),EPSL) WRITE(*,'(A,L4)') ' LRLTA(X,Y,EPSL)=',LRLTA(X(I),Y(I),EPSL) WRITE(*,'(A,L4)') ' LRLEA(X,Y,EPSL)=',LRLEA(X(I),Y(I),EPSL) WRITE(*,'(A,L4)') ' LRGTA(X,Y,EPSL)=',LRGTA(X(I),Y(I),EPSL) WRITE(*,'(A,L4)') ' LRGEA(X,Y,EPSL)=',LRGEA(X(I),Y(I),EPSL) 10 CONTINUE END dcl-7.5.2/demo/math1/lrllib/Makefile0000644000175000017500000000050314760053155017005 0ustar uwabamiuwabami# # Makefile for lrllib (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = lrllib LIBSRCS = lrll01.f lrll02.f LIBDEMO = lrll01 lrll02 LIBEXEC = lrll01$(EXT) lrll02$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ core *.trace dcl-7.5.2/demo/math1/lrllib/lrll01.f0000644000175000017500000000164714760053155016634 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM LRLL01 PARAMETER (N=3) REAL X(N),Y(N) LOGICAL LREQ,LRNE,LRLT,LRLE,LRGT,LRGE EXTERNAL LREQ,LRNE,LRLT,LRLE,LRGT,LRGE DATA X/ 1.2, 3.0, 3.0 / DATA Y/ 1.5, 3.0, 3.000003 / CALL GLLSET('LEPSL',.TRUE.) DO 10 I=1,N WRITE(*,'(2(A,G16.7),A)') 'X = ',X(I),'; Y = ',Y(I),';' WRITE(*,'(A,L4)') ' LREQ(X,Y)=',LREQ(X(I),Y(I)) WRITE(*,'(A,L4)') ' LRNE(X,Y)=',LRNE(X(I),Y(I)) WRITE(*,'(A,L4)') ' LRLT(X,Y)=',LRLT(X(I),Y(I)) WRITE(*,'(A,L4)') ' LRLE(X,Y)=',LRLE(X(I),Y(I)) WRITE(*,'(A,L4)') ' LRGT(X,Y)=',LRGT(X(I),Y(I)) WRITE(*,'(A,L4)') ' LRGE(X,Y)=',LRGE(X(I),Y(I)) 10 CONTINUE END dcl-7.5.2/demo/math1/rfblib/0000755000175000017500000000000014760053155015327 5ustar uwabamiuwabamidcl-7.5.2/demo/math1/rfblib/Makefile0000644000175000017500000000043414760053155016770 0ustar uwabamiuwabami# # Makefile for rfblib (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = rfblib LIBSRCS = rfbl01.f LIBDEMO = rfbl01 LIBEXEC = rfbl01$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ core *.trace dcl-7.5.2/demo/math1/rfblib/rfbl01.f0000644000175000017500000000141714760053155016567 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM RFBL01 PARAMETER (N=8) REAL RX(N),RY(N) EXTERNAL RPRD,RCOV,RCOR DATA RX/ -1, 1, 2, -2, -3, -4, 12, -5/ DATA RY/ 1, 2, -3, 2, 0, -7, 8, -3/ WRITE(*,'(A,8F8.1)') ' LIST OF RX : ',RX WRITE(*,'(A,8F8.1)') ' LIST OF RY : ',RY WRITE(*,'(A,G14.6)') + ' *** RPRD(RX,RY,8,1,1) = ',RPRD(RX,RY,8,1,1) WRITE(*,'(A,G14.6)') + ' *** RCOV(RX,RY,8,1,1) = ',RCOV(RX,RY,8,1,1) WRITE(*,'(A,G14.6)') + ' *** RCOR(RX,RY,8,1,1) = ',RCOR(RX,RY,8,1,1) END dcl-7.5.2/demo/math1/syslib/0000755000175000017500000000000014760053155015374 5ustar uwabamiuwabamidcl-7.5.2/demo/math1/syslib/Makefile0000644000175000017500000000050314760053155017032 0ustar uwabamiuwabami# # Makefile for syslib (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = syslib LIBSRCS = sysl01.f sysl02.f LIBDEMO = sysl01 sysl02 LIBEXEC = sysl01$(EXT) sysl02$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ core *.trace dcl-7.5.2/demo/math1/syslib/sysl02.f0000644000175000017500000000241314760053155016677 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SYSL02 LOGICAL LMISS CHARACTER CMSG*120 CALL GLLSTX('LMISS ',.TRUE.) CALL GLLGET('LMISS ',LMISS ) WRITE(*,*) '--- LMISS WAS CHANGED TO ',LMISS CALL GLISTX('IMISS ', -999) CALL GLIGET('IMISS ',IMISS ) WRITE(*,*) '--- IMISS WAS CHANGED TO ',IMISS CALL GLRSTX('RMISS ',-999.0) CALL GLRGET('RMISS ',RMISS ) WRITE(*,*) '--- RMISS WAS CHANGED TO ',RMISS CALL GLISTX('NLNSIZE ', 60) CALL GLIGET('NLNSIZE ',NLINES) WRITE(*,*) '--- NLNSIZE WAS CHANGED TO ',NLINES CALL GLISTX('MAXMSG ', 5) CALL GLIGET('MAXMSG ',MAXMSG) WRITE(*,*) '--- MAXMSG WAS CHANGED TO ',MAXMSG CMSG='1234567890123456789012345678901234567890' + //'1234567890123456789012345678901234567890' + //'1234567890123456789012345678901234567890' DO 10 N=1,5 CALL MSGDMP('M','TMSGDM','TEST PROGRAM FOR MSGDMP.') CALL MSGDMP('W','TMSGDM',CMSG) 10 CONTINUE * CALL MSGDMP('E','TMSGDM','TEST PROGRAM FOR MSGDMP.') END dcl-7.5.2/demo/math1/syslib/sysl01.f0000644000175000017500000000334414760053155016702 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SYSL01 LOGICAL LMISS,LEPSL CALL GLIGET('NBITSPW ',NBITS ) WRITE(*,*) '*** NBITSPW = ',NBITS CALL GLIGET('NCHRSPW ',NCHRS ) WRITE(*,*) '*** NCHRSPW = ',NCHRS CALL GLIGET('INTMAX ',INTMAX) WRITE(*,*) '*** INTMAX = ',INTMAX CALL GLRGET('REALMAX ',RLMAX ) WRITE(*,*) '*** REALMAX = ',RLMAX CALL GLRGET('REALMIN ',RLMIN ) WRITE(*,*) '*** REALMIN = ',RLMIN CALL GLIGET('IIUNIT ',IIUNIT) WRITE(*,*) '*** IIUNIT = ',IIUNIT CALL GLIGET('IOUNIT ',IOUNIT) WRITE(*,*) '*** IOUNIT = ',IOUNIT CALL GLIGET('MSGUNIT ',MSGU ) WRITE(*,*) '*** MSGUNIT = ',MSGU CALL GLIGET('MAXMSG ',MAXMSG) WRITE(*,*) '*** MAXMSG = ',MAXMSG CALL GLIGET('MSGLEV ',MSGLEV) WRITE(*,*) '*** MSGLEV = ',MSGLEV CALL GLIGET('NLNSIZE ',NLINES) WRITE(*,*) '*** NLNSIZE = ',NLINES CALL GLLGET('LMISS ',LMISS ) WRITE(*,*) '*** LMISS = ',LMISS CALL GLIGET('IMISS ',IMISS ) WRITE(*,*) '*** IMISS = ',IMISS CALL GLRGET('RMISS ',RMISS ) WRITE(*,*) '*** RMISS = ',RMISS CALL GLIGET('IUNDEF ',IUNDEF) WRITE(*,*) '*** IUNDEF = ',IUNDEF CALL GLRGET('RUNDEF ',RUNDEF) WRITE(*,*) '*** RUNDEF = ',RUNDEF CALL GLLGET('LEPSL ',LEPSL ) WRITE(*,*) '*** LEPSL = ',LEPSL CALL GLRGET('REPSL ',REPSL ) WRITE(*,*) '*** REPSL = ',REPSL CALL GLRGET('RFACT ',RFACT ) WRITE(*,*) '*** RFACT = ',RFACT END dcl-7.5.2/demo/math1/oslib/0000755000175000017500000000000014760053155015177 5ustar uwabamiuwabamidcl-7.5.2/demo/math1/oslib/Makefile0000644000175000017500000000050214760053155016634 0ustar uwabamiuwabami# # Makefile for syslib (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = oslib LIBSRCS = oslb01.f oslb02.f LIBDEMO = oslb01 oslb02 LIBEXEC = oslb01$(EXT) oslb02$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ core *.trace dcl-7.5.2/demo/math1/oslib/oslb02.f0000644000175000017500000000060314760053155016446 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM OSLB02 CHARACTER CMD*80 CMD='ls' NL=LENC(CMD) WRITE(*,'(A)') ' CALL OSEXEC('''//CMD(1:NL)//''')' CALL OSEXEC(CMD) END dcl-7.5.2/demo/math1/oslib/oslb01.f0000644000175000017500000000076614760053155016457 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM OSLB01 CHARACTER CENAME*20,CEVAL*40 CENAME='HOME' NL=LENC(CENAME) WRITE(*,'(A)') ' CALL OSGENV('''//CENAME(1:NL)//''',CEVAL)' CALL OSGENV(CENAME,CEVAL) WRITE(*,'(TR1,3A)') + CENAME(1:NL),' = ',CEVAL(1:LENC(CEVAL)) END dcl-7.5.2/demo/math1/intlib/0000755000175000017500000000000014760053155015350 5ustar uwabamiuwabamidcl-7.5.2/demo/math1/intlib/intl01.f0000644000175000017500000000131714760053155016630 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM INTL01 PARAMETER (NR=3) REAL RR(NR) EXTERNAL IRLT,IRLE,IRGT,IRGE DATA RR/ 2.5, 3.0, 3.000003 / CALL GLLSET('LEPSL',.TRUE.) DO 10 I=1,NR WRITE(*,'(A,G16.7)') ' *** RR = ',RR(I) WRITE(*,'(A,I4)') ' *** IRLT(RR) = ',IRLT(RR(I)) WRITE(*,'(A,I4)') ' *** IRLE(RR) = ',IRLE(RR(I)) WRITE(*,'(A,I4)') ' *** IRGT(RR) = ',IRGT(RR(I)) WRITE(*,'(A,I4)') ' *** IRGE(RR) = ',IRGE(RR(I)) 10 CONTINUE END dcl-7.5.2/demo/math1/intlib/Makefile0000644000175000017500000000043414760053155017011 0ustar uwabamiuwabami# # Makefile for intlib (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = intlib LIBSRCS = intl01.f LIBDEMO = intl01 LIBEXEC = intl01$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ core *.trace dcl-7.5.2/demo/math1/sublib/0000755000175000017500000000000014760053155015347 5ustar uwabamiuwabamidcl-7.5.2/demo/math1/sublib/Makefile0000644000175000017500000000043414760053155017010 0ustar uwabamiuwabami# # Makefile for sublib (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = sublib LIBSRCS = subl01.f LIBDEMO = subl01 LIBEXEC = subl01$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ core *.trace dcl-7.5.2/demo/math1/sublib/subl01.f0000644000175000017500000000102014760053155016615 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM SUBL01 PARAMETER (N=8) INTEGER IX(N) REAL RX(N) WRITE(*,'(A)') ' *** TEST FOR VIGNN' CALL VIGNN(IX,N,1) WRITE(*,'(A,8I6)') ' IX = ',IX WRITE(*,'(A)') ' *** TEST FOR VRGNN' CALL VRGNN(RX,N,1) WRITE(*,'(A,8F6.1)') ' RX = ',RX END dcl-7.5.2/demo/math1/indxlib/0000755000175000017500000000000014760053155015520 5ustar uwabamiuwabamidcl-7.5.2/demo/math1/indxlib/Makefile0000644000175000017500000000050514760053155017160 0ustar uwabamiuwabami# # Makefile for indxlib (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = indxlib LIBSRCS = indx01.f indx02.f LIBDEMO = indx01 indx02 LIBEXEC = indx01$(EXT) indx02$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ core *.trace dcl-7.5.2/demo/math1/indxlib/indx01.f0000644000175000017500000000257714760053155017005 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM INDX01 PARAMETER (N=10) INTEGER IX(N) REAL RX(N) CHARACTER CX(10)*1 EXTERNAL INDXIF,INDXIL,NINDXI,INDXRF,INDXRL,NINDXR, + INDXCF,INDXCL,NINDXC DATA IX/ 0, 1, 2, 3, 2, 1, 0, -1, -2, 0/ DATA RX/ 0, 1, 2, 3, 2, 1, 0, -1, -2, 0/ DATA CX/'A','B','C','B','A','Z','W','Z','A','Y'/ WRITE(*,'(A,10I4)') ' LIST OF IX (N=10) : ',IX WRITE(*,100) ' *** INDXIF(IX,N,1,2) = ',INDXIF(IX,N,1,2) WRITE(*,100) ' *** INDXIL(IX,N,1,2) = ',INDXIL(IX,N,1,2) WRITE(*,100) ' *** NINDXI(IX,N,1,0) = ',NINDXI(IX,N,1,0) WRITE(*,'(A,10F4.0)') ' LIST OF RX (N=10) : ',RX WRITE(*,100) ' *** INDXRF(RX,N,1,1.0) = ',INDXRF(RX,N,1,1.0) WRITE(*,100) ' *** INDXRL(RX,N,1,1.0) = ',INDXRL(RX,N,1,1.0) WRITE(*,100) ' *** NINDXR(RX,N,1,2.0) = ',NINDXR(RX,N,1,2.0) WRITE(*,'(A,10A4)') ' LIST OF CX (N=10) : ',CX WRITE(*,100) ' *** INDXCF(CX,N,1,''B'') = ',INDXCF(CX,N,1,'B') WRITE(*,100) ' *** INDXCL(CX,N,1,''B'') = ',INDXCL(CX,N,1,'B') WRITE(*,100) ' *** NINDXC(CX,N,1,''A'') = ',NINDXC(CX,N,1,'A') 100 FORMAT(A,I6) END dcl-7.5.2/demo/math1/indxlib/indx02.f0000644000175000017500000000262614760053155017001 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM INDX02 CHARACTER CX*50,CC*50,CH*2 DATA CC/'12345678901234567890123456789012345678901234567890'/ DATA CX/'NANA AND MAMA GAVE TOMATOES AND BANANAS TO MASATO.'/ WRITE(*,'(A,A)') ' -------------',CC WRITE(*,'(A,A)') ' LIST OF CX : ',CX N=25 J=2 CH='NA' WRITE(*,100) ' N = ',N,' : J = ',J,' : CH = ',CH WRITE(*,200) ' *** INDXMF(CX,N,J,CH) = ',INDXMF(CX,N,J,CH) WRITE(*,200) ' *** INDXML(CX,N,J,CH) = ',INDXML(CX,N,J,CH) WRITE(*,200) ' *** NINDXM(CX,N,J,CH) = ',NINDXM(CX,N,J,CH) N=49 J=1 CH='MA' WRITE(*,100) ' N = ',N,' : J = ',J,' : CH = ',CH WRITE(*,200) ' *** INDXMF(CX,N,J,CH) = ',INDXMF(CX,N,J,CH) WRITE(*,200) ' *** INDXML(CX,N,J,CH) = ',INDXML(CX,N,J,CH) WRITE(*,200) ' *** NINDXM(CX,N,J,CH) = ',NINDXM(CX,N,J,CH) N=49 J=1 CH='ma' WRITE(*,100) ' N = ',N,' : J = ',J,' : CH = ',CH WRITE(*,200) ' *** INDXMF(CX,N,J,CH) = ',INDXMF(CX,N,J,CH) WRITE(*,200) ' *** INDXML(CX,N,J,CH) = ',INDXML(CX,N,J,CH) WRITE(*,200) ' *** NINDXM(CX,N,J,CH) = ',NINDXM(CX,N,J,CH) 100 FORMAT(A,I4,A,I4,A,A) 200 FORMAT(A,I4) END dcl-7.5.2/demo/math1/chrlib/0000755000175000017500000000000014760053155015332 5ustar uwabamiuwabamidcl-7.5.2/demo/math1/chrlib/Makefile0000644000175000017500000000043414760053155016773 0ustar uwabamiuwabami# # Makefile for chrlib (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = chrlib LIBSRCS = chrl01.f LIBDEMO = chrl01 LIBEXEC = chrl01$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ core *.trace dcl-7.5.2/demo/math1/chrlib/chrl01.f0000644000175000017500000000154714760053155016601 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM CHRL01 CHARACTER CHR*8,CHR1*8,CHR2*8,CHR3*8 EXTERNAL LENB,LENC,LENY,LENZ CHR=' DENNOU ' WRITE(*,'(3A)') ' CHR = ''',CHR,'''' WRITE(*,'(A,I4)') ' LENB = ',LENB(CHR) WRITE(*,'(A,I4)') ' LENC = ',LENC(CHR) WRITE(*,'(A,I4)') ' LENY = ',LENY(CHR) WRITE(*,'(A,I4)') ' LENZ = ',LENZ(CHR) CHR1=CHR CALL CRADJ(CHR1) WRITE(*,'(3A)') ' CHR (RIGHT ADJUSTED) = ''',CHR1,'''' CHR2=CHR CALL CLADJ(CHR2) WRITE(*,'(3A)') ' CHR (LEFT ADJUSTED) = ''',CHR2,'''' CHR3=CHR CALL CRVRS(CHR3) WRITE(*,'(3A)') ' CHR (REVERSED) = ''',CHR3,'''' END dcl-7.5.2/demo/math1/viblib/0000755000175000017500000000000014760053155015336 5ustar uwabamiuwabamidcl-7.5.2/demo/math1/viblib/Makefile0000644000175000017500000000043414760053155016777 0ustar uwabamiuwabami# # Makefile for viblib (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = viblib LIBSRCS = vibl01.f LIBDEMO = vibl01 LIBEXEC = vibl01$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ core *.trace dcl-7.5.2/demo/math1/viblib/vibl01.f0000644000175000017500000000453114760053155016605 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM VIBL01 PARAMETER (N=10) INTEGER IX(N),IY(N),IZ(N) INTEGER IFNB EXTERNAL IFNB DATA IX/ 2, 1, 4, 6, 7, -4, 12,999, 23, -5/ DATA IY/ 4, -1, 2,999, 3, 7, 1, 4, 3, -1/ WRITE(*,'(A,10I6)') ' LIST OF IX : ',IX WRITE(*,'(A,10I6)') ' LIST OF IY : ',IY WRITE(*,'(A)') ' *** OPTION LMISS = .FALSE.' CALL VIADD(IX,IY,IZ,10,1,1,1) WRITE(*,'(A)') ' AFTER CALLING VIADD(IX,IY,IZ,10,1,1,1)' WRITE(*,'(A,10I6)') ' LIST OF IZ : ',IZ CALL VISUB(IX,IY,IZ,10,1,1,1) WRITE(*,'(A)') ' AFTER CALLING VISUB(IX,IY,IZ,10,1,1,1)' WRITE(*,'(A,10I6)') ' LIST OF IZ : ',IZ CALL VIMLT(IX,IY,IZ,10,1,1,1) WRITE(*,'(A)') ' AFTER CALLING VIMLT(IX,IY,IZ,10,1,1,1)' WRITE(*,'(A,10I6)') ' LIST OF IZ : ',IZ CALL VIDIV(IX,IY,IZ,10,1,1,1) WRITE(*,'(A)') ' AFTER CALLING VIDIV(IX,IY,IZ,10,1,1,1)' WRITE(*,'(A,10I6)') ' LIST OF IZ : ',IZ CALL VIFNB(IX,IY,IZ,10,1,1,1,IFNB) WRITE(*,'(A)') ' AFTER CALLING VIFNB(IX,IY,IZ,10,1,1,1,IFNB)' WRITE(*,'(A)') ' IFNB(I,J)=MIN(I,J)' WRITE(*,'(A,10I6)') ' LIST OF IZ : ',IZ CALL GLLSET('LMISS',.TRUE.) WRITE(*,'(A)') ' *** OPTION LMISS = .TRUE.' CALL VIADD(IX,IY,IZ,10,1,1,1) WRITE(*,'(A)') ' AFTER CALLING VIADD(IX,IY,IZ,10,1,1,1)' WRITE(*,'(A,10I6)') ' LIST OF IZ : ',IZ CALL VISUB(IX,IY,IZ,10,1,1,1) WRITE(*,'(A)') ' AFTER CALLING VISUB(IX,IY,IZ,10,1,1,1)' WRITE(*,'(A,10I6)') ' LIST OF IZ : ',IZ CALL VIMLT(IX,IY,IZ,10,1,1,1) WRITE(*,'(A)') ' AFTER CALLING VIMLT(IX,IY,IZ,10,1,1,1)' WRITE(*,'(A,10I6)') ' LIST OF IZ : ',IZ CALL VIDIV(IX,IY,IZ,10,1,1,1) WRITE(*,'(A)') ' AFTER CALLING VIDIV(IX,IY,IZ,10,1,1,1)' WRITE(*,'(A,10I6)') ' LIST OF IZ : ',IZ CALL VIFNB(IX,IY,IZ,10,1,1,1,IFNB) WRITE(*,'(A)') ' AFTER CALLING VIFNB(IX,IY,IZ,10,1,1,1,IFNB)' WRITE(*,'(A)') ' IFNB(I,J)=MIN(I,J)' WRITE(*,'(A,10I6)') ' LIST OF IZ : ',IZ END *----------------------------------------------------------------------- INTEGER FUNCTION IFNB(I,J) IFNB=MIN(I,J) END dcl-7.5.2/demo/math2/0000755000175000017500000000000014760053155014070 5ustar uwabamiuwabamidcl-7.5.2/demo/math2/intrlib/0000755000175000017500000000000014760053155015533 5ustar uwabamiuwabamidcl-7.5.2/demo/math2/intrlib/intr01.f0000644000175000017500000000103214760053155017013 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM INTR01 PARAMETER (N=12) REAL RX(N) DATA RX/ 0, 1, 2, 999, 4, 3, 999, 999, 0, -1, -2, 999/ WRITE(*,'(A,12F5.0)') ' LIST OF RX : ',RX CALL VRINTR(RX,N,1) WRITE(*,'(A)') ' AFTER CALLING VRINTR(RX,12,1)' WRITE(*,'(A,12F5.0)') ' LIST OF RX : ',RX END dcl-7.5.2/demo/math2/intrlib/Makefile0000644000175000017500000000043614760053155017176 0ustar uwabamiuwabami# # Makefile for intrlib (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = intrlib LIBSRCS = intr01.f LIBDEMO = intr01 LIBEXEC = intr01$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ core *.trace dcl-7.5.2/demo/math2/vstlib/0000755000175000017500000000000014760053155015373 5ustar uwabamiuwabamidcl-7.5.2/demo/math2/vstlib/Makefile0000644000175000017500000000050314760053155017031 0ustar uwabamiuwabami# # Makefile for vstlib (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = vstlib LIBSRCS = vstl01.f vstl02.f LIBDEMO = vstl01 vstl02 LIBEXEC = vstl01$(EXT) vstl02$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ core *.trace dcl-7.5.2/demo/math2/vstlib/vstl01.f0000644000175000017500000000136614760053155016701 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM VSTL01 PARAMETER (IX=3,NN=4) INTEGER NW1(IX) REAL WZ1(IX,2),X(IX,NN) DATA X/ 1, 3,-1, 2,-4, 0, 2, 1, 3, 2, 1, 0/ WRITE(*,'(A)') ' *** TEST FOR VS1INT / VS1DIN / VS1OUT' CALL VS1INT(WZ1,NW1,IX) DO 10 J=1,NN WRITE(*,100) ' INPUT = ',(X(I,J),I=1,IX) CALL VS1DIN(WZ1,NW1,IX,X(1,J)) 10 CONTINUE CALL VS1OUT(WZ1,NW1,IX) WRITE(*,100) ' AVE. = ',(WZ1(I,1),I=1,IX) WRITE(*,100) ' VAR. = ',(WZ1(I,2),I=1,IX) 100 FORMAT(A,3F6.1) END dcl-7.5.2/demo/math2/vstlib/vstl02.f0000644000175000017500000000221014760053155016667 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM VSTL02 PARAMETER (IX=3,IY=3,NN=4) INTEGER NW2(IX,IY) REAL WZ2(IX,IY,5),X(IX,NN),Y(IY,NN) DATA X/ 1, 3,-1, 2,-4, 0, 2, 1, 3, 2, 1, 0/ DATA Y/ 0, 1, 0, 1,-2, 1, 3, 0, 2, 1,-1, 0/ WRITE(*,'(A)') ' *** TEST FOR VS2INT / VS2DIN / VS2OUT' CALL VS2INT(WZ2,NW2,IX,IY) DO 20 J=1,NN WRITE(*,100) ' INPUT(X) = ',(X(I,J),I=1,IX) WRITE(*,100) ' INPUT(Y) = ',(Y(I,J),I=1,IY) CALL VS2DIN(WZ2,NW2,IX,IY,X(1,J),Y(1,J)) 20 CONTINUE CALL VS2OUT(WZ2,NW2,IX,IY) WRITE(*,110) ' AVE. (X) = ',((WZ2(I,J,1),I=1,IX),J=1,IY) WRITE(*,110) ' AVE. (Y) = ',((WZ2(I,J,2),I=1,IX),J=1,IY) WRITE(*,110) ' VAR. (X) = ',((WZ2(I,J,3),I=1,IX),J=1,IY) WRITE(*,110) ' VAR. (Y) = ',((WZ2(I,J,4),I=1,IX),J=1,IY) WRITE(*,110) ' COV(X,Y) = ',((WZ2(I,J,5),I=1,IX),J=1,IY) 100 FORMAT(A,3F6.1) 110 FORMAT(A12,3F6.1,2(/TR12,3F6.1)) END dcl-7.5.2/demo/math2/rnmlib/0000755000175000017500000000000014760053155015353 5ustar uwabamiuwabamidcl-7.5.2/demo/math2/rnmlib/rnml01.f0000644000175000017500000000105714760053155016636 0ustar uwabamiuwabami*----------------------------------------------------------------------- * Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. *----------------------------------------------------------------------- PROGRAM RNML01 PARAMETER (N=12) REAL RX(N),RY(N) DATA RX/ 0, 10, 20, 30, 40, 30, 20, 10, 0, -10, -20, -10/ WRITE(*,'(A,12F5.0)') ' LIST OF RX : ',RX CALL VRRNM(RX,RY,N,1,1,3) WRITE(*,'(A)') ' AFTER CALLING VRRNM(RX,RY,12,1,1,3)' WRITE(*,'(A,12F5.0)') ' LIST OF RY : ',RY END dcl-7.5.2/demo/math2/rnmlib/Makefile0000644000175000017500000000043414760053155017014 0ustar uwabamiuwabami# # Makefile for rnmlib (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = rnmlib LIBSRCS = rnml01.f LIBDEMO = rnml01 LIBEXEC = rnml01$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ core *.trace dcl-7.5.2/demo/math2/Makefile0000644000175000017500000000070614760053155015533 0ustar uwabamiuwabami# # Makefile for math2 # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../Mkinclude SUBDIRS = fftlib intrlib rnmlib vstlib all: @for i in $(SUBDIRS) ; do \ cd $$i ; \ echo "Making $$i" ; \ $(MAKE) ; \ cd .. ; \ done clean: clean.local clean.dir clean.local: $(RM) *~ clean.dir: @for i in $(SUBDIRS) ; do \ cd $$i ; \ echo "Cleaning $$i" ; \ $(MAKE) clean ; \ cd .. ; \ done dcl-7.5.2/demo/math2/fftlib/0000755000175000017500000000000014760053155015336 5ustar uwabamiuwabamidcl-7.5.2/demo/math2/fftlib/fftl02.f0000644000175000017500000001334014760053155016603 0ustar uwabamiuwabami*----------------------------------------------------------------------- PROGRAM FFTL02 CALL TFFTPK(IER) END *----------------------------------------------------------------------- SUBROUTINE TFFTPK (IERROR) C C C PURPOSE TO DEMONSTRATE THE USE OF FFTPACK, AND TO C TEST THE PERFORMANCE OF FFTPACK ON ONE C WELL-CONDITIONED PROBLEM. C C USAGE CALL TFFTPK (IERROR) C C ARGUMENTS C C ON OUTPUT IERROR C INTEGER VARIABLE SET TO ZERO IF FFTPACK C CORRECTLY SOLVED THE TEST PROBLEM, AND C ONE IF FFTPACK FAILED. C C I/O IF THE TEST SUCCEEDS(FAILS), THE MESSAGE C C FFTPACK TEST SUCCESSFUL (UNSUCCESSFUL) C C IS WRITTEN ON UNIT 6. IN THE CASE OF FAILURE, C ADDITIONAL MESSAGES ARE WRITTEN IDENTIFYING THE C FAILURE MORE EXPLICITLY. C C PRECISION SINGLE C C REQUIRED LIBRARY NONE C FILES C C LANGUAGE FORTRAN C C HISTORY WRITTEN BY MEMBERS OF THE SCIENTIFIC C COMPUTING DIVISION OF NCAR, C BOULDER COLORADO. C C ALGORITHM FOR EACH OF THE ROUTINES, RFFTF, RFFTB, EZFFTF, C AND EZFFTB IN THE FFTPACK PACKAGE A SIMILAR C TEST IS RUN. AN APPROPIATE VECTOR, FOR WHICH C THE EXACT TRANSFORM IS KNOWN IS USED AS THE C INPUT VECTOR. THE ROUTINE IS CALLED TO PERFORM C THE TRANSFORM. THE CALCULATED TRANSFORM VECTOR C IS COMPARED WITH THE EXACT TRANSFORM TO SEE C WHETHER THE PERFORMANCE CRITERION IS MET WITHIN C THE SPECIFED TOLERANCE. C C FOR RFFTF AND EZFFTF, A REAL VECTOR, THE ELEMEN C WHICH ARE EQUAL TO ONE, IS USED AS INPUT. THE C TRANSFORMED VECTOR HAS THE FIRST ELEMENT EQUAL C TO THE LENGTH OF THE INPUT VECTOR. ALL OTHER C ELEMENTS ARE EQUAL TO ZERO. C C FOR RFFTB AND EZFFTB, THE INPUT VECTOR HAS FIRS C ELEMENT EQUAL TO ONE AND ALL THE OTHER ELEMENTS C EQUAL TO ZERO. THE TRANSFORMED VECTOR HAS ALL C COMPONENTS EQUAL TO ONE. C C PORTABILITY ANSI STANDARD C C PARAMETER( N=36 ) INTEGER DIM1, DIM2 PARAMETER( DIM1=2*N+15, DIM2=3*N+15, ND2=N/2 ) REAL RLDAT(N), WRFFT(DIM1), WEZFFT(DIM2), A(ND2), B(ND2) DATA TOL/0.01/ C C STATEMENT FUNCTION SMALL(EX) IS FOR TESTING WHETHER X IS CLOSE TO ZERO C INDEPENDENTLY OF MACHINE WORD SIZE. SMALL(EX) IS EXACTLY ZERO ONLY IF C ABS(X) .LT. EPS/TOL, WHERE EPS IS THE MACHINE PRECESION AND TOL IS A C TOLERANCE FACTOR USED TO CONTROL THE STRICTNESS OF THE TEST. C SMALL(EX) = TRUNC(1.0+TOL*ABS(EX))-1.0 C C CALL INITIALIZATION ROUTINE FOR RFFTF AND RFFTB. C CALL RFFTI( N, WRFFT ) C C TEST OF RFFTF. C DO 10 I = 1,N 10 RLDAT(I) = 1.0 C CALL RFFTF( N, RLDAT, WRFFT ) C C TEST RESULTS OF RFFTF C ERROR = ABS( FLOAT(N) - RLDAT(1) ) DO 15 I = 2,N 15 ERROR = AMAX1( ERROR, ABS(RLDAT(I)) ) IF( SMALL(ERROR) .EQ. 0 ) THEN IER1 = 0 ELSE IER1 = 1 WRITE(*,1001) END IF C C TEST OF RFFTB. C RLDAT(1) = 1.0 DO 20 I = 2,N 20 RLDAT(I) = 0.0 C CALL RFFTB( N, RLDAT, WRFFT ) C C TEST RESULTS OF RFFTB C ERROR = 0.0 DO 25 I = 1,N 25 ERROR = AMAX1( ERROR, ABS(1.0 - RLDAT(I)) ) IF( SMALL(ERROR) .EQ. 0 ) THEN IER2 = 0 ELSE IER2 = 1 WRITE(*,1002) END IF C C CALL INITIALIZATION ROUTINE EZFFTI FOR EZFFTF AND EZFFTB C CALL EZFFTI( N, WEZFFT ) C C TEST OF EZFFTF. C DO 30 I = 1,N 30 RLDAT(I) = 1.0 C CALL EZFFTF( N, RLDAT, AZERO, A, B, WEZFFT ) C C TEST RESULTS OF EZFFTF C ERROR = ABS( AZERO - 1.0 ) DO 35 I = 1,ND2 35 ERROR = AMAX1( ABS(A(I))+ABS(B(I)), ERROR ) IF( SMALL(ERROR) .EQ. 0 ) THEN IER3 = 0 ELSE IER3 = 1 WRITE(*,1003) END IF C C TEST OF EZFFTB. C AZERO = 1.0 DO 40 I = 1,ND2 A(I) = 0.0 40 B(I) = 0.0 C CALL EZFFTB( N, RLDAT, AZERO, A, B, WEZFFT ) C C TEST RESULTS OF EZFFTB C ERROR = 0.0 DO 45 I = 1,N 45 ERROR = AMAX1( ABS(1.0 - RLDAT(I)), ERROR) IF( SMALL(ERROR) .EQ. 0 ) THEN IER4 = 0 ELSE IER4 = 1 WRITE(*,1004) END IF C C IERROR = IER1 + IER2 + IER3 + IER4 IF(IERROR .EQ. 0 ) THEN WRITE(*,998) ELSE IERROR = 1 WRITE(*,999) END IF 998 FORMAT(' FFTPACK TEST SUCCESSFUL') 999 FORMAT(' FFTPACK TEST UNSUCCESSFUL') 1001 FORMAT(' IN FFTPACK, ENTRY RFFTF RESULTS IN ERROR') 1002 FORMAT(' IN FFTPACK, ENTRY RFFTB RESULTS IN ERROR') 1003 FORMAT(' IN FFTPACK, ENTRY EZFFTF RESULTS IN ERROR') 1004 FORMAT(' IN FFTPACK, ENTRY EZFFTB RESULTS IN ERROR') RETURN END FUNCTION TRUNC(X) C C TRUNC IS A PORTABLE FORTRAN FUNCTION WHICH TRUNCATES A VALUE TO THE C MACHINE SINGLE PRECISION WORD SIZE, REGARDLESS OF WHETHER LONGER C PRECISION INTERNAL REGISTERS ARE USED FOR FLOATING POINT ARITHMETIC IN C COMPUTING THE VALUE INPUT TO TRUNC. THE METHOD USED IS TO FORCE A C STORE INTO MEMORY BY USING A COMMON BLOCK IN ANOTHER SUBROUTINE. C COMMON /VALUE/ V CALL STORES(X) TRUNC=V RETURN END SUBROUTINE STORES(X) C C FORCES THE ARGUMENT VALUE X TO BE STORED IN MEMORY LOCATION V. C COMMON /VALUE/ V V=X RETURN END dcl-7.5.2/demo/math2/fftlib/fftl01.f0000644000175000017500000000120414760053155016576 0ustar uwabamiuwabami*----------------------------------------------------------------------- PROGRAM FFTL01 PARAMETER (N=12,NW=N/2,NWS=3*N+15) REAL RX(N),AK(NW),BK(NW),WSAVE(NWS) DATA RX/ 0, 1, 2, 3, 4, 3, 2, 1, 0, -1, -2, -1/ * DATA RX/ 0, 1, 2, 3, 2, 1, 0, -1, -2, -3, -2, -1/ CALL EZFFTI(N,WSAVE) WRITE(*,'(A,12F5.1)') ' LIST OF RX : ',RX CALL EZFFTF(N,RX,A0,AK,BK,WSAVE) WRITE(*,'(A,7F8.3)') ' LIST OF CX : ',A0,(AK(I),I=1,NW) WRITE(*,'(A,TR8,6F8.3)') ' LIST OF SX : ',(BK(I),I=1,NW) CALL EZFFTB(N,RX,A0,AK,BK,WSAVE) WRITE(*,'(A,12F5.1)') ' LIST OF RX : ',RX END dcl-7.5.2/demo/math2/fftlib/Makefile0000644000175000017500000000050314760053155016774 0ustar uwabamiuwabami# # Makefile for fftlib (demo) # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../../../Mkinclude LIBNAME = fftlib LIBSRCS = fftl01.f fftl02.f LIBDEMO = fftl01 fftl02 LIBEXEC = fftl01$(EXT) fftl02$(EXT) all: $(LIBDEMO) clean: $(RM) $(LIBEXEC) *.o *~ core *.trace dcl-7.5.2/configure0000755000175000017500000056625414760053155014062 0ustar uwabamiuwabami#! /bin/sh # Guess values for system-dependent variables and create Makefiles. # Generated by GNU Autoconf 2.72. # # # Copyright (C) 1992-1996, 1998-2017, 2020-2023 Free Software Foundation, # Inc. # # # This configure script is free software; the Free Software Foundation # gives unlimited permission to copy, distribute and modify it. ## -------------------- ## ## M4sh Initialization. ## ## -------------------- ## # Be more Bourne compatible DUALCASE=1; export DUALCASE # for MKS sh if test ${ZSH_VERSION+y} && (emulate sh) >/dev/null 2>&1 then : emulate sh NULLCMD=: # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' setopt NO_GLOB_SUBST else case e in #( e) case `(set -o) 2>/dev/null` in #( *posix*) : set -o posix ;; #( *) : ;; esac ;; esac fi # Reset variables that may have inherited troublesome values from # the environment. # IFS needs to be set, to space, tab, and newline, in precisely that order. # (If _AS_PATH_WALK were called with IFS unset, it would have the # side effect of setting IFS to empty, thus disabling word splitting.) # Quoting is to prevent editors from complaining about space-tab. as_nl=' ' export as_nl IFS=" "" $as_nl" PS1='$ ' PS2='> ' PS4='+ ' # Ensure predictable behavior from utilities with locale-dependent output. LC_ALL=C export LC_ALL LANGUAGE=C export LANGUAGE # We cannot yet rely on "unset" to work, but we need these variables # to be unset--not just set to an empty or harmless value--now, to # avoid bugs in old shells (e.g. pre-3.0 UWIN ksh). This construct # also avoids known problems related to "unset" and subshell syntax # in other old shells (e.g. bash 2.01 and pdksh 5.2.14). for as_var in BASH_ENV ENV MAIL MAILPATH CDPATH do eval test \${$as_var+y} \ && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : done # Ensure that fds 0, 1, and 2 are open. if (exec 3>&0) 2>/dev/null; then :; else exec 0&1) 2>/dev/null; then :; else exec 1>/dev/null; fi if (exec 3>&2) ; then :; else exec 2>/dev/null; fi # The user is always right. if ${PATH_SEPARATOR+false} :; then PATH_SEPARATOR=: (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || PATH_SEPARATOR=';' } fi # Find who we are. Look in the path if we contain no directory separator. as_myself= case $0 in #(( *[\\/]* ) as_myself=$0 ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac test -r "$as_dir$0" && as_myself=$as_dir$0 && break done IFS=$as_save_IFS ;; esac # We did not find ourselves, most probably we were run as 'sh COMMAND' # in which case we are not to be found in the path. if test "x$as_myself" = x; then as_myself=$0 fi if test ! -f "$as_myself"; then printf "%s\n" "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 exit 1 fi # Use a proper internal environment variable to ensure we don't fall # into an infinite loop, continuously re-executing ourselves. if test x"${_as_can_reexec}" != xno && test "x$CONFIG_SHELL" != x; then _as_can_reexec=no; export _as_can_reexec; # We cannot yet assume a decent shell, so we have to provide a # neutralization value for shells without unset; and this also # works around shells that cannot unset nonexistent variables. # Preserve -v and -x to the replacement shell. BASH_ENV=/dev/null ENV=/dev/null (unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV case $- in # (((( *v*x* | *x*v* ) as_opts=-vx ;; *v* ) as_opts=-v ;; *x* ) as_opts=-x ;; * ) as_opts= ;; esac exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"} # Admittedly, this is quite paranoid, since all the known shells bail # out after a failed 'exec'. printf "%s\n" "$0: could not re-execute with $CONFIG_SHELL" >&2 exit 255 fi # We don't want this to propagate to other subprocesses. { _as_can_reexec=; unset _as_can_reexec;} if test "x$CONFIG_SHELL" = x; then as_bourne_compatible="if test \${ZSH_VERSION+y} && (emulate sh) >/dev/null 2>&1 then : emulate sh NULLCMD=: # Pre-4.2 versions of Zsh do word splitting on \${1+\"\$@\"}, which # is contrary to our usage. Disable this feature. alias -g '\${1+\"\$@\"}'='\"\$@\"' setopt NO_GLOB_SUBST else case e in #( e) case \`(set -o) 2>/dev/null\` in #( *posix*) : set -o posix ;; #( *) : ;; esac ;; esac fi " as_required="as_fn_return () { (exit \$1); } as_fn_success () { as_fn_return 0; } as_fn_failure () { as_fn_return 1; } as_fn_ret_success () { return 0; } as_fn_ret_failure () { return 1; } exitcode=0 as_fn_success || { exitcode=1; echo as_fn_success failed.; } as_fn_failure && { exitcode=1; echo as_fn_failure succeeded.; } as_fn_ret_success || { exitcode=1; echo as_fn_ret_success failed.; } as_fn_ret_failure && { exitcode=1; echo as_fn_ret_failure succeeded.; } if ( set x; as_fn_ret_success y && test x = \"\$1\" ) then : else case e in #( e) exitcode=1; echo positional parameters were not saved. ;; esac fi test x\$exitcode = x0 || exit 1 blah=\$(echo \$(echo blah)) test x\"\$blah\" = xblah || exit 1 test -x / || exit 1" as_suggested=" as_lineno_1=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_1a=\$LINENO as_lineno_2=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_2a=\$LINENO eval 'test \"x\$as_lineno_1'\$as_run'\" != \"x\$as_lineno_2'\$as_run'\" && test \"x\`expr \$as_lineno_1'\$as_run' + 1\`\" = \"x\$as_lineno_2'\$as_run'\"' || exit 1" if (eval "$as_required") 2>/dev/null then : as_have_required=yes else case e in #( e) as_have_required=no ;; esac fi if test x$as_have_required = xyes && (eval "$as_suggested") 2>/dev/null then : else case e in #( e) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR as_found=false for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH do IFS=$as_save_IFS case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac as_found=: case $as_dir in #( /*) for as_base in sh bash ksh sh5; do # Try only shells that exist, to save several forks. as_shell=$as_dir$as_base if { test -f "$as_shell" || test -f "$as_shell.exe"; } && as_run=a "$as_shell" -c "$as_bourne_compatible""$as_required" 2>/dev/null then : CONFIG_SHELL=$as_shell as_have_required=yes if as_run=a "$as_shell" -c "$as_bourne_compatible""$as_suggested" 2>/dev/null then : break 2 fi fi done;; esac as_found=false done IFS=$as_save_IFS if $as_found then : else case e in #( e) if { test -f "$SHELL" || test -f "$SHELL.exe"; } && as_run=a "$SHELL" -c "$as_bourne_compatible""$as_required" 2>/dev/null then : CONFIG_SHELL=$SHELL as_have_required=yes fi ;; esac fi if test "x$CONFIG_SHELL" != x then : export CONFIG_SHELL # We cannot yet assume a decent shell, so we have to provide a # neutralization value for shells without unset; and this also # works around shells that cannot unset nonexistent variables. # Preserve -v and -x to the replacement shell. BASH_ENV=/dev/null ENV=/dev/null (unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV case $- in # (((( *v*x* | *x*v* ) as_opts=-vx ;; *v* ) as_opts=-v ;; *x* ) as_opts=-x ;; * ) as_opts= ;; esac exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"} # Admittedly, this is quite paranoid, since all the known shells bail # out after a failed 'exec'. printf "%s\n" "$0: could not re-execute with $CONFIG_SHELL" >&2 exit 255 fi if test x$as_have_required = xno then : printf "%s\n" "$0: This script requires a shell more modern than all" printf "%s\n" "$0: the shells that I found on your system." if test ${ZSH_VERSION+y} ; then printf "%s\n" "$0: In particular, zsh $ZSH_VERSION has bugs and should" printf "%s\n" "$0: be upgraded to zsh 4.3.4 or later." else printf "%s\n" "$0: Please tell bug-autoconf@gnu.org about your system, $0: including any error possibly output before this $0: message. Then install a modern shell, or manually run $0: the script under such a shell if you do have one." fi exit 1 fi ;; esac fi fi SHELL=${CONFIG_SHELL-/bin/sh} export SHELL # Unset more variables known to interfere with behavior of common tools. CLICOLOR_FORCE= GREP_OPTIONS= unset CLICOLOR_FORCE GREP_OPTIONS ## --------------------- ## ## M4sh Shell Functions. ## ## --------------------- ## # as_fn_unset VAR # --------------- # Portably unset VAR. as_fn_unset () { { eval $1=; unset $1;} } as_unset=as_fn_unset # as_fn_set_status STATUS # ----------------------- # Set $? to STATUS, without forking. as_fn_set_status () { return $1 } # as_fn_set_status # as_fn_exit STATUS # ----------------- # Exit the shell with STATUS, even in a "trap 0" or "set -e" context. as_fn_exit () { set +e as_fn_set_status $1 exit $1 } # as_fn_exit # as_fn_mkdir_p # ------------- # Create "$as_dir" as a directory, including parents if necessary. as_fn_mkdir_p () { case $as_dir in #( -*) as_dir=./$as_dir;; esac test -d "$as_dir" || eval $as_mkdir_p || { as_dirs= while :; do case $as_dir in #( *\'*) as_qdir=`printf "%s\n" "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( *) as_qdir=$as_dir;; esac as_dirs="'$as_qdir' $as_dirs" as_dir=`$as_dirname -- "$as_dir" || $as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_dir" : 'X\(//\)[^/]' \| \ X"$as_dir" : 'X\(//\)$' \| \ X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || printf "%s\n" X"$as_dir" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` test -d "$as_dir" && break done test -z "$as_dirs" || eval "mkdir $as_dirs" } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" } # as_fn_mkdir_p # as_fn_executable_p FILE # ----------------------- # Test if FILE is an executable regular file. as_fn_executable_p () { test -f "$1" && test -x "$1" } # as_fn_executable_p # as_fn_append VAR VALUE # ---------------------- # Append the text in VALUE to the end of the definition contained in VAR. Take # advantage of any shell optimizations that allow amortized linear growth over # repeated appends, instead of the typical quadratic growth present in naive # implementations. if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null then : eval 'as_fn_append () { eval $1+=\$2 }' else case e in #( e) as_fn_append () { eval $1=\$$1\$2 } ;; esac fi # as_fn_append # as_fn_arith ARG... # ------------------ # Perform arithmetic evaluation on the ARGs, and store the result in the # global $as_val. Take advantage of shells that can avoid forks. The arguments # must be portable across $(()) and expr. if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null then : eval 'as_fn_arith () { as_val=$(( $* )) }' else case e in #( e) as_fn_arith () { as_val=`expr "$@" || test $? -eq 1` } ;; esac fi # as_fn_arith # as_fn_error STATUS ERROR [LINENO LOG_FD] # ---------------------------------------- # Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are # provided, also output the error to LOG_FD, referencing LINENO. Then exit the # script with STATUS, using 1 if that was 0. as_fn_error () { as_status=$1; test $as_status -eq 0 && as_status=1 if test "$4"; then as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 fi printf "%s\n" "$as_me: error: $2" >&2 as_fn_exit $as_status } # as_fn_error if expr a : '\(a\)' >/dev/null 2>&1 && test "X`expr 00001 : '.*\(...\)'`" = X001; then as_expr=expr else as_expr=false fi if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then as_basename=basename else as_basename=false fi if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then as_dirname=dirname else as_dirname=false fi as_me=`$as_basename -- "$0" || $as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ X"$0" : 'X\(//\)$' \| \ X"$0" : 'X\(/\)' \| . 2>/dev/null || printf "%s\n" X/"$0" | sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/ q } /^X\/\(\/\/\)$/{ s//\1/ q } /^X\/\(\/\).*/{ s//\1/ q } s/.*/./; q'` # Avoid depending upon Character Ranges. as_cr_letters='abcdefghijklmnopqrstuvwxyz' as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' as_cr_Letters=$as_cr_letters$as_cr_LETTERS as_cr_digits='0123456789' as_cr_alnum=$as_cr_Letters$as_cr_digits as_lineno_1=$LINENO as_lineno_1a=$LINENO as_lineno_2=$LINENO as_lineno_2a=$LINENO eval 'test "x$as_lineno_1'$as_run'" != "x$as_lineno_2'$as_run'" && test "x`expr $as_lineno_1'$as_run' + 1`" = "x$as_lineno_2'$as_run'"' || { # Blame Lee E. McMahon (1931-1989) for sed's syntax. :-) sed -n ' p /[$]LINENO/= ' <$as_myself | sed ' t clear :clear s/[$]LINENO.*/&-/ t lineno b :lineno N :loop s/[$]LINENO\([^'$as_cr_alnum'_].*\n\)\(.*\)/\2\1\2/ t loop s/-\n.*// ' >$as_me.lineno && chmod +x "$as_me.lineno" || { printf "%s\n" "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2; as_fn_exit 1; } # If we had to re-execute with $CONFIG_SHELL, we're ensured to have # already done that, so ensure we don't try to do so again and fall # in an infinite loop. This has already happened in practice. _as_can_reexec=no; export _as_can_reexec # Don't try to exec as it changes $[0], causing all sort of problems # (the dirname of $[0] is not the place where we might find the # original and so on. Autoconf is especially sensitive to this). . "./$as_me.lineno" # Exit status is that of the last command. exit } # Determine whether it's possible to make 'echo' print without a newline. # These variables are no longer used directly by Autoconf, but are AC_SUBSTed # for compatibility with existing Makefiles. ECHO_C= ECHO_N= ECHO_T= case `echo -n x` in #((((( -n*) case `echo 'xy\c'` in *c*) ECHO_T=' ';; # ECHO_T is single tab character. xy) ECHO_C='\c';; *) echo `echo ksh88 bug on AIX 6.1` > /dev/null ECHO_T=' ';; esac;; *) ECHO_N='-n';; esac # For backward compatibility with old third-party macros, we provide # the shell variables $as_echo and $as_echo_n. New code should use # AS_ECHO(["message"]) and AS_ECHO_N(["message"]), respectively. as_echo='printf %s\n' as_echo_n='printf %s' rm -f conf$$ conf$$.exe conf$$.file if test -d conf$$.dir; then rm -f conf$$.dir/conf$$.file else rm -f conf$$.dir mkdir conf$$.dir 2>/dev/null fi if (echo >conf$$.file) 2>/dev/null; then if ln -s conf$$.file conf$$ 2>/dev/null; then as_ln_s='ln -s' # ... but there are two gotchas: # 1) On MSYS, both 'ln -s file dir' and 'ln file dir' fail. # 2) DJGPP < 2.04 has no symlinks; 'ln -s' creates a wrapper executable. # In both cases, we have to default to 'cp -pR'. ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || as_ln_s='cp -pR' elif ln conf$$.file conf$$ 2>/dev/null; then as_ln_s=ln else as_ln_s='cp -pR' fi else as_ln_s='cp -pR' fi rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file rmdir conf$$.dir 2>/dev/null if mkdir -p . 2>/dev/null; then as_mkdir_p='mkdir -p "$as_dir"' else test -d ./-p && rmdir ./-p as_mkdir_p=false fi as_test_x='test -x' as_executable_p=as_fn_executable_p # Sed expression to map a string onto a valid CPP name. as_sed_cpp="y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g" as_tr_cpp="eval sed '$as_sed_cpp'" # deprecated # Sed expression to map a string onto a valid variable name. as_sed_sh="y%*+%pp%;s%[^_$as_cr_alnum]%_%g" as_tr_sh="eval sed '$as_sed_sh'" # deprecated test -n "$DJDIR" || exec 7<&0 &1 # Name of the host. # hostname on some systems (SVR3.2, old GNU/Linux) returns a bogus exit status, # so uname gets run too. ac_hostname=`(hostname || uname -n) 2>/dev/null | sed 1q` # # Initializations. # ac_default_prefix=/usr/local ac_clean_files= ac_config_libobj_dir=. LIBOBJS= cross_compiling=no subdirs= MFLAGS= MAKEFLAGS= # Identity of this package. PACKAGE_NAME='' PACKAGE_TARNAME='' PACKAGE_VERSION='' PACKAGE_STRING='' PACKAGE_BUGREPORT='' PACKAGE_URL='' ac_unique_file="INSTALL" # Factoring default headers for most tests. ac_includes_default="\ #include #ifdef HAVE_STDIO_H # include #endif #ifdef HAVE_STDLIB_H # include #endif #ifdef HAVE_STRING_H # include #endif #ifdef HAVE_INTTYPES_H # include #endif #ifdef HAVE_STDINT_H # include #endif #ifdef HAVE_STRINGS_H # include #endif #ifdef HAVE_SYS_TYPES_H # include #endif #ifdef HAVE_SYS_STAT_H # include #endif #ifdef HAVE_UNISTD_H # include #endif" ac_header_c_list= ac_subst_vars='LTLIBOBJS LIBOBJS DRV_EXT GTKVERSION GTK_LIBS GTK_CFLAGS GTK4_LIBS GTK4_CFLAGS GTK3_LIBS GTK3_CFLAGS GTK2_LIBS GTK2_CFLAGS PKG_CONFIG_LIBDIR PKG_CONFIG_PATH PKG_CONFIG DCLNWS DCLLANG DCLVERNUM DCLVERSION CLK_RSL_TCK CLK_PER_SEC INTMAX REPSL REALMAX REALMIN DCLDIR PWD CSGI_OPT OSQARN_EXT OSQARN_OPT OSGARG_EXT OSGARG_OPT OLDSRC EXTSHLIB LINKOPT TODO_SHARED_LIBRARY DVI2PDF JLATEX FCLIBOPT FLIBS FFLAGS SUNFC FC RANLIB SED AWK CPP OBJEXT EXEEXT ac_ct_CC CPPFLAGS LDFLAGS CFLAGS CC target_alias host_alias build_alias LIBS ECHO_T ECHO_N ECHO_C DEFS mandir localedir libdir psdir pdfdir dvidir htmldir infodir docdir oldincludedir includedir runstatedir localstatedir sharedstatedir sysconfdir datadir datarootdir libexecdir sbindir bindir program_transform_name prefix exec_prefix PACKAGE_URL PACKAGE_BUGREPORT PACKAGE_STRING PACKAGE_VERSION PACKAGE_TARNAME PACKAGE_NAME PATH_SEPARATOR SHELL' ac_subst_files='' ac_user_opts=' enable_option_checking with_oldsrc with_gtk4 with_gtk3 with_gtk2 with_socket ' ac_precious_vars='build_alias host_alias target_alias CC CFLAGS LDFLAGS LIBS CPPFLAGS CPP PKG_CONFIG PKG_CONFIG_PATH PKG_CONFIG_LIBDIR GTK2_CFLAGS GTK2_LIBS GTK3_CFLAGS GTK3_LIBS GTK4_CFLAGS GTK4_LIBS' # Initialize some variables set by options. ac_init_help= ac_init_version=false ac_unrecognized_opts= ac_unrecognized_sep= # The variables have the same names as the options, with # dashes changed to underlines. cache_file=/dev/null exec_prefix=NONE no_create= no_recursion= prefix=NONE program_prefix=NONE program_suffix=NONE program_transform_name=s,x,x, silent= site= srcdir= verbose= x_includes=NONE x_libraries=NONE # Installation directory options. # These are left unexpanded so users can "make install exec_prefix=/foo" # and all the variables that are supposed to be based on exec_prefix # by default will actually change. # Use braces instead of parens because sh, perl, etc. also accept them. # (The list follows the same order as the GNU Coding Standards.) bindir='${exec_prefix}/bin' sbindir='${exec_prefix}/sbin' libexecdir='${exec_prefix}/libexec' datarootdir='${prefix}/share' datadir='${datarootdir}' sysconfdir='${prefix}/etc' sharedstatedir='${prefix}/com' localstatedir='${prefix}/var' runstatedir='${localstatedir}/run' includedir='${prefix}/include' oldincludedir='/usr/include' docdir='${datarootdir}/doc/${PACKAGE}' infodir='${datarootdir}/info' htmldir='${docdir}' dvidir='${docdir}' pdfdir='${docdir}' psdir='${docdir}' libdir='${exec_prefix}/lib' localedir='${datarootdir}/locale' mandir='${datarootdir}/man' ac_prev= ac_dashdash= for ac_option do # If the previous option needs an argument, assign it. if test -n "$ac_prev"; then eval $ac_prev=\$ac_option ac_prev= continue fi case $ac_option in *=?*) ac_optarg=`expr "X$ac_option" : '[^=]*=\(.*\)'` ;; *=) ac_optarg= ;; *) ac_optarg=yes ;; esac case $ac_dashdash$ac_option in --) ac_dashdash=yes ;; -bindir | --bindir | --bindi | --bind | --bin | --bi) ac_prev=bindir ;; -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*) bindir=$ac_optarg ;; -build | --build | --buil | --bui | --bu) ac_prev=build_alias ;; -build=* | --build=* | --buil=* | --bui=* | --bu=*) build_alias=$ac_optarg ;; -cache-file | --cache-file | --cache-fil | --cache-fi \ | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) ac_prev=cache_file ;; -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*) cache_file=$ac_optarg ;; --config-cache | -C) cache_file=config.cache ;; -datadir | --datadir | --datadi | --datad) ac_prev=datadir ;; -datadir=* | --datadir=* | --datadi=* | --datad=*) datadir=$ac_optarg ;; -datarootdir | --datarootdir | --datarootdi | --datarootd | --dataroot \ | --dataroo | --dataro | --datar) ac_prev=datarootdir ;; -datarootdir=* | --datarootdir=* | --datarootdi=* | --datarootd=* \ | --dataroot=* | --dataroo=* | --dataro=* | --datar=*) datarootdir=$ac_optarg ;; -disable-* | --disable-*) ac_useropt=`expr "x$ac_option" : 'x-*disable-\(.*\)'` # Reject names that are not valid shell variable names. expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && as_fn_error $? "invalid feature name: '$ac_useropt'" ac_useropt_orig=$ac_useropt ac_useropt=`printf "%s\n" "$ac_useropt" | sed 's/[-+.]/_/g'` case $ac_user_opts in *" "enable_$ac_useropt" "*) ;; *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--disable-$ac_useropt_orig" ac_unrecognized_sep=', ';; esac eval enable_$ac_useropt=no ;; -docdir | --docdir | --docdi | --doc | --do) ac_prev=docdir ;; -docdir=* | --docdir=* | --docdi=* | --doc=* | --do=*) docdir=$ac_optarg ;; -dvidir | --dvidir | --dvidi | --dvid | --dvi | --dv) ac_prev=dvidir ;; -dvidir=* | --dvidir=* | --dvidi=* | --dvid=* | --dvi=* | --dv=*) dvidir=$ac_optarg ;; -enable-* | --enable-*) ac_useropt=`expr "x$ac_option" : 'x-*enable-\([^=]*\)'` # Reject names that are not valid shell variable names. expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && as_fn_error $? "invalid feature name: '$ac_useropt'" ac_useropt_orig=$ac_useropt ac_useropt=`printf "%s\n" "$ac_useropt" | sed 's/[-+.]/_/g'` case $ac_user_opts in *" "enable_$ac_useropt" "*) ;; *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--enable-$ac_useropt_orig" ac_unrecognized_sep=', ';; esac eval enable_$ac_useropt=\$ac_optarg ;; -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \ | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \ | --exec | --exe | --ex) ac_prev=exec_prefix ;; -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \ | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \ | --exec=* | --exe=* | --ex=*) exec_prefix=$ac_optarg ;; -gas | --gas | --ga | --g) # Obsolete; use --with-gas. with_gas=yes ;; -help | --help | --hel | --he | -h) ac_init_help=long ;; -help=r* | --help=r* | --hel=r* | --he=r* | -hr*) ac_init_help=recursive ;; -help=s* | --help=s* | --hel=s* | --he=s* | -hs*) ac_init_help=short ;; -host | --host | --hos | --ho) ac_prev=host_alias ;; -host=* | --host=* | --hos=* | --ho=*) host_alias=$ac_optarg ;; -htmldir | --htmldir | --htmldi | --htmld | --html | --htm | --ht) ac_prev=htmldir ;; -htmldir=* | --htmldir=* | --htmldi=* | --htmld=* | --html=* | --htm=* \ | --ht=*) htmldir=$ac_optarg ;; -includedir | --includedir | --includedi | --included | --include \ | --includ | --inclu | --incl | --inc) ac_prev=includedir ;; -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \ | --includ=* | --inclu=* | --incl=* | --inc=*) includedir=$ac_optarg ;; -infodir | --infodir | --infodi | --infod | --info | --inf) ac_prev=infodir ;; -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*) infodir=$ac_optarg ;; -libdir | --libdir | --libdi | --libd) ac_prev=libdir ;; -libdir=* | --libdir=* | --libdi=* | --libd=*) libdir=$ac_optarg ;; -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \ | --libexe | --libex | --libe) ac_prev=libexecdir ;; -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \ | --libexe=* | --libex=* | --libe=*) libexecdir=$ac_optarg ;; -localedir | --localedir | --localedi | --localed | --locale) ac_prev=localedir ;; -localedir=* | --localedir=* | --localedi=* | --localed=* | --locale=*) localedir=$ac_optarg ;; -localstatedir | --localstatedir | --localstatedi | --localstated \ | --localstate | --localstat | --localsta | --localst | --locals) ac_prev=localstatedir ;; -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \ | --localstate=* | --localstat=* | --localsta=* | --localst=* | --locals=*) localstatedir=$ac_optarg ;; -mandir | --mandir | --mandi | --mand | --man | --ma | --m) ac_prev=mandir ;; -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*) mandir=$ac_optarg ;; -nfp | --nfp | --nf) # Obsolete; use --without-fp. with_fp=no ;; -no-create | --no-create | --no-creat | --no-crea | --no-cre \ | --no-cr | --no-c | -n) no_create=yes ;; -no-recursion | --no-recursion | --no-recursio | --no-recursi \ | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) no_recursion=yes ;; -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \ | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \ | --oldin | --oldi | --old | --ol | --o) ac_prev=oldincludedir ;; -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \ | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \ | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*) oldincludedir=$ac_optarg ;; -prefix | --prefix | --prefi | --pref | --pre | --pr | --p) ac_prev=prefix ;; -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*) prefix=$ac_optarg ;; -program-prefix | --program-prefix | --program-prefi | --program-pref \ | --program-pre | --program-pr | --program-p) ac_prev=program_prefix ;; -program-prefix=* | --program-prefix=* | --program-prefi=* \ | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*) program_prefix=$ac_optarg ;; -program-suffix | --program-suffix | --program-suffi | --program-suff \ | --program-suf | --program-su | --program-s) ac_prev=program_suffix ;; -program-suffix=* | --program-suffix=* | --program-suffi=* \ | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*) program_suffix=$ac_optarg ;; -program-transform-name | --program-transform-name \ | --program-transform-nam | --program-transform-na \ | --program-transform-n | --program-transform- \ | --program-transform | --program-transfor \ | --program-transfo | --program-transf \ | --program-trans | --program-tran \ | --progr-tra | --program-tr | --program-t) ac_prev=program_transform_name ;; -program-transform-name=* | --program-transform-name=* \ | --program-transform-nam=* | --program-transform-na=* \ | --program-transform-n=* | --program-transform-=* \ | --program-transform=* | --program-transfor=* \ | --program-transfo=* | --program-transf=* \ | --program-trans=* | --program-tran=* \ | --progr-tra=* | --program-tr=* | --program-t=*) program_transform_name=$ac_optarg ;; -pdfdir | --pdfdir | --pdfdi | --pdfd | --pdf | --pd) ac_prev=pdfdir ;; -pdfdir=* | --pdfdir=* | --pdfdi=* | --pdfd=* | --pdf=* | --pd=*) pdfdir=$ac_optarg ;; -psdir | --psdir | --psdi | --psd | --ps) ac_prev=psdir ;; -psdir=* | --psdir=* | --psdi=* | --psd=* | --ps=*) psdir=$ac_optarg ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil) silent=yes ;; -runstatedir | --runstatedir | --runstatedi | --runstated \ | --runstate | --runstat | --runsta | --runst | --runs \ | --run | --ru | --r) ac_prev=runstatedir ;; -runstatedir=* | --runstatedir=* | --runstatedi=* | --runstated=* \ | --runstate=* | --runstat=* | --runsta=* | --runst=* | --runs=* \ | --run=* | --ru=* | --r=*) runstatedir=$ac_optarg ;; -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb) ac_prev=sbindir ;; -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \ | --sbi=* | --sb=*) sbindir=$ac_optarg ;; -sharedstatedir | --sharedstatedir | --sharedstatedi \ | --sharedstated | --sharedstate | --sharedstat | --sharedsta \ | --sharedst | --shareds | --shared | --share | --shar \ | --sha | --sh) ac_prev=sharedstatedir ;; -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \ | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \ | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \ | --sha=* | --sh=*) sharedstatedir=$ac_optarg ;; -site | --site | --sit) ac_prev=site ;; -site=* | --site=* | --sit=*) site=$ac_optarg ;; -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) ac_prev=srcdir ;; -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) srcdir=$ac_optarg ;; -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \ | --syscon | --sysco | --sysc | --sys | --sy) ac_prev=sysconfdir ;; -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \ | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*) sysconfdir=$ac_optarg ;; -target | --target | --targe | --targ | --tar | --ta | --t) ac_prev=target_alias ;; -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*) target_alias=$ac_optarg ;; -v | -verbose | --verbose | --verbos | --verbo | --verb) verbose=yes ;; -version | --version | --versio | --versi | --vers | -V) ac_init_version=: ;; -with-* | --with-*) ac_useropt=`expr "x$ac_option" : 'x-*with-\([^=]*\)'` # Reject names that are not valid shell variable names. expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && as_fn_error $? "invalid package name: '$ac_useropt'" ac_useropt_orig=$ac_useropt ac_useropt=`printf "%s\n" "$ac_useropt" | sed 's/[-+.]/_/g'` case $ac_user_opts in *" "with_$ac_useropt" "*) ;; *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--with-$ac_useropt_orig" ac_unrecognized_sep=', ';; esac eval with_$ac_useropt=\$ac_optarg ;; -without-* | --without-*) ac_useropt=`expr "x$ac_option" : 'x-*without-\(.*\)'` # Reject names that are not valid shell variable names. expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && as_fn_error $? "invalid package name: '$ac_useropt'" ac_useropt_orig=$ac_useropt ac_useropt=`printf "%s\n" "$ac_useropt" | sed 's/[-+.]/_/g'` case $ac_user_opts in *" "with_$ac_useropt" "*) ;; *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--without-$ac_useropt_orig" ac_unrecognized_sep=', ';; esac eval with_$ac_useropt=no ;; --x) # Obsolete; use --with-x. with_x=yes ;; -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \ | --x-incl | --x-inc | --x-in | --x-i) ac_prev=x_includes ;; -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \ | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*) x_includes=$ac_optarg ;; -x-libraries | --x-libraries | --x-librarie | --x-librari \ | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l) ac_prev=x_libraries ;; -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \ | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*) x_libraries=$ac_optarg ;; -*) as_fn_error $? "unrecognized option: '$ac_option' Try '$0 --help' for more information" ;; *=*) ac_envvar=`expr "x$ac_option" : 'x\([^=]*\)='` # Reject names that are not valid shell variable names. case $ac_envvar in #( '' | [0-9]* | *[!_$as_cr_alnum]* ) as_fn_error $? "invalid variable name: '$ac_envvar'" ;; esac eval $ac_envvar=\$ac_optarg export $ac_envvar ;; *) # FIXME: should be removed in autoconf 3.0. printf "%s\n" "$as_me: WARNING: you should use --build, --host, --target" >&2 expr "x$ac_option" : ".*[^-._$as_cr_alnum]" >/dev/null && printf "%s\n" "$as_me: WARNING: invalid host type: $ac_option" >&2 : "${build_alias=$ac_option} ${host_alias=$ac_option} ${target_alias=$ac_option}" ;; esac done if test -n "$ac_prev"; then ac_option=--`echo $ac_prev | sed 's/_/-/g'` as_fn_error $? "missing argument to $ac_option" fi if test -n "$ac_unrecognized_opts"; then case $enable_option_checking in no) ;; fatal) as_fn_error $? "unrecognized options: $ac_unrecognized_opts" ;; *) printf "%s\n" "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2 ;; esac fi # Check all directory arguments for consistency. for ac_var in exec_prefix prefix bindir sbindir libexecdir datarootdir \ datadir sysconfdir sharedstatedir localstatedir includedir \ oldincludedir docdir infodir htmldir dvidir pdfdir psdir \ libdir localedir mandir runstatedir do eval ac_val=\$$ac_var # Remove trailing slashes. case $ac_val in */ ) ac_val=`expr "X$ac_val" : 'X\(.*[^/]\)' \| "X$ac_val" : 'X\(.*\)'` eval $ac_var=\$ac_val;; esac # Be sure to have absolute directory names. case $ac_val in [\\/$]* | ?:[\\/]* ) continue;; NONE | '' ) case $ac_var in *prefix ) continue;; esac;; esac as_fn_error $? "expected an absolute directory name for --$ac_var: $ac_val" done # There might be people who depend on the old broken behavior: '$host' # used to hold the argument of --host etc. # FIXME: To remove some day. build=$build_alias host=$host_alias target=$target_alias # FIXME: To remove some day. if test "x$host_alias" != x; then if test "x$build_alias" = x; then cross_compiling=maybe elif test "x$build_alias" != "x$host_alias"; then cross_compiling=yes fi fi ac_tool_prefix= test -n "$host_alias" && ac_tool_prefix=$host_alias- test "$silent" = yes && exec 6>/dev/null ac_pwd=`pwd` && test -n "$ac_pwd" && ac_ls_di=`ls -di .` && ac_pwd_ls_di=`cd "$ac_pwd" && ls -di .` || as_fn_error $? "working directory cannot be determined" test "X$ac_ls_di" = "X$ac_pwd_ls_di" || as_fn_error $? "pwd does not report name of working directory" # Find the source files, if location was not specified. if test -z "$srcdir"; then ac_srcdir_defaulted=yes # Try the directory containing this script, then the parent directory. ac_confdir=`$as_dirname -- "$as_myself" || $as_expr X"$as_myself" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_myself" : 'X\(//\)[^/]' \| \ X"$as_myself" : 'X\(//\)$' \| \ X"$as_myself" : 'X\(/\)' \| . 2>/dev/null || printf "%s\n" X"$as_myself" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` srcdir=$ac_confdir if test ! -r "$srcdir/$ac_unique_file"; then srcdir=.. fi else ac_srcdir_defaulted=no fi if test ! -r "$srcdir/$ac_unique_file"; then test "$ac_srcdir_defaulted" = yes && srcdir="$ac_confdir or .." as_fn_error $? "cannot find sources ($ac_unique_file) in $srcdir" fi ac_msg="sources are in $srcdir, but 'cd $srcdir' does not work" ac_abs_confdir=`( cd "$srcdir" && test -r "./$ac_unique_file" || as_fn_error $? "$ac_msg" pwd)` # When building in place, set srcdir=. if test "$ac_abs_confdir" = "$ac_pwd"; then srcdir=. fi # Remove unnecessary trailing slashes from srcdir. # Double slashes in file names in object file debugging info # mess up M-x gdb in Emacs. case $srcdir in */) srcdir=`expr "X$srcdir" : 'X\(.*[^/]\)' \| "X$srcdir" : 'X\(.*\)'`;; esac for ac_var in $ac_precious_vars; do eval ac_env_${ac_var}_set=\${${ac_var}+set} eval ac_env_${ac_var}_value=\$${ac_var} eval ac_cv_env_${ac_var}_set=\${${ac_var}+set} eval ac_cv_env_${ac_var}_value=\$${ac_var} done # # Report the --help message. # if test "$ac_init_help" = "long"; then # Omit some internal or obsolete options to make the list less imposing. # This message is too long to be a string in the A/UX 3.1 sh. cat <<_ACEOF 'configure' configures this package to adapt to many kinds of systems. Usage: $0 [OPTION]... [VAR=VALUE]... To assign environment variables (e.g., CC, CFLAGS...), specify them as VAR=VALUE. See below for descriptions of some of the useful variables. Defaults for the options are specified in brackets. Configuration: -h, --help display this help and exit --help=short display options specific to this package --help=recursive display the short help of all the included packages -V, --version display version information and exit -q, --quiet, --silent do not print 'checking ...' messages --cache-file=FILE cache test results in FILE [disabled] -C, --config-cache alias for '--cache-file=config.cache' -n, --no-create do not create output files --srcdir=DIR find the sources in DIR [configure dir or '..'] Installation directories: --prefix=PREFIX install architecture-independent files in PREFIX [$ac_default_prefix] --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX [PREFIX] By default, 'make install' will install all the files in '$ac_default_prefix/bin', '$ac_default_prefix/lib' etc. You can specify an installation prefix other than '$ac_default_prefix' using '--prefix', for instance '--prefix=\$HOME'. For better control, use the options below. Fine tuning of the installation directories: --bindir=DIR user executables [EPREFIX/bin] --sbindir=DIR system admin executables [EPREFIX/sbin] --libexecdir=DIR program executables [EPREFIX/libexec] --sysconfdir=DIR read-only single-machine data [PREFIX/etc] --sharedstatedir=DIR modifiable architecture-independent data [PREFIX/com] --localstatedir=DIR modifiable single-machine data [PREFIX/var] --runstatedir=DIR modifiable per-process data [LOCALSTATEDIR/run] --libdir=DIR object code libraries [EPREFIX/lib] --includedir=DIR C header files [PREFIX/include] --oldincludedir=DIR C header files for non-gcc [/usr/include] --datarootdir=DIR read-only arch.-independent data root [PREFIX/share] --datadir=DIR read-only architecture-independent data [DATAROOTDIR] --infodir=DIR info documentation [DATAROOTDIR/info] --localedir=DIR locale-dependent data [DATAROOTDIR/locale] --mandir=DIR man documentation [DATAROOTDIR/man] --docdir=DIR documentation root [DATAROOTDIR/doc/PACKAGE] --htmldir=DIR html documentation [DOCDIR] --dvidir=DIR dvi documentation [DOCDIR] --pdfdir=DIR pdf documentation [DOCDIR] --psdir=DIR ps documentation [DOCDIR] _ACEOF cat <<\_ACEOF _ACEOF fi if test -n "$ac_init_help"; then cat <<\_ACEOF Optional Packages: --with-PACKAGE[=ARG] use PACKAGE [ARG=yes] --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no) --with-oldsrc compile dcl source codes older than ver.5 --with-gtk4 Build using GTK+ 4.0 (not yet) --with-gtk3 Build using GTK+ 3.0 (default) --with-gtk2 Build using GTK+ 2.0 --with-socket Build without GTK+ (Using Socket) Some influential environment variables: CC C compiler command CFLAGS C compiler flags LDFLAGS linker flags, e.g. -L if you have libraries in a nonstandard directory LIBS libraries to pass to the linker, e.g. -l CPPFLAGS (Objective) C/C++ preprocessor flags, e.g. -I if you have headers in a nonstandard directory CPP C preprocessor PKG_CONFIG path to pkg-config utility PKG_CONFIG_PATH directories to add to pkg-config's search path PKG_CONFIG_LIBDIR path overriding pkg-config's built-in search path GTK2_CFLAGS C compiler flags for GTK2, overriding pkg-config GTK2_LIBS linker flags for GTK2, overriding pkg-config GTK3_CFLAGS C compiler flags for GTK3, overriding pkg-config GTK3_LIBS linker flags for GTK3, overriding pkg-config GTK4_CFLAGS C compiler flags for GTK4, overriding pkg-config GTK4_LIBS linker flags for GTK4, overriding pkg-config Use these variables to override the choices made by 'configure' or to help it to find libraries and programs with nonstandard names/locations. Report bugs to the package provider. _ACEOF ac_status=$? fi if test "$ac_init_help" = "recursive"; then # If there are subdirs, report their specific --help. for ac_dir in : $ac_subdirs_all; do test "x$ac_dir" = x: && continue test -d "$ac_dir" || { cd "$srcdir" && ac_pwd=`pwd` && srcdir=. && test -d "$ac_dir"; } || continue ac_builddir=. case "$ac_dir" in .) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_dir_suffix=/`printf "%s\n" "$ac_dir" | sed 's|^\.[\\/]||'` # A ".." for each directory in $ac_dir_suffix. ac_top_builddir_sub=`printf "%s\n" "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` case $ac_top_builddir_sub in "") ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; esac ;; esac ac_abs_top_builddir=$ac_pwd ac_abs_builddir=$ac_pwd$ac_dir_suffix # for backward compatibility: ac_top_builddir=$ac_top_build_prefix case $srcdir in .) # We are building in place. ac_srcdir=. ac_top_srcdir=$ac_top_builddir_sub ac_abs_top_srcdir=$ac_pwd ;; [\\/]* | ?:[\\/]* ) # Absolute name. ac_srcdir=$srcdir$ac_dir_suffix; ac_top_srcdir=$srcdir ac_abs_top_srcdir=$srcdir ;; *) # Relative name. ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix ac_top_srcdir=$ac_top_build_prefix$srcdir ac_abs_top_srcdir=$ac_pwd/$srcdir ;; esac ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix cd "$ac_dir" || { ac_status=$?; continue; } # Check for configure.gnu first; this name is used for a wrapper for # Metaconfig's "Configure" on case-insensitive file systems. if test -f "$ac_srcdir/configure.gnu"; then echo && $SHELL "$ac_srcdir/configure.gnu" --help=recursive elif test -f "$ac_srcdir/configure"; then echo && $SHELL "$ac_srcdir/configure" --help=recursive else printf "%s\n" "$as_me: WARNING: no configuration information is in $ac_dir" >&2 fi || ac_status=$? cd "$ac_pwd" || { ac_status=$?; break; } done fi test -n "$ac_init_help" && exit $ac_status if $ac_init_version; then cat <<\_ACEOF configure generated by GNU Autoconf 2.72 Copyright (C) 2023 Free Software Foundation, Inc. This configure script is free software; the Free Software Foundation gives unlimited permission to copy, distribute and modify it. _ACEOF exit fi ## ------------------------ ## ## Autoconf initialization. ## ## ------------------------ ## # ac_fn_c_try_compile LINENO # -------------------------- # Try to compile conftest.$ac_ext, and return whether this succeeded. ac_fn_c_try_compile () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack rm -f conftest.$ac_objext conftest.beam if { { ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" printf "%s\n" "$ac_try_echo"; } >&5 (eval "$ac_compile") 2>conftest.err ac_status=$? if test -s conftest.err; then grep -v '^ *+' conftest.err >conftest.er1 cat conftest.er1 >&5 mv -f conftest.er1 conftest.err fi printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext then : ac_retval=0 else case e in #( e) printf "%s\n" "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=1 ;; esac fi eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno as_fn_set_status $ac_retval } # ac_fn_c_try_compile # ac_fn_c_try_cpp LINENO # ---------------------- # Try to preprocess conftest.$ac_ext, and return whether this succeeded. ac_fn_c_try_cpp () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack if { { ac_try="$ac_cpp conftest.$ac_ext" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" printf "%s\n" "$ac_try_echo"; } >&5 (eval "$ac_cpp conftest.$ac_ext") 2>conftest.err ac_status=$? if test -s conftest.err; then grep -v '^ *+' conftest.err >conftest.er1 cat conftest.er1 >&5 mv -f conftest.er1 conftest.err fi printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } > conftest.i && { test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" || test ! -s conftest.err } then : ac_retval=0 else case e in #( e) printf "%s\n" "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=1 ;; esac fi eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno as_fn_set_status $ac_retval } # ac_fn_c_try_cpp # ac_fn_c_check_header_compile LINENO HEADER VAR INCLUDES # ------------------------------------------------------- # Tests whether HEADER exists and can be compiled using the include files in # INCLUDES, setting the cache variable VAR accordingly. ac_fn_c_check_header_compile () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 printf %s "checking for $2... " >&6; } if eval test \${$3+y} then : printf %s "(cached) " >&6 else case e in #( e) cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 #include <$2> _ACEOF if ac_fn_c_try_compile "$LINENO" then : eval "$3=yes" else case e in #( e) eval "$3=no" ;; esac fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext ;; esac fi eval ac_res=\$$3 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 printf "%s\n" "$ac_res" >&6; } eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno } # ac_fn_c_check_header_compile ac_configure_args_raw= for ac_arg do case $ac_arg in *\'*) ac_arg=`printf "%s\n" "$ac_arg" | sed "s/'/'\\\\\\\\''/g"` ;; esac as_fn_append ac_configure_args_raw " '$ac_arg'" done case $ac_configure_args_raw in *$as_nl*) ac_safe_unquote= ;; *) ac_unsafe_z='|&;<>()$`\\"*?[ '' ' # This string ends in space, tab. ac_unsafe_a="$ac_unsafe_z#~" ac_safe_unquote="s/ '\\([^$ac_unsafe_a][^$ac_unsafe_z]*\\)'/ \\1/g" ac_configure_args_raw=` printf "%s\n" "$ac_configure_args_raw" | sed "$ac_safe_unquote"`;; esac cat >config.log <<_ACEOF This file contains any messages produced by compilers while running configure, to aid debugging if configure makes a mistake. It was created by $as_me, which was generated by GNU Autoconf 2.72. Invocation command line was $ $0$ac_configure_args_raw _ACEOF exec 5>>config.log { cat <<_ASUNAME ## --------- ## ## Platform. ## ## --------- ## hostname = `(hostname || uname -n) 2>/dev/null | sed 1q` uname -m = `(uname -m) 2>/dev/null || echo unknown` uname -r = `(uname -r) 2>/dev/null || echo unknown` uname -s = `(uname -s) 2>/dev/null || echo unknown` uname -v = `(uname -v) 2>/dev/null || echo unknown` /usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null || echo unknown` /bin/uname -X = `(/bin/uname -X) 2>/dev/null || echo unknown` /bin/arch = `(/bin/arch) 2>/dev/null || echo unknown` /usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null || echo unknown` /usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null || echo unknown` /usr/bin/hostinfo = `(/usr/bin/hostinfo) 2>/dev/null || echo unknown` /bin/machine = `(/bin/machine) 2>/dev/null || echo unknown` /usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null || echo unknown` /bin/universe = `(/bin/universe) 2>/dev/null || echo unknown` _ASUNAME as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac printf "%s\n" "PATH: $as_dir" done IFS=$as_save_IFS } >&5 cat >&5 <<_ACEOF ## ----------- ## ## Core tests. ## ## ----------- ## _ACEOF # Keep a trace of the command line. # Strip out --no-create and --no-recursion so they do not pile up. # Strip out --silent because we don't want to record it for future runs. # Also quote any args containing shell meta-characters. # Make two passes to allow for proper duplicate-argument suppression. ac_configure_args= ac_configure_args0= ac_configure_args1= ac_must_keep_next=false for ac_pass in 1 2 do for ac_arg do case $ac_arg in -no-create | --no-c* | -n | -no-recursion | --no-r*) continue ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil) continue ;; *\'*) ac_arg=`printf "%s\n" "$ac_arg" | sed "s/'/'\\\\\\\\''/g"` ;; esac case $ac_pass in 1) as_fn_append ac_configure_args0 " '$ac_arg'" ;; 2) as_fn_append ac_configure_args1 " '$ac_arg'" if test $ac_must_keep_next = true; then ac_must_keep_next=false # Got value, back to normal. else case $ac_arg in *=* | --config-cache | -C | -disable-* | --disable-* \ | -enable-* | --enable-* | -gas | --g* | -nfp | --nf* \ | -q | -quiet | --q* | -silent | --sil* | -v | -verb* \ | -with-* | --with-* | -without-* | --without-* | --x) case "$ac_configure_args0 " in "$ac_configure_args1"*" '$ac_arg' "* ) continue ;; esac ;; -* ) ac_must_keep_next=true ;; esac fi as_fn_append ac_configure_args " '$ac_arg'" ;; esac done done { ac_configure_args0=; unset ac_configure_args0;} { ac_configure_args1=; unset ac_configure_args1;} # When interrupted or exit'd, cleanup temporary files, and complete # config.log. We remove comments because anyway the quotes in there # would cause problems or look ugly. # WARNING: Use '\'' to represent an apostrophe within the trap. # WARNING: Do not start the trap code with a newline, due to a FreeBSD 4.0 bug. trap 'exit_status=$? # Sanitize IFS. IFS=" "" $as_nl" # Save into config.log some information that might help in debugging. { echo printf "%s\n" "## ---------------- ## ## Cache variables. ## ## ---------------- ##" echo # The following way of writing the cache mishandles newlines in values, ( for ac_var in `(set) 2>&1 | sed -n '\''s/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'\''`; do eval ac_val=\$$ac_var case $ac_val in #( *${as_nl}*) case $ac_var in #( *_cv_*) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5 printf "%s\n" "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; esac case $ac_var in #( _ | IFS | as_nl) ;; #( BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #( *) { eval $ac_var=; unset $ac_var;} ;; esac ;; esac done (set) 2>&1 | case $as_nl`(ac_space='\'' '\''; set) 2>&1` in #( *${as_nl}ac_space=\ *) sed -n \ "s/'\''/'\''\\\\'\'''\''/g; s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\''\\2'\''/p" ;; #( *) sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p" ;; esac | sort ) echo printf "%s\n" "## ----------------- ## ## Output variables. ## ## ----------------- ##" echo for ac_var in $ac_subst_vars do eval ac_val=\$$ac_var case $ac_val in *\'\''*) ac_val=`printf "%s\n" "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; esac printf "%s\n" "$ac_var='\''$ac_val'\''" done | sort echo if test -n "$ac_subst_files"; then printf "%s\n" "## ------------------- ## ## File substitutions. ## ## ------------------- ##" echo for ac_var in $ac_subst_files do eval ac_val=\$$ac_var case $ac_val in *\'\''*) ac_val=`printf "%s\n" "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; esac printf "%s\n" "$ac_var='\''$ac_val'\''" done | sort echo fi if test -s confdefs.h; then printf "%s\n" "## ----------- ## ## confdefs.h. ## ## ----------- ##" echo cat confdefs.h echo fi test "$ac_signal" != 0 && printf "%s\n" "$as_me: caught signal $ac_signal" printf "%s\n" "$as_me: exit $exit_status" } >&5 rm -f core *.core core.conftest.* && rm -f -r conftest* confdefs* conf$$* $ac_clean_files && exit $exit_status ' 0 for ac_signal in 1 2 13 15; do trap 'ac_signal='$ac_signal'; as_fn_exit 1' $ac_signal done ac_signal=0 # confdefs.h avoids OS command line length limits that DEFS can exceed. rm -f -r conftest* confdefs.h printf "%s\n" "/* confdefs.h */" > confdefs.h # Predefined preprocessor variables. printf "%s\n" "#define PACKAGE_NAME \"$PACKAGE_NAME\"" >>confdefs.h printf "%s\n" "#define PACKAGE_TARNAME \"$PACKAGE_TARNAME\"" >>confdefs.h printf "%s\n" "#define PACKAGE_VERSION \"$PACKAGE_VERSION\"" >>confdefs.h printf "%s\n" "#define PACKAGE_STRING \"$PACKAGE_STRING\"" >>confdefs.h printf "%s\n" "#define PACKAGE_BUGREPORT \"$PACKAGE_BUGREPORT\"" >>confdefs.h printf "%s\n" "#define PACKAGE_URL \"$PACKAGE_URL\"" >>confdefs.h # Let the site file select an alternate cache file if it wants to. # Prefer an explicitly selected file to automatically selected ones. if test -n "$CONFIG_SITE"; then ac_site_files="$CONFIG_SITE" elif test "x$prefix" != xNONE; then ac_site_files="$prefix/share/config.site $prefix/etc/config.site" else ac_site_files="$ac_default_prefix/share/config.site $ac_default_prefix/etc/config.site" fi for ac_site_file in $ac_site_files do case $ac_site_file in #( */*) : ;; #( *) : ac_site_file=./$ac_site_file ;; esac if test -f "$ac_site_file" && test -r "$ac_site_file"; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: loading site script $ac_site_file" >&5 printf "%s\n" "$as_me: loading site script $ac_site_file" >&6;} sed 's/^/| /' "$ac_site_file" >&5 . "$ac_site_file" \ || { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in '$ac_pwd':" >&5 printf "%s\n" "$as_me: error: in '$ac_pwd':" >&2;} as_fn_error $? "failed to load site script $ac_site_file See 'config.log' for more details" "$LINENO" 5; } fi done if test -r "$cache_file"; then # Some versions of bash will fail to source /dev/null (special files # actually), so we avoid doing that. DJGPP emulates it as a regular file. if test /dev/null != "$cache_file" && test -f "$cache_file"; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: loading cache $cache_file" >&5 printf "%s\n" "$as_me: loading cache $cache_file" >&6;} case $cache_file in [\\/]* | ?:[\\/]* ) . "$cache_file";; *) . "./$cache_file";; esac fi else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: creating cache $cache_file" >&5 printf "%s\n" "$as_me: creating cache $cache_file" >&6;} >$cache_file fi # Test code for whether the C compiler supports C89 (global declarations) ac_c_conftest_c89_globals=' /* Does the compiler advertise C89 conformance? Do not test the value of __STDC__, because some compilers set it to 0 while being otherwise adequately conformant. */ #if !defined __STDC__ # error "Compiler does not advertise C89 conformance" #endif #include #include struct stat; /* Most of the following tests are stolen from RCS 5.7 src/conf.sh. */ struct buf { int x; }; struct buf * (*rcsopen) (struct buf *, struct stat *, int); static char *e (char **p, int i) { return p[i]; } static char *f (char * (*g) (char **, int), char **p, ...) { char *s; va_list v; va_start (v,p); s = g (p, va_arg (v,int)); va_end (v); return s; } /* C89 style stringification. */ #define noexpand_stringify(a) #a const char *stringified = noexpand_stringify(arbitrary+token=sequence); /* C89 style token pasting. Exercises some of the corner cases that e.g. old MSVC gets wrong, but not very hard. */ #define noexpand_concat(a,b) a##b #define expand_concat(a,b) noexpand_concat(a,b) extern int vA; extern int vbee; #define aye A #define bee B int *pvA = &expand_concat(v,aye); int *pvbee = &noexpand_concat(v,bee); /* OSF 4.0 Compaq cc is some sort of almost-ANSI by default. It has function prototypes and stuff, but not \xHH hex character constants. These do not provoke an error unfortunately, instead are silently treated as an "x". The following induces an error, until -std is added to get proper ANSI mode. Curiously \x00 != x always comes out true, for an array size at least. It is necessary to write \x00 == 0 to get something that is true only with -std. */ int osf4_cc_array ['\''\x00'\'' == 0 ? 1 : -1]; /* IBM C 6 for AIX is almost-ANSI by default, but it replaces macro parameters inside strings and character constants. */ #define FOO(x) '\''x'\'' int xlc6_cc_array[FOO(a) == '\''x'\'' ? 1 : -1]; int test (int i, double x); struct s1 {int (*f) (int a);}; struct s2 {int (*f) (double a);}; int pairnames (int, char **, int *(*)(struct buf *, struct stat *, int), int, int);' # Test code for whether the C compiler supports C89 (body of main). ac_c_conftest_c89_main=' ok |= (argc == 0 || f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1]); ' # Test code for whether the C compiler supports C99 (global declarations) ac_c_conftest_c99_globals=' /* Does the compiler advertise C99 conformance? */ #if !defined __STDC_VERSION__ || __STDC_VERSION__ < 199901L # error "Compiler does not advertise C99 conformance" #endif // See if C++-style comments work. #include extern int puts (const char *); extern int printf (const char *, ...); extern int dprintf (int, const char *, ...); extern void *malloc (size_t); extern void free (void *); // Check varargs macros. These examples are taken from C99 6.10.3.5. // dprintf is used instead of fprintf to avoid needing to declare // FILE and stderr. #define debug(...) dprintf (2, __VA_ARGS__) #define showlist(...) puts (#__VA_ARGS__) #define report(test,...) ((test) ? puts (#test) : printf (__VA_ARGS__)) static void test_varargs_macros (void) { int x = 1234; int y = 5678; debug ("Flag"); debug ("X = %d\n", x); showlist (The first, second, and third items.); report (x>y, "x is %d but y is %d", x, y); } // Check long long types. #define BIG64 18446744073709551615ull #define BIG32 4294967295ul #define BIG_OK (BIG64 / BIG32 == 4294967297ull && BIG64 % BIG32 == 0) #if !BIG_OK #error "your preprocessor is broken" #endif #if BIG_OK #else #error "your preprocessor is broken" #endif static long long int bignum = -9223372036854775807LL; static unsigned long long int ubignum = BIG64; struct incomplete_array { int datasize; double data[]; }; struct named_init { int number; const wchar_t *name; double average; }; typedef const char *ccp; static inline int test_restrict (ccp restrict text) { // Iterate through items via the restricted pointer. // Also check for declarations in for loops. for (unsigned int i = 0; *(text+i) != '\''\0'\''; ++i) continue; return 0; } // Check varargs and va_copy. static bool test_varargs (const char *format, ...) { va_list args; va_start (args, format); va_list args_copy; va_copy (args_copy, args); const char *str = ""; int number = 0; float fnumber = 0; while (*format) { switch (*format++) { case '\''s'\'': // string str = va_arg (args_copy, const char *); break; case '\''d'\'': // int number = va_arg (args_copy, int); break; case '\''f'\'': // float fnumber = va_arg (args_copy, double); break; default: break; } } va_end (args_copy); va_end (args); return *str && number && fnumber; } ' # Test code for whether the C compiler supports C99 (body of main). ac_c_conftest_c99_main=' // Check bool. _Bool success = false; success |= (argc != 0); // Check restrict. if (test_restrict ("String literal") == 0) success = true; char *restrict newvar = "Another string"; // Check varargs. success &= test_varargs ("s, d'\'' f .", "string", 65, 34.234); test_varargs_macros (); // Check flexible array members. struct incomplete_array *ia = malloc (sizeof (struct incomplete_array) + (sizeof (double) * 10)); ia->datasize = 10; for (int i = 0; i < ia->datasize; ++i) ia->data[i] = i * 1.234; // Work around memory leak warnings. free (ia); // Check named initializers. struct named_init ni = { .number = 34, .name = L"Test wide string", .average = 543.34343, }; ni.number = 58; int dynamic_array[ni.number]; dynamic_array[0] = argv[0][0]; dynamic_array[ni.number - 1] = 543; // work around unused variable warnings ok |= (!success || bignum == 0LL || ubignum == 0uLL || newvar[0] == '\''x'\'' || dynamic_array[ni.number - 1] != 543); ' # Test code for whether the C compiler supports C11 (global declarations) ac_c_conftest_c11_globals=' /* Does the compiler advertise C11 conformance? */ #if !defined __STDC_VERSION__ || __STDC_VERSION__ < 201112L # error "Compiler does not advertise C11 conformance" #endif // Check _Alignas. char _Alignas (double) aligned_as_double; char _Alignas (0) no_special_alignment; extern char aligned_as_int; char _Alignas (0) _Alignas (int) aligned_as_int; // Check _Alignof. enum { int_alignment = _Alignof (int), int_array_alignment = _Alignof (int[100]), char_alignment = _Alignof (char) }; _Static_assert (0 < -_Alignof (int), "_Alignof is signed"); // Check _Noreturn. int _Noreturn does_not_return (void) { for (;;) continue; } // Check _Static_assert. struct test_static_assert { int x; _Static_assert (sizeof (int) <= sizeof (long int), "_Static_assert does not work in struct"); long int y; }; // Check UTF-8 literals. #define u8 syntax error! char const utf8_literal[] = u8"happens to be ASCII" "another string"; // Check duplicate typedefs. typedef long *long_ptr; typedef long int *long_ptr; typedef long_ptr long_ptr; // Anonymous structures and unions -- taken from C11 6.7.2.1 Example 1. struct anonymous { union { struct { int i; int j; }; struct { int k; long int l; } w; }; int m; } v1; ' # Test code for whether the C compiler supports C11 (body of main). ac_c_conftest_c11_main=' _Static_assert ((offsetof (struct anonymous, i) == offsetof (struct anonymous, w.k)), "Anonymous union alignment botch"); v1.i = 2; v1.w.k = 5; ok |= v1.i != 5; ' # Test code for whether the C compiler supports C11 (complete). ac_c_conftest_c11_program="${ac_c_conftest_c89_globals} ${ac_c_conftest_c99_globals} ${ac_c_conftest_c11_globals} int main (int argc, char **argv) { int ok = 0; ${ac_c_conftest_c89_main} ${ac_c_conftest_c99_main} ${ac_c_conftest_c11_main} return ok; } " # Test code for whether the C compiler supports C99 (complete). ac_c_conftest_c99_program="${ac_c_conftest_c89_globals} ${ac_c_conftest_c99_globals} int main (int argc, char **argv) { int ok = 0; ${ac_c_conftest_c89_main} ${ac_c_conftest_c99_main} return ok; } " # Test code for whether the C compiler supports C89 (complete). ac_c_conftest_c89_program="${ac_c_conftest_c89_globals} int main (int argc, char **argv) { int ok = 0; ${ac_c_conftest_c89_main} return ok; } " as_fn_append ac_header_c_list " stdio.h stdio_h HAVE_STDIO_H" as_fn_append ac_header_c_list " stdlib.h stdlib_h HAVE_STDLIB_H" as_fn_append ac_header_c_list " string.h string_h HAVE_STRING_H" as_fn_append ac_header_c_list " inttypes.h inttypes_h HAVE_INTTYPES_H" as_fn_append ac_header_c_list " stdint.h stdint_h HAVE_STDINT_H" as_fn_append ac_header_c_list " strings.h strings_h HAVE_STRINGS_H" as_fn_append ac_header_c_list " sys/stat.h sys_stat_h HAVE_SYS_STAT_H" as_fn_append ac_header_c_list " sys/types.h sys_types_h HAVE_SYS_TYPES_H" as_fn_append ac_header_c_list " unistd.h unistd_h HAVE_UNISTD_H" # Check that the precious variables saved in the cache have kept the same # value. ac_cache_corrupted=false for ac_var in $ac_precious_vars; do eval ac_old_set=\$ac_cv_env_${ac_var}_set eval ac_new_set=\$ac_env_${ac_var}_set eval ac_old_val=\$ac_cv_env_${ac_var}_value eval ac_new_val=\$ac_env_${ac_var}_value case $ac_old_set,$ac_new_set in set,) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: '$ac_var' was set to '$ac_old_val' in the previous run" >&5 printf "%s\n" "$as_me: error: '$ac_var' was set to '$ac_old_val' in the previous run" >&2;} ac_cache_corrupted=: ;; ,set) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: '$ac_var' was not set in the previous run" >&5 printf "%s\n" "$as_me: error: '$ac_var' was not set in the previous run" >&2;} ac_cache_corrupted=: ;; ,);; *) if test "x$ac_old_val" != "x$ac_new_val"; then # differences in whitespace do not lead to failure. ac_old_val_w=`echo x $ac_old_val` ac_new_val_w=`echo x $ac_new_val` if test "$ac_old_val_w" != "$ac_new_val_w"; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: '$ac_var' has changed since the previous run:" >&5 printf "%s\n" "$as_me: error: '$ac_var' has changed since the previous run:" >&2;} ac_cache_corrupted=: else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: warning: ignoring whitespace changes in '$ac_var' since the previous run:" >&5 printf "%s\n" "$as_me: warning: ignoring whitespace changes in '$ac_var' since the previous run:" >&2;} eval $ac_var=\$ac_old_val fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: former value: '$ac_old_val'" >&5 printf "%s\n" "$as_me: former value: '$ac_old_val'" >&2;} { printf "%s\n" "$as_me:${as_lineno-$LINENO}: current value: '$ac_new_val'" >&5 printf "%s\n" "$as_me: current value: '$ac_new_val'" >&2;} fi;; esac # Pass precious variables to config.status. if test "$ac_new_set" = set; then case $ac_new_val in *\'*) ac_arg=$ac_var=`printf "%s\n" "$ac_new_val" | sed "s/'/'\\\\\\\\''/g"` ;; *) ac_arg=$ac_var=$ac_new_val ;; esac case " $ac_configure_args " in *" '$ac_arg' "*) ;; # Avoid dups. Use of quotes ensures accuracy. *) as_fn_append ac_configure_args " '$ac_arg'" ;; esac fi done if $ac_cache_corrupted; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in '$ac_pwd':" >&5 printf "%s\n" "$as_me: error: in '$ac_pwd':" >&2;} { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: changes in the environment can compromise the build" >&5 printf "%s\n" "$as_me: error: changes in the environment can compromise the build" >&2;} as_fn_error $? "run '${MAKE-make} distclean' and/or 'rm $cache_file' and start over" "$LINENO" 5 fi ## -------------------- ## ## Main body of script. ## ## -------------------- ## ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu ac_config_headers="$ac_config_headers config.h" DCLVERSION=7.5.2 DCLVERNUM=752 DCLLANG=f77 DCLNWS=2 CFLAGS=${CFLAGS--O} FFLAGS=${FFLAGS--O} case "${CC-}" in '') case `uname` in ULTRIX) ccs='gcc cc' ;; *) ccs='xlc acc cc gcc' ;; esac for cc in $ccs; do # Extract the first word of "$cc", so it can be a program name with args. set dummy $cc; ac_word=$2 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_CC+y} then : printf %s "(cached) " >&6 else case e in #( e) if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then ac_cv_prog_CC="$cc" printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi ;; esac fi CC=$ac_cv_prog_CC if test -n "$CC"; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 printf "%s\n" "$CC" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi case "$CC" in '') ;; *) break;; esac done case "${CC-}" in '') as_fn_error $? "\"Could not find C compiler\"" "$LINENO" 5 ;; esac ;; *) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking user-defined C compiler \"$CC\"..." >&5 printf "%s\n" "$as_me: checking user-defined C compiler \"$CC\"..." >&6;} ;; esac { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking C compiler" >&5 printf %s "checking C compiler... " >&6; } cat << EOF > conftest.c int main () { ; return 0; } EOF doit='$CC -c ${CFLAGS-} conftest.c' if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$doit\""; } >&5 (eval $doit) 2>&5 ac_status=$? printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: works" >&5 printf "%s\n" "works" >&6; } else as_fn_error $? "$CC failed to compile test program" "$LINENO" 5 CC= fi rm -f conftest.* case "$CC" in *gcc*) GCC=yes # Expected by autoconf(1) macros ;; esac case `uname -s` in HP-UX*) CFLAGS="${CFLAGS-} -D_INCLUDE_POSIX_SOURCE" ;; SunOS) case `uname -r` in 4*) CFLAGS="${CFLAGS-} -Dsun4" ;; 5*) ;; esac ;; esac ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}gcc", so it can be a program name with args. set dummy ${ac_tool_prefix}gcc; ac_word=$2 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_CC+y} then : printf %s "(cached) " >&6 else case e in #( e) if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then ac_cv_prog_CC="${ac_tool_prefix}gcc" printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi ;; esac fi CC=$ac_cv_prog_CC if test -n "$CC"; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 printf "%s\n" "$CC" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi fi if test -z "$ac_cv_prog_CC"; then ac_ct_CC=$CC # Extract the first word of "gcc", so it can be a program name with args. set dummy gcc; ac_word=$2 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_ac_ct_CC+y} then : printf %s "(cached) " >&6 else case e in #( e) if test -n "$ac_ct_CC"; then ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_CC="gcc" printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi ;; esac fi ac_ct_CC=$ac_cv_prog_ac_ct_CC if test -n "$ac_ct_CC"; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 printf "%s\n" "$ac_ct_CC" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi if test "x$ac_ct_CC" = x; then CC="" else case $cross_compiling:$ac_tool_warned in yes:) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 printf "%s\n" "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac CC=$ac_ct_CC fi else CC="$ac_cv_prog_CC" fi if test -z "$CC"; then if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}cc", so it can be a program name with args. set dummy ${ac_tool_prefix}cc; ac_word=$2 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_CC+y} then : printf %s "(cached) " >&6 else case e in #( e) if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then ac_cv_prog_CC="${ac_tool_prefix}cc" printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi ;; esac fi CC=$ac_cv_prog_CC if test -n "$CC"; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 printf "%s\n" "$CC" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi fi fi if test -z "$CC"; then # Extract the first word of "cc", so it can be a program name with args. set dummy cc; ac_word=$2 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_CC+y} then : printf %s "(cached) " >&6 else case e in #( e) if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else ac_prog_rejected=no as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then if test "$as_dir$ac_word$ac_exec_ext" = "/usr/ucb/cc"; then ac_prog_rejected=yes continue fi ac_cv_prog_CC="cc" printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS if test $ac_prog_rejected = yes; then # We found a bogon in the path, so make sure we never use it. set dummy $ac_cv_prog_CC shift if test $# != 0; then # We chose a different compiler from the bogus one. # However, it has the same basename, so the bogon will be chosen # first if we set CC to just the basename; use the full file name. shift ac_cv_prog_CC="$as_dir$ac_word${1+' '}$@" fi fi fi ;; esac fi CC=$ac_cv_prog_CC if test -n "$CC"; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 printf "%s\n" "$CC" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi fi if test -z "$CC"; then if test -n "$ac_tool_prefix"; then for ac_prog in cl.exe do # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. set dummy $ac_tool_prefix$ac_prog; ac_word=$2 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_CC+y} then : printf %s "(cached) " >&6 else case e in #( e) if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then ac_cv_prog_CC="$ac_tool_prefix$ac_prog" printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi ;; esac fi CC=$ac_cv_prog_CC if test -n "$CC"; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 printf "%s\n" "$CC" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi test -n "$CC" && break done fi if test -z "$CC"; then ac_ct_CC=$CC for ac_prog in cl.exe do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_ac_ct_CC+y} then : printf %s "(cached) " >&6 else case e in #( e) if test -n "$ac_ct_CC"; then ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_CC="$ac_prog" printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi ;; esac fi ac_ct_CC=$ac_cv_prog_ac_ct_CC if test -n "$ac_ct_CC"; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 printf "%s\n" "$ac_ct_CC" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi test -n "$ac_ct_CC" && break done if test "x$ac_ct_CC" = x; then CC="" else case $cross_compiling:$ac_tool_warned in yes:) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 printf "%s\n" "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac CC=$ac_ct_CC fi fi fi if test -z "$CC"; then if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}clang", so it can be a program name with args. set dummy ${ac_tool_prefix}clang; ac_word=$2 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_CC+y} then : printf %s "(cached) " >&6 else case e in #( e) if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then ac_cv_prog_CC="${ac_tool_prefix}clang" printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi ;; esac fi CC=$ac_cv_prog_CC if test -n "$CC"; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 printf "%s\n" "$CC" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi fi if test -z "$ac_cv_prog_CC"; then ac_ct_CC=$CC # Extract the first word of "clang", so it can be a program name with args. set dummy clang; ac_word=$2 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_ac_ct_CC+y} then : printf %s "(cached) " >&6 else case e in #( e) if test -n "$ac_ct_CC"; then ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_CC="clang" printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi ;; esac fi ac_ct_CC=$ac_cv_prog_ac_ct_CC if test -n "$ac_ct_CC"; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 printf "%s\n" "$ac_ct_CC" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi if test "x$ac_ct_CC" = x; then CC="" else case $cross_compiling:$ac_tool_warned in yes:) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 printf "%s\n" "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac CC=$ac_ct_CC fi else CC="$ac_cv_prog_CC" fi fi test -z "$CC" && { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in '$ac_pwd':" >&5 printf "%s\n" "$as_me: error: in '$ac_pwd':" >&2;} as_fn_error $? "no acceptable C compiler found in \$PATH See 'config.log' for more details" "$LINENO" 5; } # Provide some information about the compiler. printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for C compiler version" >&5 set X $ac_compile ac_compiler=$2 for ac_option in --version -v -V -qversion -version; do { { ac_try="$ac_compiler $ac_option >&5" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" printf "%s\n" "$ac_try_echo"; } >&5 (eval "$ac_compiler $ac_option >&5") 2>conftest.err ac_status=$? if test -s conftest.err; then sed '10a\ ... rest of stderr output deleted ... 10q' conftest.err >conftest.er1 cat conftest.er1 >&5 fi rm -f conftest.er1 conftest.err printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } done cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main (void) { ; return 0; } _ACEOF ac_clean_files_save=$ac_clean_files ac_clean_files="$ac_clean_files a.out a.out.dSYM a.exe b.out" # Try to create an executable without -o first, disregard a.out. # It will help us diagnose broken compilers, and finding out an intuition # of exeext. { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether the C compiler works" >&5 printf %s "checking whether the C compiler works... " >&6; } ac_link_default=`printf "%s\n" "$ac_link" | sed 's/ -o *conftest[^ ]*//'` # The possible output files: ac_files="a.out conftest.exe conftest a.exe a_out.exe b.out conftest.*" ac_rmfiles= for ac_file in $ac_files do case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; * ) ac_rmfiles="$ac_rmfiles $ac_file";; esac done rm -f $ac_rmfiles if { { ac_try="$ac_link_default" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" printf "%s\n" "$ac_try_echo"; } >&5 (eval "$ac_link_default") 2>&5 ac_status=$? printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } then : # Autoconf-2.13 could set the ac_cv_exeext variable to 'no'. # So ignore a value of 'no', otherwise this would lead to 'EXEEXT = no' # in a Makefile. We should not override ac_cv_exeext if it was cached, # so that the user can short-circuit this test for compilers unknown to # Autoconf. for ac_file in $ac_files '' do test -f "$ac_file" || continue case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; [ab].out ) # We found the default executable, but exeext='' is most # certainly right. break;; *.* ) if test ${ac_cv_exeext+y} && test "$ac_cv_exeext" != no; then :; else ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` fi # We set ac_cv_exeext here because the later test for it is not # safe: cross compilers may not add the suffix if given an '-o' # argument, so we may need to know it at that point already. # Even if this section looks crufty: it has the advantage of # actually working. break;; * ) break;; esac done test "$ac_cv_exeext" = no && ac_cv_exeext= else case e in #( e) ac_file='' ;; esac fi if test -z "$ac_file" then : { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } printf "%s\n" "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in '$ac_pwd':" >&5 printf "%s\n" "$as_me: error: in '$ac_pwd':" >&2;} as_fn_error 77 "C compiler cannot create executables See 'config.log' for more details" "$LINENO" 5; } else case e in #( e) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 printf "%s\n" "yes" >&6; } ;; esac fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for C compiler default output file name" >&5 printf %s "checking for C compiler default output file name... " >&6; } { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_file" >&5 printf "%s\n" "$ac_file" >&6; } ac_exeext=$ac_cv_exeext rm -f -r a.out a.out.dSYM a.exe conftest$ac_cv_exeext b.out ac_clean_files=$ac_clean_files_save { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for suffix of executables" >&5 printf %s "checking for suffix of executables... " >&6; } if { { ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" printf "%s\n" "$ac_try_echo"; } >&5 (eval "$ac_link") 2>&5 ac_status=$? printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } then : # If both 'conftest.exe' and 'conftest' are 'present' (well, observable) # catch 'conftest.exe'. For instance with Cygwin, 'ls conftest' will # work properly (i.e., refer to 'conftest.exe'), while it won't with # 'rm'. for ac_file in conftest.exe conftest conftest.*; do test -f "$ac_file" || continue case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; *.* ) ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` break;; * ) break;; esac done else case e in #( e) { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in '$ac_pwd':" >&5 printf "%s\n" "$as_me: error: in '$ac_pwd':" >&2;} as_fn_error $? "cannot compute suffix of executables: cannot compile and link See 'config.log' for more details" "$LINENO" 5; } ;; esac fi rm -f conftest conftest$ac_cv_exeext { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_exeext" >&5 printf "%s\n" "$ac_cv_exeext" >&6; } rm -f conftest.$ac_ext EXEEXT=$ac_cv_exeext ac_exeext=$EXEEXT cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include int main (void) { FILE *f = fopen ("conftest.out", "w"); if (!f) return 1; return ferror (f) || fclose (f) != 0; ; return 0; } _ACEOF ac_clean_files="$ac_clean_files conftest.out" # Check that the compiler produces executables we can run. If not, either # the compiler is broken, or we cross compile. { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether we are cross compiling" >&5 printf %s "checking whether we are cross compiling... " >&6; } if test "$cross_compiling" != yes; then { { ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" printf "%s\n" "$ac_try_echo"; } >&5 (eval "$ac_link") 2>&5 ac_status=$? printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } if { ac_try='./conftest$ac_cv_exeext' { { case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" printf "%s\n" "$ac_try_echo"; } >&5 (eval "$ac_try") 2>&5 ac_status=$? printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; }; then cross_compiling=no else if test "$cross_compiling" = maybe; then cross_compiling=yes else { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in '$ac_pwd':" >&5 printf "%s\n" "$as_me: error: in '$ac_pwd':" >&2;} as_fn_error 77 "cannot run C compiled programs. If you meant to cross compile, use '--host'. See 'config.log' for more details" "$LINENO" 5; } fi fi fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $cross_compiling" >&5 printf "%s\n" "$cross_compiling" >&6; } rm -f conftest.$ac_ext conftest$ac_cv_exeext \ conftest.o conftest.obj conftest.out ac_clean_files=$ac_clean_files_save { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for suffix of object files" >&5 printf %s "checking for suffix of object files... " >&6; } if test ${ac_cv_objext+y} then : printf %s "(cached) " >&6 else case e in #( e) cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main (void) { ; return 0; } _ACEOF rm -f conftest.o conftest.obj if { { ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" printf "%s\n" "$ac_try_echo"; } >&5 (eval "$ac_compile") 2>&5 ac_status=$? printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } then : for ac_file in conftest.o conftest.obj conftest.*; do test -f "$ac_file" || continue; case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM ) ;; *) ac_cv_objext=`expr "$ac_file" : '.*\.\(.*\)'` break;; esac done else case e in #( e) printf "%s\n" "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in '$ac_pwd':" >&5 printf "%s\n" "$as_me: error: in '$ac_pwd':" >&2;} as_fn_error $? "cannot compute suffix of object files: cannot compile See 'config.log' for more details" "$LINENO" 5; } ;; esac fi rm -f conftest.$ac_cv_objext conftest.$ac_ext ;; esac fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_objext" >&5 printf "%s\n" "$ac_cv_objext" >&6; } OBJEXT=$ac_cv_objext ac_objext=$OBJEXT { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether the compiler supports GNU C" >&5 printf %s "checking whether the compiler supports GNU C... " >&6; } if test ${ac_cv_c_compiler_gnu+y} then : printf %s "(cached) " >&6 else case e in #( e) cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main (void) { #ifndef __GNUC__ choke me #endif ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : ac_compiler_gnu=yes else case e in #( e) ac_compiler_gnu=no ;; esac fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext ac_cv_c_compiler_gnu=$ac_compiler_gnu ;; esac fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_compiler_gnu" >&5 printf "%s\n" "$ac_cv_c_compiler_gnu" >&6; } ac_compiler_gnu=$ac_cv_c_compiler_gnu if test $ac_compiler_gnu = yes; then GCC=yes else GCC= fi ac_test_CFLAGS=${CFLAGS+y} ac_save_CFLAGS=$CFLAGS { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether $CC accepts -g" >&5 printf %s "checking whether $CC accepts -g... " >&6; } if test ${ac_cv_prog_cc_g+y} then : printf %s "(cached) " >&6 else case e in #( e) ac_save_c_werror_flag=$ac_c_werror_flag ac_c_werror_flag=yes ac_cv_prog_cc_g=no CFLAGS="-g" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main (void) { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : ac_cv_prog_cc_g=yes else case e in #( e) CFLAGS="" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main (void) { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : else case e in #( e) ac_c_werror_flag=$ac_save_c_werror_flag CFLAGS="-g" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main (void) { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : ac_cv_prog_cc_g=yes fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext ;; esac fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext ;; esac fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext ac_c_werror_flag=$ac_save_c_werror_flag ;; esac fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_g" >&5 printf "%s\n" "$ac_cv_prog_cc_g" >&6; } if test $ac_test_CFLAGS; then CFLAGS=$ac_save_CFLAGS elif test $ac_cv_prog_cc_g = yes; then if test "$GCC" = yes; then CFLAGS="-g -O2" else CFLAGS="-g" fi else if test "$GCC" = yes; then CFLAGS="-O2" else CFLAGS= fi fi ac_prog_cc_stdc=no if test x$ac_prog_cc_stdc = xno then : { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $CC option to enable C11 features" >&5 printf %s "checking for $CC option to enable C11 features... " >&6; } if test ${ac_cv_prog_cc_c11+y} then : printf %s "(cached) " >&6 else case e in #( e) ac_cv_prog_cc_c11=no ac_save_CC=$CC cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $ac_c_conftest_c11_program _ACEOF for ac_arg in '' -std=gnu11 do CC="$ac_save_CC $ac_arg" if ac_fn_c_try_compile "$LINENO" then : ac_cv_prog_cc_c11=$ac_arg fi rm -f core conftest.err conftest.$ac_objext conftest.beam test "x$ac_cv_prog_cc_c11" != "xno" && break done rm -f conftest.$ac_ext CC=$ac_save_CC ;; esac fi if test "x$ac_cv_prog_cc_c11" = xno then : { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5 printf "%s\n" "unsupported" >&6; } else case e in #( e) if test "x$ac_cv_prog_cc_c11" = x then : { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: none needed" >&5 printf "%s\n" "none needed" >&6; } else case e in #( e) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c11" >&5 printf "%s\n" "$ac_cv_prog_cc_c11" >&6; } CC="$CC $ac_cv_prog_cc_c11" ;; esac fi ac_cv_prog_cc_stdc=$ac_cv_prog_cc_c11 ac_prog_cc_stdc=c11 ;; esac fi fi if test x$ac_prog_cc_stdc = xno then : { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $CC option to enable C99 features" >&5 printf %s "checking for $CC option to enable C99 features... " >&6; } if test ${ac_cv_prog_cc_c99+y} then : printf %s "(cached) " >&6 else case e in #( e) ac_cv_prog_cc_c99=no ac_save_CC=$CC cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $ac_c_conftest_c99_program _ACEOF for ac_arg in '' -std=gnu99 -std=c99 -c99 -qlanglvl=extc1x -qlanglvl=extc99 -AC99 -D_STDC_C99= do CC="$ac_save_CC $ac_arg" if ac_fn_c_try_compile "$LINENO" then : ac_cv_prog_cc_c99=$ac_arg fi rm -f core conftest.err conftest.$ac_objext conftest.beam test "x$ac_cv_prog_cc_c99" != "xno" && break done rm -f conftest.$ac_ext CC=$ac_save_CC ;; esac fi if test "x$ac_cv_prog_cc_c99" = xno then : { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5 printf "%s\n" "unsupported" >&6; } else case e in #( e) if test "x$ac_cv_prog_cc_c99" = x then : { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: none needed" >&5 printf "%s\n" "none needed" >&6; } else case e in #( e) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c99" >&5 printf "%s\n" "$ac_cv_prog_cc_c99" >&6; } CC="$CC $ac_cv_prog_cc_c99" ;; esac fi ac_cv_prog_cc_stdc=$ac_cv_prog_cc_c99 ac_prog_cc_stdc=c99 ;; esac fi fi if test x$ac_prog_cc_stdc = xno then : { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $CC option to enable C89 features" >&5 printf %s "checking for $CC option to enable C89 features... " >&6; } if test ${ac_cv_prog_cc_c89+y} then : printf %s "(cached) " >&6 else case e in #( e) ac_cv_prog_cc_c89=no ac_save_CC=$CC cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $ac_c_conftest_c89_program _ACEOF for ac_arg in '' -qlanglvl=extc89 -qlanglvl=ansi -std -Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__" do CC="$ac_save_CC $ac_arg" if ac_fn_c_try_compile "$LINENO" then : ac_cv_prog_cc_c89=$ac_arg fi rm -f core conftest.err conftest.$ac_objext conftest.beam test "x$ac_cv_prog_cc_c89" != "xno" && break done rm -f conftest.$ac_ext CC=$ac_save_CC ;; esac fi if test "x$ac_cv_prog_cc_c89" = xno then : { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5 printf "%s\n" "unsupported" >&6; } else case e in #( e) if test "x$ac_cv_prog_cc_c89" = x then : { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: none needed" >&5 printf "%s\n" "none needed" >&6; } else case e in #( e) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c89" >&5 printf "%s\n" "$ac_cv_prog_cc_c89" >&6; } CC="$CC $ac_cv_prog_cc_c89" ;; esac fi ac_cv_prog_cc_stdc=$ac_cv_prog_cc_c89 ac_prog_cc_stdc=c89 ;; esac fi fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking how to run the C preprocessor" >&5 printf %s "checking how to run the C preprocessor... " >&6; } # On Suns, sometimes $CPP names a directory. if test -n "$CPP" && test -d "$CPP"; then CPP= fi if test -z "$CPP"; then if test ${ac_cv_prog_CPP+y} then : printf %s "(cached) " >&6 else case e in #( e) # Double quotes because $CC needs to be expanded for CPP in "$CC -E" "$CC -E -traditional-cpp" cpp /lib/cpp do ac_preproc_ok=false for ac_c_preproc_warn_flag in '' yes do # Use a header file that comes with gcc, so configuring glibc # with a fresh cross-compiler works. # On the NeXT, cc -E runs the code through the compiler's parser, # not just through cpp. "Syntax error" is here to catch this case. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include Syntax error _ACEOF if ac_fn_c_try_cpp "$LINENO" then : else case e in #( e) # Broken: fails on valid input. continue ;; esac fi rm -f conftest.err conftest.i conftest.$ac_ext # OK, works on sane cases. Now check whether nonexistent headers # can be detected and how. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if ac_fn_c_try_cpp "$LINENO" then : # Broken: success on invalid input. continue else case e in #( e) # Passes both tests. ac_preproc_ok=: break ;; esac fi rm -f conftest.err conftest.i conftest.$ac_ext done # Because of 'break', _AC_PREPROC_IFELSE's cleaning code was skipped. rm -f conftest.i conftest.err conftest.$ac_ext if $ac_preproc_ok then : break fi done ac_cv_prog_CPP=$CPP ;; esac fi CPP=$ac_cv_prog_CPP else ac_cv_prog_CPP=$CPP fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $CPP" >&5 printf "%s\n" "$CPP" >&6; } ac_preproc_ok=false for ac_c_preproc_warn_flag in '' yes do # Use a header file that comes with gcc, so configuring glibc # with a fresh cross-compiler works. # On the NeXT, cc -E runs the code through the compiler's parser, # not just through cpp. "Syntax error" is here to catch this case. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include Syntax error _ACEOF if ac_fn_c_try_cpp "$LINENO" then : else case e in #( e) # Broken: fails on valid input. continue ;; esac fi rm -f conftest.err conftest.i conftest.$ac_ext # OK, works on sane cases. Now check whether nonexistent headers # can be detected and how. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if ac_fn_c_try_cpp "$LINENO" then : # Broken: success on invalid input. continue else case e in #( e) # Passes both tests. ac_preproc_ok=: break ;; esac fi rm -f conftest.err conftest.i conftest.$ac_ext done # Because of 'break', _AC_PREPROC_IFELSE's cleaning code was skipped. rm -f conftest.i conftest.err conftest.$ac_ext if $ac_preproc_ok then : else case e in #( e) { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in '$ac_pwd':" >&5 printf "%s\n" "$as_me: error: in '$ac_pwd':" >&2;} as_fn_error $? "C preprocessor \"$CPP\" fails sanity check See 'config.log' for more details" "$LINENO" 5; } ;; esac fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu awk="mawk gawk jgawk nawk awk" for prog in $awk do # Extract the first word of "$prog", so it can be a program name with args. set dummy $prog; ac_word=$2 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_path_AWK+y} then : printf %s "(cached) " >&6 else case e in #( e) case $AWK in [\\/]* | ?:[\\/]*) ac_cv_path_AWK="$AWK" # Let the user override the test with a path. ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then ac_cv_path_AWK="$as_dir$ac_word$ac_exec_ext" printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS ;; esac ;; esac fi AWK=$ac_cv_path_AWK if test -n "$AWK"; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $AWK" >&5 printf "%s\n" "$AWK" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi case "${AWK-}" in '') ;; *) break;; esac done case "${AWK-}" in '') { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: Could not find awk program" >&5 printf "%s\n" "$as_me: WARNING: Could not find awk program" >&2;} AWK= ;; esac sed="gsed sed" for prog in $sed do # Extract the first word of "$prog", so it can be a program name with args. set dummy $prog; ac_word=$2 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_SED+y} then : printf %s "(cached) " >&6 else case e in #( e) if test -n "$SED"; then ac_cv_prog_SED="$SED" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then ac_cv_prog_SED="$prog" printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi ;; esac fi SED=$ac_cv_prog_SED if test -n "$SED"; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $SED" >&5 printf "%s\n" "$SED" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi case "${SED-}" in '') ;; *) break;; esac done case "${SED-}" in '') { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: Could not find sed program" >&5 printf "%s\n" "$as_me: WARNING: Could not find sed program" >&2;} SED= ;; esac if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}ranlib", so it can be a program name with args. set dummy ${ac_tool_prefix}ranlib; ac_word=$2 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_RANLIB+y} then : printf %s "(cached) " >&6 else case e in #( e) if test -n "$RANLIB"; then ac_cv_prog_RANLIB="$RANLIB" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then ac_cv_prog_RANLIB="${ac_tool_prefix}ranlib" printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi ;; esac fi RANLIB=$ac_cv_prog_RANLIB if test -n "$RANLIB"; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $RANLIB" >&5 printf "%s\n" "$RANLIB" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi fi if test -z "$ac_cv_prog_RANLIB"; then ac_ct_RANLIB=$RANLIB # Extract the first word of "ranlib", so it can be a program name with args. set dummy ranlib; ac_word=$2 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_ac_ct_RANLIB+y} then : printf %s "(cached) " >&6 else case e in #( e) if test -n "$ac_ct_RANLIB"; then ac_cv_prog_ac_ct_RANLIB="$ac_ct_RANLIB" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_RANLIB="ranlib" printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi ;; esac fi ac_ct_RANLIB=$ac_cv_prog_ac_ct_RANLIB if test -n "$ac_ct_RANLIB"; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_ct_RANLIB" >&5 printf "%s\n" "$ac_ct_RANLIB" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi if test "x$ac_ct_RANLIB" = x; then RANLIB=":" else case $cross_compiling:$ac_tool_warned in yes:) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 printf "%s\n" "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac RANLIB=$ac_ct_RANLIB fi else RANLIB="$ac_cv_prog_RANLIB" fi SUNF=no case `uname -s` in AIX) forts="xlf90 f90 xlf f77" ;; BSD/OS) forts="f77 g77" fflags=-w ;; HI-OSF*) forts="f90 f77" fflags="-i,E,L,EU" ;; HP-UX) forts=fort77 fflags=-w flibs=-lU77 ;; IRIX) forts="f90 f77" ;; IRIX64) forts="f90 f77 g77" fflags=-w ;; Linux) forts="f95 f90 ifort ifc g95 pgf77 f77 gfortran g77" fflags=-w ;; OSF1) forts="f90 f77" ;; SunOS) case `uname -r` in 4*) forts="f77 frt g77" fflags=-w ;; 5*) forts="f90 f77 frt g77" SUNF=yes ;; esac ;; sn*|UNICOS) forts="cf90 f90 cf77 f77 g77" ;; *) forts="xlf90 f95 f90 xlf g95 ghf77 f77 cf77 gfortran g77 fort77" ;; esac FFLAGS="${FFLAGS-} ${fflags-}" FLIBS="${FLIBS-} ${flibs-}" case "${FC+set}" in set) case "$FC" in '') as_fn_error $? "no FORTRAN compiler" "$LINENO" 5 ;; *) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking user-defined FORTRAN compiler \"$FC\"" >&5 printf %s "checking user-defined FORTRAN compiler \"$FC\"... " >&6; } cat << EOF > conftest.f CALL FOO END EOF doit='$FC -c ${FFLAGS-} conftest.f' if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$doit\""; } >&5 (eval $doit) 2>&5 ac_status=$? printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: works" >&5 printf "%s\n" "works" >&6; } else as_fn_error $? "$FC failed to compile test program" "$LINENO" 5 FC= fi rm -f conftest.* ;; esac ;; *) for fc in $forts; do # Extract the first word of "$fc", so it can be a program name with args. set dummy $fc; ac_word=$2 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_FC+y} then : printf %s "(cached) " >&6 else case e in #( e) if test -n "$FC"; then ac_cv_prog_FC="$FC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then ac_cv_prog_FC="$fc" printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi ;; esac fi FC=$ac_cv_prog_FC if test -n "$FC"; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $FC" >&5 printf "%s\n" "$FC" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi case "${FC-}" in '') ;; *) cat << EOF > conftest.f CALL FOO END EOF doit='$FC -c ${FFLAGS-} conftest.f' if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$doit\""; } >&5 (eval $doit) 2>&5 ac_status=$? printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then break else as_fn_error $? "$FC failed to compile test program" "$LINENO" 5 unset FC unset ac_cv_prog_FC fi ;; esac done rm -f conftest.* case "${FC-}" in '') as_fn_error $? "Could not find working FORTRAN compiler" "$LINENO" 5 FC= ;; esac ;; esac if test ${SUNF} = yes && test "${FC}" = "f90"; then # Extract the first word of ""f90"", so it can be a program name with args. set dummy "f90"; ac_word=$2 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_path_SUNFC+y} then : printf %s "(cached) " >&6 else case e in #( e) case $SUNFC in [\\/]* | ?:[\\/]*) ac_cv_path_SUNFC="$SUNFC" # Let the user override the test with a path. ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then ac_cv_path_SUNFC="$as_dir$ac_word$ac_exec_ext" printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS ;; esac ;; esac fi SUNFC=$ac_cv_path_SUNFC if test -n "$SUNFC"; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $SUNFC" >&5 printf "%s\n" "$SUNFC" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi flibdir=`dirname ${SUNFC}` flibdir=`echo $flibdir | sed -e s/bin/lib/` FLIBS="${FLIBS-} -R"$flibdir fi if test "x${FC}" = "xifc"; then FCLIB="${FLIBS-} -Vaxlib" fi if test "x${FC}" = "xf95"; then FCLIBOPT=" -lgfortran" fi if test "x${FC}" = "xgfortran"; then FCLIBOPT=" -lgfortran" fi jlatex="platex jlatex" for jl in $jlatex do # Extract the first word of "$jl", so it can be a program name with args. set dummy $jl; ac_word=$2 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_JLATEX+y} then : printf %s "(cached) " >&6 else case e in #( e) if test -n "$JLATEX"; then ac_cv_prog_JLATEX="$JLATEX" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then ac_cv_prog_JLATEX="$jl" printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi ;; esac fi JLATEX=$ac_cv_prog_JLATEX if test -n "$JLATEX"; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $JLATEX" >&5 printf "%s\n" "$JLATEX" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi case "${JLATEX-}" in '') ;; *) break ;; esac done case "${JLATEX-}" in '') { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: Could not find LaTeX program" >&5 printf "%s\n" "$as_me: WARNING: Could not find LaTeX program" >&2;} JLATEX= ;; esac dvipdf="dvipdfmx" for dvi in $dvipdf do # Extract the first word of "$dvi", so it can be a program name with args. set dummy $dvi; ac_word=$2 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_DVI2PDF+y} then : printf %s "(cached) " >&6 else case e in #( e) if test -n "$DVI2PDF"; then ac_cv_prog_DVI2PDF="$DVI2PDF" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then ac_cv_prog_DVI2PDF="$dvi" printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi ;; esac fi DVI2PDF=$ac_cv_prog_DVI2PDF if test -n "$DVI2PDF"; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $DVI2PDF" >&5 printf "%s\n" "$DVI2PDF" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi case "${DVI2PDF-}" in '') ;; dvipdfmx) DVI2PDF="dvipdfmx " break ;; *) break ;; esac done case "${DVI2PDF-}" in '') { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: Could not find DVI->PDF program" >&5 printf "%s\n" "$as_me: WARNING: Could not find DVI->PDF program" >&2;} DVI2PDF= ;; esac TODO_SHARED_LIBRARY= LINKOPT= EXTSHLIB=dummy # Check whether --with-oldsrc was given. if test ${with_oldsrc+y} then : withval=$with_oldsrc; if test "$withval" = yes; then OLDSRC=oldsrc; \ else OLDSRC=; fi else case e in #( e) OLDSRC= ;; esac fi cat << EOF > conftest.f PROGRAM MAIN CHARACTER ARGV*10 * EXTERNAL GETARG CALL GETARG(2, ARGV) STOP END EOF cat << EOF > conftest1.f90 CHARACTER CHAR*10 call get_command_argument(1,char) END EOF doit='${FC-} ${FFLAGS-} conftest.f ${FLIBS} > /dev/null 2>&1' doit2='${FC-} ${FFLAGS-} conftest1.f90 ${FLIBS} > /dev/null 2>&1' { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Fortran service routine get_command_argument()" >&5 printf %s "checking Fortran service routine get_command_argument()... " >&6; } if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$doit2\""; } >&5 (eval $doit2) 2>&5 ac_status=$? printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: works" >&5 printf "%s\n" "works" >&6; } OSGARG_OPT=f2003 OSGARG_EXT=f90 else if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$doit\""; } >&5 (eval $doit) 2>&5 ac_status=$? printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: get_command_argument() is not available" >&5 printf "%s\n" "$as_me: WARNING: get_command_argument() is not available" >&2;} { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Fortran service routine getarg()" >&5 printf %s "checking Fortran service routine getarg()... " >&6; } { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: works" >&5 printf "%s\n" "works" >&6; } OSGARG_OPT=getarg OSGARG_EXT=f else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: get_command_argument() is not available" >&5 printf "%s\n" "$as_me: WARNING: get_command_argument() is not available" >&2;} { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Fortran service routine getarg()" >&5 printf %s "checking Fortran service routine getarg()... " >&6; } { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: getarg() is not available" >&5 printf "%s\n" "$as_me: WARNING: getarg() is not available" >&2;} OSGARG_OPT=dummy OSGARG_EXT=f90 fi fi rm -f conftest.* a.out cat << EOF > conftest.f PROGRAM MAIN * EXTERNAL IARGC N = IARGC() STOP END EOF cat << EOF > conftest1.f90 N = command_argument_count() END EOF doit='${FC-} ${FFLAGS-} conftest.f ${FLIBS} > /dev/null 2>&1' doit2='${FC-} ${FFLAGS-} conftest1.f90 ${FLIBS} > /dev/null 2>&1' { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Fortran service routine command_argument_count()" >&5 printf %s "checking Fortran service routine command_argument_count()... " >&6; } if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$doit2\""; } >&5 (eval $doit2) 2>&5 ac_status=$? printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: works" >&5 printf "%s\n" "works" >&6; } OSQARN_OPT=f2003 OSQARN_EXT=f90 else if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$doit\""; } >&5 (eval $doit) 2>&5 ac_status=$? printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: command_argument_count() is not available" >&5 printf "%s\n" "$as_me: WARNING: command_argument_count() is not available" >&2;} { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Fortran service routine iargc()" >&5 printf %s "checking Fortran service routine iargc()... " >&6; } { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: works" >&5 printf "%s\n" "works" >&6; } OSQARN_OPT=iargc OSQARN_EXT=f else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: command_argument_count() is not available" >&5 printf "%s\n" "$as_me: WARNING: command_argument_count() is not available" >&2;} { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Fortran service routine iargc()" >&5 printf %s "checking Fortran service routine iargc()... " >&6; } { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: Service routine iargc() is not available" >&5 printf "%s\n" "$as_me: WARNING: Service routine iargc() is not available" >&2;} OSQARN_OPT=dummy OSQARN_EXT=f fi fi rm -f conftest.* a.out cat << EOF > conftest.f print*,ichar('a') end EOF { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Character code set csgi()/isgc()" >&5 printf %s "checking Character code set csgi()/isgc()... " >&6; } ${FC-} -o conftest conftest.f > /dev/null 2>&1 ia=`./conftest` if test $ia -gt 0; then CSGI_OPT=general { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: general" >&5 printf "%s\n" "general" >&6; } else CSGI_OPT=other { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: other" >&5 printf "%s\n" "other" >&6; } fi rm -f conftest conftest.? # Extract the first word of "pwd", so it can be a program name with args. set dummy pwd; ac_word=$2 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_path_PWD+y} then : printf %s "(cached) " >&6 else case e in #( e) case $PWD in [\\/]* | ?:[\\/]*) ac_cv_path_PWD="$PWD" # Let the user override the test with a path. ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then ac_cv_path_PWD="$as_dir$ac_word$ac_exec_ext" printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS ;; esac ;; esac fi PWD=$ac_cv_path_PWD if test -n "$PWD"; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $PWD" >&5 printf "%s\n" "$PWD" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi case "${PWD-}" in '') { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: *** WARN *** Please set environment variable DCLDIR by yourself" >&5 printf "%s\n" "$as_me: WARNING: *** WARN *** Please set environment variable DCLDIR by yourself" >&2;} DCLDIR= ;; *) DCLDIR=${PWD-} esac case "$FC" in '') ;; *) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for C-equivalent to Fortran routine \"SUB\"" >&5 printf %s "checking for C-equivalent to Fortran routine \"SUB\"... " >&6; } cat >conftest.f <<\EOF call sub() end EOF doit='$FC -c ${FFLAGS} conftest.f' if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$doit\""; } >&5 (eval $doit) 2>&5 ac_status=$? printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then FCALLSCSUB=`nm conftest.o | awk ' /SUB_/{print "SUB_";exit} /SUB/ {print "SUB"; exit} /sub_/{print "sub_";exit} /sub/ {print "sub"; exit}'` case "$FCALLSCSUB" in '') as_fn_error $? "not found" "$LINENO" 5 ;; *) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $FCALLSCSUB" >&5 printf "%s\n" "$FCALLSCSUB" >&6; } ;; esac else as_fn_error $? "Could not compile conftest.f" "$LINENO" 5 fi rm -f conftest* ;; esac case "$FC" in '') ;; *) cat >conftestf.f <&5 printf %s "checking if Fortran \"integer\" is C \"$ctype\"... " >&6; } cat >conftest.c < void $FCALLSCSUB(values) $ctype values[4]; { exit(values[1] != -2 || values[2] != -3); } EOF doit='$CC -c ${CPPFLAGS} ${CFLAGS} conftest.c' if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$doit\""; } >&5 (eval $doit) 2>&5 ac_status=$? printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then doit='$FC ${FFLAGS} -c conftestf.f' if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$doit\""; } >&5 (eval $doit) 2>&5 ac_status=$? printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then doit='$FC -o conftest ${FFLAGS} ${FLDFLAGS} conftestf.o conftest.o ${LIBS}' if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$doit\""; } >&5 (eval $doit) 2>&5 ac_status=$? printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then doit=./conftest if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$doit\""; } >&5 (eval $doit) 2>&5 ac_status=$? printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 printf "%s\n" "yes" >&6; } printf "%s\n" "#define DCL_INT $ctype" >>confdefs.h break else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi else as_fn_error $? "Could not link conftestf.o and conftest.o" "$LINENO" 5 fi else as_fn_error $? "Could not compile conftestf.f" "$LINENO" 5 fi else as_fn_error $? "Could not compile conftest.c" "$LINENO" 5 fi done rm -f conftest* cat >conftestf.f <&5 printf %s "checking if Fortran \"real\" is C \"$ctype\"... " >&6; } cat >conftest.c < void $FCALLSCSUB(values) $ctype values[4]; { exit(values[1] != -2 || values[2] != -3); } EOF doit='$CC -c ${CPPFLAGS} ${CFLAGS} conftest.c' if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$doit\""; } >&5 (eval $doit) 2>&5 ac_status=$? printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then doit='$FC ${FFLAGS} -c conftestf.f' if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$doit\""; } >&5 (eval $doit) 2>&5 ac_status=$? printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then doit='$FC -o conftest ${FFLAGS} ${FLDFLAGS} conftestf.o conftest.o ${LIBS}' if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$doit\""; } >&5 (eval $doit) 2>&5 ac_status=$? printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then doit=./conftest if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$doit\""; } >&5 (eval $doit) 2>&5 ac_status=$? printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 printf "%s\n" "yes" >&6; } printf "%s\n" "#define DCL_REAL $ctype" >>confdefs.h break else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi else as_fn_error $? "Could not link conftestf.o and conftest.o" "$LINENO" 5 fi else as_fn_error $? "Could not compile conftestf.f" "$LINENO" 5 fi else as_fn_error $? "Could not compile conftest.c" "$LINENO" 5 fi done rm -f conftest* ;; esac cat << EOF > conftest1.f INTEGER I DATA I /Z'7FFFFFFF'/ END EOF cat << EOF > conftest2.f INTEGER I DATA I /Z7FFFFFFF/ END EOF doit1='$FC -o conftest1 ${FFLAGS-} conftest1.f' doit2='$FC -o conftest2 ${FFLAGS-} conftest2.f' if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$doit1\""; } >&5 (eval $doit1) 2>&5 ac_status=$? printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: hexadecimal number requires quotation" >&5 printf "%s\n" "hexadecimal number requires quotation" >&6; } QFLAG=-DQUOTE elif { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$doit2\""; } >&5 (eval $doit2) 2>&5 ac_status=$? printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: hexadecimal number requires no quotation" >&5 printf "%s\n" "hexadecimal number requires no quotation" >&6; } QFLAG= fi rm -f conftest? conftest?.? ac_header= ac_cache= for ac_item in $ac_header_c_list do if test $ac_cache; then ac_fn_c_check_header_compile "$LINENO" $ac_header ac_cv_header_$ac_cache "$ac_includes_default" if eval test \"x\$ac_cv_header_$ac_cache\" = xyes; then printf "%s\n" "#define $ac_item 1" >> confdefs.h fi ac_header= ac_cache= elif test $ac_header; then ac_cache=$ac_item else ac_header=$ac_item fi done if test $ac_cv_header_stdlib_h = yes && test $ac_cv_header_string_h = yes then : printf "%s\n" "#define STDC_HEADERS 1" >>confdefs.h fi ac_fn_c_check_header_compile "$LINENO" "float.h" "ac_cv_header_float_h" "$ac_includes_default" if test "x$ac_cv_header_float_h" = xyes then : EXTRA_CFLAGS=-DHAVE_FLOAT_H fi cat << EOF > conftest.c #include #include #ifdef HAVE_FLOAT_H # include #endif #include #ifdef FLT_MIN # define float_min FLT_MIN #else # define float_min 1.175494351E-38 #endif #ifdef FLT_MAX # define float_max FLT_MAX #else # define float_max 3.402823466E+38 #endif #ifdef FLT_EPSILON # define float_epsilon FLT_EPSILON #else # define float_epsilon 1.192092896E-07 #endif #ifdef INT_MAX # define int_max INT_MAX #else # define int_max 2147483647 #endif typedef union { int si; unsigned int ui; } INT; typedef union { float fl; unsigned int ui; } FLT; int main () { FILE *fd1, *fd2, *fd3, *fd4; FLT fmin, fmax; float feps; INT imax; fmin.fl = float_min, fmax.fl = float_max; feps = float_epsilon * 10.001; imax.si = int_max; if ((fd1 = fopen("fminval", "w")) == NULL) { fprintf(stderr, "conftest: cannot open file fminval\n"); exit(1); } if ((fd2 = fopen("fmaxval", "w")) == NULL) { fprintf(stderr, "conftest: cannot open file fmaxval\n"); exit(1); } if ((fd3 = fopen("fepsval", "w")) == NULL) { fprintf(stderr, "conftest: cannot open file fepsval\n"); exit(1); } if ((fd4 = fopen("imaxval", "w")) == NULL) { fprintf(stderr, "conftest: cannot open file imaxval\n"); exit(1); } #ifdef QUOTE fprintf(fd1, "Z'%08X'\n", fmin.ui); fprintf(fd2, "Z'%08X'\n", fmax.ui); fprintf(fd4, "Z'%08X'\n", imax.ui); #else fprintf(fd1, "Z%08X\n", fmin.ui); fprintf(fd2, "Z%08X\n", fmax.ui); fprintf(fd4, "Z%08X\n", imax.ui); #endif fprintf(fd3, "%12.5E\n", feps); fclose(fd1); fclose(fd2); fclose(fd3); fclose(fd4); exit(0); } EOF REALMIN= REALMAX= REPSL= INTMAX= doit='$CC -o conftest ${CFLAGS-} ${EXTRA_CFLAGS-} $QFLAG conftest.c' if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$doit\""; } >&5 (eval $doit) 2>&5 ac_status=$? printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then doit=`./conftest` REALMIN=`cat fminval` REALMAX=`cat fmaxval` REPSL=`cat fepsval` INTMAX=`cat imaxval` { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: REALMAX is ${REALMAX}" >&5 printf "%s\n" "REALMAX is ${REALMAX}" >&6; } { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: REALMIN is ${REALMIN}" >&5 printf "%s\n" "REALMIN is ${REALMIN}" >&6; } { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: EPSILON is ${REPSL}" >&5 printf "%s\n" "EPSILON is ${REPSL}" >&6; } { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: INTMAX is ${INTMAX}" >&5 printf "%s\n" "INTMAX is ${INTMAX}" >&6; } fi rm -f conftest conftest.? fminval fmaxval fepsval imaxval cat << EOF > conftest.c #include #include #include #ifndef CLOCKS_PER_SEC # define CLK_PER_SEC 1000000 #else # define CLK_PER_SEC 0 #endif #ifndef CLK_TCK # define CLK_RSL_TCK 60 #else # define CLK_RSL_TCK 0 #endif int main () { FILE *fd1, *fd2; if ((fd1 = fopen("confval1", "w")) == NULL) { fprintf(stderr, "conftest: cannot open file confval1\n"); exit(1); } if ((fd2 = fopen("confval2", "w")) == NULL) { fprintf(stderr, "conftest: cannot open file confval2\n"); exit(1); } fprintf(fd1, "%d", CLK_PER_SEC); fprintf(fd2, "%d", CLK_RSL_TCK); fclose(fd1); fclose(fd2); } EOF doit='$CC -o conftest ${CFLAGS-} conftest.c' CLK_PER_SEC= CLK_RSL_TCK= if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$doit\""; } >&5 (eval $doit) 2>&5 ac_status=$? printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then doit=`./conftest` cpsval=`cat confval1` crtval=`cat confval2` if test ${cpsval} != 0; then CLK_PER_SEC=${cpsval} { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: CLOCKS_PER_SEC is ${CLK_PER_SEC}" >&5 printf "%s\n" "CLOCKS_PER_SEC is ${CLK_PER_SEC}" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: CLOCKS_PER_SEC is provided by the system" >&5 printf "%s\n" "CLOCKS_PER_SEC is provided by the system" >&6; } fi if test ${crtval} != 0; then CLK_RSL_TCK=${crtval} { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: CLK_TCK is ${CLK_RSL_TCK}" >&5 printf "%s\n" "CLK_TCK is ${CLK_RSL_TCK}" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: CLK_TCK is provided by the system" >&5 printf "%s\n" "CLK_TCK is provided by the system" >&6; } fi fi rm -f conftest conftest.? confval? # Checks for libraries. #PKG_PROG_PKG_CONFIG # Check whether --with-gtk4 was given. if test ${with_gtk4+y} then : withval=$with_gtk4; with_gtk4=yes else case e in #( e) with_gtk4=no ;; esac fi # Check whether --with-gtk3 was given. if test ${with_gtk3+y} then : withval=$with_gtk3; with_gtk3=yes else case e in #( e) with_gtk3=no ;; esac fi # Check whether --with-gtk2 was given. if test ${with_gtk2+y} then : withval=$with_gtk2; with_gtk2=yes else case e in #( e) with_gtk2=no ;; esac fi # Check whether --with-socket was given. if test ${with_socket+y} then : withval=$with_socket; with_socket=yes else case e in #( e) with_socket=no ;; esac fi if test "x$ac_cv_env_PKG_CONFIG_set" != "xset"; then if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}pkg-config", so it can be a program name with args. set dummy ${ac_tool_prefix}pkg-config; ac_word=$2 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_path_PKG_CONFIG+y} then : printf %s "(cached) " >&6 else case e in #( e) case $PKG_CONFIG in [\\/]* | ?:[\\/]*) ac_cv_path_PKG_CONFIG="$PKG_CONFIG" # Let the user override the test with a path. ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then ac_cv_path_PKG_CONFIG="$as_dir$ac_word$ac_exec_ext" printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS ;; esac ;; esac fi PKG_CONFIG=$ac_cv_path_PKG_CONFIG if test -n "$PKG_CONFIG"; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $PKG_CONFIG" >&5 printf "%s\n" "$PKG_CONFIG" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi fi if test -z "$ac_cv_path_PKG_CONFIG"; then ac_pt_PKG_CONFIG=$PKG_CONFIG # Extract the first word of "pkg-config", so it can be a program name with args. set dummy pkg-config; ac_word=$2 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_path_ac_pt_PKG_CONFIG+y} then : printf %s "(cached) " >&6 else case e in #( e) case $ac_pt_PKG_CONFIG in [\\/]* | ?:[\\/]*) ac_cv_path_ac_pt_PKG_CONFIG="$ac_pt_PKG_CONFIG" # Let the user override the test with a path. ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then ac_cv_path_ac_pt_PKG_CONFIG="$as_dir$ac_word$ac_exec_ext" printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS ;; esac ;; esac fi ac_pt_PKG_CONFIG=$ac_cv_path_ac_pt_PKG_CONFIG if test -n "$ac_pt_PKG_CONFIG"; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_pt_PKG_CONFIG" >&5 printf "%s\n" "$ac_pt_PKG_CONFIG" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi if test "x$ac_pt_PKG_CONFIG" = x; then PKG_CONFIG="" else case $cross_compiling:$ac_tool_warned in yes:) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 printf "%s\n" "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac PKG_CONFIG=$ac_pt_PKG_CONFIG fi else PKG_CONFIG="$ac_cv_path_PKG_CONFIG" fi fi if test -n "$PKG_CONFIG"; then _pkg_min_version=0.9.0 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking pkg-config is at least version $_pkg_min_version" >&5 printf %s "checking pkg-config is at least version $_pkg_min_version... " >&6; } if $PKG_CONFIG --atleast-pkgconfig-version $_pkg_min_version; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 printf "%s\n" "yes" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } PKG_CONFIG="" fi fi if test "x$with_socket" = "xyes" then : GTK_CFLAGS="" GTK_LIBS="" GTKVERSION="" DRV_EXT="socket" else case e in #( e) if test "x$with_gtk2" = "xyes" then : pkg_failed=no { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for GTK2" >&5 printf %s "checking for GTK2... " >&6; } if test -n "$GTK2_CFLAGS"; then pkg_cv_GTK2_CFLAGS="$GTK2_CFLAGS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"gtk+-2.0\""; } >&5 ($PKG_CONFIG --exists --print-errors "gtk+-2.0") 2>&5 ac_status=$? printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_GTK2_CFLAGS=`$PKG_CONFIG --cflags "gtk+-2.0" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test -n "$GTK2_LIBS"; then pkg_cv_GTK2_LIBS="$GTK2_LIBS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"gtk+-2.0\""; } >&5 ($PKG_CONFIG --exists --print-errors "gtk+-2.0") 2>&5 ac_status=$? printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_GTK2_LIBS=`$PKG_CONFIG --libs "gtk+-2.0" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test $pkg_failed = yes; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } if $PKG_CONFIG --atleast-pkgconfig-version 0.20; then _pkg_short_errors_supported=yes else _pkg_short_errors_supported=no fi if test $_pkg_short_errors_supported = yes; then GTK2_PKG_ERRORS=`$PKG_CONFIG --short-errors --print-errors --cflags --libs "gtk+-2.0" 2>&1` else GTK2_PKG_ERRORS=`$PKG_CONFIG --print-errors --cflags --libs "gtk+-2.0" 2>&1` fi # Put the nasty error message in config.log where it belongs echo "$GTK2_PKG_ERRORS" >&5 as_fn_error $? "Package requirements (gtk+-2.0) were not met: $GTK2_PKG_ERRORS Consider adjusting the PKG_CONFIG_PATH environment variable if you installed software in a non-standard prefix. Alternatively, you may set the environment variables GTK2_CFLAGS and GTK2_LIBS to avoid the need to call pkg-config. See the pkg-config man page for more details." "$LINENO" 5 elif test $pkg_failed = untried; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in '$ac_pwd':" >&5 printf "%s\n" "$as_me: error: in '$ac_pwd':" >&2;} as_fn_error $? "The pkg-config script could not be found or is too old. Make sure it is in your PATH or set the PKG_CONFIG environment variable to the full path to pkg-config. Alternatively, you may set the environment variables GTK2_CFLAGS and GTK2_LIBS to avoid the need to call pkg-config. See the pkg-config man page for more details. To get pkg-config, see . See 'config.log' for more details" "$LINENO" 5; } else GTK2_CFLAGS=$pkg_cv_GTK2_CFLAGS GTK2_LIBS=$pkg_cv_GTK2_LIBS { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 printf "%s\n" "yes" >&6; } printf "%s\n" "#define HAVE_GTK2 1" >>confdefs.h GTK_CFLAGS=${GTK2_CFLAGS} GTK_LIBS=${GTK2_LIBS} GTKVERSION=2 DRV_EXT="gtk" fi else case e in #( e) if test "x$with_gtk3" = "xyes" then : pkg_failed=no { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for GTK3" >&5 printf %s "checking for GTK3... " >&6; } if test -n "$GTK3_CFLAGS"; then pkg_cv_GTK3_CFLAGS="$GTK3_CFLAGS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"gtk+-3.0\""; } >&5 ($PKG_CONFIG --exists --print-errors "gtk+-3.0") 2>&5 ac_status=$? printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_GTK3_CFLAGS=`$PKG_CONFIG --cflags "gtk+-3.0" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test -n "$GTK3_LIBS"; then pkg_cv_GTK3_LIBS="$GTK3_LIBS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"gtk+-3.0\""; } >&5 ($PKG_CONFIG --exists --print-errors "gtk+-3.0") 2>&5 ac_status=$? printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_GTK3_LIBS=`$PKG_CONFIG --libs "gtk+-3.0" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test $pkg_failed = yes; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } if $PKG_CONFIG --atleast-pkgconfig-version 0.20; then _pkg_short_errors_supported=yes else _pkg_short_errors_supported=no fi if test $_pkg_short_errors_supported = yes; then GTK3_PKG_ERRORS=`$PKG_CONFIG --short-errors --print-errors --cflags --libs "gtk+-3.0" 2>&1` else GTK3_PKG_ERRORS=`$PKG_CONFIG --print-errors --cflags --libs "gtk+-3.0" 2>&1` fi # Put the nasty error message in config.log where it belongs echo "$GTK3_PKG_ERRORS" >&5 as_fn_error $? "Package requirements (gtk+-3.0) were not met: $GTK3_PKG_ERRORS Consider adjusting the PKG_CONFIG_PATH environment variable if you installed software in a non-standard prefix. Alternatively, you may set the environment variables GTK3_CFLAGS and GTK3_LIBS to avoid the need to call pkg-config. See the pkg-config man page for more details." "$LINENO" 5 elif test $pkg_failed = untried; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in '$ac_pwd':" >&5 printf "%s\n" "$as_me: error: in '$ac_pwd':" >&2;} as_fn_error $? "The pkg-config script could not be found or is too old. Make sure it is in your PATH or set the PKG_CONFIG environment variable to the full path to pkg-config. Alternatively, you may set the environment variables GTK3_CFLAGS and GTK3_LIBS to avoid the need to call pkg-config. See the pkg-config man page for more details. To get pkg-config, see . See 'config.log' for more details" "$LINENO" 5; } else GTK3_CFLAGS=$pkg_cv_GTK3_CFLAGS GTK3_LIBS=$pkg_cv_GTK3_LIBS { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 printf "%s\n" "yes" >&6; } printf "%s\n" "#define HAVE_GTK3 1" >>confdefs.h GTK_CFLAGS=${GTK3_CFLAGS} GTK_LIBS=${GTK3_LIBS} GTKVERSION=3 DRV_EXT="gtk" fi else case e in #( e) if test "x$with_gtk4" = "xyes" then : pkg_failed=no { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for GTK4" >&5 printf %s "checking for GTK4... " >&6; } if test -n "$GTK4_CFLAGS"; then pkg_cv_GTK4_CFLAGS="$GTK4_CFLAGS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"gtk4\""; } >&5 ($PKG_CONFIG --exists --print-errors "gtk4") 2>&5 ac_status=$? printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_GTK4_CFLAGS=`$PKG_CONFIG --cflags "gtk4" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test -n "$GTK4_LIBS"; then pkg_cv_GTK4_LIBS="$GTK4_LIBS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"gtk4\""; } >&5 ($PKG_CONFIG --exists --print-errors "gtk4") 2>&5 ac_status=$? printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_GTK4_LIBS=`$PKG_CONFIG --libs "gtk4" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test $pkg_failed = yes; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } if $PKG_CONFIG --atleast-pkgconfig-version 0.20; then _pkg_short_errors_supported=yes else _pkg_short_errors_supported=no fi if test $_pkg_short_errors_supported = yes; then GTK4_PKG_ERRORS=`$PKG_CONFIG --short-errors --print-errors --cflags --libs "gtk4" 2>&1` else GTK4_PKG_ERRORS=`$PKG_CONFIG --print-errors --cflags --libs "gtk4" 2>&1` fi # Put the nasty error message in config.log where it belongs echo "$GTK4_PKG_ERRORS" >&5 as_fn_error $? "Package requirements (gtk4) were not met: $GTK4_PKG_ERRORS Consider adjusting the PKG_CONFIG_PATH environment variable if you installed software in a non-standard prefix. Alternatively, you may set the environment variables GTK4_CFLAGS and GTK4_LIBS to avoid the need to call pkg-config. See the pkg-config man page for more details." "$LINENO" 5 elif test $pkg_failed = untried; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in '$ac_pwd':" >&5 printf "%s\n" "$as_me: error: in '$ac_pwd':" >&2;} as_fn_error $? "The pkg-config script could not be found or is too old. Make sure it is in your PATH or set the PKG_CONFIG environment variable to the full path to pkg-config. Alternatively, you may set the environment variables GTK4_CFLAGS and GTK4_LIBS to avoid the need to call pkg-config. See the pkg-config man page for more details. To get pkg-config, see . See 'config.log' for more details" "$LINENO" 5; } else GTK4_CFLAGS=$pkg_cv_GTK4_CFLAGS GTK4_LIBS=$pkg_cv_GTK4_LIBS { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 printf "%s\n" "yes" >&6; } printf "%s\n" "#define HAVE_GTK4 1" >>confdefs.h GTK_CFLAGS=${GTK4_CFLAGS} GTK_LIBS=${GTK4_LIBS} GTKVERSION=4 DRV_EXT="gtk" fi else case e in #( e) pkg_failed=no { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for GTK3" >&5 printf %s "checking for GTK3... " >&6; } if test -n "$GTK3_CFLAGS"; then pkg_cv_GTK3_CFLAGS="$GTK3_CFLAGS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"gtk+-3.0\""; } >&5 ($PKG_CONFIG --exists --print-errors "gtk+-3.0") 2>&5 ac_status=$? printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_GTK3_CFLAGS=`$PKG_CONFIG --cflags "gtk+-3.0" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test -n "$GTK3_LIBS"; then pkg_cv_GTK3_LIBS="$GTK3_LIBS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"gtk+-3.0\""; } >&5 ($PKG_CONFIG --exists --print-errors "gtk+-3.0") 2>&5 ac_status=$? printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_GTK3_LIBS=`$PKG_CONFIG --libs "gtk+-3.0" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test $pkg_failed = yes; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } if $PKG_CONFIG --atleast-pkgconfig-version 0.20; then _pkg_short_errors_supported=yes else _pkg_short_errors_supported=no fi if test $_pkg_short_errors_supported = yes; then GTK3_PKG_ERRORS=`$PKG_CONFIG --short-errors --print-errors --cflags --libs "gtk+-3.0" 2>&1` else GTK3_PKG_ERRORS=`$PKG_CONFIG --print-errors --cflags --libs "gtk+-3.0" 2>&1` fi # Put the nasty error message in config.log where it belongs echo "$GTK3_PKG_ERRORS" >&5 as_fn_error $? "Package requirements (gtk+-3.0) were not met: $GTK3_PKG_ERRORS Consider adjusting the PKG_CONFIG_PATH environment variable if you installed software in a non-standard prefix. Alternatively, you may set the environment variables GTK3_CFLAGS and GTK3_LIBS to avoid the need to call pkg-config. See the pkg-config man page for more details." "$LINENO" 5 elif test $pkg_failed = untried; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in '$ac_pwd':" >&5 printf "%s\n" "$as_me: error: in '$ac_pwd':" >&2;} as_fn_error $? "The pkg-config script could not be found or is too old. Make sure it is in your PATH or set the PKG_CONFIG environment variable to the full path to pkg-config. Alternatively, you may set the environment variables GTK3_CFLAGS and GTK3_LIBS to avoid the need to call pkg-config. See the pkg-config man page for more details. To get pkg-config, see . See 'config.log' for more details" "$LINENO" 5; } else GTK3_CFLAGS=$pkg_cv_GTK3_CFLAGS GTK3_LIBS=$pkg_cv_GTK3_LIBS { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 printf "%s\n" "yes" >&6; } fi GTK_CFLAGS=${GTK3_CFLAGS} GTK_LIBS=${GTK3_LIBS} GTKVERSION=3 DRV_EXT="gtk" ;; esac fi ;; esac fi ;; esac fi ;; esac fi expunge () { list=$1 list=`reverse_list ${list}` newlist="" for arg in ${list} do return=`echo ${newlist} | grep -- ${arg}` if test -z "${return}" ; then newlist="${arg} ${newlist}" fi done echo ${newlist} } reverse_list () { newlist="" for arg in $* do newlist="${arg} ${newlist}" done echo ${newlist} } ac_config_files="$ac_config_files Mkinclude Makefile" cat >confcache <<\_ACEOF # This file is a shell script that caches the results of configure # tests run on this system so they can be shared between configure # scripts and configure runs, see configure's option --config-cache. # It is not useful on other systems. If it contains results you don't # want to keep, you may remove or edit it. # # config.status only pays attention to the cache file if you give it # the --recheck option to rerun configure. # # 'ac_cv_env_foo' variables (set or unset) will be overridden when # loading this file, other *unset* 'ac_cv_foo' will be assigned the # following values. _ACEOF # The following way of writing the cache mishandles newlines in values, # but we know of no workaround that is simple, portable, and efficient. # So, we kill variables containing newlines. # Ultrix sh set writes to stderr and can't be redirected directly, # and sets the high bit in the cache file unless we assign to the vars. ( for ac_var in `(set) 2>&1 | sed -n 's/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'`; do eval ac_val=\$$ac_var case $ac_val in #( *${as_nl}*) case $ac_var in #( *_cv_*) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5 printf "%s\n" "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; esac case $ac_var in #( _ | IFS | as_nl) ;; #( BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #( *) { eval $ac_var=; unset $ac_var;} ;; esac ;; esac done (set) 2>&1 | case $as_nl`(ac_space=' '; set) 2>&1` in #( *${as_nl}ac_space=\ *) # 'set' does not quote correctly, so add quotes: double-quote # substitution turns \\\\ into \\, and sed turns \\ into \. sed -n \ "s/'/'\\\\''/g; s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\\2'/p" ;; #( *) # 'set' quotes correctly as required by POSIX, so do not add quotes. sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p" ;; esac | sort ) | sed ' /^ac_cv_env_/b end t clear :clear s/^\([^=]*\)=\(.*[{}].*\)$/test ${\1+y} || &/ t end s/^\([^=]*\)=\(.*\)$/\1=${\1=\2}/ :end' >>confcache if diff "$cache_file" confcache >/dev/null 2>&1; then :; else if test -w "$cache_file"; then if test "x$cache_file" != "x/dev/null"; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: updating cache $cache_file" >&5 printf "%s\n" "$as_me: updating cache $cache_file" >&6;} if test ! -f "$cache_file" || test -h "$cache_file"; then cat confcache >"$cache_file" else case $cache_file in #( */* | ?:*) mv -f confcache "$cache_file"$$ && mv -f "$cache_file"$$ "$cache_file" ;; #( *) mv -f confcache "$cache_file" ;; esac fi fi else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: not updating unwritable cache $cache_file" >&5 printf "%s\n" "$as_me: not updating unwritable cache $cache_file" >&6;} fi fi rm -f confcache test "x$prefix" = xNONE && prefix=$ac_default_prefix # Let make expand exec_prefix. test "x$exec_prefix" = xNONE && exec_prefix='${prefix}' DEFS=-DHAVE_CONFIG_H ac_libobjs= ac_ltlibobjs= U= for ac_i in : $LIBOBJS; do test "x$ac_i" = x: && continue # 1. Remove the extension, and $U if already installed. ac_script='s/\$U\././;s/\.o$//;s/\.obj$//' ac_i=`printf "%s\n" "$ac_i" | sed "$ac_script"` # 2. Prepend LIBOBJDIR. When used with automake>=1.10 LIBOBJDIR # will be set to the directory where LIBOBJS objects are built. as_fn_append ac_libobjs " \${LIBOBJDIR}$ac_i\$U.$ac_objext" as_fn_append ac_ltlibobjs " \${LIBOBJDIR}$ac_i"'$U.lo' done LIBOBJS=$ac_libobjs LTLIBOBJS=$ac_ltlibobjs : "${CONFIG_STATUS=./config.status}" ac_write_fail=0 ac_clean_files_save=$ac_clean_files ac_clean_files="$ac_clean_files $CONFIG_STATUS" { printf "%s\n" "$as_me:${as_lineno-$LINENO}: creating $CONFIG_STATUS" >&5 printf "%s\n" "$as_me: creating $CONFIG_STATUS" >&6;} as_write_fail=0 cat >$CONFIG_STATUS <<_ASEOF || as_write_fail=1 #! $SHELL # Generated by $as_me. # Run this file to recreate the current configuration. # Compiler output produced by configure, useful for debugging # configure, is in config.log if it exists. debug=false ac_cs_recheck=false ac_cs_silent=false SHELL=\${CONFIG_SHELL-$SHELL} export SHELL _ASEOF cat >>$CONFIG_STATUS <<\_ASEOF || as_write_fail=1 ## -------------------- ## ## M4sh Initialization. ## ## -------------------- ## # Be more Bourne compatible DUALCASE=1; export DUALCASE # for MKS sh if test ${ZSH_VERSION+y} && (emulate sh) >/dev/null 2>&1 then : emulate sh NULLCMD=: # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' setopt NO_GLOB_SUBST else case e in #( e) case `(set -o) 2>/dev/null` in #( *posix*) : set -o posix ;; #( *) : ;; esac ;; esac fi # Reset variables that may have inherited troublesome values from # the environment. # IFS needs to be set, to space, tab, and newline, in precisely that order. # (If _AS_PATH_WALK were called with IFS unset, it would have the # side effect of setting IFS to empty, thus disabling word splitting.) # Quoting is to prevent editors from complaining about space-tab. as_nl=' ' export as_nl IFS=" "" $as_nl" PS1='$ ' PS2='> ' PS4='+ ' # Ensure predictable behavior from utilities with locale-dependent output. LC_ALL=C export LC_ALL LANGUAGE=C export LANGUAGE # We cannot yet rely on "unset" to work, but we need these variables # to be unset--not just set to an empty or harmless value--now, to # avoid bugs in old shells (e.g. pre-3.0 UWIN ksh). This construct # also avoids known problems related to "unset" and subshell syntax # in other old shells (e.g. bash 2.01 and pdksh 5.2.14). for as_var in BASH_ENV ENV MAIL MAILPATH CDPATH do eval test \${$as_var+y} \ && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : done # Ensure that fds 0, 1, and 2 are open. if (exec 3>&0) 2>/dev/null; then :; else exec 0&1) 2>/dev/null; then :; else exec 1>/dev/null; fi if (exec 3>&2) ; then :; else exec 2>/dev/null; fi # The user is always right. if ${PATH_SEPARATOR+false} :; then PATH_SEPARATOR=: (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || PATH_SEPARATOR=';' } fi # Find who we are. Look in the path if we contain no directory separator. as_myself= case $0 in #(( *[\\/]* ) as_myself=$0 ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac test -r "$as_dir$0" && as_myself=$as_dir$0 && break done IFS=$as_save_IFS ;; esac # We did not find ourselves, most probably we were run as 'sh COMMAND' # in which case we are not to be found in the path. if test "x$as_myself" = x; then as_myself=$0 fi if test ! -f "$as_myself"; then printf "%s\n" "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 exit 1 fi # as_fn_error STATUS ERROR [LINENO LOG_FD] # ---------------------------------------- # Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are # provided, also output the error to LOG_FD, referencing LINENO. Then exit the # script with STATUS, using 1 if that was 0. as_fn_error () { as_status=$1; test $as_status -eq 0 && as_status=1 if test "$4"; then as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 fi printf "%s\n" "$as_me: error: $2" >&2 as_fn_exit $as_status } # as_fn_error # as_fn_set_status STATUS # ----------------------- # Set $? to STATUS, without forking. as_fn_set_status () { return $1 } # as_fn_set_status # as_fn_exit STATUS # ----------------- # Exit the shell with STATUS, even in a "trap 0" or "set -e" context. as_fn_exit () { set +e as_fn_set_status $1 exit $1 } # as_fn_exit # as_fn_unset VAR # --------------- # Portably unset VAR. as_fn_unset () { { eval $1=; unset $1;} } as_unset=as_fn_unset # as_fn_append VAR VALUE # ---------------------- # Append the text in VALUE to the end of the definition contained in VAR. Take # advantage of any shell optimizations that allow amortized linear growth over # repeated appends, instead of the typical quadratic growth present in naive # implementations. if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null then : eval 'as_fn_append () { eval $1+=\$2 }' else case e in #( e) as_fn_append () { eval $1=\$$1\$2 } ;; esac fi # as_fn_append # as_fn_arith ARG... # ------------------ # Perform arithmetic evaluation on the ARGs, and store the result in the # global $as_val. Take advantage of shells that can avoid forks. The arguments # must be portable across $(()) and expr. if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null then : eval 'as_fn_arith () { as_val=$(( $* )) }' else case e in #( e) as_fn_arith () { as_val=`expr "$@" || test $? -eq 1` } ;; esac fi # as_fn_arith if expr a : '\(a\)' >/dev/null 2>&1 && test "X`expr 00001 : '.*\(...\)'`" = X001; then as_expr=expr else as_expr=false fi if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then as_basename=basename else as_basename=false fi if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then as_dirname=dirname else as_dirname=false fi as_me=`$as_basename -- "$0" || $as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ X"$0" : 'X\(//\)$' \| \ X"$0" : 'X\(/\)' \| . 2>/dev/null || printf "%s\n" X/"$0" | sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/ q } /^X\/\(\/\/\)$/{ s//\1/ q } /^X\/\(\/\).*/{ s//\1/ q } s/.*/./; q'` # Avoid depending upon Character Ranges. as_cr_letters='abcdefghijklmnopqrstuvwxyz' as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' as_cr_Letters=$as_cr_letters$as_cr_LETTERS as_cr_digits='0123456789' as_cr_alnum=$as_cr_Letters$as_cr_digits # Determine whether it's possible to make 'echo' print without a newline. # These variables are no longer used directly by Autoconf, but are AC_SUBSTed # for compatibility with existing Makefiles. ECHO_C= ECHO_N= ECHO_T= case `echo -n x` in #((((( -n*) case `echo 'xy\c'` in *c*) ECHO_T=' ';; # ECHO_T is single tab character. xy) ECHO_C='\c';; *) echo `echo ksh88 bug on AIX 6.1` > /dev/null ECHO_T=' ';; esac;; *) ECHO_N='-n';; esac # For backward compatibility with old third-party macros, we provide # the shell variables $as_echo and $as_echo_n. New code should use # AS_ECHO(["message"]) and AS_ECHO_N(["message"]), respectively. as_echo='printf %s\n' as_echo_n='printf %s' rm -f conf$$ conf$$.exe conf$$.file if test -d conf$$.dir; then rm -f conf$$.dir/conf$$.file else rm -f conf$$.dir mkdir conf$$.dir 2>/dev/null fi if (echo >conf$$.file) 2>/dev/null; then if ln -s conf$$.file conf$$ 2>/dev/null; then as_ln_s='ln -s' # ... but there are two gotchas: # 1) On MSYS, both 'ln -s file dir' and 'ln file dir' fail. # 2) DJGPP < 2.04 has no symlinks; 'ln -s' creates a wrapper executable. # In both cases, we have to default to 'cp -pR'. ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || as_ln_s='cp -pR' elif ln conf$$.file conf$$ 2>/dev/null; then as_ln_s=ln else as_ln_s='cp -pR' fi else as_ln_s='cp -pR' fi rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file rmdir conf$$.dir 2>/dev/null # as_fn_mkdir_p # ------------- # Create "$as_dir" as a directory, including parents if necessary. as_fn_mkdir_p () { case $as_dir in #( -*) as_dir=./$as_dir;; esac test -d "$as_dir" || eval $as_mkdir_p || { as_dirs= while :; do case $as_dir in #( *\'*) as_qdir=`printf "%s\n" "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( *) as_qdir=$as_dir;; esac as_dirs="'$as_qdir' $as_dirs" as_dir=`$as_dirname -- "$as_dir" || $as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_dir" : 'X\(//\)[^/]' \| \ X"$as_dir" : 'X\(//\)$' \| \ X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || printf "%s\n" X"$as_dir" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` test -d "$as_dir" && break done test -z "$as_dirs" || eval "mkdir $as_dirs" } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" } # as_fn_mkdir_p if mkdir -p . 2>/dev/null; then as_mkdir_p='mkdir -p "$as_dir"' else test -d ./-p && rmdir ./-p as_mkdir_p=false fi # as_fn_executable_p FILE # ----------------------- # Test if FILE is an executable regular file. as_fn_executable_p () { test -f "$1" && test -x "$1" } # as_fn_executable_p as_test_x='test -x' as_executable_p=as_fn_executable_p # Sed expression to map a string onto a valid CPP name. as_sed_cpp="y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g" as_tr_cpp="eval sed '$as_sed_cpp'" # deprecated # Sed expression to map a string onto a valid variable name. as_sed_sh="y%*+%pp%;s%[^_$as_cr_alnum]%_%g" as_tr_sh="eval sed '$as_sed_sh'" # deprecated exec 6>&1 ## ----------------------------------- ## ## Main body of $CONFIG_STATUS script. ## ## ----------------------------------- ## _ASEOF test $as_write_fail = 0 && chmod +x $CONFIG_STATUS || ac_write_fail=1 cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 # Save the log message, to keep $0 and so on meaningful, and to # report actual input values of CONFIG_FILES etc. instead of their # values after options handling. ac_log=" This file was extended by $as_me, which was generated by GNU Autoconf 2.72. Invocation command line was CONFIG_FILES = $CONFIG_FILES CONFIG_HEADERS = $CONFIG_HEADERS CONFIG_LINKS = $CONFIG_LINKS CONFIG_COMMANDS = $CONFIG_COMMANDS $ $0 $@ on `(hostname || uname -n) 2>/dev/null | sed 1q` " _ACEOF case $ac_config_files in *" "*) set x $ac_config_files; shift; ac_config_files=$*;; esac case $ac_config_headers in *" "*) set x $ac_config_headers; shift; ac_config_headers=$*;; esac cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 # Files that config.status was made for. config_files="$ac_config_files" config_headers="$ac_config_headers" _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 ac_cs_usage="\ '$as_me' instantiates files and other configuration actions from templates according to the current configuration. Unless the files and actions are specified as TAGs, all are instantiated by default. Usage: $0 [OPTION]... [TAG]... -h, --help print this help, then exit -V, --version print version number and configuration settings, then exit --config print configuration, then exit -q, --quiet, --silent do not print progress messages -d, --debug don't remove temporary files --recheck update $as_me by reconfiguring in the same conditions --file=FILE[:TEMPLATE] instantiate the configuration file FILE --header=FILE[:TEMPLATE] instantiate the configuration header FILE Configuration files: $config_files Configuration headers: $config_headers Report bugs to the package provider." _ACEOF ac_cs_config=`printf "%s\n" "$ac_configure_args" | sed "$ac_safe_unquote"` ac_cs_config_escaped=`printf "%s\n" "$ac_cs_config" | sed "s/^ //; s/'/'\\\\\\\\''/g"` cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 ac_cs_config='$ac_cs_config_escaped' ac_cs_version="\\ config.status configured by $0, generated by GNU Autoconf 2.72, with options \\"\$ac_cs_config\\" Copyright (C) 2023 Free Software Foundation, Inc. This config.status script is free software; the Free Software Foundation gives unlimited permission to copy, distribute and modify it." ac_pwd='$ac_pwd' srcdir='$srcdir' test -n "\$AWK" || AWK=awk _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 # The default lists apply if the user does not specify any file. ac_need_defaults=: while test $# != 0 do case $1 in --*=?*) ac_option=`expr "X$1" : 'X\([^=]*\)='` ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` ac_shift=: ;; --*=) ac_option=`expr "X$1" : 'X\([^=]*\)='` ac_optarg= ac_shift=: ;; *) ac_option=$1 ac_optarg=$2 ac_shift=shift ;; esac case $ac_option in # Handling of the options. -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) ac_cs_recheck=: ;; --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) printf "%s\n" "$ac_cs_version"; exit ;; --config | --confi | --conf | --con | --co | --c ) printf "%s\n" "$ac_cs_config"; exit ;; --debug | --debu | --deb | --de | --d | -d ) debug=: ;; --file | --fil | --fi | --f ) $ac_shift case $ac_optarg in *\'*) ac_optarg=`printf "%s\n" "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; '') as_fn_error $? "missing file argument" ;; esac as_fn_append CONFIG_FILES " '$ac_optarg'" ac_need_defaults=false;; --header | --heade | --head | --hea ) $ac_shift case $ac_optarg in *\'*) ac_optarg=`printf "%s\n" "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; esac as_fn_append CONFIG_HEADERS " '$ac_optarg'" ac_need_defaults=false;; --he | --h) # Conflict between --help and --header as_fn_error $? "ambiguous option: '$1' Try '$0 --help' for more information.";; --help | --hel | -h ) printf "%s\n" "$ac_cs_usage"; exit ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil | --si | --s) ac_cs_silent=: ;; # This is an error. -*) as_fn_error $? "unrecognized option: '$1' Try '$0 --help' for more information." ;; *) as_fn_append ac_config_targets " $1" ac_need_defaults=false ;; esac shift done ac_configure_extra_args= if $ac_cs_silent; then exec 6>/dev/null ac_configure_extra_args="$ac_configure_extra_args --silent" fi _ACEOF cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 if \$ac_cs_recheck; then set X $SHELL '$0' $ac_configure_args \$ac_configure_extra_args --no-create --no-recursion shift \printf "%s\n" "running CONFIG_SHELL=$SHELL \$*" >&6 CONFIG_SHELL='$SHELL' export CONFIG_SHELL exec "\$@" fi _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 exec 5>>config.log { echo sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX ## Running $as_me. ## _ASBOX printf "%s\n" "$ac_log" } >&5 _ACEOF cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 # Handling of arguments. for ac_config_target in $ac_config_targets do case $ac_config_target in "config.h") CONFIG_HEADERS="$CONFIG_HEADERS config.h" ;; "Mkinclude") CONFIG_FILES="$CONFIG_FILES Mkinclude" ;; "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;; *) as_fn_error $? "invalid argument: '$ac_config_target'" "$LINENO" 5;; esac done # If the user did not use the arguments to specify the items to instantiate, # then the envvar interface is used. Set only those that are not. # We use the long form for the default assignment because of an extremely # bizarre bug on SunOS 4.1.3. if $ac_need_defaults; then test ${CONFIG_FILES+y} || CONFIG_FILES=$config_files test ${CONFIG_HEADERS+y} || CONFIG_HEADERS=$config_headers fi # Have a temporary directory for convenience. Make it in the build tree # simply because there is no reason against having it here, and in addition, # creating and moving files from /tmp can sometimes cause problems. # Hook for its removal unless debugging. # Note that there is a small window in which the directory will not be cleaned: # after its creation but before its name has been assigned to '$tmp'. $debug || { tmp= ac_tmp= trap 'exit_status=$? : "${ac_tmp:=$tmp}" { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status ' 0 trap 'as_fn_exit 1' 1 2 13 15 } # Create a (secure) tmp directory for tmp files. { tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && test -d "$tmp" } || { tmp=./conf$$-$RANDOM (umask 077 && mkdir "$tmp") } || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5 ac_tmp=$tmp # Set up the scripts for CONFIG_FILES section. # No need to generate them if there are no CONFIG_FILES. # This happens for instance with './config.status config.h'. if test -n "$CONFIG_FILES"; then ac_cr=`echo X | tr X '\015'` # On cygwin, bash can eat \r inside `` if the user requested igncr. # But we know of no other shell where ac_cr would be empty at this # point, so we can use a bashism as a fallback. if test "x$ac_cr" = x; then eval ac_cr=\$\'\\r\' fi ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' /dev/null` if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then ac_cs_awk_cr='\\r' else ac_cs_awk_cr=$ac_cr fi echo 'BEGIN {' >"$ac_tmp/subs1.awk" && _ACEOF { echo "cat >conf$$subs.awk <<_ACEOF" && echo "$ac_subst_vars" | sed 's/.*/&!$&$ac_delim/' && echo "_ACEOF" } >conf$$subs.sh || as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5 ac_delim_num=`echo "$ac_subst_vars" | grep -c '^'` ac_delim='%!_!# ' for ac_last_try in false false false false false :; do . ./conf$$subs.sh || as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5 ac_delim_n=`sed -n "s/.*$ac_delim\$/X/p" conf$$subs.awk | grep -c X` if test $ac_delim_n = $ac_delim_num; then break elif $ac_last_try; then as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5 else ac_delim="$ac_delim!$ac_delim _$ac_delim!! " fi done rm -f conf$$subs.sh cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 cat >>"\$ac_tmp/subs1.awk" <<\\_ACAWK && _ACEOF sed -n ' h s/^/S["/; s/!.*/"]=/ p g s/^[^!]*!// :repl t repl s/'"$ac_delim"'$// t delim :nl h s/\(.\{148\}\)..*/\1/ t more1 s/["\\]/\\&/g; s/^/"/; s/$/\\n"\\/ p n b repl :more1 s/["\\]/\\&/g; s/^/"/; s/$/"\\/ p g s/.\{148\}// t nl :delim h s/\(.\{148\}\)..*/\1/ t more2 s/["\\]/\\&/g; s/^/"/; s/$/"/ p b :more2 s/["\\]/\\&/g; s/^/"/; s/$/"\\/ p g s/.\{148\}// t delim ' >$CONFIG_STATUS || ac_write_fail=1 rm -f conf$$subs.awk cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 _ACAWK cat >>"\$ac_tmp/subs1.awk" <<_ACAWK && for (key in S) S_is_set[key] = 1 FS = "" } { line = $ 0 nfields = split(line, field, "@") substed = 0 len = length(field[1]) for (i = 2; i < nfields; i++) { key = field[i] keylen = length(key) if (S_is_set[key]) { value = S[key] line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3) len += length(value) + length(field[++i]) substed = 1 } else len += 1 + keylen } print line } _ACAWK _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g" else cat fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \ || as_fn_error $? "could not setup config files machinery" "$LINENO" 5 _ACEOF # VPATH may cause trouble with some makes, so we remove sole $(srcdir), # ${srcdir} and @srcdir@ entries from VPATH if srcdir is ".", strip leading and # trailing colons and then remove the whole line if VPATH becomes empty # (actually we leave an empty line to preserve line numbers). if test "x$srcdir" = x.; then ac_vpsub='/^[ ]*VPATH[ ]*=[ ]*/{ h s/// s/^/:/ s/[ ]*$/:/ s/:\$(srcdir):/:/g s/:\${srcdir}:/:/g s/:@srcdir@:/:/g s/^:*// s/:*$// x s/\(=[ ]*\).*/\1/ G s/\n// s/^[^=]*=[ ]*$// }' fi cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 fi # test -n "$CONFIG_FILES" # Set up the scripts for CONFIG_HEADERS section. # No need to generate them if there are no CONFIG_HEADERS. # This happens for instance with './config.status Makefile'. if test -n "$CONFIG_HEADERS"; then cat >"$ac_tmp/defines.awk" <<\_ACAWK || BEGIN { _ACEOF # Transform confdefs.h into an awk script 'defines.awk', embedded as # here-document in config.status, that substitutes the proper values into # config.h.in to produce config.h. # Create a delimiter string that does not exist in confdefs.h, to ease # handling of long lines. ac_delim='%!_!# ' for ac_last_try in false false :; do ac_tt=`sed -n "/$ac_delim/p" confdefs.h` if test -z "$ac_tt"; then break elif $ac_last_try; then as_fn_error $? "could not make $CONFIG_HEADERS" "$LINENO" 5 else ac_delim="$ac_delim!$ac_delim _$ac_delim!! " fi done # For the awk script, D is an array of macro values keyed by name, # likewise P contains macro parameters if any. Preserve backslash # newline sequences. ac_word_re=[_$as_cr_Letters][_$as_cr_alnum]* sed -n ' s/.\{148\}/&'"$ac_delim"'/g t rset :rset s/^[ ]*#[ ]*define[ ][ ]*/ / t def d :def s/\\$// t bsnl s/["\\]/\\&/g s/^ \('"$ac_word_re"'\)\(([^()]*)\)[ ]*\(.*\)/P["\1"]="\2"\ D["\1"]=" \3"/p s/^ \('"$ac_word_re"'\)[ ]*\(.*\)/D["\1"]=" \2"/p d :bsnl s/["\\]/\\&/g s/^ \('"$ac_word_re"'\)\(([^()]*)\)[ ]*\(.*\)/P["\1"]="\2"\ D["\1"]=" \3\\\\\\n"\\/p t cont s/^ \('"$ac_word_re"'\)[ ]*\(.*\)/D["\1"]=" \2\\\\\\n"\\/p t cont d :cont n s/.\{148\}/&'"$ac_delim"'/g t clear :clear s/\\$// t bsnlc s/["\\]/\\&/g; s/^/"/; s/$/"/p d :bsnlc s/["\\]/\\&/g; s/^/"/; s/$/\\\\\\n"\\/p b cont ' >$CONFIG_STATUS || ac_write_fail=1 cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 for (key in D) D_is_set[key] = 1 FS = "" } /^[\t ]*#[\t ]*(define|undef)[\t ]+$ac_word_re([\t (]|\$)/ { line = \$ 0 split(line, arg, " ") if (arg[1] == "#") { defundef = arg[2] mac1 = arg[3] } else { defundef = substr(arg[1], 2) mac1 = arg[2] } split(mac1, mac2, "(") #) macro = mac2[1] prefix = substr(line, 1, index(line, defundef) - 1) if (D_is_set[macro]) { # Preserve the white space surrounding the "#". print prefix "define", macro P[macro] D[macro] next } else { # Replace #undef with comments. This is necessary, for example, # in the case of _POSIX_SOURCE, which is predefined and required # on some systems where configure will not decide to define it. if (defundef == "undef") { print "/*", prefix defundef, macro, "*/" next } } } { print } _ACAWK _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 as_fn_error $? "could not setup config headers machinery" "$LINENO" 5 fi # test -n "$CONFIG_HEADERS" eval set X " :F $CONFIG_FILES :H $CONFIG_HEADERS " shift for ac_tag do case $ac_tag in :[FHLC]) ac_mode=$ac_tag; continue;; esac case $ac_mode$ac_tag in :[FHL]*:*);; :L* | :C*:*) as_fn_error $? "invalid tag '$ac_tag'" "$LINENO" 5;; :[FH]-) ac_tag=-:-;; :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; esac ac_save_IFS=$IFS IFS=: set x $ac_tag IFS=$ac_save_IFS shift ac_file=$1 shift case $ac_mode in :L) ac_source=$1;; :[FH]) ac_file_inputs= for ac_f do case $ac_f in -) ac_f="$ac_tmp/stdin";; *) # Look for the file first in the build tree, then in the source tree # (if the path is not absolute). The absolute path cannot be DOS-style, # because $ac_f cannot contain ':'. test -f "$ac_f" || case $ac_f in [\\/$]*) false;; *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; esac || as_fn_error 1 "cannot find input file: '$ac_f'" "$LINENO" 5;; esac case $ac_f in *\'*) ac_f=`printf "%s\n" "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac as_fn_append ac_file_inputs " '$ac_f'" done # Let's still pretend it is 'configure' which instantiates (i.e., don't # use $as_me), people would be surprised to read: # /* config.h. Generated by config.status. */ configure_input='Generated from '` printf "%s\n" "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' `' by configure.' if test x"$ac_file" != x-; then configure_input="$ac_file. $configure_input" { printf "%s\n" "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 printf "%s\n" "$as_me: creating $ac_file" >&6;} fi # Neutralize special characters interpreted by sed in replacement strings. case $configure_input in #( *\&* | *\|* | *\\* ) ac_sed_conf_input=`printf "%s\n" "$configure_input" | sed 's/[\\\\&|]/\\\\&/g'`;; #( *) ac_sed_conf_input=$configure_input;; esac case $ac_tag in *:-:* | *:-) cat >"$ac_tmp/stdin" \ || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; esac ;; esac ac_dir=`$as_dirname -- "$ac_file" || $as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$ac_file" : 'X\(//\)[^/]' \| \ X"$ac_file" : 'X\(//\)$' \| \ X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || printf "%s\n" X"$ac_file" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` as_dir="$ac_dir"; as_fn_mkdir_p ac_builddir=. case "$ac_dir" in .) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_dir_suffix=/`printf "%s\n" "$ac_dir" | sed 's|^\.[\\/]||'` # A ".." for each directory in $ac_dir_suffix. ac_top_builddir_sub=`printf "%s\n" "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` case $ac_top_builddir_sub in "") ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; esac ;; esac ac_abs_top_builddir=$ac_pwd ac_abs_builddir=$ac_pwd$ac_dir_suffix # for backward compatibility: ac_top_builddir=$ac_top_build_prefix case $srcdir in .) # We are building in place. ac_srcdir=. ac_top_srcdir=$ac_top_builddir_sub ac_abs_top_srcdir=$ac_pwd ;; [\\/]* | ?:[\\/]* ) # Absolute name. ac_srcdir=$srcdir$ac_dir_suffix; ac_top_srcdir=$srcdir ac_abs_top_srcdir=$srcdir ;; *) # Relative name. ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix ac_top_srcdir=$ac_top_build_prefix$srcdir ac_abs_top_srcdir=$ac_pwd/$srcdir ;; esac ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix case $ac_mode in :F) # # CONFIG_FILE # _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 # If the template does not know about datarootdir, expand it. # FIXME: This hack should be removed a few years after 2.60. ac_datarootdir_hack=; ac_datarootdir_seen= ac_sed_dataroot=' /datarootdir/ { p q } /@datadir@/p /@docdir@/p /@infodir@/p /@localedir@/p /@mandir@/p' case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in *datarootdir*) ac_datarootdir_seen=yes;; *@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 printf "%s\n" "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} _ACEOF cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 ac_datarootdir_hack=' s&@datadir@&$datadir&g s&@docdir@&$docdir&g s&@infodir@&$infodir&g s&@localedir@&$localedir&g s&@mandir@&$mandir&g s&\\\${datarootdir}&$datarootdir&g' ;; esac _ACEOF # Neutralize VPATH when '$srcdir' = '.'. # Shell code in configure.ac might set extrasub. # FIXME: do we really want to maintain this feature? cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 ac_sed_extra="$ac_vpsub $extrasub _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 :t /@[a-zA-Z_][a-zA-Z_0-9]*@/!b s|@configure_input@|$ac_sed_conf_input|;t t s&@top_builddir@&$ac_top_builddir_sub&;t t s&@top_build_prefix@&$ac_top_build_prefix&;t t s&@srcdir@&$ac_srcdir&;t t s&@abs_srcdir@&$ac_abs_srcdir&;t t s&@top_srcdir@&$ac_top_srcdir&;t t s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t s&@builddir@&$ac_builddir&;t t s&@abs_builddir@&$ac_abs_builddir&;t t s&@abs_top_builddir@&$ac_abs_top_builddir&;t t $ac_datarootdir_hack " eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \ >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5 test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } && { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \ "$ac_tmp/out"`; test -z "$ac_out"; } && { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable 'datarootdir' which seems to be undefined. Please make sure it is defined" >&5 printf "%s\n" "$as_me: WARNING: $ac_file contains a reference to the variable 'datarootdir' which seems to be undefined. Please make sure it is defined" >&2;} rm -f "$ac_tmp/stdin" case $ac_file in -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";; *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";; esac \ || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; :H) # # CONFIG_HEADER # if test x"$ac_file" != x-; then { printf "%s\n" "/* $configure_input */" >&1 \ && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" } >"$ac_tmp/config.h" \ || as_fn_error $? "could not create $ac_file" "$LINENO" 5 if diff "$ac_file" "$ac_tmp/config.h" >/dev/null 2>&1; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5 printf "%s\n" "$as_me: $ac_file is unchanged" >&6;} else rm -f "$ac_file" mv "$ac_tmp/config.h" "$ac_file" \ || as_fn_error $? "could not create $ac_file" "$LINENO" 5 fi else printf "%s\n" "/* $configure_input */" >&1 \ && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" \ || as_fn_error $? "could not create -" "$LINENO" 5 fi ;; esac done # for ac_tag as_fn_exit 0 _ACEOF ac_clean_files=$ac_clean_files_save test $ac_write_fail = 0 || as_fn_error $? "write failure creating $CONFIG_STATUS" "$LINENO" 5 # configure is writing to config.log, and then calls config.status. # config.status does its own redirection, appending to config.log. # Unfortunately, on DOS this fails, as config.log is still kept open # by configure, so config.status won't be able to write to it; its # output is simply discarded. So we exec the FD to /dev/null, # effectively closing config.log, so it can be properly (re)opened and # appended to by config.status. When coming back to configure, we # need to make the FD available again. if test "$no_create" != yes; then ac_cs_success=: ac_config_status_args= test "$silent" = yes && ac_config_status_args="$ac_config_status_args --quiet" exec 5>/dev/null $SHELL $CONFIG_STATUS $ac_config_status_args || ac_cs_success=false exec 5>>config.log # Use ||, not &&, to avoid exiting from the if with $? = 1, which # would make configure fail if this is the last instruction. $ac_cs_success || as_fn_exit 1 fi if test -n "$ac_unrecognized_opts" && test "$enable_option_checking" != no; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: unrecognized options: $ac_unrecognized_opts" >&5 printf "%s\n" "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2;} fi dcl-7.5.2/config.h.in0000644000175000017500000000053214760053155014154 0ustar uwabamiuwabami/* config.h.in. Generated automatically from configure.in by autoheader. */ /* Define if you have the header file. */ #undef HAVE_GTK_H /* Define if you have the header file. */ #undef HAVE_GDK_PIXBUF_H /* Define if you have the header file. */ #undef HAVE_GDK_IMLIB_H #undef DCL_INT #undef DCL_REAL dcl-7.5.2/.gitignore0000644000175000017500000000313214760053155014120 0ustar uwabamiuwabamia.out *~ *.o *.log /Makefile /Mkinclude dcl.pdf dcl.ps dcl*.png bin/dclcc bin/dclclr bin/dclcmap bin/dclconfig* bin/dcldate bin/dcldbs bin/dclexec bin/dclfont bin/dclfrt bin/dclpara bin/dclps2kdraw bin/dclpscat bin/dclpsfix bin/dclpsfont bin/dclpsline bin/dclpsmargin bin/dclpsmerge bin/dclpsnup bin/dclpsrgb2cmyk bin/dclpsrmcm bin/dclpsrot bin/dclpsselect bin/dclpsseparate bin/dclpsunrot bin/dcltone bin/dcltrf bin/dclver bin/repsl /config.h /config.log /config.status lib/dcldbase/ lib/libf77dcl*.a src/env1/bitmap/bitmap.x11 src/env1/bitmap/bmcx11 src/env1/fonts/cvfont src/env1/fonts/font1u src/env1/fonts/font2u src/env1/mapdata/border_world src/env1/mapdata/coast_japan src/env1/mapdata/coast_world src/env1/mapdata/coast_world_1 src/env1/mapdata/coast_world_1.asc src/env1/mapdata/cvmapd src/env1/mapdata/plate_world src/env1/mapdata/pref_japan src/env1/mapdata/rmapd1 src/env1/mapdata/state_usa src/env2/dclclr/dclclr src/env2/dclcmap/dclcmap src/env2/dcldate/dcldate src/env2/dcldbs/dcldbs src/env2/dclexec/dclexec src/env2/dclfont/dclfont src/env2/dclpara/dclpara src/env2/dcltone/dcltone src/env2/dcltrf/dcltrf src/env2/dclver/dclver src/env2/repsl/repsl src/grph1/csgi/csgi.f src/grph1/csgi/isgc.f src/grph1/swpack/swiqnp.f src/grph2/uwpack/ruwgx.f src/grph2/uwpack/ruwgy.f src/grph2/uwpack/uwqgxi.f src/grph2/uwpack/uwqgyi.f src/grph2/uwpack/uwsgxa.f src/grph2/uwpack/uwsgya.f src/math1/gt2dlib/g2fctr.f src/math1/oslib/osabrt.c src/math1/oslib/osexec.c src/math1/oslib/osgarg.f90 src/math1/oslib/osgenv.c src/math1/oslib/osqarn.f90 src/math1/syslib/glcqnp.f src/math1/syslib/gliqnp.f src/math1/syslib/glrqnp.f dcl-7.5.2/bin/0000755000175000017500000000000014760053155012701 5ustar uwabamiuwabamidcl-7.5.2/bin/dclfrt.org0000755000175000017500000000045714760053155014701 0ustar uwabamiuwabami#!/bin/sh # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # export PATH="@PATH@:$PATH" ldflags=`dclconfig --ldflags` ldlibs=`dclconfig --ldlibs` fc=`dclconfig --fc` fflags=`dclconfig --fflags` newargv="$fc $fflags" newargv="$newargv $@ $ldflags $ldlibs" echo "$newargv" $newargv dcl-7.5.2/bin/Makefile.win0000644000175000017500000000117314760053155015137 0ustar uwabamiuwabami# # Makefile for bin # # Copyright (C) 2000 GFD Dennou Club. All rights reserved. # SUBDIRS = !include ../MkInclude.win build: @$(MAKE) /$(MAKEFLAGS) /NOLOGO /S /f makefile.win subdirs \ SUBDIRS_PRETARGET=build-exec build-exec: @echo Entering bin install: @$(MAKE) /$(MAKEFLAGS) /NOLOGO /S /f makefile.win subdirs \ SUBDIRS_POSTTARGET=install-exec install-exec-unique: $(CP) setenv.vbs $(PREFIX)"\bin" $(CP) dclfvars.bat $(PREFIX)"\bin" clean: $(MAKE) /$(MAKEFLAGS) /NOLOGO /S /f makefile.win subdirs \ SUBDIRS_PRETARGET=clean-exec clean-exec-unique: dcl-7.5.2/bin/Makefile0000644000175000017500000000372514760053155014350 0ustar uwabamiuwabami# # Makefile for bin # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # include ../Mkinclude LIBSRCS = $(DCLCONFVER) $(DCLFRT) INSTSRC = dcldate$(EXT) dclver$(EXT) dclexec$(EXT) dcltrf$(EXT) \ dclclr$(EXT) dcldbs$(EXT) dclfont$(EXT) dclpara$(EXT) \ dcltone$(EXT) dclcmap$(EXT) repsl$(EXT) \ dclfontlist$(EXT) dclsysfont$(EXT) dclfontdialog$(EXT) \ dclsrv$(EXT) \ all: $(DCLCONFVER) $(DCLFRT) $(DCLCONFVER): dclconfig.org @echo "Making shell script $(DCLCONFVER)" @$(SED) \ -e 's!@prefix@!$(prefix)!' \ -e 's!@DCLVERSION@!$(DCLVERSION)!' \ -e 's!@DCLVERNUM@!$(DCLVERNUM)!' \ -e 's!@DCLLANG@!$(DCLLANG)!' \ -e 's!@BINDIR@!$(BINDIR)!' \ -e 's!@LIBDIR@!$(LIBDIR)!' \ -e 's!@INCDIR@!$(INCDIR)!' \ -e 's!@DCLLIBNAME@!$(DCLLIBNAME)!' \ -e 's!@DCLLIBFILE@!$(DCLLIBFILE)!' \ -e 's!@DCLLIBOPT@!$(DCLLIBOPT)!' \ -e 's!@DCLLIBPATH@!$(DCLLIBPATH)!' \ -e 's!@DBASENAME@!$(DBASENAME)!' \ -e 's!@DBASEDIR@!$(DBASEDIR)!' \ -e 's!@XINCPATH@!$(XINCPATH)!' \ -e 's!@XLIBPATH@!$(XLIBPATH)!' \ -e 's!@XLIBOPT@!$(XLIBOPT)!' \ -e 's!@CC@!$(CC)!' \ -e 's!@CFLAGS@!$(CFLAGS)!' \ -e 's!@FC@!$(FC)!' \ -e 's!@FFLAGS@!$(FFLAGS)!' \ -e 's!@LDFLAGS@!$(LDFLAGS)!' \ -e 's!@LDLIBS@!$(LDLIBS)!' \ -e 's!@GTKVERSION@!$(GTKVERSION)!' \ dclconfig.org > $(DCLCONFVER) @chmod +x $(DCLCONFVER) $(DCLFRT): dclfrt.org @echo "Making shell script $(DCLFRT)" @sed -e 's!@PATH@!$(BINDIR)!' dclfrt.org > $(DCLFRT) @chmod +x $(DCLFRT) install: @-if (test $(BINDIR) != $(LBINDIR)) then \ $(CP) $(LIBSRCS) $(BINDIR); fi @-if [ -e dcldate$(EXT) ] ; then \ $(CP) $(INSTSRC) $(BINDIR) ; fi $(RM) $(BINDIR)/$(DCLCONFIG) ln -s $(DCLCONFVER) $(BINDIR)/$(DCLCONFIG) clean: $(RM) *~ $(INSTSRC) $(DCLCONFIG) $(DCLCONFVER) $(DCLFRT) $(DCLCC) distclean: $(RM) *~ $(INSTSRC) $(DCLCONFIG) $(DCLCONFVER) $(DCLFRT) $(DCLCC) dcl-7.5.2/bin/setenv.vbs0000644000175000017500000001170014760053155014720 0ustar uwabamiuwabami'----------------------------------- Option Explicit Dim strKeyroot Dim strKeyname Dim KeySet Dim MaxVersion Dim strGFDCroot Dim strGFDCname Dim ENV Dim package Dim VFPATH Dim VFENV Dim FC Dim WSHShell Dim objFSO ' FileSystemObject Dim objFile ' 繝輔ぃ繧、繝ォ譖ク縺崎セシ縺ソ逕ィ Dim strDCLValue Dim strVFValue Dim Keyname Dim Ret FC = "ifort /MD " VFENV = "ifortvars.bat" 'Set Registry Key Root Set KeySet = CreateObject("Scripting.Dictionary") If Is64() then strKeyroot = "SoftWare\Wow6432Node\Intel\Compilers\Fortran" strGFDCroot = "Software\Wow6432Node\GFD_Dennou_Club\Fortran" Else strKeyroot = "SoftWare\Intel\Compilers\Fortran" strGFDCroot = "Software\GFD_Dennou_Club\Fortran" End If KeySet = GetRegValueArray(strKeyroot) MaxVersion = GetMaxVersion(KeySet) strKeyroot = strKeyroot & "\" & MaxVersion ' 莉・荳九?繧ゅ?繧定ェュ縺ソ蜃コ縺励※SETENV.BAT 縺ォ譖ク縺榊?縺励※縺?¥縺ィ蜷梧凾縺ォ ' 迺ー蠅?、画焚縺ォ險ュ螳壹☆繧具シ? strDCLValue = Array("DLIB", "DWBIN", "GL:DSPATH", "GTKPATH") strVFValue = Array("FC", "VFENV", "VFPATH") Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("setenv.bat", 2, True) For Each Keyname In strDCLValue Ret = GetRegValue(strGFDCroot,Keyname) objFile.Write("set " & Keyname & "=" & Ret & vbCrLf) Next ' GTK 髢「騾」 objFile.Write("@set GTK_INC=%GTKPATH%\include;%GTKPATH%\include\gtk-2.0;%GTKPATH%\include\glib-2.0;%GTKPATH%\include\pango-1.0;%GTKPATH%\include\atk-1.0;%GTKPATH%\include\cairo;%GTKPATH%\include\fontconfig;%GTKPATH%\include\freetype2;%GTKPATH%\include\gail-1.0;%GTKPATH%\include\gdk-pixbuf-2.0;%GTKPATH%\include\gio-win32-2.0;%GTKPATH%\include\libpng14;%GTKPATH%\include\pixman-1;%GTKPATH%\lib\gtk-2.0\include;%GTKPATH%\lib\glib-2.0\include;%INCLUDE%" & vbCrLf) objFile.Write("@SET INCLUDE=%INCLUDE%;%GTK_INC%" & vbCrLf) objFile.Write("@SET GTK_LIB=%GTKPATH%\lib" & vbCrLf) objFile.Write("@SET LIB=%LIB%;%GTK_LIB%" & vbCrLf) objFile.Write("@SET GTKLIB_NAME=pango-1.0.lib pangoft2-1.0.lib pangowin32-1.0.lib atk-1.0.lib gdk_pixbuf-2.0.lib gdk-win32-2.0.lib gtk-win32-2.0.lib glib-2.0.lib gmodule-2.0.lib gobject-2.0.lib gthread-2.0.lib iconv.lib" & vbCrLf) objFile.Write("set " & "PATH" & "=" & "%PATH%;%GTKPATH%\bin" & vbCrLf) '莉翫?繝舌?繧ク繝ァ繝ウ縺ァ縺ッ縺昴≧縺ェ縺」縺ヲ縺?↑縺?′縲(fort 縺悟ョ溯。後〒縺阪↑縺?→縺阪□縺?'險ュ螳壹☆繧九h縺?↓縺励◆縺?? VFPATH = GetRegValue(strKeyroot,"ProductDir") objFile.Write("set " & "FC" & "=" & FC & vbCrLf) objFile.Write("set " & "PATH" & "=" & "%PATH%;%DWBIN%" & vbCrLf) objFile.Write("@IF ""%1""==""MACRO"" goto macro" & vbCrLf) objFile.Write("@goto comline"& vbCrLf) objFile.Write(":macro"& vbCrLf) objFile.Write("call """ & VFPATH & "\BIN\" & VFENV & _ """" & " ia32" & vbCrLf) objFile.Write("goto end" & vbCrLf) objFile.Write(":comline"& vbCrLf) objFile.Write("%comspec% /k """ & VFPATH & "\BIN\" & _ VFENV & """" & " ia32" & vbCrLf) objFile.Write(":end" & vbCrLf) 'Get EnvironmentValue '' strKeyname = "ProductDir" '' Ret = GetRegValue(strKeyroot,strKeyname) '' strGFDCname = "DLIB" '' Ret = GetRegValue(strGFDCroot,strGFDCname) '繝輔ぃ繧、繝ォ縺ォ蜃コ蜉?"set " & strGFDCname & "=" & Ret objFile.Close ' 繝輔ぃ繧、繝ォ繝上Φ繝峨Ν繧偵け繝ュ繝シ繧コ縺吶k縲?Set objFile = Nothing Set objFSO = Nothing '縺薙?蜈医↓髢「謨ー繧剃クヲ縺ケ縺ヲ縺?¥ Function GetRegValue(strKeyroot,strKeyname) Dim WshShell Set WshShell = WScript.CreateObject("WScript.Shell") GetRegValue = WshShell.RegRead("HKLM" & "\" & strKeyroot & "\" & strKeyname) Set WshShell = Nothing End Function Function GetRegValueArray(strKeyname) Dim Wcls Dim Locator Dim Service Dim Ret Dim KeySet Dim Key Dim MaxVersion Dim Version Const HKEY_CURRENT_USER = &H80000001 Const HKEY_LOCAL_MACHINE = &H80000002 Set Locator = WScript.CreateObject ("WbemScripting.SWbemLocator") Set Service = Locator.ConnectServer(vbNullString, "root\default") Set Wcls = Service.Get("StdRegProv") Wcls.EnumKey HKEY_LOCAL_MACHINE, strKeyname ,KeySet GetRegValueArray=KeySet Set Wcls = Nothing Set Service = Nothing Set Locator = Nothing End Function Function Is64() Dim softwares Dim Key Dim SystemBits SystemBits = False Set softwares = CreateObject("Scripting.Dictionary") softwares = GetRegValueArray("Software") For Each Key In softwares If Key = "Wow6432Node" Then SystemBits = True End If Next Is64 = SystemBits End Function Function GetMaxVersion(KeySet) Dim MaxVersion Dim Key Dim Ret Dim Version MaxVersion = 0 For Each Key In KeySet Ret = Ret & Key & vbCrLf If IsNumeric(Key) Then Version = CSng(Key) Else Version = 0 End If If Version > MaxVersion Then MaxVersion = Version End If Next GetMaxVersion = Version end Function dcl-7.5.2/bin/dclconfig.org0000755000175000017500000000412214760053155015344 0ustar uwabamiuwabami#!/bin/sh # # Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved. # prefix="@prefix@" dclversion="@DCLVERSION@" dclvernum="@DCLVERNUM@" dcllang="@DCLLANG@" bindir="@BINDIR@" libdir="@LIBDIR@" incdir="@INCDIR@" dcllibname="@DCLLIBNAME@" dcllibfile="@DCLLIBFILE@" dcllibopt="@DCLLIBOPT@" dcllibpath="@DCLLIBPATH@" dbasename="@DBASENAME@" dbasedir="@DBASEDIR@" xincpath="@XINCPATH@" xlibpath="@XLIBPATH@" xlibopt="@XLIBOPT@" cc="@CC@" cflags="@CFLAGS@" fc="@FC@" fflags="@FFLAGS@" ldflags="@LDFLAGS@" ldlibs="@LDLIBS@" gtkversion="@GTKVERSION@" usage() { cat <&2 fi while test $# -gt 0; do case $1 in --prefix) echo $prefix ;; --dclversion) echo $dclversion ;; --dclvernum) echo $dclvernum ;; --dcllang) echo $dcllang ;; --bindir) echo $bindir ;; --libdir) echo $libdir ;; --incdir) echo $incdir ;; --dcllibname) echo $dcllibname ;; --dcllibfile) echo $dcllibfile ;; --dcllibopt) echo $dcllibopt ;; --dcllibpath) echo $dcllibpath ;; --dbasename) echo $dbasename ;; --dbasedir) echo $dbasedir ;; --xincpath) echo $xincpath ;; --xlibpath) echo $xlibpath ;; --xlibopt) echo $xlibopt ;; --cc) echo $cc ;; --cflags) echo $cflags ;; --fc) echo $fc ;; --fflags) echo $fflags ;; --ldflags) echo $ldflags ;; --ldlibs) echo $ldlibs ;; --gtkversion) echo $gtkversion ;; *) usage 1 1>&2 ;; esac shift done dcl-7.5.2/doc/0000755000175000017500000000000014760053155012676 5ustar uwabamiuwabamidcl-7.5.2/doc/etc/0000755000175000017500000000000014760053155013451 5ustar uwabamiuwabamidcl-7.5.2/doc/etc/Makefile.win0000644000175000017500000000146514760053155015713 0ustar uwabamiuwabami# # Makefile for dcl-5.9x # ##all: ## platex *.tex # # Makefile for grph1 # ROOTDIR = ..\.. PACKNAME = etc SUBDIRS = gaiyou pslib texsty !include $(ROOTDIR)\MkInclude.win build: @$(MAKE) /$(MAKEFLAGS) /NOLOGO /S /f makefile.win subdirs \ SUBDIRS_POSTTARGET=build-exec build-exec: $(DVINAME) $(PDFNAME) @echo Entering etc copy $(ROOTDIR)\CREDITS.tex . copy $(ROOTDIR)\CREDITS.tex . $(LATEX) $(PACKNAME).tex $(LATEX) $(PACKNAME).tex $(DVIPDF) $(PACKNAME).dvi del CREDITS.tex HISTORY.tex install: @$(MAKE) /$(MAKEFLAGS) /NOLOGO /S /f makefile.win subdirs \ SUBDIRS_PRETARGET=install-exec install-exec-unique: move *.pdf .. clean: @$(MAKE) /$(MAKEFLAGS) /NOLOGO /S /f makefile.win subdirs \ SUBDIRS_PRETARGET=clean-exec clean-exec-unique: dcl-7.5.2/doc/etc/pslib/0000755000175000017500000000000014760053155014562 5ustar uwabamiuwabamidcl-7.5.2/doc/etc/pslib/Makefile.win0000644000175000017500000000074714760053155017026 0ustar uwabamiuwabami# # Makefile for grph1/append # ROOTDIR = ../../.. !include $(ROOTDIR)\MkInclude.win build: $(MAKE) /$(MAKEFLAGS) /NOLOGO /S /f makefile.win subdirs \ SUBDIRS_POSTTARGET=build-exec build-exec: install: $(MAKE) /$(MAKEFLAGS) /NOLOGO /S /f makefile.win subdirs \ SUBDIRS_PRETARGET=install-exec install-exec-unique: clean: $(MAKE) /$(MAKEFLAGS) /NOLOGO /S /f makefile.win subdirs \ SUBDIRS_PRETARGET=clean-exec clean-exec-unique: dcl-7.5.2/doc/etc/pslib/pslib.tex0000644000175000017500000005164414760053155016427 0ustar uwabamiuwabami%表題 ETC 便利な道具たち % %履歴 %\Drireki{ % 92/03/26 沼口 敦 % 92/04/22 林祥介 (4.1版) % 94/03/31(numaguti) 沼口 敦 (dclps初版) % 03/02/05(kagimoto) 鍵本 崇 % } % % \Dchapter{PS出力の加工} \Dchapterhead \label{PS加工} \section{はじめに} ここでは, 電脳ライブラリのPostScript出力(dcl.ps)を 各種目的のために加工する方法と, そのための道具(pslib)に付いて述べる. \begin{enumerate} \item ページの抜きだし \item \LaTeX{}への組み込み \item 描画ツールによる編集 \end{enumerate} これらの方法は環境に大きく依存する. 以下で述べる手順を実行するために必要な環境を列挙する. \begin{enumerate} \item Unix 環境: Windows環境への移植も, 描画ツールによる編集を除き容易であろう. \item AWK処理系: Unix には, 標準で{\tt /bin/awk}および{\tt /bin/nawk}が 付属している. 通常使われるAWKは{\tt /bin/nawk}であり, 基本的に{\tt /bin/awk}の上位互換であるため, ここでは, {\tt /bin/nawk}を用いる. {\tt jgawk}(GNU版AWK)を用いてもよい. \item \LaTeX{}処理系: 以下では, ASCII版日本語\LaTeX{}を仮定する.(要確認) \item {\tt epsf.sty}: PSファイルを\LaTeX{}に組み込む時に 便利な機能を提供するスタイルファイル. \LaTeX の標準スタイルファイルを置くディレクトリまたは 環境変数{\tt TEXINPUTS}の示すディレクトリに入れておく. このツールは、もはやない. \item {\tt dvi2ps}: DVIファイルをポストスクリプトに変換するフィルタ. 以下では, 日本語化された, {\tt dvi2ps-j} を仮定する. このツールについてはdvipdfmxを推奨するようになる予定である. \footnote{ここでは述べないが, {\tt postscript.sty + pstex + jdvi2kps} の組み合わせでも使用可能である.}. \item Xウィンドウ環境: X11R4以上. \item {\tt idraw}: 対話型描画ツールとして, 以下では, 日本語化された{\tt idraw}である{\tt kdraw} \footnote{idraw はX11/contribに付属するC++ ライブラリであるInterviewsに含まれる. コンパイルにはg++などのC++コンパイラが必要である.} を仮定する. \item ポストスクリプト出力が可能なプリンタ. もしくは {\tt ghostscript} などのポストスクリプトインタプリタ. \end{enumerate} 以下に述べるコマンドは, パスの通ったディレクトリに入れ, 実行可能フラグを立てておくとよい. {\tt /bin/nawk} 以外のAWK処理系を使用する場合は, 1行目を書換えること. \section{dclpsselect : dcl.psのページ抜きだし} %\label{pslib.dclpsselect} 複数ページを含む dcl.ps から特定のページを抜き出す場合には, {\tt dclpsselect} を使用する. 以下で述べる\LaTeX の取り込み, 描画ツールでの編集をするためには, 1ページがひとつのファイルになっている必要があるため, 場合によりこの作業が前段階として必要になる. \subsection{dclpsselect} \label{pslib.dclpsselect.cmd} \begin{enumerate} \item 機能 \begin{quote} dcl.ps から特定の1ページを抜きだし, 標準出力に出力する. \end{quote} \item 使用方法 \begin{quote} {\tt dclpsselect }{\em [p=,...] [from=] [to=] } Options: + from : select range of page from: [0] + to : select range of page to: [0] + p : select pages [0] \end{quote} \item 備考 \begin{enumerate} \item 1つのファイルの中に複数ページのPSが入っている場合, それからある特 定の複数のページ, またはある範囲のページを選択する. p オプションで 指定する複数のページリストは昇順でなければならない. \end{enumerate} \end{enumerate} \section{dclpsrot : dcl.psの\TeX{}への組み込み} \label{pslib.dclps2tex} dcl.psを\TeX{}に組み込む手順の概略は 以下の通りである. \begin{enumerate} \item 必要であれば, {\tt dcl.ps}に回転その他の加工を行い, {\tt Boundingbox}コメントを調整する. \item \LaTeX のスタイルオプションとして {\tt graphicx.sty} を指定し, \verb!\includegraohics! コマンドで {\tt dcl.ps} ファイルを指定する. \end{enumerate} 詳しい手順を以下に記す. \begin{enumerate} \item {\tt dcl.ps}を以下のように加工する. \begin{enumerate} \item 横長画面の場合({\tt IWS>0}). \begin{enumerate} \item 1行めの \verb/%! dclps OUTPUT FOR POSTSCRIPT FILE./ の後に, ( \verb!%%BoundingBox...!というコメントがすでにあれば それを取り除き), \verb!%%BoundingBox: -1 -1 751 531! という行を入れる. これは, PSファイルに含まれる座標の範囲を {\tt graphicx.sty}に知らせるためのコメントである. \item 25行目付近にある, \verb!562 44 translate! \\ \verb!+90 rotate! を取り除くか, 行の先頭に \verb!%!を挿入して コメントアウトする. \item ハードフィルを用いている場合, 20行目付近にある, {\tt /P1}, {\tt /P2} 等の定義を 以下の様に書き換える. \begin{verbatim} /P3 {{pop}} def /P4 {{rightup}} def /P1 {{exch pop}} def /P2 {{rightdown}} def \end{verbatim} すなわち, {\tt P1}と{\tt P3}, {\tt P2}と{\tt P4}を とりかえる. \end{enumerate} これらの作業は \footnote{PSは縦長画面が標準であり, 横長画面の場合には PSを90度回転させて出力していることから, このような元に戻す作業が必要となっている.} 後述の{\tt dclpsrot}コマンドによって 行うことができる. \item 縦長画面の場合({\tt IWS<0}). \begin{enumerate} \item 1行めの \verb/%! dclps OUTPUT FOR POSTSCRIPT FILE./ の後に, \verb!%%BoundingBox: 31 43 563 795! という行を入れる. これは, PSファイルに含まれる座標の範囲を {\tt graphicx.sty}に知らせるためのコメントである. ただし, このコメントは標準で入っているものであるので, 通常はこの操作は必要ない. \end{enumerate} \end{enumerate} \item \LaTeX のスタイルオプションとして {\tt graphicx.sty} を指定する. すなわち, 以下のように設定リストのあたりに {\tt \verb!\usepackage{graphicx}!}を入れる. \verb!\documentclass[a4paper,12pt]{jarticle}! \verb!\usepackage{graphicx}! 本文中で, 挿入したい場所に \verb!\includegraphics! コマンドで入れるdcl.psファイルを指定する. \verb!\includegraphics[width=10cm,keepaspectratio]{dcl.ps}! または, \verb!\includegraphics[height=10cm,keepaspectratio]{dcl.ps}! \verb!width=10cm!, \verb!height=8cm!などの指定により, 図全体の幅, または高さが指定した値になるように 縮小拡大されて挿入される.\verb!keepaspectratio!で縦横比が保存される. \begin{quote} \small このスケーリングには, \verb!%%BoundingBox!の値が使用される. \verb!%%BoundingBox!の値は 順にx座標の下限, y座標の下限, x座標の上限, y座標の上限を示す. 座標の単位は1/72インチである. この範囲が指定した実長におさまるようにスケーリングし, その大きさの領域を確保するようになっている. \end{quote} \item \LaTeX の処理を行う. ここで,\verb!\includegraphics!に指定したファイルが見つからないと, エラーがとなる. いろいろな方法で処理できるが、現在はpdfにするのがよくおこなわれており、 後々の使い勝手も良い.dvipdfmxなどで変換するのがよいだろう. \end{enumerate} \subsection{dclpsrot} \label{pslib.dclpsrot.cmd} \begin{enumerate} \item 機能 \begin{quote} dclps.ps を90度回転させて, 横長画面が\LaTeX にとりこめるようにする. \end{quote} \item 使用方法 \begin{quote} {\tt dclpsrot} {\em psfile} \end{quote} \item 引数 \begin{quote} \begin{tabular}{lp{11cm}} {\em psfile\/} & 入力ファイル名. 標準的には{\tt dcl.ps\/}. 省略すると, 標準入力が用いられる. \end{tabular} \end{quote} \item 備考 \begin{enumerate} \item PSファイルは1ページごとに一つのファイルと なっていなければならない. ページを抜き出すには, {\tt dclpsselect}(\ref{pslib.dclpsselect.cmd})が使用できる. \end{enumerate} \end{enumerate} \section{dclps2kdraw : 描画ツールによるdclps.psの編集} 直接の印刷, あるいは\LaTeX{}への組み込みの前に dcl.psファイルを対話型描画ツールによって編集加工することができる. ここでは, idraw(あるいはその日本語対応版のkdraw)を 用いた方法を述べる. kdraw は特殊なPSファイル(コメントとしてkdraw独自の命令が入っている) を入出力として使っており, その形に合わせておけば, kdraw により編集 が可能となる. dclpsfont によって PS に変換された文字列は変換されな い. \begin{enumerate} \item {\tt dclps2kdraw} を使用して, {\tt dcl.ps}ファイルを {\tt kdraw}が読み込めるファイルに変換する. \item {\tt kdraw}を起動してファイルを読み込み, 編集加工後セーブ, 印刷する. \end{enumerate} \subsection{dclps2kdraw} \label{pslib.dclps2kdraw.cmd} \begin{enumerate} \item 機能 \begin{quote} dclps.ps を kdraw が読み込める形に変換する. \end{quote} \item 使用方法 \begin{quote} {\tt dcl2kdraw} {\em psfile} \end{quote} \item 引数 \begin{quote} \begin{tabular}{lp{11cm}} {\em psfile\/} & 入力ファイル名. 標準的には{\tt dcl.ps\/}. 省略すると, 標準入力が用いられる. \end{tabular} \end{quote} \item 備考 \begin{enumerate} \item PSファイルは1ページごとに一つのファイルと なっていなければならない. ページを抜き出すには, {\tt dclpsselect}(\ref{pslib.dclpsselect.cmd})が使用できる. \item ハードフィルは変換できない. 無視される. \item {\tt dclps2idraw}で変換したファイルは そのままでは印刷できない. 一度{\tt idraw}で読み込み, セーブすると印刷可能となる. \item ある(比較的新しい?)バージョンの{\tt idraw}では 読み込んだ時非常に大きくなってしまい, また線が太くなってしまう. {\tt kdraw}は古いバージョンの{\tt idraw}({\tt Interviews2.6})を 元にしており, そのような症状は出ない. \item 2つの{\tt idraw}を立ちあげて, {\tt .clipboard}を用いて cut and paste する場合, paste したイメージの スケールがおかしくなる(大きくなる). \item 編集加工された画像にあわせて\verb!BoundingBox!が 再設定されるために, 編集前と\LaTeX{}に組み込んだ時の大きさが異なってしまう ことがある. その際には\verb!BoundingBox!の数値を \ref{pslib.dclps2tex}で示したものに設定しなおすこと. \end{enumerate} \end{enumerate} \section{その他のps用ツール} いくつかのpsツールが追加されている.それぞれのコマンドの使い方について述べる. \subsection{dclpscat} \begin{enumerate} \item 機能 \begin{quote} 複数のファイルからなる一連の図を1つのファイルの複数ページの出力の 形にする. 2ページめ以降のヘッダを削除し, 連接する. \end{quote} \item 使用方法 \begin{quote} {\tt dclpscar \///} {\em psfile} \end{quote} \item 引数 \begin{quote} \begin{tabular}{lp{11cm}} {\em psfile\/} & 入力ファイル名. 標準的には{\tt dcl.ps\/}. 省略すると, 標準入力が用いられる. \end{tabular} \end{quote} \item 備考 \end{enumerate} \subsection{dclpsfix} \begin{enumerate} \item 機能 \begin{quote} TeX に組み込んだ時のプリンタのバグに対処するため, BoundigBox 以外 の %% コメントを削除. また, kdraw で編集した dcl.ps由来のファイル で, そのままだとトーンが汚くなるので後処理を行う. \end{quote} \item 使用方法 \begin{quote} {\tt dclpsfix …} \end{quote} \item 引数 \begin{quote} \begin{tabular}{lp{11cm}} {\em psfile\/} & 入力ファイル名. 標準的には{\tt dcl.ps\/}. 省略すると, 標準入力が用いられる. \end{tabular} \end{quote} \item 備考 \end{enumerate} \subsection{dclpsfont} \begin{enumerate} \item 機能 \begin{quote} dcl で書かれた文字を PS フォントに変換する. たくさんオプションがあ り, フォントが選択できる. オプションにより, 上付き, 下付き文字にも 対応可. ギリシャ文字も出力される. 文字の向きは紙が縦向き (Portrait) か横向き (Landscape) かによって自動判別する. ※sgtx[uvr], sgtxz[uvr] で書かれた文字列において, 文字コード 0 〜 127 の文字と文字コード 128 〜 255 の文字を混ぜた複合文字列を用いた 場合には変換されない. ※Adobe Illustrator 9.x 以降で用いる場合には Symbol フォントを SymbolMT フォントに変更する必要がある(オプション ai=1). \end{quote} \item 使用方法 \begin{quote} {\tt dclpsfont [f=..] [