Back to OASIS4 home

Routine prismdrv_set_scc_info (id_err)
Subroutine "PRISMDrv_set_scc_info" sets the information got through the extraction of information in the SCC file. The master process (PRISMdrv_root) collects the xml infos and broadcast the ones needed to the other driver processes.

ALLOCATE ( cga_appli_name(0:ig_nb_appl), STAT = id_err )
ALLOCATE ( cga_appli_exe_name(0:ig_nb_appl), STAT = id_err )
ALLOCATE ( iga_appli_nb_pes(0:ig_nb_appl), STAT = id_err )
ALLOCATE ( iga_appli_nb_hosts(0:ig_nb_appl), STAT = id_err )
ALLOCATE ( iga_appli_nb_comps(0:ig_nb_appl), STAT = id_err )
ALLOCATE ( iga_appli_nb_args(0:ig_nb_appl), STAT = id_err )
ALLOCATE ( iga_appli_redirect(0:ig_nb_appl), STAT = id_err )
ALLOCATE ( iga_appli_nbtot_ranksets(1:ig_nb_appl), STAT = id_err )
ALLOCATE ( comm_coupling(0:ig_nb_appl), STAT = id_err )
ALLOCATE ( cga_appli_args(ig_nb_tot_args), STAT = id_err )
ALLOCATE ( cga_appli_hostname(ig_nb_tot_hosts), STAT = id_err )
ALLOCATE ( iga_appli_hostnbprocs(ig_nb_tot_hosts), STAT = id_err )
ALLOCATE ( cga_appli_compname(ig_nb_tot_comps), STAT = id_err )
ALLOCATE ( iga_appli_compnbranksets(ig_nb_tot_comps), STAT = id_err )
ALLOCATE ( iga_appli_compranks(ig_nbtot_ranksets,3), STAT = id_err )

To be able to also allocate their arrays, the master PRISMdrv_root sends :
       ila_scc_info(1) = ig_MPI
      ila_scc_info(2) = ig_nb_appl
      ila_scc_info(3) = ig_driver_nb_pes
      ila_scc_info(4) = ig_nb_tot_comps
      ila_scc_info(5) = ig_nbtot_ranksets
to the other processes of the driver.