12 lines
217 B
Fortran
12 lines
217 B
Fortran
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
|