|
本帖最后由 风平老涡 于 2023-3-8 23:38 编辑
[Fortran] 纯文本查看 复制代码 07 | integer * 4 :: row 1 , row 2 , coL 1 , coL 2 |
08 | integer * 4 :: rowm , coLm |
12 | type ( Subblocks ) , allocatable :: iSubblocks ( : ) |
15 | type ( blocks ) , allocatable :: iblocks ( : ) |
16 | type ( Subblocks ) , allocatable :: iSubblocks ( : ) |
27 | allocate ( iblocks ( i ) % isubblocks ( m ) ) |
30 | allocate ( isubblocks ( m ) ) |
32 | print * , iblocks ( 3 ) % colm , iblocks % isubblocks ( 2 ) % col , isubblocks ( 3 ) % col |
衍生类型的变量名(iblocks % isubblocks) 与 变量名(isubblocks)不存在冲突。 |
|