psmile_cim.F90

Go to the documentation of this file.

!------------------------------------------------------------------------
! Copyright 2006-2010, CERFACS, Toulouse, France.
! All rights reserved. Use is subject to OASIS4 license terms.
!-----------------------------------------------------------------------
!BOP
!
! !MODULE PSMILe_cim
MODULE PSMILe_cim

! !PUBLIC TYPES
  USE PRISM_Constants
  USE PSMILe_common

  IMPLICIT NONE

! !DESCRIPTION
! This module gathers the routines used to extract the information from 
! the configuration file that is CIM-compliant.
!
! !REVISED HISTORY
!   Date        Programmer     Description
! ----------    ----------     -----------
! 30/07/2010   JM Epitalon     Creation
!
!EOP
!
!  Global variable
SAVE
! Handle to open CIM XML document
  INTEGER ig_CIM_handle
! Rank of OASIS-Driver in the list of softwareComponent in the CIM
  INTEGER ig_rank_driver
!
!======================================================================
!
! 
CONTAINS

!-----------------------------------------------------------------------
!-----------------------------------------------------------------------
!
! open the scc.xml file
!
  SUBROUTINE open_cim_file (il_error)

    INTEGER, INTENT (Out) :: il_error

    INTEGER :: sasa_c_read_file  ! external C function

    ig_CIM_handle = sasa_c_read_file ('cim.xml', 7)
    if (ig_CIM_handle .eq. -1) then
       il_error = 1
    else
       il_error = 0
    endif

  END SUBROUTINE open_cim_file

!-----------------------------------------------------------------------
!-----------------------------------------------------------------------
!
! close the scc.xml file
!
  SUBROUTINE close_cim_file ()

    INTEGER :: sasa_c_close  ! external C function
    INTEGER :: il_err

    il_err = sasa_c_close (ig_CIM_handle)

  END SUBROUTINE close_cim_file

!-----------------------------------------------------------------------
!-----------------------------------------------------------------------
!
! Does the simulation use the spawn feature or not ?
!

  SUBROUTINE get_execution_mode (execution_mode, error)

    INTEGER, INTENT (Out) :: execution_mode ! (1 : not_spawn | 2 : spawn)
    INTEGER, INTENT (Out) :: error

   ! external C functions 
    INTEGER :: sasa_c_convert_char2int  
    INTEGER :: sasa_c_get_element_xpath_c 

    CHARACTER(LEN=max_name) :: cla_char
    CHARACTER(LEN=max_name) :: cla_execution_mode
    INTEGER                 :: il_length

    error = sasa_c_get_element_xpath_c( ig_CIM_handle, &
      

"//simulationComposite/child/simulationRun/model/modelComponent/&       &childComponent/processorComponent/componentProperties/componentProperty/&       &value[preceding-sibling::shortName = 'start_mode' ]",  &
       cla_char, il_length)
    
    error = 0   
    cla_execution_mode = ' '
    cla_execution_mode = cla_char(1:il_length)
    execution_mode = sasa_c_convert_char2int(TRIM(cla_execution_mode))

  END SUBROUTINE get_execution_mode

!-----------------------------------------------------------------------
!-----------------------------------------------------------------------
!
! How many pes for the driver/transformer
!

  SUBROUTINE get_transformer_pes (transf_pes, error)

    INTEGER, INTENT (Out) :: transf_pes
    INTEGER, INTENT (Out) :: error
    CHARACTER(LEN=max_name) :: cla_char
    INTEGER                 :: il_length

    INTEGER :: sasa_c_get_element_xpath_i

! number of transformer pes
    error = sasa_c_get_element_xpath_i( ig_CIM_handle, &
       
"/simulationComposite/child/simulationRun/model/modelComponent/&       &childComponent/processorComponent/deployment/parallelisation/processes",  &
       transf_pes)
    
  END SUBROUTINE get_transformer_pes

!-----------------------------------------------------------------------
!-----------------------------------------------------------------------
!
! Collect the dates used in the simulation
!

  SUBROUTINE get_dates ( experiment_start_date, &
     experiment_end_date,   &
     run_start_date,        &
     run_end_date,          &
     error)

    TYPE(PRISM_Time_Struct), INTENT (InOut) :: experiment_start_date
    TYPE(PRISM_Time_Struct), INTENT (InOut) :: experiment_end_date 
    TYPE(PRISM_Time_Struct), INTENT (InOut) :: run_start_date
    TYPE(PRISM_Time_Struct), INTENT (InOut) :: run_end_date

    INTEGER, INTENT (Out) :: error

    INTEGER :: sasa_c_get_element_xpath_c 

    CHARACTER(LEN=max_name) :: cla_char
    INTEGER                 :: il_length
    ! separator characters
    CHARACTER               :: x1, x2, x3, x4, x5, x6
    INTEGER                 :: seconds, centiseconds

! experiment_start_date collection
    error = sasa_c_get_element_xpath_c( ig_CIM_handle, &
       "/simulationComposite/startPoint",  &
       cla_char, il_length)
   ! decode character string ; it is has the following format : yyyy-mm-ddThh:mm:ss.ss
    
    cla_char = ADJUSTL(cla_char)
    seconds = 0
    centiseconds = 0
    read (cla_char, "(I4,A1,I2,A1,I2,A1,I2,A1,I2,A1,I2,A1,I2)", err=900) &
       experiment_start_date%year, x1, experiment_start_date%month, x2, experiment_start_date%day, x3, &
       experiment_start_date%hour, x4, experiment_start_date%minute, x5, seconds, x6, centiseconds
 900 continue  
   ! Process separately seconds and centiseconds : to allow the user to omit decimals
   ! If the user specifies centiseconds, there must be two digits
    experiment_start_date%second = seconds + centiseconds / 100.0
#ifdef VERBOSE    
    write (*,905) "experiment start date: ",    &
       experiment_start_date%year, experiment_start_date%month, experiment_start_date%day, &
       experiment_start_date%hour, experiment_start_date%minute, experiment_start_date%second
 905 format (A,I4,"-",I2,"-",I2," ",I2,":",I2,":",F5.2)
#endif

! experiment_end_date collection
    error = sasa_c_get_element_xpath_c( ig_CIM_handle, &
       "/simulationComposite/endPoint",  &
       cla_char, il_length)
   ! decode character string ; it is has the following format : yyyy-mm-ddThh:mm:ss.ss
    cla_char = ADJUSTL(cla_char)
    seconds = 0
    centiseconds = 0
    read (cla_char, "(I4,A1,I2,A1,I2,A1,I2,A1,I2,A1,I2,A1,I2)", err=910) &
       experiment_end_date%year, x1, experiment_end_date%month, x2, experiment_end_date%day, x3, &
       experiment_end_date%hour, x4, experiment_end_date%minute, x5, seconds, x6, centiseconds
 910 continue  
   ! Process separately seconds and centiseconds : to allow the user to omit decimals
    experiment_end_date%second = seconds + centiseconds / 100.0
#ifdef VERBOSE    
    write (*,915) "experiment end date: ",    &
       experiment_end_date%year, experiment_end_date%month, experiment_end_date%day, &
       experiment_end_date%hour, experiment_end_date%minute, experiment_end_date%second
 915 format (A,I4,"-",I2,"-",I2," ",I2,":",I2,":",F5.2)
#endif
 
! run_start_date collection
    error = sasa_c_get_element_xpath_c( ig_CIM_handle, &
       "/simulationComposite/child/simulationRun/startPoint",  &
       cla_char, il_length)
    seconds = 0
    centiseconds = 0
   ! decode character string ; it is has the following format : yyyy-mm-ddThh:mm:ss.ss
    cla_char = ADJUSTL(cla_char)
    read (cla_char, "(I4,A1,I2,A1,I2,A1,I2,A1,I2,A1,I2,A1,I2)", err=920) &
       run_start_date%year, x1, run_start_date%month, x2, run_start_date%day, x3, &
       run_start_date%hour, x4, run_start_date%minute, x5, seconds, x6, centiseconds
 920 continue  
   ! Process separately seconds and centiseconds : to allow the user to omit decimals
    run_start_date%second = seconds + centiseconds / 100.0
#ifdef VERBOSE    
    write (*,925) "run start date: ",    &
       run_start_date%year, run_start_date%month, run_start_date%day, &
       run_start_date%hour, run_start_date%minute, run_start_date%second
 925 format (A,I4,"-",I2,"-",I2," ",I2,":",I2,":",F5.2)
#endif

! run_end_date collection
    error = sasa_c_get_element_xpath_c( ig_CIM_handle, &
       "/simulationComposite/child/simulationRun/endPoint",  &
       cla_char, il_length)
    seconds = 0
    centiseconds = 0
   ! decode character string ; it is has the following format : yyyy-mm-ddThh:mm:ss.ss
    cla_char = ADJUSTL(cla_char)
    read (cla_char, "(I4,A1,I2,A1,I2,A1,I2,A1,I2,A1,I2,A1,I2)", err=930) &
       run_end_date%year, x1, run_end_date%month, x2, run_end_date%day, x3, &
       run_end_date%hour, x4, run_end_date%minute, x5, seconds, x6, centiseconds
 930 continue  
   ! Process separately seconds and centiseconds : to allow the user to omit decimals
    run_end_date%second = seconds + centiseconds / 100.0
#ifdef VERBOSE    
    write (*,935) "run end date: ",    &
       run_end_date%year, run_end_date%month, run_end_date%day, &
       run_end_date%hour, run_end_date%minute, run_end_date%second
 935 format (A,I4,"-",I2,"-",I2," ",I2,":",I2,":",F5.2)
#endif

  END SUBROUTINE get_dates

!-----------------------------------------------------------------------
!-----------------------------------------------------------------------
!
! Get the number of applications
!

  SUBROUTINE get_appli_number (appli_number, error)

    INTEGER, INTENT (Out) :: appli_number ! nb of applications
    INTEGER, INTENT (Out) :: error

    INTEGER :: sasa_c_get_number_6th_level

    ! Get total number of <child-component> which are modelComponent
    ! (they have a child <modelComponent> XML element)
    error = sasa_c_get_number_6th_level (ig_CIM_handle,                      &
       "simulationComposite", 0, "child", 0, "simulationRun", 0, "model", 0, &
       "modelComponent", 0, "childComponent[modelComponent]",  appli_number)
       
  END SUBROUTINE get_appli_number

!-----------------------------------------------------------------------
!-----------------------------------------------------------------------
!
! Get the names, exe_names, nb of hosts and nb of comps for all the appli
!

  SUBROUTINE get_appli_details ( appli_number,         &
     appli_names, appli_exe_names, appli_nb_hosts,     &
     appli_redirect, appli_nb_comps, appli_nb_args,    &
     error)

    INTEGER, INTENT (In) :: appli_number

    CHARACTER(LEN=max_name),DIMENSION(0:appli_number),INTENT (Out) :: 
       appli_names ! names of the different applications

    CHARACTER(LEN=max_name),DIMENSION(0:appli_number),INTENT (Out) :: 
       appli_exe_names ! names of the different application executables

    INTEGER, DIMENSION(0:appli_number), INTENT (Out) :: 
       appli_redirect ! stdout redirected or not for all applications

    INTEGER, DIMENSION(0:appli_number), INTENT (Out) :: 
       appli_nb_hosts ! number of hosts for each application

    INTEGER, DIMENSION(0:appli_number), INTENT (Out) :: 
       appli_nb_comps ! number of components for each application

    INTEGER, DIMENSION(0:appli_number), INTENT (Out) :: 
       appli_nb_args ! number of arguments for each application

    INTEGER, INTENT (Out) :: error

    CHARACTER(LEN=max_name) :: cla_char

    INTEGER :: sasa_c_get_number_8th_level, sasa_c_get_number_9th_level
    INTEGER :: sasa_c_get_element_4th_level_c, sasa_c_get_element_8th_level_c

    INTEGER :: i, i_host, il_length  

    if (appli_names(0) .NE. 'Stand alone') then
      appli_names(0)     = "oasis4"
      appli_exe_names(0) = "../../../bin/prismdrv_main"
      appli_nb_hosts(0) = 1
      appli_nb_args(0) = 0
      appli_nb_comps(0) = 1
    endif

    DO i = 1, appli_number

     ! Number of hosts = Number of <deployment> elements in the application
     ! nb of <deployment> elements in the i-th childComponent/modelComponent
      error = sasa_c_get_number_8th_level (ig_CIM_handle, &
        "simulationComposite", 0, "child", 0, "simulationRun", 0, "model", 0, "modelComponent", 0,  &
        "childComponent[modelComponent]", i, "modelComponent", 0, "deployment", appli_nb_hosts(i))
    
      ! Executqble name and number of command-line arguments for launching the application
      ! For the moment, we suppose them to be defined in any <deployment> element of the appli
      ! Note : nb of hosts may be zero
      ! Note : there may be no arguments in any host
      appli_nb_args(i) = 0
      appli_exe_names(i) = ' '
      i_host = 1
      ! Look for the first <deployment> that has some executable name
      DO WHILE (appli_exe_names(i) == ' ' .AND. i_host <= appli_nb_hosts(i))

         error = sasa_c_get_element_8th_level_c (ig_CIM_handle,                          &
            "simulationComposite", 0, "child", 0, "simulationRun", 0, "model", 0,        &
            "modelComponent", 0,  "childComponent[modelComponent]", i, "modelComponent", &
            0, "deployment", i_host, "executableName", 0, cla_char, il_length)

         ! if executableName found
         if (error == 0) then
            appli_exe_names(i) = cla_char(1:il_length)

            ! Number of <executableArgument> in this host
            error = sasa_c_get_number_9th_level (ig_CIM_handle,                      &
               "simulationComposite", 0, "child", 0, "simulationRun", 0, "model", 0, &
               "modelComponent", 0,  "childComponent[modelComponent]", i,            &
               "modelComponent", 0, "deployment", i_host, "executableArgument",      &
               appli_nb_args(i))
         endif

         i_host = i_host + 1
      ENDDO

      ! Number of components of the i-th application
      ! = number of <chilComponent> in i-th childComponent/modelComponent
      error = sasa_c_get_number_8th_level (ig_CIM_handle, &
        "simulationComposite", 0, "child", 0, "simulationRun", 0, "model", 0, "modelComponent", 0,  &
        "childComponent[modelComponent]", i, "modelComponent", 0, "childComponent", appli_nb_comps(i))

      ! Name of application : value of element <shortName>
      error = sasa_c_get_element_4th_level_c (           &
        ig_CIM_handle, "model", 0, "modelComponent", 0,  &
        "childComponent[modelComponent]", i, "modelComponent", 0, "shortName", 0, cla_char, il_length)
      appli_names(i) = ' '
      appli_names(i) = cla_char(1:il_length)
      
      ! Force output redirection to file
      appli_redirect(i) = 1    

    END DO

  END SUBROUTINE get_appli_details

!-----------------------------------------------------------------------
!-----------------------------------------------------------------------
!
! Get the arguments for one appli
! 

  SUBROUTINE get_appliarg_details ( id_appli_number,   &
     id_appli_nb_args,  &
     cda_appli_args,    &
     error )

    INTEGER, INTENT (In)  :: 
       id_appli_number ! application number

    INTEGER, INTENT (In)             :: 
       id_appli_nb_args ! nb of arguments for the appli

    CHARACTER(LEN=max_name),DIMENSION(id_appli_nb_args),INTENT(Out):: 
       cda_appli_args ! arguments for the application

    INTEGER, INTENT (Out) :: error

    INTEGER :: sasa_c_get_number_8th_level, sasa_c_get_element_8th_level_c

    CHARACTER(LEN=max_name) :: cla_exe_name
    INTEGER :: ib, i_host, il_nb_hosts, il_length

    cda_appli_args = " "
    IF (id_appli_nb_args .ne. 0) THEN
        
        ! Number of hosts = Number of <deployment> elements in the application
        ! nb of <deployment> elements in the childComponent/modelComponent
          error = sasa_c_get_number_8th_level (ig_CIM_handle,                        &
            "simulationComposite", 0, "child", 0, "simulationRun", 0, "model", 0,    &
            "modelComponent", 0,  "childComponent[modelComponent]", id_appli_number, &
            "modelComponent", 0, "deployment", il_nb_hosts)
        
        ! Look for the first <deployment> that has some executable name (where are defined the arguments)
        i_host = 1
        error = 1
        cla_exe_name = ' '
        DO WHILE (cla_exe_name == ' ' .AND. i_host <= il_nb_hosts)
        
          error = sasa_c_get_element_8th_level_c (ig_CIM_handle,                       &
              "simulationComposite", 0, "child", 0, "simulationRun", 0, "model", 0,    &
              "modelComponent", 0,  "childComponent[modelComponent]", id_appli_number, &
              "modelComponent", 0, "deployment", i_host, "executableName", 0,          &
              cla_exe_name, il_length)
        
          if (cla_exe_name == ' ') i_host = i_host + 1
        ENDDO
    
        DO ib = 1, id_appli_nb_args

          ! Number of <executableArgument> in this host
          error = sasa_c_get_element_8th_level_c (ig_CIM_handle, "simulationComposite", &
            0, "child", 0, "simulationRun", 0, "model", 0, "modelComponent", 0,         &
            "childComponent[modelComponent]", id_appli_number, "modelComponent", 0,     &
            "deployment", i_host, "executableArgument", ib, cda_appli_args(ib), il_length)

        END DO
    END IF

  END SUBROUTINE get_appliarg_details

!-----------------------------------------------------------------------
!-----------------------------------------------------------------------
!
! Get the names and the numbers of processes for all hosts of one appli
! 

  SUBROUTINE get_applihost_details ( id_appli_number,        &
     id_appli_nb_hosts,      &
     cda_appli_hostnames,    &
     ida_appli_hostnbprocs,  &
     error )

    INTEGER, INTENT (In)  :: 
       id_appli_number ! application number

    INTEGER, INTENT (In)             :: 
       id_appli_nb_hosts ! nb of hosts for the appli

    CHARACTER(LEN=max_name), DIMENSION(id_appli_nb_hosts), INTENT(Out) ::
       cda_appli_hostnames ! names of the hosts for the application

    INTEGER, DIMENSION(id_appli_nb_hosts), INTENT (Out) :: 
       ida_appli_hostnbprocs ! numbers of procs of the hosts for the appli

    INTEGER, INTENT (Out) :: error

    INTEGER :: sasa_c_get_element_9th_level_c, sasa_c_get_element_9th_level_i

    INTEGER :: ib, il_length

    CHARACTER(LEN=max_name) :: cla_char

    cda_appli_hostnames = " "

    DO ib =1, id_appli_nb_hosts

        error = sasa_c_get_element_9th_level_c (ig_CIM_handle, &
            "simulationComposite", 0, "child", 0, "simulationRun", 0, "model", 0, "modelComponent", 0,  &
            "childComponent[modelComponent]", id_appli_number, "modelComponent", 0, "deployment", ib, &
            "platform", 0, "shortName", 0, cla_char, il_length)    
        if (il_length .ne. 0)  then
            cda_appli_hostnames(ib) = cla_char(1:il_length)
        endif

        error = sasa_c_get_element_9th_level_i (ig_CIM_handle, &
            "simulationComposite", 0, "child", 0, "simulationRun", 0, "model", 0, "modelComponent", 0,  &
            "childComponent[modelComponent]", id_appli_number, "modelComponent", 0, "deployment", ib, &
            "parallelisation", 0, "processes", 0, ida_appli_hostnbprocs(ib))      

    END DO

  END SUBROUTINE get_applihost_details

!-----------------------------------------------------------------------
!-----------------------------------------------------------------------
!
! Get the names and the active processes for all comps of one appli
! 

  SUBROUTINE get_applicomp_details ( id_appli_number,           &
     id_appli_nb_comps,         &
     cda_appli_compnames,       &
     ida_appli_compnbranksets,  &
     error )

    INTEGER, INTENT (In)  :: 
       id_appli_number ! application number

    INTEGER, INTENT (In)             :: 
       id_appli_nb_comps ! nb of comps for the appli

    CHARACTER(LEN=max_name), DIMENSION(id_appli_nb_comps),INTENT(Out) :: 
       cda_appli_compnames ! names of the comps for the application

    INTEGER, DIMENSION(id_appli_nb_comps), INTENT (Out) :: 
       ida_appli_compnbranksets ! numbers of rank sets 
! for all components of the application

    INTEGER, INTENT (Out) :: error

    INTEGER :: sasa_c_get_element_9th_level_c, sasa_c_get_number_10th_level

    INTEGER :: ib, il_length

    CHARACTER(LEN=max_name) :: cla_char

    cda_appli_compnames = " "

    DO ib = 1, id_appli_nb_comps

        error = sasa_c_get_element_9th_level_c (ig_CIM_handle, &
            "simulationComposite", 0, "child", 0, "simulationRun", 0, "model", 0, "modelComponent", 0,  &
            "childComponent[modelComponent]", id_appli_number, "modelComponent", 0, "childComponent", ib, &
            "modelComponent", 0, "shortName", 0, cla_char, il_length)
        cda_appli_compnames(ib) = ' '
        cda_appli_compnames(ib) = cla_char(1:il_length)

        ! Number of rank sets (to be refined after discussion wiht ALLYN)
        error = sasa_c_get_number_10th_level (ig_CIM_handle, &
            "simulationComposite/child/simulationRun", 0, "model", 0, "modelComponent", 0,  &
            "childComponent[modelComponent]", id_appli_number, "modelComponent", 0, "childComponent", ib, &
            "modelComponent", 0, "deployment", 0, "parallelisation", 0, "rank", ida_appli_compnbranksets(ib))

    END DO

  END SUBROUTINE get_applicomp_details

!-----------------------------------------------------------------------
!-----------------------------------------------------------------------
!
! Get the rank sets (min-max-inc) for all components of one applications
! 

  SUBROUTINE get_applicomprk_detls (id_appli_number,         &
     id_appli_nbtot_rankset,  &
     ida_appli_compranks,     &
     error )

    INTEGER, INTENT (In)  :: 
       id_appli_number ! application number

    INTEGER, INTENT (In)             :: 
       id_appli_nbtot_rankset ! total nb of rank sets for the application

    INTEGER, DIMENSION(id_appli_nbtot_rankset,3), INTENT (Out) :: 
       ida_appli_compranks ! array of active ranks 
! for all components for the application (min, max, inc)

    INTEGER, INTENT (Out) :: error

    INTEGER :: sasa_c_get_number_8th_level, sasa_c_get_number_10th_level
    INTEGER :: sasa_c_get_element_10th_level_i

    INTEGER :: il_nb_comp, il_nb_comprksets, il_length
    INTEGER :: ib, ib_bis, ib_ter
    CHARACTER(LEN=max_name) :: cla_char

    call psmile_flushstd
    
    IF (id_appli_nbtot_rankset .ne. 0) THEN

        error = sasa_c_get_number_8th_level (ig_CIM_handle, &
          "simulationComposite", 0, "child", 0, "simulationRun", 0, "model", 0, "modelComponent", 0,  &
          "childComponent[modelComponent]", id_appli_number, "modelComponent", 0, "childComponent", il_nb_comp)
        
        ib_ter = 0
        DO ib =1, il_nb_comp

        ! Number of rank sets
        error = sasa_c_get_number_10th_level (ig_CIM_handle, &
            "simulationComposite/child/simulationRun", 0, "model", 0, "modelComponent", 0,  &
            "childComponent[modelComponent]", id_appli_number, "modelComponent", 0, "childComponent", ib, &
            "modelComponent", 0, "deployment", 0, "parallelisation", 0, "rank", il_nb_comprksets)
        
          DO ib_bis = 1, il_nb_comprksets

            ib_ter = ib_ter + 1
            error = sasa_c_get_element_10th_level_i (ig_CIM_handle, &
                "simulationComposite/child/simulationRun", 0, "model", 0, "modelComponent", 0,  &
                "childComponent[modelComponent]", id_appli_number, "modelComponent", 0, "childComponent", ib, &
                "modelComponent", 0, "deployment", 0, "parallelisation", 0, "rank", ib_bis, 'rankMin', 0, &
                ida_appli_compranks(ib_ter,1))
        
            error = sasa_c_get_element_10th_level_i (ig_CIM_handle, &
                "simulationComposite/child/simulationRun", 0, "model", 0, "modelComponent", 0,  &
                "childComponent[modelComponent]", id_appli_number, "modelComponent", 0, "childComponent", ib, &
                "modelComponent", 0, "deployment", 0, "parallelisation", 0, "rank", ib_bis, 'rankMax', 0, &
                ida_appli_compranks(ib_ter,2))
        
            error = sasa_c_get_element_10th_level_i (ig_CIM_handle, &
                "simulationComposite/child/simulationRun", 0, "model", 0, "modelComponent", 0,  &
                "childComponent[modelComponent]", id_appli_number, "modelComponent", 0, "childComponent", ib, &
                "modelComponent", 0, "deployment", 0, "parallelisation", 0, "rank", ib_bis, 'rankIncrement', 0, &
                ida_appli_compranks(ib_ter,3))
                if (ida_appli_compranks(ib_ter,3) .eq. 0)  ida_appli_compranks(ib_ter,3) = 1
        
          END DO

        END DO

    END IF

  END SUBROUTINE get_applicomprk_detls


END MODULE PSMILe_cim