!------------------------------------------------- !interface module of uxpack !------------------------------------------------- module ux_interface interface !----------------------------------------------------------------------------------- subroutine uxaxdv(cside,dx1,dx2) !目盛とラベルを描く間隔を指定して座標軸を描く. character(len=1), intent(in) :: cside !座標軸を描く場所を指定する real, intent(in) :: dx1 !小さめの目盛を描く間隔を指定する real, intent(in) :: dx2 !大きめの目盛およびラベルを描く間隔を指定する end subroutine subroutine uxaxnm(cside,ux1,n1,ux2,n2) !目盛とラベルを描く場所を指定して座標軸を描く. character(len=1), intent(in) :: cside !座標軸を描く場所を指定する real, intent(in), dimension(n1) :: ux1 !小さめの目盛を描く場所を格納した長さn1の配列 integer, intent(in) :: n1 !配列ux1, uy1の長さ real, intent(in), dimension(n2) :: ux2 !大きめの目盛およびラベルを描く場所を格納した長さn2の配列 integer, intent(in) :: n2 !配列ux1, uy1の長さ end subroutine subroutine uxaxlb(cside,ux1,n1,ux2,ch,nc,n2) !目盛とラベルを描く場所を指定して座標軸を描く. character(len=1), intent(in) :: cside !座標軸を描く場所を指定する real, intent(in), dimension(n1) :: ux1 !小さめの目盛を描く 場所を格納した長さn1の配列 integer, intent(in) :: n1 !配列ux1, uy1の長さ real, intent(in), dimension(n2) :: ux2 !大きめの目盛およびラベルを描く場所を格納した長さn2の配列 character(len=nc), intent(in), dimension(n2) :: ch !描くラベルを格納した文字長nc,長さn2の文字型配列 integer, intent(in) :: nc !配列chの文字長 integer, intent(in) :: n2 !配列ux2, uy2, chの長さ end subroutine subroutine uxmttl(cside,cttl,px) !大きめのタイトルを描く. character(len=1), intent(in) :: cside !座標軸を描く場所を指定する character(len=*), intent(in) :: cttl !描くタイトル real, intent(in) :: px !-1から+1の間の実数値でタイトルを描く位置を指定する end subroutine subroutine uxsttl(cside,cttl,px) !小さめのタイトルを描く. character(len=1), intent(in) :: cside !座標軸を描く場所を指定する character(len=*), intent(in) :: cttl !描くタイトル real, intent(in) :: px !-1から+1の間の実数値でタイトルを描く位置を指定する end subroutine !------------------------------------------------------------------ subroutine uxpaxs(cside,islct) !軸を示す線分を描く. character(len=1), intent(in) :: cside !座標軸を描く場所を指定する integer, intent(in) :: islct !描く軸の属性を指定する end subroutine subroutine uxptmk(cside,islct,ux,n) !目盛を描く. character(len=1), intent(in) :: cside !目盛を描く座標軸の場所を指定する integer, intent(in) :: islct !描く目盛の属性を指定する real, intent(in), dimension(n) :: ux !目盛を描く場所を格納した長さnの 配列 integer, intent(in) :: n !配列ux, uyの長さ end subroutine subroutine uxplbl(cside,islct,ux,ch,nc,n) !文字列で指定したラベルを描く. character(len=1), intent(in) :: cside !ラベルを描く座標軸の場所を指定する integer, intent(in) :: islct !描くラベルの属性を指定する real, intent(in), dimension(n) :: ux !ラベルを描く場所を格納した長さnの 配列 character(len=nc), intent(in), dimension(n) :: ch !描くラベルを格納した文字長nc長さnの文字型配列 integer, intent(in) :: nc !配列chの文字長 integer, intent(in) :: n !配列ux, uy, chの長さ end subroutine subroutine uxpnum(cside,islct,ux,n) !数値で指定したラベルを描く. character(len=1), intent(in) :: cside !ラベルを描く座標軸を描く場所を指定する integer, intent(in) :: islct !描くラベルの属性を指定する real, intent(in), dimension(n) :: ux !ラベルを描く場所を格納した長さnの 配列 integer, intent(in) :: n !配列ux, uyの長さ end subroutine subroutine uxpttl(cside,islct,cttl,px) !タイトルを描く. character(len=1), intent(in) :: cside !タイトルを描く座標軸を描く場所を指定する integer, intent(in) :: islct !描くタイトルの属性を指定する character(len=*), intent(in) :: cttl !描くタイトル real, intent(in) :: px !-1から+1の間の実数値でタイトルを描く位置を指定する end subroutine function luxchk(cside) character(len=*), intent(in) :: cside logical luychk end function subroutine uxplba(ux,ch,nc,n,upy,roffx,rsize,irota,icent,index) real, intent(in), dimension(*) :: ux character(len=*), intent(in), dimension(*) :: ch integer, intent(in) :: nc integer, intent(in) :: n real, intent(in) :: upy real, intent(in) :: roffx real, intent(in) :: rsize integer, intent(in) :: irota integer, intent(in) :: icent integer, intent(out) :: index end subroutine subroutine uxplbb(ux,ch,nc,n,upy,roffx,rsize,irota,icent,index,rbtwn,lbound,lbmsg) real, intent(in), dimension(*) :: ux character(len=*), intent(in), dimension(*) :: ch integer, intent(in) :: nc integer, intent(in) :: n real, intent(in) :: upy real, intent(in) :: roffx real, intent(in) :: rsize integer, intent(in) :: irota integer, intent(in) :: icent integer, intent(out) :: index real, intent(in) :: rbtwn logical, intent(in) :: lbound logical, intent(in) :: lbmsg end subroutine subroutine uxptmz(ux,n,upy,roffx,rtick,index) real, intent(in), dimension(*) :: ux integer, intent(in) :: n real, intent(in) :: upy real, intent(in) :: roffx real, intent(in) :: rtick integer, intent(in) :: index end subroutine subroutine uxsoff() end subroutine subroutine uxroff() end subroutine end interface end module !uxpack library end ----