?? iolength_3.f90
字號:
! Test that IOLENGTH works for io list containing more than one entryprogram iolength_3 implicit none integer, parameter :: & ! 32 bit, i.e. 4 byte integer (every gcc architecture should have this?) int32 = selected_int_kind(9), & ! IEEE double precision, i.e. 8 bytes dp = selected_real_kind(15, 307) integer(int32) :: a, b, iol real(dp) :: c inquire (iolength = iol) a, b, c if ( 16 /= iol) then call abort end ifend program iolength_3
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -