你只循环了一次，那么循环体内的call语句自然只会调用一次子程序。
cycle没用过。你为什么不向下面这样写呢？doi=1,10if(i>3)thenb=i+1print*,bendifenddoend
