このサブルーチンは *BOUNDARYQ カードのパラメーター USER で特徴づけられるユーザー定義の境界値のために使用されます。ヘッダーと変数の意味は以下の通りです。
subroutine uboun(boun,kstep,kinc,time,node,idof,coords,vold,mi)
!
! ユーザーサブルーチン uboun
!
!
! 入力：
!
! kstep ステップ番号
! kinc インクリメント番号
! time(1) 現在のステップ時間
! time(2) 現在の総時間
! node 節点番号
! idof 自由度
! coords (1..3) 節点のグローバル座標
! vold(0..4,1..nk) 全節点で解かれる場
! 0: 温度
! 1: グローバル X 方向の変位（流体節点の場合は質量流量変化）
! 2: グローバル Y 方向の変位
! 3: グローバル Z 方向の変位
! 4: 静圧
! mi(1) 要素あたりの積分点の最大数（全要素にわたる最大値）
! mi(2) 場での節点あたりの最大自由度（全節点にわたる最大値）。例 v(0:mi(2))。
!
! 出力：
!
! boun 節点 "node" での自由度 idof の境界値
!