Cards to enter objects different from integers?

[jonasdovern]

Dear RATS users,
is it possible to program a construction that allows to enter for instance a number of equations on a supplementary card to a procedure (like it is used e.g. in the forecast-command)?

To use this procedure I would like to enter something like

Code: Select all

@testprocedure( options )
# eqn1 eqn2 ... eqnK

Ideally, I would like to enter cards that hold different type of objects (like with the forecast-command):

Code: Select all

@testprocedure( options )
# eqn1 result1
# ...
# eqnK resultK

where resultX is a series/integer/real.

I tried to define the array used with enter inside the procedure as a vec[equ] - but this seems to be not working as I receive an error message that additional memory of "-13 bytes cannot be satisfied".

[TomDoan]

You might want to look at the CONDITION.SRC file. That uses ENTER to input a whole string of information, one per line with different fields.

[jonasdovern]

Thanks Tom! I think something along those lines will help me! Best regards, Jonas

[jonasdovern]

I guess I was too optimistic

Here's (part of) my code:

Code: Select all

procedure nowcastwithmM ne
   *
    option integer   ftime
    option integer   fsteps 3
    option switch   addf 0
   *
   local int      neqn k
   local model      lmod
   local vec[ser]   fcs
   local vec[int]    af
   local vec[equ]   eqnlist
   *
   if eqninput.and..not.%defined(ne) {
      disp "Please enter the number of equations behind the procedure name!"
      return
   }
   *
   comp neqn = ne
   dim af(neqn)
   *
   dim eqnlist(neqn)
   do k=1,neqn
           enter eqnlist(k)
   end do
   if addf {
      enter(varying,entries=naf) af
      if naf<>neqn {
         disp "Number of add-factors does not correspond to number of equations in the model!"
         return
      }
   }
   else {
      do k=1,neqn
         set af(k) ftime ftime+fsteps-1 = 0.0
      end do
   }
   *
   do k=1,neqn
            if k==1
         group lmod eqnlist(k)
      else
         comp lmod = lmod + eqnlist(k)
   end do
   *
   forecast(print=print,model=lmod,from=ftime,steps=fsteps,results=fcs,path) *
   # af
   *
   decl vec[ser] %mFCS(neqn)
   do k=1,neqn
      set %mFCS(k) ftime ftime+fsteps-1 = fcs(k)(t)
   end do k
   *
end procedure

When running, RATS would promt the error message

Code: Select all

## EQ3. Equation zÚ Has Not Been Defined
The Error Occurred At Location 0830 of NOWCASTWITHMM
Line 66 of NOWCASTWITHMM


(It's the forecast-command that is causing problems; the line number does not corrspond as I deleted some unimportant pieces from the code.)
The problem seems to be that the equations are not properly held by the eqnlist-array.

Best regards, Jonas