drag_suite_init()

subroutine drag_suite::drag_suite_init	(	integer, intent(in)	gwd_opt,
		character(len=*), intent(out)	errmsg,
		integer, intent(out)	errflg
	)