git push -u origin main
This commit is contained in:
@@ -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
|
||||
Reference in New Issue
Block a user