logical :: firstrun = .true.
integer tempvar
if(firstrun) then
write(*,*)"please input an integer:"
read(*,*)tempvar
firstrun = .false.
endif
Fortran 停止进入调试代码
最新推荐文章于 2022-12-19 17:45:48 发布
logical :: firstrun = .true.
integer tempvar
if(firstrun) then
write(*,*)"please input an integer:"
read(*,*)tempvar
firstrun = .false.
endif