?? ex0839.f90
字號(hào):
program ex0839
implicit none
integer :: a
read(*,*) a
call sub( a, *100, *200 )
! 特別另外指定兩個(gè)返回點(diǎn), 分別是行代碼100及200這兩個(gè)地方
write(*,*) "Default"
stop
100 write(*,*) "Return 1"
stop
200 write(*,*) "Return 2"
stop
end
subroutine sub( a, *, * )
implicit none
integer :: a
if ( a<=0 ) then
return ! 返回內(nèi)定的返回點(diǎn)
else if ( a==1 ) then
return 1 ! 返回特別指定的第1個(gè)返回點(diǎn)
else
return 2 ! 返回特別指定的第2個(gè)返回點(diǎn)
end if
end subroutine
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -