← Back to branch summary

~ubuntu-branches/ubuntu/karmic/scilab/karmic

« back to all changes in this revision

Viewing changes to routines/system/mrknmd.f

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2002-03-21 16:57:43 UTC
  • Revision ID: james.westby@ubuntu.com-20020321165743-e9mv12c1tb1plztg
Tags: upstream-2.6
Import upstream version 2.6

Show diffs side-by-side

added added

removed removed

Lines of Context:
routines/system/mrknmd.f
 
1
      subroutine mrknmd()
 
2
c     Copyright INRIA
 
3
      INCLUDE '../stack.h'
 
4
      logical compil,c
 
5
      character*(6) str
 
6
c      integer iadr,sadr
 
7
 
 
8
      if(ddt.eq.4) then
 
9
         call cvname(ids(1,pt),buf,1)
 
10
         write(str,'(i6)') top
 
11
         call basout(io,wte,'mrknmd top = '//str//
 
12
     $        ' name = '//buf(1:24))
 
13
      endif
 
14
 
 
15
      if(lhs.le.0) return
 
16
      if(comp(1).eq.0) then
 
17
         infstk(top)=1
 
18
         call putid(idstk(1,top),ids(1,pt))
 
19
         pt=pt-1
 
20
      else
 
21
         c=compil(18,ids(1,pt),0,0,0)
 
22
         pt=pt-1
 
23
      endif
 
24
      return
 
25
      end