在fortran的另一个链表中使用链表

Question

我有一个List（A），它由三个节点A1，A2，A3组成。列表A中的每个节点都有自己的节点B1，B2，B3。换句话说，节点A1有一个节点列表（B1，B2，B3），节点A2有自己的列表（B1，B2，B3）.....
我如何在Fortran中实现它。

我为它写了两个模块。

MODULE B
TYPE NODE_B 
 INTEGER :: i
DOUBLE PRECISION, DIMENSION(:) :: INPUT
 TYPE(NODE_B) , POINTER :: NEXT_B
END TYPE NODE_B
......
......
END MODULE B


The second Module 
MODULE A
TYPE NODE_A 
INTEGER ::j
TYPE(NODE_B) :: INPUT_A
TYPE(NODE_A), POINTER :: NEXT_A
END NODE_A
.....
.....
END MODULE A

我不确定TYPE NODE_A。