newcom fix (7ba8d74c) · Commits · Zolnierczuk, Piotr / DrSPINE

sources/drspine.f90

+15 −9

Original line number	Diff line number	Diff line
		@@ -344,15 +344,6 @@ program drspine
		mycommand = " "
		commandloop: do

		!!>>>>
		!!mmnc
		call unused( icmdus=0, ivnuse=2, irpuse=2, iretus=iunused)
		if(iunused .ne. 0) then
		call errsig(9901,"ERROR: unknown option in last command ! $")
		return
		endif
		if(ierrs > 0) call close_all_macros()
		!!mmnc

		!!> TO BE DONE: check here for errors issued in the last command and perform appropriate action if available
		!!> we may introduce an extraction function 'get_last_error_codes' reporting the error code accumulated in new_com either
		@@ -371,6 +362,8 @@ program drspine
		endif
		endif



		call get_progvar()

		!-------------------------------------------------------------
		@@ -876,6 +869,19 @@ program drspine
		call makro(mycommand)
		call unused( 1, 1, 1, ier)


		!!>>>>
		!!mmnc
		call unused( icmdus=2, ivnuse=2, irpuse=2, iretus=iunused)
		if(iunused .ne. 0) then
		call errsig(9901,"ERROR: unknown option in last command ! $")
		endif

		if(ierrs > 0) call close_all_macros()
		ierrs = 0
		!!mmnc


		enddo commandloop

		!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!