TYPE DIAG_MISC_TEB_NP_t ! TYPE(DIAG_MISC_TEB_t), POINTER :: AL(:) => NULL() ! END TYPE DIAG_MISC_TEB_NP_t