name : if...then...end if
program nameIf
implicit none
real :: marks
marks = 90.04
gr: if(marks > 90.0) then
print *,"Grade A"
end if gr
read *
end program nameIf
结果:

program nameIf
implicit none
real :: marks
marks = 90.04
gr: if(marks > 90.0) then
print *,"Grade A"
end if gr
read *
end program nameIf
本文标题:😮Fortran--命名if代码块
本文链接:https://www.haomeiwen.com/subject/yzdbvqtx.html
网友评论