Télécharger la plaquette Cast3M


fr en

Télécharger verifi.eso

Retour à la liste

Numérotation des lignes : 

verifi

  1. C VERIFI    SOURCE    KICH      21/11/17    21:15:14     11191          
  2. *  aiguilleur de VERI
  3. *
  4.       subroutine verifi
  5.       implicit real*8 (a-h,o-z)
  6.  
  7. -INC PPARAM
  8. -INC CCOPTIO
  9.       LOGICAL log1
  10. *
  11.       call lirree (xval,0,iretou)
  12.        if (iretou.eq.1) then
  13.           call verree(xval,log1)         
  14.           call ecrlog(log1)
  15.           return
  16.        endif
  17.       call lirobj ('CHPOINT  ',iret,0,iretou)
  18.        if (iretou.eq.1) then
  19.           call actobj ('CHPOINT  ',iret,1)
  20.           call verchp(iret,log1)          
  21.           call ecrlog(log1)
  22.           return
  23.        endif
  24.       call lirobj ('MCHAML   ',iret,0,iretou)
  25.        if (iretou.eq.1) then
  26.          call actobj ('MCHAML   ',iret,1)
  27.          call vercha(iret,log1)          
  28.           call ecrlog(log1)
  29.           return
  30.        endif
  31.       end
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137.  
  138.  
  139.  

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