地球流体電脳ライブラリ(DCL)



地球流体の研究者に優しい
欠損値処理が簡単
地図投影が簡単
Fortran で書ける。
Fortran90対応
研究教育資源として最適
タダである
学生が自由に使える
DCL の構造

構造化されている
移植が容易(UNIX/ Windows対応)
USER PROGRAM
MATH2
GRAPH2
MISC2
MATH1
GRAPH1
MISC1
サンプルプログラム
program hop
use dcl
integer, parameter :: n=400
real, dimension(n) :: x, y
!------------ data definition -------------
dt = 3.14159 / (n-1)
a = 1.e5
b = 1.e-4
c = 1.
x = a*sin( 6.*(/(dt*(i-1), i=1, n)/))
y = b*cos(14.*(/(dt*(i-1), i=1, n)/)) + c
!---------------- graph ------------------call
call
call
call
call
DclOpenGraphics()
DclNewFrame
DclSetTitle ('X-TITLE', 'Y-TITLE')
DclDrawScaledGraph(x, y)
DclCloseGraphics
end program
program map3d2
use dcl
…….
………… データ定義 ….
call DclOpenGraphics()
call DclSetParm( 'ENABLE_SOFTFILL', .false. )
call DclNewFrame
call
call
call
call
call
call
call
DclSetWindow
(xmin, xmax, ymin, ymax )
DclSetViewport ( 0.1, 0.9, 0.1, 0.9 )
DclSetSimilarity( 0.4, 0., 0. )
DclSetMapProjectionAngle ( 135., 35., 0. )
DclSetMapProjectionWindow(-180., 180., 0., 90. )
DclSetTransNumber( 30 )
DclSetTransFunction()
call
call
call
call
DclSetShadeLevel (level, pattern)
DclShadeContour
( p )
DclSetContourLevel( p, 0.4 )
DclDrawContour
( p )
call DclDrawMap( 'coast_world' )
call DclDrawGlobe
call DclCloseGraphics
end program
出力結果