Searched refs:COUPLE_ngrp_ID (Results 1 – 4 of 4) sorted by relevance
146 write(*,*) 'COUPLE_ngrp_ID ', s%COUPLE_ngrp_ID
1934 call fstr_expand_integer_array ( P%SOLID%COUPLE_ngrp_ID, old_size, new_size )1945 n, grp_id_name, P%SOLID%COUPLE_ngrp_ID(old_size+1:))
297 integer( kind=kint ),pointer :: COUPLE_ngrp_ID(:) component692 nullify( S%COUPLE_ngrp_ID )
52 ig= fstrSOLID%COUPLE_ngrp_ID(ig0)