Searched refs:iv_rankpernode (Results 1 – 2 of 2) sorted by relevance
20 integer :: iv_rankpernode, iv_totnodes, iv_totcores local192 iv_rankpernode = iv_rankpercore*iv_corepernode193 iv_totnodes = numpe/iv_rankpernode207 irankfilesforce(isrf) = iv_node*iv_rankpernode 211 if(myrank == 0 .and. isrf.le.iv_rankpernode) then
105 integer :: iv_rankpernode, iv_totnodes, iv_totcores local1384 iv_rankpernode = iv_rankpercore*iv_corepernode1385 iv_totnodes = numpe/iv_rankpernode1391 write(*,*) ' Ranks per node:',iv_rankpernode1406 iv_rank(jj) = iv_node*iv_rankpernode