Télécharger la plaquette Cast3M


fr en

Télécharger main2.eso

Retour à la liste

Numérotation des lignes : 

main2

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

© Cast3M 2003 - Tous droits réservés.
Mentions légales