CALL STIGET(INFRAME, ..., IMFIN, ISTAT)where MYHIST is a character expression of 80 characters; e.g. filled via MYHIST(1:) = `subframe of'//INFRAME//' ' if you just extract a subframe from the input frame. The routine DSCUPT is also included in the MIDAS library (see below).
CALL STIPUT(OUTFRAME, ..., IMFOUT, ISTAT)
.... compute ...
CALL DSCUPT(IMFIN, IMFOUT, MYHIST, ISTAT)