Google ドキュメントにファイルをアップロードすることができる。そのメリットは
・ファイルを複数人で共有
・ネットワークに接続されたPCがあれば、どこでもそのファイルをダウンロード
である。
通常、ファイルサイズは最大250MBまで対応しているが、例えばMS-Wordファイルは500KBまでしか対応していない。どうしてもMS-Wordファイルを利用したいのであれば、拡張子を一時的に変えたり、Zipなどで圧縮すればよい。
2010年1月21日木曜日
2010年1月13日水曜日
FORTRAN90, 形状引継ぎ配列
平均値を計算するプログラム
平均値を計算する関数副プログラムを作成したい。その時、サンプルの引数は配列になる。配列のサイズを事前に知ることができないため、形状引継ぎ配列を用いる。但し、メインプログラムはmean関数の引数の型を知らないので、interface文によりmean関数の型を明示しなければならない。
---
program main
implicit none
interface mean
function mean(a) result(b)
real(4), intent(in) :: a(:)
real(4) :: b
end function mean
end interface mean
integer(4), parameter :: ndim = 10
integer(4) :: i ! loop counter
real(4) :: x(ndim)
!!
do i = 1, ndim
x(i) = real(i)
end do
print *, mean(x)
end program main
---
function mean(x) result(y)
implicit none
integer(4) :: i
real(4) :: x(:)
y = 0.0
do i = 1, size(x)
y = y + x(i)
end do
y = y / real(size(x))
end function mean
平均値を計算する関数副プログラムを作成したい。その時、サンプルの引数は配列になる。配列のサイズを事前に知ることができないため、形状引継ぎ配列を用いる。但し、メインプログラムはmean関数の引数の型を知らないので、interface文によりmean関数の型を明示しなければならない。
---
program main
implicit none
interface mean
function mean(a) result(b)
real(4), intent(in) :: a(:)
real(4) :: b
end function mean
end interface mean
integer(4), parameter :: ndim = 10
integer(4) :: i ! loop counter
real(4) :: x(ndim)
!!
do i = 1, ndim
x(i) = real(i)
end do
print *, mean(x)
end program main
---
function mean(x) result(y)
implicit none
integer(4) :: i
real(4) :: x(:)
y = 0.0
do i = 1, size(x)
y = y + x(i)
end do
y = y / real(size(x))
end function mean
登録:
投稿 (Atom)