817end subroutine dbalevel_display
818
821type(dbalevel) function dbalevel_init(level1, l1, level2, l2)
822
823INTEGER,INTENT(IN),OPTIONAL :: level1
824INTEGER,INTENT(IN),OPTIONAL :: l1
825INTEGER,INTENT(IN),OPTIONAL :: level2
826INTEGER,INTENT(IN),OPTIONAL :: l2