      SUBROUTINETDPGET(NEPAR,NPAR,STATUS)
      INTEGERNEPAR
      INTEGERNPAR
      INTEGERSTATUS
      INTEGERIAV,NARG,I,KNUL,KUN
      CHARACTER*8TBARGN(8)
      INTEGERFIMODE  
      INTEGERFOMODE  
      INTEGERFIOMOE   
      INTEGERFUMODE  
      INTEGERFXMODE  
      INTEGERFDMODE  
      INTEGERFXDPAM   
      INTEGERFFITSM     
      INTEGERFOLDTE    
      INTEGERFIMATE    
      INTEGERFTBLTE    
      INTEGERFFITTE    
      INTEGERFASCTE    
      INTEGERDOLDFT      
      INTEGERDI1FOT     
      INTEGERDI2FOT     
      INTEGERDUI2FT      
      INTEGERDI4FOT     
      INTEGERDR4FOT     
      INTEGERDR8FOT     
      INTEGERDL1FOT     
      INTEGERDL2FOT     
      INTEGERDL4FOT     
      INTEGERDCFORT    
      INTEGERDXFORT    
      INTEGERDPFORT    
      INTEGERFTRANS 
      INTEGERFRECOD  
      INTEGERXYPLAE   
      INTEGERXZPLAE   
      INTEGERZYPLAE   
      CHARACTER*64TPARBF(8)
      INTEGERERRILL
      INTEGERERRSEM
      INTEGERERRSOV
      INTEGERERRSOP
      INTEGERERRPAR
      INTEGERERRCOD
      INTEGERERRFMT
      INTEGERERRRED
      INTEGERERRSCL
      INTEGERERRCOL
      INTEGERERRREF
      INTEGERERRALG
      INTEGERERRGNP
      INTEGERERRGAL
      COMMON/TBLCM1/TPARBF
      DATAFOMODE  /1/
      DATAFIOMOE   /2/
      DATAFIMODE  /0/
      DATAFUMODE  /2/
      DATAFXMODE  /9/
      DATAFDMODE  /2/
      DATAFXDPAM   /0/
      DATAFFITSM     /2/
      DATAFOLDTE    /0/
      DATAFIMATE    /1/
      DATAFTBLTE    /3/
      DATAFFITTE    /4/
      DATAFASCTE    /9/
      DATADOLDFT      /0/
      DATADI1FOT     /1/
      DATADI2FOT     /2/
      DATADUI2FT      /102/
      DATADI4FOT     /4/
      DATADR4FOT     /10/
      DATADR8FOT     /18/
      DATADL1FOT     /21/
      DATADL2FOT     /22/
      DATADL4FOT     /24/
      DATADCFORT    /30/
      DATADXFORT    /40/
      DATADPFORT    /50/
      DATAFTRANS /0/
      DATAFRECOD  /1/
      DATAXYPLAE   /10/
      DATAXZPLAE   /11/
      DATAZYPLAE   /12/
      DATAERRILL/-100/
      DATAERRSEM/-104/
      DATAERRSOV/-107/
      DATAERRSOP/-108/
      DATAERRPAR/-500/
      DATAERRCOD/-501/
      DATAERRFMT/-502/
      DATAERRRED/-503/
      DATAERRSCL/-504/
      DATAERRCOL/-505/
      DATAERRREF/-506/
      DATAERRALG/-507/
      DATAERRGNP/-600/
      DATAERRGAL/-601/
      DATATBARGN/'P1 ','P2 ','P3 ','P4 ','P5 ','P6 ','P7 ','P8 '/
      CALLSTKRDI('PCOUNT',1,1,IAV,NARG,KUN,KNUL,STATUS)
      NPAR=NARG
      DO10I=1,MIN(NEPAR,NARG)
      CALLSTKRDC(TBARGN(I),1,1,64,IAV,TPARBF(I),KUN,KNUL,STATUS)
   10 CONTINUE
      IF(NARG.GT.NEPAR)STATUS=ERRPAR
      RETURN
      END
