git push -u origin main

2026-03-19 14:05:33 +08:00
commit 1e30b7bc63
739 changed files with 572150 additions and 0 deletions
@@ -0,0 +1,20 @@
+      subroutine readbf
+c     =================
+c
+c     auxiliary subroutine for enabling reading of input data with
+c     comments
+c
+c     lines beginning with ! or * are understood as comments
+c
+      INCLUDE 'PARAMS.FOR'
+      character*80 buff
+   10 continue
+      read(5,501,end=20) buff
+      if(buff(1:1).eq.'!'.or.buff(1:1).eq.'*') go to 10
+      write(ibuff,501) buff
+      go to 10
+  501 format(a)
+   20 continue
+      rewind ibuff
+      return 
+      end