skip.for

著名的berkeley大学开发的结构动力非线性分析程序

C*****
      SUBROUTINE SKIP ()
      CHARACTER AA*1
   10 READ (5,'(A1)') AA
      IF (AA.EQ.'$') GOTO 10
      BACKSPACE 5
      RETURN
      END