ermsg

    整数型変数の上限指定をチェックするサブルーチン．
     
     
  • サブルーチン名： ermsg

    •  
  • 呼び出し方：call ermsg(nval,nlim,srtnm,valnm,limnm)

    •  
  • 引　数：
    • 引数
    意　味
    入出力の区分
    備　考
    nval チェックする変数
    入力
    		 整数型
    nlim 許容限界
    入力
    		 整数型
    nval > nlim の場合，プログラムの実行が中止される．
    srtnm 本ルチーンを呼んでいるルーチンの名前
    入力
    		 文字型
    valnm nval の変数名
    入力
    		 文字型
    limnm nlim の変数名
    入力
    		 文字型

     
  • 使用例
    parameter ( nxmax = 100, nymax = 100)
    dimension adim(nxmax,nymax)
    ………
    read(*,*) nx,ny
    call ermsg(nx,nxmax,'input','nx','nxmax')
    call ermsg(ny,nymax,'input','ny','nymax')
    read(*,*) ((adim(i,j),j=1,ny),i=1,nx)
    ……

    •