← Back to branch summary

~ubuntu-branches/ubuntu/oneiric/ifeffit/oneiric

« back to all changes in this revision

Viewing changes to src/lib/cifeffit.f

  • Committer: Bazaar Package Importer
  • Author(s): Carlo Segre
  • Date: 2008-11-12 09:23:20 UTC
  • mfrom: (1.1.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20081112092320-fn3okrjwzz4brqno
Tags: 2:1.2.11b-1
* New upstream release
* Update to Standards-Version 3.8.0 (no changes)

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/lib/cifeffit.f
29
29
       external ifeffit, istrln
30
30
       call sclean(str)
31
31
       ilen = istrln(str)
 
32
       print*, ' IFFEXECF: ', str(1:ilen)
32
33
       iffexecf = ifeffit(str)
33
34
       return
34
35
       end
125
126
c  purpose: wrapper to put array in ifeffit data
126
127
       implicit none
127
128
       character*(*) inp, str*256
128
 
       integer   k,  j, inpts
 
129
       integer   inpts
129
130
       double precision dx(*), getsca
130
131
       external getsca
131
132
       iffputarr = 0
144
145
       include 'echo.h'
145
146
       save
146
147
       character*(*) str, s*512
147
 
       integer   i,  istrln
 
148
       integer   istrln
148
149
       external  istrln
149
150
       iffgetecho = 0
150
151
       s   = ' '