← Back to branch summary

~ubuntu-branches/ubuntu/hoary/scilab/hoary

« back to all changes in this revision

Viewing changes to examples/mex-examples/mex-with-so/foof.F

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2005-01-09 22:58:21 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20050109225821-473xr8vhgugxxx5j
Tags: 3.0-12
http://bugs.debian.org/255869
changed configure.in to build scilab's own malloc.o, closes: #255869

Show diffs side-by-side

added added

removed removed

Lines of Context:
examples/mex-examples/mex-with-so/foof.F
1
 
      subroutine mexfunction(nlhs,plhs,nrhs,prhs)
2
 
c     simple example of fortran mex.
3
 
c     usage a=pipo3(2)
4
 
      integer*4 plhs(*), prhs(*)
5
 
c     FOR 64 bits MACHINES SHOULD BE integer*8
6
 
      integer nlhs, nrhs
7
 
c
8
 
      if (nrhs.ne.1) then
9
 
         call mexerrmsgtxt('Requires ONE input')
10
 
      endif
11
 
      if (nlhs.ne.1) then
12
 
         call mexerrmsgtxt('Requires ONE output!')
13
 
      endif
14
 
      plhs(1)=prhs(1)
15
 
      return
16
 
      end