Esope source files

   1 : C MAIN2     SOURCE    PV        11/04/08    21:16:13     6934           
   2 : C     MAIN pour castem esclave
   3 : C                                                                               
   4 :       SUBROUTINE MAIN2
   5 :       IMPLICIT INTEGER(I-N)
   6 : -INC CCOPTIO                                                                    
   7 : -INC SMCOORD                                                                    
   8 : -INC CCASSIS
   9 : -INC CCNOYAU
  10 : *  initialisation de lotesc
  11 :       lotesc=.false.
  12 :       ith=0
  12 :       call ooonth(ith)
  12 :       if (ith.eq.0) call erreur(5)
  13 :       if (ith.ne.0) lotesc=.true.
  14 : *     write (6,*) ' dans main2 ',ith
  15 :       mesins=mescl(ith)
  16 : *     write (6,*) ' main2 mesins ',mesins
  17 :       SEGACT MESINS*MOD
  18 :       inass1 = inass
  19 : CC      print*, 'debut de main2 - Assistant : ', inass1
  20 : CC      print*, '""""""""""""""""""""""""""""""""""""""'
  21 :       mescla=lismes(1)
  22 : *     write (6,*) ' mescla dans main2 ',mescla
  23 :       inscou = mescla
  24 :       NBINS = NBINS - 1
  25 :       IF ( NBINS .NE. 0 ) THEN
  26 :         do i = 1 , NBINS
  27 :           lismes(i) = lismes(i+1)
  28 :         end do
  29 :       END IF
  30 :       lismes(NBINS+1) = 0 
  31 :       SEGDES MESINS*RECORD
  32 :       imescl(ith)=mescla
  33 :       segact mescla*mod
  34 : C recuperation des données cachées
  35 :       imestr = esopva(1)
  36 :       mestra = esopva(1)
  37 :       segact mestra
  38 :       ierres = esopva(2)
  39 : C   FIN DES INITIALISATIONS                                                     
  39 :       CALL PILOT                                                                
  39 :       CALL FIN                                                                  
  40 :       STOP                                                                      
  41 :       END                        
  42 :  
  43 :  
  44 :  
  45 :