ETS  \$Id: Doxyfile 2162 2020-02-26 14:16:09Z g2dpc $
 All Classes Files Functions Variables Pages
ENDFL.f
Go to the documentation of this file.
1  SUBROUTINE endfl(I)
2 1 READ(i,*,end=2)
3  go to 1
4 2 backspace i
5  RETURN
6  END
endfl
subroutine endfl(I)
Definition: ENDFL.f:1