git push -u origin main

This commit is contained in:
fmq
2026-03-19 14:05:33 +08:00
commit 1e30b7bc63
739 changed files with 572150 additions and 0 deletions
+11
View File
@@ -0,0 +1,11 @@
subroutine quit(text)
C =====================
c
c stops the program and writes a text
c
INCLUDE 'PARAMS.FOR'
character*(*) text
write(6,10) text
10 format(1x,a)
stop
end