subroutine level4(a) Is called by level2 the new one only See level2_label_new end subroutine level4
Code RST, using FtagsHTML-0.517 by cessenat, file Level4.f of 26/5/2001.