関数型¶
1 2 3 4 5 6 | <Item name="discharge" caption="Discharge time series"> <Definition valueType="functional" > <Parameter valueType="real" caption="Time" /> <Value valueType="real" caption="Discharge" /> </Definition> </Item> |
1 2 3 4 5 6 7 8 9 10 | integer:: ier, discharge_size double precision, dimension(:), allocatable:: discharge_time, discharge_value ! サイズを調べる call cg_iric_read_functionalsize_f("discharge", discharge_size, ier) ! メモリを確保 allocate(discharge_time(discharge_size)) allocate(discharge_value(discharge_size)) ! 確保したメモリに値を読み込む call cg_iric_read_functional_f("discharge", discharge_time, discharge_value, ier) |
1 2 3 4 5 6 7 8 9 10 | integer:: ier, discharge_size double precision, dimension(:), allocatable:: discharge_time, discharge_value ! サイズを調べる call cg_iric_read_bc_functionalsize_f("inflow", 1, "discharge", discharge_size, ier) ! メモリを確保 allocate(discharge_time(discharge_size)) allocate(discharge_value(discharge_size)) ! 確保したメモリに値を読み込む call cg_iric_read_bc_functional_f("inflow", 1, "discharge", discharge_time, discharge_value, ier) |