11 lines
212 B
Fortran
11 lines
212 B
Fortran
subroutine quit(text,i1,i2)
|
|
c
|
|
c stops the program and writes a text
|
|
c
|
|
character*(*) text
|
|
write(6,10) text,i1,i2
|
|
write(10,10) text,i1,i2
|
|
10 format(1x,a,2x,2i10)
|
|
stop
|
|
end
|